使用VBS脚本填写在线表单

时间:2017-08-15 15:15:48

标签: vbscript

所以我在工作中有一套非常讨厌的表单,我必须每天填写并花费大约20分钟这样做,我本来想编写脚本并有一个基本的sendkeys方法,但我想改进它。

Dim WshShell, objIE, ElementCol
Dim LinkHref

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.AppActivate "Webpage Title"
Set objIE = CreateObject("InternetExplorer.Application")

wshShell.AppActivate objIE

Do While objIE.Busy
wscript.sleep 100
Loop

Set ElementCol = objIE.document.getElementsByTagName("a")

For Each Link In ElementCol
If Link.innerHTML = "*Specfic text" Then
Link.Click
Exit For
End If
Next

所以我在Set ElementCol行上出现错误,该行表示我的第一个问题是

对于*特定文本是允许的吗?基本上我知道链接的文本将是Hello和world但是可以像1)Hello和2)World或1)世界2)你好

我还想在点击运行之后运行一个不同的.vbs脚本,在该.vbs脚本完成之后填写表单,它返回到这个初始页面,我希望在此脚本上继续下一个链接。

非常感谢您的帮助!

0 个答案:

没有答案