RSS订阅 | 匿名投稿
您的位置:网站首页 > 进程 > 正文

SendMessage在结束进程上的使用

作者:admin 来源: 日期:2018/1/17 8:07:41 人气: 标签:

 今天在看雪论坛注册了一个账号,需要100kx才能转为正式会员,故想编写一个可以在线刷kx的工具。

思路就是第一次运行程序的时候显示bbs主页,然后手动登陆论坛(其实可以用Au3实现自动登陆),然后每个指定时间(我设置为6分钟)再次访问论坛就可以了。

主要练习delphi控制台程序,一是如何调用外部程序,二是如何结束指定程序。

关于调用外部程序,无非就是ShellExecute或WinExec,我选的后者,因为参数少,简单些,不过貌似前者是现在的主流,而且可以直接访问网站。

关于结束进程,上网查了很多资料,比较多的方法是用正统的terminateprocess但使用起来比较麻烦,偶然发现有人说SendMessage也可以,就关注了一下后者。

没想到用SendMessage非常简便,所以就用它了。下面是源码:有不足之处希望批评指正!另外我的系统是Win7 32旗舰版 IE8.0


program Refresh;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils,
  Messages,
  WinProcs;
var
IsFirstRun,ErrorOccur:Boolean;
 
 
const UrlKanXue='C:\Program Files\Internet Explorer\IEXPLORE.EXE http://bbs.pediy.com/';
const SleepTime=360000;//360000;//6分钟
begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    while not ErrorOccur do
    begin
      if not IsFirstRun then
      begin
        IsFirstRun:=True;
        if WinExec(PAnsiChar(UrlKanXue),SW_NORMAL)>31 then //第一次运行时先访问主页,登陆一下。
        begin
          Writeln(FormatDateTime('hh:mm:ss',GetTime)+' 成功访问主页');
          Sleep(SleepTime);
          SendMessage(FindWindow('IEFrame','看雪软件安全论坛 - www.pediy.com - Windows Internet Explorer'),WM_CLOSE,0,0);
        end
        else
        ErrorOccur:=True;
      end
      else
      begin
        if WinExec(PAnsiChar(UrlKanXue),SW_HIDE)>31 then
        begin
          Writeln(FormatDateTime('hh:mm:ss',GetTime)+' 成功刷新页面');
          Sleep(SleepTime);
          SendMessage(FindWindow('IEFrame','看雪软件安全论坛 - www.pediy.com - Windows Internet Explorer'),WM_CLOSE,0,0);
        end
        else
        ErrorOccur:=True;
      end
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
下一篇:没有资料