本文整理自网络，侵删。
procedure TForm1.Button1Click(Sender: TObject);
begin
//www.delphitop.com 搜集整理
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;
相关阅读 >>
Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta
Delphi xe android platform uses-permission[1] 权限列表
更多相关阅读请进入《Delphi》频道 >>
