[½»Á÷] ¡¾ÇóÖú¡¿VB ±àд¸¨ÖúСÈí¼þ(ÎÒÊDzËÄñ.ºÇºÇ,Çë½ÌÁË)

[ Type: image ] (Ìá½»ÊÇתµ½ÁíÍâÒ»¸öÌáʾ³É¹¦µÄwebÒ³,Ìá½»typeÊÇimageµÄ)


ÎÒÖªµÀÊÇÓÃwebbrowser¿Ø¼þ,µ«Êǵ½Ìá½»ÄǾÍת²»ÉÏÈ¥ÁË.

ÎÒµÄvb´úÂëÈçÏÂ,
Dim WBDocument As Variant

Private Sub Command1_Click()
     WebBrowser1.Navigate "http://labs.chinamobile.com/members/register.php?action=inviteRegister&mailId=70015&salt=lbydv"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     Dim vDoc, vTag
     Dim i As Integer
    Set vDoc = WebBrowser1.Document
     
     For i = 0 To vDoc.All.length - 1
         If UCase(vDoc.All(i).tagName) = "INPUT" Then
             Set vTag = vDoc.All(i)
             If vTag.Type = "text" Or vTag.Type = "image" Then
            
                 Select Case vTag.Name
                     Case "email"
                         vTag.Value = "xxx@www.com"
                     Case "password"
                         vTag.Value = "12a1122"
                      Case "password2"
                         vTag.Value = "12a1122"

                 End Select
             ElseIf vTag.Type = "image" Then
                 vTag.Click (µã»÷¾Íתµ½³É¹¦×¢²áÌáʾµÄÒ³Ãæ)
             End If
         End If
     Next i
End Sub

[ Last edited by ²¨²»¶¯ on 2010-1-13 at 21:02 ]