您现在的位置:首页 >> VCL >> VCL >> 内容

Delphi中Webbrowser自动登录路由器网页

时间:2011/9/3 16:25:50 点击:

  核心提示:procedure TForm1.Button1Click(Sender: TObject);begin webbrowser1.Navigate('http://192.168.1.1'); Tim...

procedure TForm1.Button1Click(Sender: TObject);
begin
  webbrowser1.Navigate('http://192.168.1.1');
  Timer1.Enabled:=True;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
  wnd:HWND;
begin
  wnd:=FindWindow('#32770','连接到 192.168.1.1');
  if wnd>0 then
  begin
    if Lo(GetKeyState(VK_CAPITAL))=1 then //如果大写变成小写状态
     Keybd_event(VK_CAPITAL, 0, 0, 0);//大写键

    //用户名
    keybd_event(Ord('A'), MapVirtualKey(Ord('A'), 0), 0, 0);
    keybd_event(Ord('D'), MapVirtualKey(Ord('D'), 0), 0, 0);
    keybd_event(Ord('M'), MapVirtualKey(Ord('M'), 0), 0, 0);
    keybd_event(Ord('I'), MapVirtualKey(Ord('I'), 0), 0, 0);
    keybd_event(Ord('N'), MapVirtualKey(Ord('N'), 0), 0, 0);

    Keybd_event(VK_TAB, 0, 0, 0);

    //密码1223

    keybd_event(Ord('1'), MapVirtualKey(Ord('1'), 0), 0, 0);
    keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), 0, 0);

   //重复数字需先发送KEYUP
    keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), KEYEVENTF_KEYUP, 0);
    keybd_event(Ord('2'), MapVirtualKey(Ord('2'), 0), 0, 0);
    keybd_event(Ord('3'), MapVirtualKey(Ord('3'), 0), 0, 0);

    Keybd_event(VK_RETURN, 0, 0, 0);//登录

    Timer1.Enabled :=False;
  end;
end;

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号