telnet 192.168 如何自动输入用户密码，第三方软件也可 - 中国DOS联盟论坛

telnet 192.168 如何自动输入用户密码，第三方软件也可以，只要能满足就行，有的话给代码，

我这里没有可用的主机没法测试，你可以手工执行一遍，把控制台的输出原样地贴出来（当然可以把IP或者用户名密码以大家理解的方式屏蔽掉），我写了一个东西还从来没真正用过呢，试试看行不行

你这命令是在局域网中使用的吧！···

写一批处理，让其自动应答就可以啦~~·

附带工具给你啦：

http://u.115.com/file/t08dfbd556

[ Last edited by bbsphixy on 2010-2-3 at 16:33 ]

用VBS的SendKeys可以

偶那天也为这个烦，网上有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

没有成功,可否写一个, 192.168.1.1 用户名 root 密码 admin 进路由器用的

dd-wrt login : 用户名
password : 密码

上面不是有我发的工具吗？？你都不下载来试试..

工具是进Telnet的

[ Last edited by bbsphixy on 2010-2-3 at 23:31 ]

什么提示？？你先使用“”更改Telnet配置.bat“”设置下你的信息，然后再用“自动登陆Telnet.bat” 连接就是啦！！

如果你设置没问题，那就是你的 Telnet 没打开

你可以连接自己本机（自己电脑）试下就知道了。

如果提示23端口没打开的话，也就是你电脑没启动Telnet服务

[ Last edited by bbsphixy on 2010-2-3 at 23:37 ]

设置过了,能tel进入,用户和密码不行手工可以进入

提示用户名密码错误？？？？那你的用户名和密码没输对吧，请确认用户和密码正确

重新“更改Telnet配置.bat” 要确认清楚。。

先拿自己本机来试。。

[ Last edited by bbsphixy on 2010-2-3 at 23:40 ]

搞了好几次了,就是进不了

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}"

上面的代码好用,感谢,对了,怎么在下面填入自己需要输入的命令

第1楼　dragonamd	发表于 2010-02-03 00:30
中级用户　发帖 100　积分 209
telnet 192.168 如何自动输入用户密码，第三方软件也可 telnet 192.168 如何自动输入用户密码，第三方软件也可以，只要能满足就行，有的话给代码，

第2楼　qinchun36	发表于 2010-02-03 11:02
高级用户　发帖 400　积分 609
我这里没有可用的主机没法测试，你可以手工执行一遍，把控制台的输出原样地贴出来（当然可以把IP或者用户名密码以大家理解的方式屏蔽掉），我写了一个东西还从来没真正用过呢，试试看行不行

第3楼　bbsphixy	发表于 2010-02-03 11:46
初级用户　发帖 13　积分 27
你这命令是在局域网中使用的吧！··· 写一批处理，让其自动应答就可以啦~~· 附带工具给你啦： http://u.115.com/file/t08dfbd556 [ Last edited by bbsphixy on 2010-2-3 at 16:33 ]

第4楼　HAT	发表于 2010-02-03 13:04
版主　发帖 5,017　积分 9,023
用VBS的SendKeys可以

第5楼　dato	发表于 2010-02-03 16:34
高级用户　发帖 377　积分 916
偶那天也为这个烦，网上有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

第6楼　dragonamd	发表于 2010-02-03 23:20
中级用户　发帖 100　积分 209
没有成功,可否写一个, 192.168.1.1 用户名 root 密码 admin 进路由器用的

第7楼　dragonamd	发表于 2010-02-03 23:27
中级用户　发帖 100　积分 209
dd-wrt login : 用户名 password : 密码

第8楼　bbsphixy	发表于 2010-02-03 23:30
初级用户　发帖 13　积分 27
上面不是有我发的工具吗？？你都不下载来试试.. 工具是进Telnet的 [ Last edited by bbsphixy on 2010-2-3 at 23:31 ]

第9楼　dragonamd	发表于 2010-02-03 23:32
中级用户　发帖 100　积分 209
试过了,进不了

第10楼　bbsphixy	发表于 2010-02-03 23:35
初级用户　发帖 13　积分 27
什么提示？？你先使用“”更改Telnet配置.bat“”设置下你的信息，然后再用“自动登陆Telnet.bat” 连接就是啦！！如果你设置没问题，那就是你的 Telnet 没打开你可以连接自己本机（自己电脑）试下就知道了。如果提示23端口没打开的话，也就是你电脑没启动Telnet服务 [ Last edited by bbsphixy on 2010-2-3 at 23:37 ]

第11楼　dragonamd	发表于 2010-02-03 23:36
中级用户　发帖 100　积分 209
设置过了,能tel进入,用户和密码不行手工可以进入

第12楼　bbsphixy	发表于 2010-02-03 23:39
初级用户　发帖 13　积分 27
提示用户名密码错误？？？？那你的用户名和密码没输对吧，请确认用户和密码正确重新“更改Telnet配置.bat” 要确认清楚。。先拿自己本机来试。。 [ Last edited by bbsphixy on 2010-2-3 at 23:40 ]

第13楼　dragonamd	发表于 2010-02-03 23:40
中级用户　发帖 100　积分 209
搞了好几次了,就是进不了

第14楼　hhh246	发表于 2010-02-04 09:10
初级用户　发帖 31　积分 74
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}"

第15楼　dragonamd	发表于 2010-02-04 21:45
中级用户　发帖 100　积分 209
上面的代码好用,感谢,对了,怎么在下面填入自己需要输入的命令