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;
&
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
delphi如何向Access数据表中自定义字段?然后显示到DBGrid中
怎么没人理我呀
分分忒少咧，一般人都懒得进来……*^_^*
SQL
creat table TableName(ID Counter Primary Key,FieldName varchar(20))
ADOQue ......
delphi内置的加密解密单元是哪个？
Delphi有内置加密解密单元？
delphi里有个加密和解密的单元
引用
delphi里有个加密和解密的单元
是哪个？
windows的api？
标准加密的源代码，网上 ......
Embarcadero在8月26日正式发布了RAD Studio 2010(就是大家常用的Delphi 2010)，本人花了大概四个小时来安装和体验Delphi2010，现将体验结果向大家做个简单汇报。
一.优点:
1.IDE
1.1经� ......
