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 ......
这语言好难啊 学delphi简单 哭
一个dll 和一个 指针函数调用 搞了我2礼拜 还是在我有delphi基础的情况下 哭
难度 比 delphi 高很多。继续努力学啊。
好像也并不比delphi难多少吧
主要代码 不直观了� ......
接收到的文本内容是ucs2编码格式，请问怎样转换成中文
按我的理解，UCS-2是字符集，具体的编码有UTF-8，UTF-16 (LE/BE)等。
如果你用Delphi 2009及以上版本，可以看看TEncoding类。
btw. 你说的转换成中文是啥意� ......
procedure RunFunction;
type
TFunc = function(A: Integer): Integer;stdcall; //这里根据DLL里面函数的声明修改
var
......
