2012 年 3月 13 日随笔档案 - luyichuan_123

vb打开网页

摘要：网址打开全方法集合:1.基于start.exe +++++++++++++++++++源码1++++++++++++++++++++++ url="http://hi.baidu.com/tanry" shell "start " & url,0 +++++++++++++++++++源码2++++++++++++++++++++++ url="http://hi.baidu.com/tanry" shell "cmd.exe /c start " & url,02.基于文件浏览器(explorer 阅读全文

posted @ 2012-03-13 23:12 luyichuan_123 阅读(793) 评论(0) 推荐(0)

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

摘要： 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 Sub2 j! E7 ty* J$ F$ w3 z# x6 j# N1 Q( p'下边就是关健操作代码了' N2 hC. A, z" i1 l+ J* {, C; y% H2 d4 GPrivate Su 阅读全文

posted @ 2012-03-13 23:09 luyichuan_123 阅读(2988) 评论(0) 推荐(0)

VB操作网页元素

摘要：用webbrowser打开网页后,网页内的所有元素你都可以通过代码来操作,方法是:1.根据标记名(tagname)的和元素名name来找到元素,2.给元素赋值或是执行相关的事件.例1: 给username文本框内填充内容:Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Dim docDim tgSet doc = WebBrowser1.DocumentFor i = 0 To doc.All.length - 1If (LCase(doc.All(i).tagname)) = &qu 阅读全文

posted @ 2012-03-13 23:05 luyichuan_123 阅读(3561) 评论(0) 推荐(0)

自动填写网页列表框和单选框的问题

摘要： PrivateSub Command1_Click()WebBrowser1.Document.getElementsByName("sex")(2).Checked = TrueEnd SubPrivateSub Command2_Click()WebBrowser1.Document.getElementsByName("sto")(2).Checked =TrueEnd SubPrivateSub Command3_Click()WebBrowser1.Document.getElementsByName("sto")(3).C 阅读全文

posted @ 2012-03-13 15:31 luyichuan_123 阅读(1117) 评论(0) 推荐(0)

2012年3月13日

公告