中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

中国DOS联盟论坛
现在时间是 2026-08-07 22:38

欢迎新会员 Atticus97　 RSS
共 48,041 主题排行 / 350,128 发帖 / 今日 3 篇 / 48,252 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » aspx网页脚本登陆问题查看 875　回复 6

楼主 aspx网页脚本登陆问题发表于 2008-03-31 23:40　·　中国北京方正宽带

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

想对 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
请高手指教

第 2 楼发表于 2008-04-01 00:05　·　中国北京方正宽带

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

我把付值变量改成 UserName_text 也不行没有人帮我看看吗

第 3 楼发表于 2008-04-01 09:51　·　中国北京联通

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

哪位好心人帮我看看啊

第 4 楼发表于 2008-04-01 10:45　·　中国北京联通

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

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}"
这种登陆可以实现但是容易出错没有人能帮我想想赋值的办法吗

第 5 楼发表于 2008-04-01 11:13　·　中国北京联通

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

vbscript不能实现在客户端提交吗

第 6 楼发表于 2008-04-01 11:19　·　中国北京联通

32225cr

初级用户

★

积分 25
发帖 12
注册 2006-07-18 10:23
20年会员
UID 58775

状态离线

有没有好心人帮个忙我是新手

第 7 楼发表于 2008-04-01 13:08　·　中国北京华为云

abcd

银牌会员

★★★

积分 1,436
发帖 739
注册 2007-10-11 17:44
18年会员
UID 99469
性别男

状态离线

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

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: