[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
zjhuzi

Rank: 5Rank: 5

帖子
104 
积分
505 
技术
0  
捐助
0  
注册时间
2008-12-4 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2009-4-30 20:23 | 只看该作者

[其他] 自动登录网站vbs代码转bat

  1.  

  2. set WshShell = CreateObject("WScript.Shell")

  3. WshShell.Run "iexplore"

  4. WScript.Sleep 2000

  5. WshShell.AppActivate " about:blank - Microsoft Internet Explorer"

  6. wshshell.SendKeys "%d"

  7. wshshell.SendKeys "http://172.19.1.8/selfLogon.do"

  8. wshshell.SendKeys "{enter}"

  9. WScript.Sleep 2000

  10. wshshell.SendKeys "用户名"  

  11. wshshell.SendKeys "{tab}"

  12. wshshell.SendKeys "密码"      

  13. wshshell.SendKeys "{enter}"
复制代码


我不是伸手党,我真的不会.
收藏 分享

null

Rank: 4

帖子
48 
积分
316 
技术
0  
捐助
0  
注册时间
2008-8-1 
2楼
发表于 2009-4-30 20:26 | 只看该作者
bat好像不能做到SENDKEY吧
欢迎光临我的代码小铺

TOP

zjhuzi

Rank: 5Rank: 5

帖子
104 
积分
505 
技术
0  
捐助
0  
注册时间
2008-12-4 
3楼
发表于 2009-4-30 22:48 | 只看该作者

回复 2楼 的帖子

  1. @echo off

  2. >"%temp%\TelFile.vbs" echo Set WshShell = CreateObject("WScript.Shell")

  3. >>"%temp%\TelFile.vbs" echo WshShell.Run "telnet IP"

  4. >>"%temp%\TelFile.vbs" echo WScript.Sleep(5000)

  5. >>"%temp%\TelFile.vbs" echo WshShell.SendKeys "USERNAME{enter}"

  6. >>"%temp%\TelFile.vbs" echo WScript.Sleep(1000)

  7. >>"%temp%\TelFile.vbs" echo WshShell.SendKeys "PASSWORD{enter}"

  8. start cscript /nologo "%temp%\TelFile.vbs"
复制代码

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14935 
积分
46142 
技术
857  
捐助
745  
注册时间
2008-6-9 
4楼
发表于 2009-4-30 22:50 | 只看该作者

回复 3楼 的帖子

你这不是自己搞定了吗，还有其它问题没？
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

返回列表