自动登录网站vbs代码转bat

zjhuzi

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

bat好像不能做到SENDKEY吧

zjhuzi

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

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