中国DOS联盟论坛

中国DOS联盟

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

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

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
作者:
标题: aspx网页脚本登陆问题 上一主题 | 下一主题
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『楼 主』:  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
请高手指教

2008-3-31 23:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『第 2 楼』:  

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

2008-4-1 00:05
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『第 3 楼』:  

哪位好心人帮我看看 啊

2008-4-1 09:51
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『第 4 楼』:  

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

2008-4-1 10:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『第 5 楼』:  

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

2008-4-1 11:13
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
32225cr
初级用户





积分 25
发帖 12
注册 2006-7-18
状态 离线
『第 6 楼』:  

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

2008-4-1 11:19
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
abcd
银牌会员





积分 1436
发帖 739
注册 2007-10-11
状态 离线
『第 7 楼』:  


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


2008-4-1 13:08
查看资料  发短消息 网志  OICQ (470237592)  编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: