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

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

  1. set WshShell = CreateObject("WScript.Shell")
  2. WshShell.Run "iexplore"
  3. WScript.Sleep 2000
  4. WshShell.AppActivate " about:blank - Microsoft Internet Explorer"
  5. wshshell.SendKeys "%d"
  6. wshshell.SendKeys "http://172.19.1.8/selfLogon.do"
  7. wshshell.SendKeys "{enter}"
  8. WScript.Sleep 2000
  9. wshshell.SendKeys "用户名"  
  10. wshshell.SendKeys "{tab}"
  11. wshshell.SendKeys "密码"      
  12. wshshell.SendKeys "{enter}"
复制代码


我不是伸手党,我真的不会.

bat好像不能做到SENDKEY吧

TOP

回复 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

回复 3楼 的帖子

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

TOP

返回列表