Board logo

标题: aspx网页脚本登陆问题 [打印本页]
作者: 32225cr     时间: 2008-3-31 23:40    标题: aspx网页脚本登陆问题
想对 http://www.netyi.net/jsLoginStatus.aspx 实现脚本登陆
代码如下
set Wshell=WScript.createobject("WScript.shell")
appname="http://www.netyi.net/jsLoginStatus.aspx"
set ie=WScript.createobject("internetexplorer.application")
ie.visible=true'
ie.navigate "http://www.netyi.net/jsLoginStatus.aspx"
do
Wscript.sleep 400
loop until ie.readystate=4
UserName.value="用户名"
Password.value="密码"
wshell.sendkeys "~"
wscript.sleep 10000

运行后 老是报缺少对象 UserName 但是我看了网站的登陆 是 UserName
请高手指教
作者: 32225cr     时间: 2008-4-1 00:05
我把付值变量 改成 UserName_text 也不行 没有人帮我看看吗
作者: 32225cr     时间: 2008-4-1 09:51
哪位好心人帮我看看 啊
作者: 32225cr     时间: 2008-4-1 10:45
Dim a
Set a=WScript.CreateObject("WScript.shell")
a.run "http://www.netyi.net/jsLoginStatus.aspx"
WScript.Sleep 3000
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "{TAB}"
a.SendKeys "用户名"
WScript.Sleep 1000
a.SendKeys "{TAB}"
a.SendKeys "密码"
a.SendKeys "{TAB}"
a.SendKeys "{ENTER}"
这种登陆可以实现 但是容易出错 没有人能帮我想想赋值的办法吗
作者: 32225cr     时间: 2008-4-1 11:13
vbscript不能实现在客户端提交吗
作者: 32225cr     时间: 2008-4-1 11:19
有没有好心人帮个忙 我是新手
作者: abcd     时间: 2008-4-1 13:08
set Wshell=WScript.createobject("WScript.shell")

appname="http://www.netyi.net/jsLoginStatus.aspx"

set ie=WScript.createobject("internetexplorer.application")

ie.visible=true'

ie.navigate "http://www.netyi.net/jsLoginStatus.aspx"

do

   Wscript.sleep 400

loop until ie.readystate=4

ie.document.form2.UserName.value="用户名"

ie.document.form2.Password.value="密码"

wshell.sendkeys "~"

wscript.sleep 10000