标题: telnet 192.168 如何自动输入用户密码，第三方软件也可 [打印本页]
作者: dragonamd 时间: 2010-2-3 00:30 标题: telnet 192.168 如何自动输入用户密码，第三方软件也可
telnet 192.168 如何自动输入用户密码，第三方软件也可以，只要能满足就行，有的话给代码，
作者: qinchun36 时间: 2010-2-3 11:02
我这里没有可用的主机没法测试，你可以手工执行一遍，把控制台的输出原样地贴出来（当然可以把IP或者用户名密码以大家理解的方式屏蔽掉），我写了一个东西还从来没真正用过呢，试试看行不行
作者: bbsphixy 时间: 2010-2-3 11:46
你这命令是在局域网中使用的吧！···
写一批处理，让其自动应答 就可以啦~~·
附带工具给你啦：
http://u.115.com/file/t08dfbd556
[ Last edited by bbsphixy on 2010-2-3 at 16:33 ]
作者: HAT 时间: 2010-2-3 13:04
用VBS的SendKeys可以
作者: dato 时间: 2010-2-3 16:34
偶那天也为这个烦，网上有vbs的实例最后采用的是autoit。这段代码仿老外的写法
; Run Telnet
Run("telnet 192.168.1.1 61174")
; Rename window
$WinTitle="Telnet (ZXDSL 831) <<- F9-Private Deny / F10-Private Accept / CTRL+d to exit ->>"
WinWait("Telnet 192.168.1.1","")
WinSetTitle("Telnet 192.168.1.1","",$WinTitle)
WinActivate($WinTitle,"")
; Login and change to export directory
xSend($WinTitle,"username{ENTER}")
xSend($WinTitle,"password{ENTER}")
Changeset1()
runwait(@ComSpec & ' /C "c:\windows\system32\ipconfig.exe" /renew')
; Main loop
while WinExists($WinTitle,"")
if WinActive($WinTitle,"") then
HotKeySet("{F9}", "changeset1")
HotKeySet("{F10}", "changeset2")
else
HotKeySet("{F9}")
HotKeySet("{F10}")
endif
Sleep(20)
wend
Exit
; Extended send function
func xSend($aWinTitle,$aString)
Sleep(500)
WinActivate($aWinTitle,"")
Send($aString)
endfunc
func Changeset1()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc
func Changeset2()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc
Run("telnet 192.168.1.1 61174")
; Rename window
$WinTitle="Telnet (ZXDSL 831) <<- F9-Private Deny / F10-Private Accept / CTRL+d to exit ->>"
WinWait("Telnet 192.168.1.1","")
WinSetTitle("Telnet 192.168.1.1","",$WinTitle)
WinActivate($WinTitle,"")
; Login and change to export directory
xSend($WinTitle,"username{ENTER}")
xSend($WinTitle,"password{ENTER}")
Changeset1()
runwait(@ComSpec & ' /C "c:\windows\system32\ipconfig.exe" /renew')
; Main loop
while WinExists($WinTitle,"")
if WinActive($WinTitle,"") then
HotKeySet("{F9}", "changeset1")
HotKeySet("{F10}", "changeset2")
else
HotKeySet("{F9}")
HotKeySet("{F10}")
endif
Sleep(20)
wend
Exit
; Extended send function
func xSend($aWinTitle,$aString)
Sleep(500)
WinActivate($aWinTitle,"")
Send($aString)
endfunc
func Changeset1()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc
func Changeset2()
xSend($WinTitle,"modify zipb cfg enable{ENTER}")
; xSend($WinTitle,"modify zipb cfg disable{ENTER}")
xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact accept{ENTER}")
xSend($WinTitle,"modify nat global tcpidletimeout 1800 tcpclosewait 120 tcptimeout 120 udptimeout 15 defnatage 120 portend 50380 disable{ENTER}")
; xSend($WinTitle,"modify ipf global seclevel high pubdefact accept pvtdefact deny{ENTER}")
; xSend($WinTitle,"quit{ENTER}")
endfunc
作者: dragonamd 时间: 2010-2-3 23:20
没有成功,可否写一个, 192.168.1.1 用户名 root 密码 admin 进路由器用的
作者: dragonamd 时间: 2010-2-3 23:27
dd-wrt login : 用户名
password : 密码
作者: bbsphixy 时间: 2010-2-3 23:30
上面不是有我发的工具吗？？你都不下载来试试..
工具是进Telnet的
[ Last edited by bbsphixy on 2010-2-3 at 23:31 ]
作者: dragonamd 时间: 2010-2-3 23:32
试过了,进不了
作者: bbsphixy 时间: 2010-2-3 23:35
什么提示？？你先使用“”更改Telnet配置.bat“”设置下你的信息，然后再用“自动登陆Telnet.bat” 连接就是啦！！
如果你设置没问题，那就是你的 Telnet 没打开
你可以连接自己本机（自己电脑）试下就知道了。
如果提示23端口没打开的话，也就是你电脑没启动Telnet服务
[ Last edited by bbsphixy on 2010-2-3 at 23:37 ]
作者: dragonamd 时间: 2010-2-3 23:36
设置过了,能tel进入,用户和密码不行 手工可以进入
作者: bbsphixy 时间: 2010-2-3 23:39
提示用户名密码错误？？？？那你的用户名和密码没输对吧，请确认用户和密码正确
重新“更改Telnet配置.bat” 要确认清楚。。
先拿自己本机来试。。
[ Last edited by bbsphixy on 2010-2-3 at 23:40 ]
作者: dragonamd 时间: 2010-2-3 23:40
搞了好几次了,就是进不了
作者: hhh246 时间: 2010-2-4 09:10
set sh=WScript.CreateObject("WScript.Shell")
iReturn=Sh.Run("cmd.exe /c start telnet.exe", 1, TRUE)
WScript.Sleep 300
sh.SendKeys "open 192.168.1.1"
WScript.Sleep 300
sh.SendKeys "{ENTER}"
WScript.Sleep 300
sh.SendKeys "root{ENTER}"
WScript.Sleep 300
sh.SendKeys "123456{ENTER}"
WScript.Sleep 300
sh.SendKeys "{ENTER}"
作者: dragonamd 时间: 2010-2-4 21:45
上面的代码好用,感谢,对了,怎么在下面填入自己需要输入的命令