webbrowser1的执行顺序问题
我写了一段代码 var x,y:integer;begin
webbrowser1.Navigate(edit3.Text);
sleep(3000);
SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);
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)
end;
编译没有错误 为什么运行的时候 程序选执行 SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);然后才打开浏览器呢 ?
我写了一段代码 var x,y:integer;begin
webbrowser1.Navigate(edit3.Text);
sleep(3000);
SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);
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)
end;
编译没有错误 为什么运行的时候 程序选执行 SetCursorPos(123,228);
sleep(3000);
SetCursorPos(627,302);然后才打开浏览器呢 ?
Navigate就不起作用了
你把第一个sleep(3000);改成
while webbrowser1.busy do
begin
Sleep(1);
application.Processmessage;
end;