Board logo

标题: [其他] 自动登录网站vbs代码转bat [打印本页]

作者: zjhuzi    时间: 2009-4-30 20:23     标题: 自动登录网站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}"
复制代码


我不是伸手党,我真的不会.
作者: null    时间: 2009-4-30 20:26

bat好像不能做到SENDKEY吧
作者: zjhuzi    时间: 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"
复制代码

作者: Batcher    时间: 2009-4-30 22:50     标题: 回复 3楼 的帖子

你这不是自己搞定了吗,还有其它问题没?




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2