微科社区,轻松开发从此开始! 请登陆 免费注册

微科社区

当前位置:首页 > Web开发 > jQuery >

VB操作网页元素(可用于自动填表等用途)

时间:2016-12-24 03:23  浏览:努力统计中...
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 ty* J $ F$ w3 z# x6 j# N1 Q( p 下边就是关

 

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 = http://www.cnblogs.com/luyichuan/archive/2012/03/13/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 _

顶一下
(0)
0%
踩一下
(0)
0%
------分隔线------
栏目列表
推荐内容