我用vb  WebBrowser1控件,我想 同时登陆 多个gmail账号,但是 似乎cookie冲突,不行呀,如何设计能同时登陆多个
gmail账号呀。

解决方案 »

  1.   

    Private Sub Command1_Click()
    Dim vDoc As Object
    Set vDoc = WebBrowser1.Document.childNodes(1)
    Dim vBody As Object
    Set vBody = vDoc.childNodes(1)
    Dim i As Long
    Dim vInput As Object
    For i = 0 To vBody.getElementsByTagName(INPUT).length - 1
    Set vInput = vBody.getElementsByTagName(INPUT)(i)
    If vInput.Name = int_4 Then
    vInput.Value = Combo1.Text
    End If
    If vInput.Name = title Then
    vInput.Value = Text1.Text
    End If
    If vInput.Name = numeric_1 Then
    vInput.Value = Text3.Text
    End If
    If vInput.Name = text Then
    vInput.Value = Text6.Text
    End If
    If vInput.Name = tel Then
    vInput.Value = Text5.Text
    End If
    If vInput.Name = realname Then
    vInput.Value = Text4.Text
    End If
    If vInput.Name = submit1 Then
    vInput.Value = 发布
    End If
    Next i
    End Sub
    Private Sub Form_Load()
    WebBrowser1.Navigate httpwww.baina.bizinfoadd-1893-1030.html
    End Sub