请教高手:访问网页的时候弹出CGI窗口,C# webbrowser如何捕获并且自动登录 如题http://portal.genego.com/这个网站访问的时候会弹出一个CGI窗口,我是winform程序webbrowser如何进行自动登录 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 自动登录后,再根据路由器网页,可自动拨号,动态过滤等功能 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; 急!c# 创建一个类库 生成非托管的DLL??? C# listview跪求实现方法.求包养! TreeView显示图标异常,请大家帮忙! windows service的问题 求助:存储过程条件查询有问题! 各位兄弟请帮帮忙:如何在C#程序中实现插件架构 .net winform 的设置安装程序的问题!~解决问题就给分! c# 可移植类中如何使用socket 用InstallShield6.22打包后怎样添加一个反安装程序? 如何操作远程机器上的共享目录! WCF配置 关于winform自动加载控件的问题
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;