← PHP

Criar Botão ligar/desligar routter :D

Lida 5791 vezes

Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

Olá.. tudo bem?
Espero que sim.. ;)

Eu estava interessado em ter um botão de fácil acesso para ligar e desligar o routter..

Eu estou a usar o routter: THOMSON TG787 da meo
E cada vez que quero mudar o IP eu tenho que entrar, inserir o login.. e clicar em desligar e tornar a ligar.. :S ( que canseira.. )
Então pensei em criar um botão numa pagina que eu pode-se ligar e desligar sem entrar no router..  :superlol:

É possível?

Já agora, e que tal um botão para o desktop? tipo o power do windows..? É possível?

Eu acho que não estou a postar no sitio certo.. mas também não estava a ver onde postar..

O que dizem? será uma  :ideia: ? ou nem por isso :D

Fiquem bem..
[[]]
Offline

cenourinha 
Elite
Mensagens 4094 Gostos 21
Troféus totais: 34
Trófeus: (Ver todos)
Mobile User Apple User Level 6 Super Combination Combination Topic Starter 10 Poll Votes Poll Voter Level 5 Level 4

É possível, criando um bat que ligue por telnet e envie o comando para o router. Mas agora falta saber como fazer isso... :P
Offline

narg 
Membro
Mensagens 265 Gostos 0
Feedback +2

Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

Cria um ficheiro reboot.vbs com o que está abaixo

Citar
' -----------------------------------------------------------------------------------------
' Script desenvolvido e testado para router THOMSON TG787
' More Info:
' http://fodi.me/internet/reiniciar-router-thomson-tg787-com-um-click/
' -----------------------------------------------------------------------------------------
Set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 500
oShell.SendKeys "telnet 192.168.1.1"
oShell.SendKeys ("{Enter}")
WScript.Sleep 1000
oShell.SendKeys "Administrator"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "password"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "system"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "reboot"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "% "
' TheEnd

Só tens de mudar o IP, o username caso não seja o por defeito e a password
Depois diz-me se funcionou
Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

Boas..

Ele abre montes de janelas cmd, e não faz resert..

Código: [Seleccione]
Microsoft Windows [Versão 6.0.6001]
Copyright (c) 2006 Microsoft Corporation. Todos os direitos reservados.

C:\Users\***\Desktop>telnet 192.168.1.254
'telnet' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>Administrator
'Administrator' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>3!play
'3!play' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>system
'system' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>reboot

C:\Users\***\Desktop>Administrator
'Administrator' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>system
'system' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>reboot

C:\Users\***\Desktop>3!play
'3!play' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>3!play
'3!play' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>system
'system' não é reconhecido como um comando interno ou externo,
programa operacional ou ficheiro batch.

C:\Users\***\Desktop>
Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

Boas..  :lol:

Eu tinha o telnet desligado..

Sim, ele funciona.. mas só passando uns 2 ~ 3 minutos..  :-? e nem diz quando acabou de fazer o resert.. tem-se que estar sempre a ver quando mudou.. o que não torna nada prático..
Offline

narg 
Membro
Mensagens 265 Gostos 0
Feedback +2

Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

O reboot completo do router é quanto tempo +- demora 3 minutos
mas tens aqui umas alterações que te avisa quando a net voltar

Citar
Set oShell = CreateObject("WScript.Shell")
oShell.run "cmd.exe"
WScript.Sleep 500
oShell.SendKeys "telnet 192.168.1.1"
oShell.SendKeys ("{Enter}")
WScript.Sleep 500
oShell.SendKeys "Administrator"
oShell.SendKeys ("{Enter}")
WScript.Sleep 200
oShell.SendKeys "password"
oShell.SendKeys ("{Enter}")
WScript.Sleep 200
oShell.SendKeys "system"
oShell.SendKeys ("{Enter}")
WScript.Sleep 200
oShell.SendKeys "reboot"
oShell.SendKeys ("{Enter}")
WScript.Sleep 10000
'oScrShell.SendKeys "^C^G^V{ENTER}"
'oScrShell.SendKeys "exit"
MsgBox "Ordem de reinicio do router enviada",64,"Router Restart"

Do While Reachable("www.google.com")=false
  WScript.Sleep 2500
Loop

MsgBox "REBOOT COMPLETO Já TENS NET",64,"Router Restart COMPLETE"


Function Reachable(strComputer)
'     On Error Resume Next

 Dim objShell, objExec, strCmd, strTemp
 
 strCmd = "ping -n 1 " & strComputer
 
 Set objShell = CreateObject("WScript.Shell")
 Set objExec = objShell.Exec(strCmd)
 strTemp = UCase(objExec.StdOut.ReadAll)
 
 If InStr(strTemp, "RESPOSTA DE") Then
 Reachable = True
 Else
 Reachable = False
 End If
End Function


O texto resposta de é para o windows PT se fôr o ENG é REPLY FROM

o mal é que de 2,5 seg em 2,5 seg abre uma janela que vai verificar se já há net
Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

Boas..
Agora não posso testar..

Mas quando eu desligo na pagina do routter, desligo e ligo passando uns 3 segundos e fico logo com net e ip mudado..

Depois coloco aqui a resposta..  :obrigado:
Offline

BlueEagle 
Membro
Mensagens 2221 Gostos 1
Troféus totais: 31
Trófeus: (Ver todos)
Windows User Super Combination Combination Topic Starter 10 Poll Votes Poll Voter Poll Starter Level 5 Level 4 Level 3

Isso é porque estás só a desligar a ligação á net e não a fazer reboot ao router.
O que o script faz é reboot ao router.
Offline

narg 
Membro
Mensagens 265 Gostos 0
Feedback +2

Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

Mas desligar e ligar a ligação nem sempre muda o ip, por isso é que pus a fazer reboot
Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

Boas..

Está muito melhor! Está fixe..

Mesmo que seja só desligar a net, o meu ip muda sempre, é possível fazer isso? sff..  :obrigado:

Ah.. As vezes ele diz que já tenho net, mas de facto quando vou ver ainda não tenho.., mas passando uns 10 a 15 segundos tenho net..

Mais uma vez Obrigado ;)
Offline

narg 
Membro
Mensagens 265 Gostos 0
Feedback +2

Troféus totais: 27
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 100 Posts

Se achas que isso está fixe então vê isto http://fodi.me/internet/meo-reiniciar-ligacao-thomson-tg787-2-seg/
;-)

Só funciona com o meo

Diz-me alguma coisa, se funcionou.
Offline

PT-NGS- 
Membro
Mensagens 90 Gostos 0
Troféus totais: 22
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 4 Level 3 Level 2 Level 1 50 Posts 10 Posts

 :obrigado: :+trafego: :obrigado:

ahahahah

LINDO!!!!

é isso mesmo !!

Funciona 100% ;) Obrigado por tudo !!
Offline

LCDVLLuis 
Membro
Mensagens 72 Gostos 0
Troféus totais: 25
Trófeus: (Ver todos)
Super Combination Combination Topic Starter Poll Voter Level 5 Level 4 Level 3 Level 2 Level 1 50 Posts

Do melhor vou testar :ideia: