么意思博客

模拟路由自动登陆：

模拟路由自动登陆：

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://192.168.0.1');
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
wnd:HWND;
begin
wnd:=FindWindow('#32770','连接到 192.168.0.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);


    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(Ord('8'), MapVirtualKey(Ord('8'), 0), 0, 0);
    keybd_event(Ord('8'), MapVirtualKey(Ord('8'), 0), 0, 0);
    keybd_event(Ord('8'), MapVirtualKey(Ord('8'), 0), 0, 0);
    keybd_event(Ord('8'), MapVirtualKey(Ord('8'), 0), 0, 0);
    Keybd_event(VK_RETURN, 0, 0, 0);//登录
  timer1.Enabled:=false;

end;
end;