Question

VBS脚本自动填写表单，高分求解！！！

类似这种脚本
on error resume next
url = " http://www.bathome.net/logging.php?action=login"
username = "idealmale"
password = "19901001gq"
set ie = CreateObject("InternetExplorer.Application")
ie.visible = true
ie.Navigate url,4 ' " http://www.baidu.com"
do until 4=ie.readyState
WScript.sleep 200
waittime = waittime + 200
if waittime > 15000 then exit do
loop
'WScript.echo waittime
if 4<>ie.readyState then
ie.quit
WScript.quit
end if
set dom = ie.document
set form = dom.getElementById("loginform")
form.all("username").value = username
form.all("password").value = password
form.all("cookietime").checked = true
form.all("loginsubmit").click()
只是我这个网页表单值都是value，在不同的分组下。我对这个一点也不懂，只想登录方便点，一下就搞。输入帐号和密码后点击“登录”按钮就行。最主要就是【帐号】：form.all("username").value = username和【密码】：form.all("password").value = password怎么改，按钮那个应该类似。网页源码参考截图。非常感谢！求代码！！

Answer 1

这么简单的问题竟然现在还没人回答那这分我要了。

示例代码没问题。为了完成你的问题，我修改了一下

on error resume next
url = "某网址"
username = "用户名"
password = "密码"
set ie = CreateObject("InternetExplorer.Application")
ie.visible = true
ie.Navigate url,4
do until ie.readyState=4
    WScript.sleep 200
    waittime  = waittime + 200
    if waittime > 15000 then exit do
loop
if ie.readyState<>4 then
	msgbox "网页打开超时！"
	ie.quit
    WScript.quit
end if
set dom = ie.document
dom.getElementById("code").value = username
dom.getElementById("pwd").value = password
msgbox "自动填充完毕，即将点击登录！"
dom.getElementById("源码中登录按钮的id属性").click()

追问

我这个网址打开后其实是一个小窗口。运行你这个，始终提示网页超时，网址打不开。我修改才开始的两行代码为createobject("wscript.shell").run "某网址"

网址可以打开了，弹窗提示如图：

这种情况是是为什么？

追答

打开ie方面我几乎没改啊！你确定url是对的？url = "某网址"不会没改吧。。最好把代码贴上来
代码里指定的网页打开超时时间为15000毫秒即15秒，如果不够你就改大一些或者取消超时机制

另外，createobject("wscript.shell").run虽然能打开网址但是vbs是控制不了的，当然不能获取dom。。必须用CreateObject("InternetExplorer.Application")，这样ie就是vbs里面的对象，网页元素也能访问了

追问

“某网址”我都该成我的目标网址了，用createobject("wscript.shell").run可以正常打开网页，要不你给换另一种打开网址的方式，我再试试。另外，这个网址打开时是一个小的弹窗，在弹窗中输入账号的密码进行登陆。如果有其他的更好的解决方式也可以，不限于vbs，其他简易脚本都行。

追答

wscript.shell虽然能打开网页但是真的不能填写表单（除非模拟键盘……）。只有用InternetExplorer.Application才可以。

网址打开时是一个小的弹窗，在弹窗中输入账号的密码进行登陆？我猜测这个弹窗是js创建的而非网址本身对应的网页？那当然不行了。为什么不把网址告诉我呢？这样我才能知道为什么打不开网页，从而给出解决办法。

我的代码普通的网页都能打开的，不信你试试baidu.com

追问

这个就是js脚本创建的弹窗，这个网址这个是公司内网，你无法打开的。运行脚本后是用默认浏览器打开的，并不是直接调用IE（IE效果会更好）。

追答

js创建的弹窗我没遇到过。最好给我看看源代码，需要知道数据是如何在不同页面之间传递的

追问

源码在网盘里边，还有一张截图，多谢了哈！！http://pan.baidu.com/s/1ntseK7f

追答

如图，我的电脑上打开网页、填写表单和点击“上班”貌似都没问题。我也没看到弹窗的代码，似乎表单就在当前网页的body里面啊。

追问

我如果发现运行这个脚本之前提前打开IE浏览器，脚本可以正常运行并填写表单。你再帮我在这个脚本最开始加上运行IE浏览器的代码，然后延迟5秒运行剩下代码，最后再结束IE浏览器进程。非常感谢！

追答

on error resume next
set ws = createobject("wscript.shell")
ws.run "iexplore.exe"
url = "asdf"

username = "用户名"
password = "密码"
wscript.sleep 5000
set ie = CreateObject("InternetExplorer.Application")
ie.visible = true
ie.Navigate url,4
do until ie.readyState=4
    WScript.sleep 200
    waittime  = waittime + 200
    if waittime > 15000 then exit do
loop
if ie.readyState<>4 then
    msgbox "网页打开超时！"
    ie.quit
    WScript.quit
end if
wscript.sleep 100
set dom = ie.document
dom.getElementById("code").value = username
dom.getElementById("pwd").value = password
msgbox "自动填充完毕，即将点击登录！"
dom.getElementById("源码中登录按钮的id属性").click()
msgbox "即将结束ie进程！"
ws.run "cmd /c taskkill /im iexplore.exe /f"

 可以吗？

另外我记得“上班”按钮似乎没有id所以不能用getElementById方法获取。可以遍历全部元素来找到它