如题
http://portal.genego.com/
这个网站访问的时候会弹出一个CGI窗口,
我是winform程序
webbrowser如何进行自动登录

解决方案 »

  1.   

    自动登录后,再根据路由器网页,可自动拨号,动态过滤等功能 
    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;