delphi实现自动点击按钮

学校禁止p2p ，连优酷的视频也被禁了，平时没事喜欢看看优酷上的搞笑视频，每次都要缓冲好久甚至直接不能打开，灰常蛋疼。只能挂VPN了，又不想花钱去买VPN，只能用免费的，免费的一般有时间或流量的限制。有一款名为“517网络加速器”的vpn，免费的账号每次只能挂10分钟左右然后自动断开，需要手工去连接非常麻烦。于是想写个程序自动让它连接。

思路：循环获取“连接”按钮的句柄（使用spy++工具），判断按钮是否是“按下”的状态，否则给按钮发送“按下”的消息。

主要实现代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if IsWindowEnabled(btnHandle)=true  then  //按钮为正常状态，未按下
    begin

     //使用spy++工具 从父窗口层层获取到"连接"按钮的句柄
      w1:=findwindow('#32770','517网络加速器');
      w2:=FindWindowEx(w1,0,'#32770','服务器选择');
      btnHandle:=FindWindowEx(w2,0,'Button','连接');
      if btnHandle=0 then  
        begin
          showmessage('句柄获取失败!');
          form1.Close;
          exit;
        end
      else
        begin
          SendMessage(btnHandle,WM_LBUTTONDOWN,0,0); //发送”按下“消息
          SendMessage(btnHandle,WM_LBUTTONUP,0,0);   //发送”放开“消息
        end;
    end;
end;

使用Timer每5分钟扫描一次判断“连接”按钮是否弹起，弹起则发送"按下"的消息，实现自动连接。可以看视频去鸟。

ps:  目前“517网络加速器” 已经关闭免费账号试用了，大家就不要去试了。