先假设你有一个IE对象，
SET IE=Createobject("Internetexplorerapplication")
然后你打开了这个网页，就可以这样了：
With IEDocument
for each i in GetElementsByClassName("button")
iclick
next
end with
不过你要是给元素分配了唯一的ID就更容易了，这样略麻烦
<html>
<head>
<title>vbs练习</title>
<script language="vbscript">
sub showOnClick()
dim a
a=documentgetElementById("txt1")value
msgbox "欢迎"&a
end sub
</script>
</head>
<body>
<center>
<p align="center">
请输入名字：
</p>
<input type="text" value="" id="txt1" name="txt1" />
<br>
<input type="button" value="确定" id="but1" onClick="showOnClick()"/>
</center>
</body>
</html>
' 注意class的值中本身有引号，所以转为字符串时要再加个引号
s="<div class=""slider_degree"">17℃</div>"
一：
set re=new RegExp
repattern=">(+)<"
Set matches=reexecute(s)
set match=matches(0)
msgbox matchsubmatches(0)
二：
p=instr(s,">")+1
msgbox Mid(s,p,3)
法一通用，法二不通用但简单
Dim IE, object , Param, I
Set IE=CreateObject("InternetExplorerApplication")
IEmenubar = 0
IEAddressBar = 0
IEToolBar = 0
IEStatusBar = 0
IEWidth = 800
IEHeight = 500
IEResizable = 0
IEvisible = 1
IENavigate "百度不让输网址，这儿写上你的网址"
While IEReadyState <> 4 '循环等待加载完毕
WScriptSleep 10
Wend
Set object=IEDocumentgetElementsByTagName("object")(0)
Set Param=objectgetElementsByTagName("param")
For I = 0 To Paramlength - 1
If Param(i)name="movie" Then
MsgBox Param(i)value,64+4096,"视频地址"
End If
Next
Set Param= Nothing
Set object = Nothing
WScriptQuit()
以上就是关于怎么用VBS程序点击网页中按钮全部的内容，包括:怎么用VBS程序点击网页中按钮、vbscript 如何获取当前 html 网页中的 文本框id、用 vbs 如何获取网页中 class 对应的内容 也就是17℃等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）