5,390
社区成员
发帖
与我相关
我的任务
分享如何实现鼠标自动单击。
好像用mouse_event可以，
可具体如何用呢？
还有就是，如何控制IE的地址栏，
也就是说，用DELPHI写的程序在IE的地址栏中输入URL地址，并按回车键。
同时，还要关闭弹出的广告窗口。
写出完整的程序，解决了给100分。
可具体如何用呢？
还有就是，如何控制IE的地址栏，
也就是说，用DELPHI写的程序在IE的地址栏中输入URL地址，并按回车键。
同时，还要关闭弹出的广告窗口。
写出完整的程序，解决了给100分。
...全文
请发表友善的回复…
发表回复
波西尼尼 2002-04-21
- 打赏
- 举报
有专门的这种连点小软件，
去下载来用嘛，，
很方便的啊，，，，，，
去下载来用嘛，，
很方便的啊，，，，，，
jerrymousenet2 2002-04-21
- 打赏
- 举报
学习学习。
knock 2002-04-21
- 打赏
- 举报
我也学习学习
eulb 2002-04-21
- 打赏
- 举报
模拟鼠标单双击
procedure TForm1.Button1Click(Sender: TObject);
var
pt: TPoint;
begin
pt:= edit1.ClientToScreen( Point( 4,4 ));
SetCursorPos( pt.x, pt.y );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
//////////////////////////////
SendMessage(Form1.Handle,WM_LBUTTONDBLCLK,0,0);
procedure TForm1.Button1Click(Sender: TObject);
var
pt: TPoint;
begin
pt:= edit1.ClientToScreen( Point( 4,4 ));
SetCursorPos( pt.x, pt.y );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 );
mouse_event( MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 );
end;
//////////////////////////////
SendMessage(Form1.Handle,WM_LBUTTONDBLCLK,0,0);
dgxum 2002-04-20
- 打赏
- 举报
啊~~~~~~~~~~~~~~~~~~
都没有写完整，就拿分？
写详细的代码啊？
都没有写完整，就拿分？
写详细的代码啊？
milpas 2002-04-20
- 打赏
- 举报
findwindow
sendmessage || postmessage
sendmessage || postmessage
