vb如何调用IE打开一个需要登录的web页面?

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim IE
    Set IE = CreateObject("internetexplorer.application")
    IE.Visible = True
    IE.navigate "http://office.9zp.com"
    End Sub
      

  2.   

    Private Function GetIEObject(IEWindow As InternetExplorer, ByVal URLKey As String) As Boolean
    On Error GoTo MyErr
        Dim i As Integer
        Dim URL As String
        Set IEForm = New SHDocVw.ShellWindows
        For i = 0 To IEForm.Count - 1
            URL = IEForm.Item(i).LocationURL
            If InStr(1, URL, URLKey) Then
                '找到窗口
                Set IEWindow = IEForm.Item(i)
                GetIEObject = True
                Exit Function
            End If
        Next i
    MyErr:
        GetIEObject = False
    End Function
      

  3.   

    不对,这段代码是判断现打开的IE中有没有地址含URLKey的IE窗口吧?
      

  4.   

    IE打开一个需要登录的web页面?
    你是说自动登陆是吗?
      

  5.   

    Private Sub Command1_Click()
        Shell "Explorer.exe http://www.csdn.net"
    End Sub
      

  6.   

    要实现自动登录要分两步走,一要分析相应网页自动登录的脚本,一般在登录页面都可以找到(看源码)例如:URL/login.asp?username=&paaaward=;
    另一个是在VB里获取用户名跟密码,实现登录。
    这些都是很简单的。
      

  7.   

    不是https,
    比如说我要登录csdn 社区的"我的问题"这一界面,用户名和口令就请用各位的用户名和口令试试,谢谢!
      

  8.   

    那好办啊,针对不同的网站不一样的,要分析该网站的登陆表单~
    如lgs35所说~
      

  9.   

    用javascript做啊,呵呵~~,我就是这样做的。。vb 的我就只能帮你顶了
      

  10.   

    dim strUrl as string = "http://www.csdn.net"
    shell("C:\Program Files\Internet Explorer\IEXPLORE.EXE " + strUrl)
      

  11.   

    yhbtzy(yhbtzy) ( ) 信誉:100  怎么实现的。方法说说。学习一下
      

  12.   

    呵呵,我有,用VB6做的,一个实现自动登录,一个实现自动注册,例子是针对动网论坛7.0+SP2的。
    想要的留下邮箱。
      

  13.   

    我要啊:[email protected]
    谢谢!