24СʱÈÈÃŰæ¿éÅÅÐаñ    

±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 321  |  »Ø¸´: 1
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£

cclost

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

¹ØÓÚwebÒ³Ãæ×Ô¶¯Ìá½»±íµ¥µÄÎÊÌâ,(ÎҺܲË)
ÎÒÊǸÕÈëvbÃÅ,ËùÒÔ²»»áµÄºÜ¶Ô,¾Í±ßѧ±ßÊÔ,ÎÒдÊÇÒ»¸ö¼òµ¥×¢²áС³ÌÐò
,½á¹ûÎÊÌâºÜ¶à°¡.
²»¶à˵ÁË,Çë½Ì¸÷λÁË.
ÎÊÌâ:


webÉÏµÄ±íµ¥´úÂë¼ò»¯Îª:







£¨

£©


[ Type: text ] [ Name: email ] [ Value: ÇëÊäÈëemail ]




ÊäÈëemailµØÖ·







£¨

£©


[ Type: password ] [ Name: password ]




ÇëÓÃ6-32볤µÄÃÜÂë





È·ÈÏÃÜÂë


[ Type: password ] [ Name: password2 ]





.......


[ 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 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

magic7004

½ð³æ (Ö°Òµ×÷¼Ò)

¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
Â¥Ö÷£¬ÑéÖ¤ÂëÄãÊÇÔõô´¦ÀíµÄ£¿
Á÷Ã¥²»¿ÉÅ£¬¿ÉŵÄÊÇÁ÷Ã¥ÓÐÎÄ»¯£¬ÓÐÎÄ»¯ÓÖBHµÄÁ÷Ã¥ÎÞµÐ~~£¡
2Â¥2010-01-14 08:27:28
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ cclost µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á£¬Çóµ¼Ê¦ÊÕ +9 ÌìÌìºÃÔËÀ´Éϰ¶° 2026-03-24 10/500 2026-03-28 22:17 by chemzp
[¿¼ÑÐ] 317·Ö Ò»Ö¾Ô¸ÄÏÀí¹¤²ÄÁϹ¤³Ì ±¾¿Æºþ¹¤´ó Çóµ÷¼Á +7 ÓóÄàСÁåîõ 2026-03-28 7/350 2026-03-28 21:38 by Сľ³ætim
[¿¼ÑÐ] 332Çóµ÷¼Á +4 @MZB382400 2026-03-28 4/200 2026-03-28 21:02 by ÌÆãå¶ù
[¿¼ÑÐ] 343Çóµ÷¼Á +5 °®î¿°í 2026-03-28 5/250 2026-03-28 20:53 by ÌÆãå¶ù
[¿¼ÑÐ] ÉúÎïѧѧ˶£¬Ò»Ö¾Ô¸ºþÄÏ´óѧ£¬³õÊԳɼ¨338 +6 YYYYYNNNNN 2026-03-26 7/350 2026-03-28 20:52 by ÌÆãå¶ù
[¿¼ÑÐ] 322Çóµ÷¼Á +5 ¾É… 2026-03-24 5/250 2026-03-28 13:26 by Iveryant
[¿¼ÑÐ] 070300Çóµ÷¼Á306·Ö +4 26ÒªÉϰ¶ 2026-03-27 4/200 2026-03-28 13:06 by ÌÆãå¶ù
[¿¼ÑÐ] 277¹òÇóµ÷¼Á +5 1915668 2026-03-27 9/450 2026-03-28 09:58 by zhshch
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤¿¼Ñе÷¼Á +17 ‹üÈA 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[¿¼ÑÐ] 085404Çóµ÷¼Á£¬×Ü·Ö309£¬±¾¿Æ¾­Àú½ÏΪ·á¸» +4 À´²Æaa 2026-03-25 4/200 2026-03-28 07:41 by °ô°ôÇòÊÖ
[¿¼²©] 26É격 +3 ¼ÓÓͳ尡£¡ 2026-03-26 3/150 2026-03-27 15:38 by cls512
[¿¼ÑÐ] Çóµ÷¼Á +3 Áõ¿Â@ 2026-03-24 4/200 2026-03-27 11:28 by shangxh
[¿¼ÑÐ] 292Çóµ÷¼Á +4 ÇóÇóÁËÊÕÏÂÎÒ°É£ 2026-03-26 4/200 2026-03-27 10:37 by zhshch
[¿¼ÑÐ] Çóµ÷¼Á323²ÄÁÏÓ뻯¹¤ +7 1124361 2026-03-24 7/350 2026-03-27 10:22 by wangjy2002
[¿¼ÑÐ] 324Çóµ÷¼Á +8 hanamiko 2026-03-26 10/500 2026-03-27 08:06 by hypershenger
[˶²©¼ÒÔ°] ÕÐÊÕÉúÎïѧ/ϸ°ûÉúÎïѧµ÷¼Á +3 IceGuo 2026-03-26 4/200 2026-03-27 05:35 by user003
[¿¼ÑÐ] 263Çóµ÷¼Á +6 yqdszhdap£­ 2026-03-22 10/500 2026-03-26 13:11 by ¹«èªåÐÒ£
[¿¼ÑÐ] ÇóbÇøÔºÐ£µ÷¼Á +4 ÖÜ56 2026-03-24 5/250 2026-03-25 17:12 by yishunmin
[¿¼ÑÐ] 318Çóµ÷¼Á +3 plumÀî×Ó 2026-03-23 3/150 2026-03-25 09:42 by ÎíÉ¢ºóÏàÓölc
[¿¼ÑÐ] 085404µç×ÓÐÅÏ¢284·ÖÇóµ÷¼Á +4 13659058978 2026-03-24 4/200 2026-03-24 12:15 by syl20081243
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û