联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
@echo off rem 假设服务器地址为aaa rem 假设用户名为bbb rem 假设密码为ccc echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\TelDelphi1.vbs echo WshShell.Run "telnet aaa">>%tmp%\TelDelphi1.vbs echo WScript.Sleep(5000)>>%tmp%\TelDelphi1.vbs echo WshShell.SendKeys "bbb{enter}">>%tmp%\TelDelphi1.vbs echo WScript.Sleep(1000)>>%tmp%\TelDelphi1.vbs echo WshShell.SendKeys "ccc{enter}">>%tmp%\TelDelphi1.vbs start cscript /nologo %tmp%\TelDelphi1.vbs ping -n 10 127.1>nul del /q %tmp%\TelDelphi1.vbs
Originally posted by HAT at 2007-6-21 04:21 PM: 发个我自己用的 @echo off rem 假设服务器地址为aaa rem 假设用户名为bbb rem 假设密码为ccc echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\Te ...
@echo off rem 假设服务器地址为aaa rem 假设用户名为bbb rem 假设密码为ccc echo Set WshShell = CreateObject("WScript.Shell")>%tmp%\Te ...
Originally posted by everest79 at 2009-2-23 19:24: 非人工登录可以使用WSH中的Exec方法,通过对status\stdin\stdout属性的控制达到无错自动化执行的要求
rem =========Yobo-lily版权======= @del c:\temp.vbs @echo on error resume next >>c:\temp.vbs @echo dim WshShell>>c:\temp.vbs @echo Set WshShell = WScript.CreateObject("WScript.Shell")>>c:\temp.vbs @echo WshShell.run"cmd">>c:\temp.vbs @echo WshShell.AppActivate"c:\windows\system32\cmd.exe">>c:\temp.vbs @echo WScript.Sleep 200>>c:\temp.vbs @echo WshShell.SendKeys"telnet 192.168.1.100">>c:\temp.vbs @echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs @echo WScript.Sleep 100>>c:\temp.vbs @echo WshShell.AppActivate"telnet.exe ">>c:\temp.vbs @echo WScript.Sleep 2000>>c:\temp.vbs @echo WshShell.SendKeys"aaa">>c:\temp.vbs @echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs @echo WScript.Sleep 2000>>c:\temp.vbs @echo WshShell.SendKeys"111">>c:\temp.vbs @echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs @echo WScript.Sleep 2000>>c:\temp.vbs @echo WshShell.SendKeys"ping 192.168.0.1">>c:\temp.vbs @echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs @echo WScript.Sleep 1000>>c:\temp.vbs @echo WshShell.SendKeys"ping 192.168.0.2">>c:\temp.vbs @echo WshShell.SendKeys"{ENTER}">>c:\temp.vbs @echo WScript.Sleep 1000>>c:\temp.vbs @call c:\temp.vbs rem =========Yobo-lily版权=======