delphi 循环点击网页问题,第二次无法完成点击
我写了一段代码
是实现循环点击网页某一点的问题
可是实现的时候 第一次点击正常 第二次以后的点击就点击实现不了了
放出代码 求高手 大虾 帮助下
要循环点击
====
procedure TForm1.FormCreate(Sender: TObject);
begin
//timer1.Enabled:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
webbrowser1.Navigate(edit3.Text);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if checkbox1.Checked then
button3.Click
else showmessage('no') ;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
webbrowser1.Navigate('http://www.baidu.com');
end;
procedure TForm1.Button3Click(Sender: TObject);
var x,y:integer;
begin
webbrowser1.Navigate(edit1.Text);
SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);
sleep(3000);
SetCursorPos(1043,289);
sleep(3000);
SetCursorPos(944,625);
sleep(3000);
x:= strtoint(edit1.Text);
y:= strtoint(edit2.Text);
SetCursorPos(x,y);
Mouse_Event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0);
Mouse_Event(MOUSEEVENTF_LEFTUP,X,Y,0,0) ;
timer1.Enabled:=true;
end;
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
&
相关问答：
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
我写了个小程序，上面添加了一个shockwaveflash控件，然后在movie里写入swf文件的路径，然后执行没有问题。
当我把这个程序转移到另一台电脑执行时， shockwaveflash 控件显示空白。也就是没有加载那个swf文件。 ......
Delphi
怎样获取网页部分内容（代码），并且显示出来！
（只是网页里面的一部分内容并不是全部）
没弄懂！
类似websever的功能？
估计是利用ie的接口。。。。。。。。
是类似websever的功能 ......
Delphi 3年 在上海一个月能拿多少
（接触过的都是小项目 大项目没怎么做过）
还是看公司吧。。
mark
同样一套房子，我同事谈14K/㎡，我谈了15K/㎡。
结果差了10W，我多获利� ......
