http://jianchaowuhui.blog.163.com/blog/static/969165892009112114814703/

 

 

 

 

 

 

Private Sub Command1_Click()     Web.Navigate2 "http://reg.jx3.xoyo.com/reg.php"   ‘打开网页
/ ?1 q+ M0 P2 a3 ^End Sub
2 j! E7 t  y* J
$ F$ w3 z# x6 j# N1 Q( p'下边就是关健操作代码了
' N2 h  C. A, z" i1 l+ J
* {, C; y% H2 d4 GPrivate Sub Command2_Click()( }( ~/ u) Q! G5 {% g6 o! s% \

* I# D7 U6 ]: i1 R. d3 CDim vDoc As String, vTag As String, mType As String, mTagName As String, i As Integer
% P+ G) x3 g* m* x1 ]/ j
) n2 k6 A/ n3 t3 I/ P9 U( A4 T      Set vDoc = Web.Document& X5 J) O7 Q1 G. Z6 T9 \8 Z0 T

& t: \7 @% }( j* s! D( QFor i = 0 To vDoc.All.length - 1" |' w  P' s& M# k- i! ?

1 h/ E* h5 d7 y  x  c+ lSelect Case UCase(vDoc.All(i).tagName)
! F- D+ _# l3 k9 |  c
% i+ @0 [: U% ~$ s/ [( b9 Y7 l    Case "SELECT"                         '"SELECT"标签,多选框的选择
7 W* C  }+ c9 r) O1 X# f) |
% B5 O& H2 \: f5 j# f2 q      Set vTag = vDoc.All(i)
: q* Y& v8 O# C* Y, R2 _: w; H. X; N/ q2 C1 o; J+ |+ P& j- W( N
      Select Case LCase(vTag.Name); X( I6 A: `. b: \
. n6 @& B" a5 P6 d. B: q
      Case "age_section"      '年龄选第1个
7 O. c1 ^. u( x8 ]! Q# Y% o( K% |5 @. W
         vTag.selectedIndex = 1; Y- \, T1 M  x- B- o  C* S

+ D* O' T4 i  J3 ]3 ]: Q0 P      Case "work"                    '工作选第2个
' G2 N6 d  @8 o1 n  i) @6 h
7 L; \( O( J+ s* I         vTag.selectedIndex = 2
! |- Q9 q" r, ]8 V2 S
7 \4 b( H" }2 E) N      End Select
% g! b  P$ h6 k" ^& W
0 @2 f( W& `7 J- A$ r
% J" g' w- G$ a
1 W5 F" B4 s  E5 Z' VCase "TEXTAREA"     '"TEXTAREA" 标签,文本框的填写
' n; Z) C& H1 F) a7 N5 _! ^; }8 w2 ~: j# J) t9 C2 \" Q
  Set vTag = vDoc.All(i)/ ?3 l2 e: E- T3 U4 N

6 M) g  L8 T  n$ k4 u- _   vTag.Value = Text2.Text  '将Text2中的内容填入  r% C4 s1 C8 H- N8 ?" P# B
8 g9 E; A. k: {4 w) u: |& i6 \! W
Case "INPUT"              '"INPUT" 标签
: p" ]! q7 v' t5 S
2 ]8 k# N- S8 I   Set vTag = vDoc.All(i)' l8 j& m7 I: q7 _: b# B

. N5 i& p, t" v) J8 j7 q         mType = LCase(vTag.Type)
# `' o: o" Q9 M4 h& E
/ i0 ^3 }+ |# S" Y" o8 A/ U* T9 _Select Case mType
/ d* X+ h4 z0 A+ V4 v( t
4 ?6 U  L- r! |! S5 R# K- M) TCase "text"                        '文本输入  W1 `3 `/ |* y1 n0 G) r$ `

' Z$ e9 f: M+ g4 `    Select Case LCase(vTag.Name)3 H/ Y2 \0 S$ `0 ?" y1 F
      Case "ppt_1"
6 c# z2 V  A' \0 k; D  L# a. j- n          vTag.Value = Text1.Text" t: k7 H* i; ]. I1 k
      Case "ppt_2"' T! ]; k0 P% q
          vTag.Value = Text1.Text
. `0 Y4 T! j" L      Case "username"6 `: @& Z0 H% I1 O$ W
          vTag.Value = Text4.Text$ \- O6 P: V- a3 B: x
      Case "email"" Q" q, p6 \! g$ t
          vTag.Value = Text3.Text + Combo1.Text
. F- ]  O" _8 n! d      Case "email2"
! p. Z, ]3 v* W" Z8 r          vTag.Value = Text3.Text + Combo1.Text
% G9 k: a$ v8 G' B, t      Case "phone"# w3 Z# L8 A& e2 c
          vTag.Value = Text5.Text
5 {& w7 _( m$ @, a      Case "qq"
# u; U5 b8 e4 x, S" X          vTag.Value = Text6.Text
# i( p1 P* q5 w% i8 i: U- z7 ^    End Select
( Q3 S' J! m9 b# {& p% a/ v
9 M: d7 |1 n  B$ d6 N" BCase "radio"                     '单选框的选择
: z3 M  X  J4 I7 N  k1 j1 r    Select Case LCase(vTag.Name)  t0 s! _9 n- {+ B' x
      Case "sex"/ e& W: y. L" U6 _* _
          If vTag.id = "sex_1" Then vTag.Checked = True. k( L4 t4 y' B$ K  `
      Case "ks_game"
* R9 H7 L: h) [# g2 E5 Y          If vTag.id = "ks_game_2" Then vTag.Checked = True
% ]* Z7 ?* k& Y3 Z; v( \      Case "other_game"
$ X1 ?! i/ p3 p. M5 l8 y; c          If vTag.id = "other_game_3" Then vTag.Checked = True
- s6 I9 i2 z9 a) i- {8 M      Case "is_feedback"' ^4 a9 F0 }0 |; j# S' e0 b
          If vTag.id = "is_feedback_1" Then vTag.Checked = True
) Q7 Z9 S8 e% M' y% ^    End Select
; I2 i5 T) ^2 S8 g* n
- n' [+ {- o, ^) O8 T: H- VEnd Select
& A% s9 z) I+ D& m# a9 v
$ f; ~9 o6 Q3 D. HEnd Select# j# G' t+ T* {- f6 P0 {

  p4 W# f8 ?! eNext i1 R- V& m" g0 q2 g) T& a( t9 |

3 q" C: R# x, Q( AEnd Sub