谈谈模拟键盘鼠标操作自动安装程序的问题 不指定

青色咖啡 , 2010/09/11 13:56 , 个人作品 , 评论(0) , 阅读(470) , Via 本站原创 | |

说一下思路
首先运行程序
ShellExecute(0, 'open',PChar(jddir+'JDRJNOD32.exe'),nil,nil, SW_SHOWNORMAL);
然后用Spy++ 找到该程序窗口标题,然后获取该程序的句柄。通过以下代码使自动化程序窗口弹出来并获得焦点。
procedure Findexehwnd;
var
   h:THandle;
   buf:array[0..255] of char;
begin
   FillChar(buf,sizeof(buf),0);
   h := GetForegroundWindow();
   while (h<>0) do
   begin
      GetWindowText(h, buf, 255);
      if (AnsiContainsStr(buf, '极点NOD32升级ID获取器 V2010 Beta Build 3.0')) then
      begin
       IsWindow(h);
       if IsWindow(h) then
      begin
      SetForegroundWindow(h);
      ShowWindow(h,SW_RESTORE);
      end;
      end;
      h:=GetNextWindow(h,2);
      end;
       end;
提示用户键盘鼠标不要操作。


用键盘模拟TAB键选择按键焦点,模拟回车操作

安装目录要选择的话可以 直接 copy del改变目录,具体代码我就不打了。

至于安装完之后再安装下一个之前判断该安装程序进程在不在或者句柄在不在,然后进行下一个操作。

作者:青色咖啡@极点博客 - 青色咖啡的博客
地址:http://www.t522.com/post/119/
极点博客版权所有©转载时必须以链接形式注明作者和原始出处及本声明!

发表评论

昵称

网址

电邮

打开HTML 打开UBB 打开表情 隐藏 记住我 [登入] [注册]