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

PrivateSub Command1_Click()
WebBrowser1.Document.getElementsByName("sex")(2).Checked = TrueEnd Sub

PrivateSub Command2_Click()
WebBrowser1.Document.getElementsByName("sto")(2).Checked =True

End Sub

PrivateSub Command3_Click()
WebBrowser1.Document.getElementsByName("sto")(3).Checked =True

End Sub


PrivateSub Command4_Click()
WebBrowser1.Document.getElementsByName("sto")(0).Checked =True
End Sub

PrivateSub Form_Load()
WebBrowser1.Navigate "https://signup.live.com/signup.aspx?ru=http%3a%2f%2fmail.live.com%2f%3frru%3dinbox&wa=wsignin1.0&rpsnv=11&ct=1264506837&rver=6.0.5285.0&wp=MBI&wreply=http:%2F%2Fsn109w.snt109.mail.live.com%2Fdefault.aspx&lc=2052&id=64855&mkt=zh-cn&bk=1264506838&rollrs=12&lic=1"
End Sub

 

 

 

这是一个列表框的

 WebBrowser1.Document.getElementsByTagName("INPUT")("year_value").Value = 1234

 

忘记给你说单选按钮了,其实也是一样的,你拿到已选择的那个对象,给他的一个属性付"" 然后给腰选择的那个对象的这个checked属性付checked就ok了
 WebBrowser1.Document.getElementById("chkTerms").Checked = ""
 WebBrowser1.Document.getElementById("chkTerms1").Checked = "checked"

上面的参考

http://topic.csdn.net/u/20110924/01/8731b825-0b9b-4f28-a4a2-761cc98735b2.html

http://www.uipower.com/bbs/thread-193494-1-1.html

转载于:https://www.cnblogs.com/luyichuan/archive/2012/03/13/2393924.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值