Visual Basic - Finalizar Script en Visual Basic

Life is soft - evento anual de software empresarial
   
Vista:

Finalizar Script en Visual Basic

Publicado por Diego (1 intervención) el 23/08/2017 17:38:11
Hola.

Tengo este Script en Visual Basic para conectarme con Telnet a una Box Android que tengo en casa, el Script tiene la función solo de apagar el Box con Android, mis conocimientos sobre este lenguaje de programación son nulos.


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500
 
cloner.SendKeys"telnet 192.168.1.170 23456"
cloner.SendKeys("{Enter}")
WScript.Sleep 500
 
 
cloner.SendKeys"abc123."
cloner.SendKeys("{Enter}")
WScript.Sleep 500
 
cloner.SendKeys"su"
cloner.SendKeys("{Enter}")
WScript.Sleep 800
 
cloner.SendKeys"su -c 'am broadcast android.intent.action.ACTION_SHUTDOWN && sleep 5 && reboot -p'"
cloner.SendKeys("{Enter}")
WScript.Sleep 800


Queria añadirle la linea "exit" dos veces para salir del telnet y de la consola cmd, pero en la última línea del código de arriba se queda colgado y no actua ningún comando más, el Script en sí funciona bien apaga el Box Android correctamente.

La consulta que quería hacer es como puedo cerrar la consola una vez ejecutada la última linea del código.

Gracias, Saludos.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Finalizar Script en Visual Basic

Publicado por Daniel (7 intervenciones) el 01/09/2017 15:41:07
AQUI TIENES LA SOLUCIÓN AMIGO

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Set cloner = CreateObject("WScript.Shell")
cloner.run"cmd"
WScript.Sleep 500
 
cloner.SendKeys"telnet 192.168.1.170 23456"
cloner.SendKeys("~")
WScript.Sleep 500
 
 
cloner.SendKeys"abc123."
cloner.SendKeys("~")
WScript.Sleep 500
 
cloner.SendKeys"su"
cloner.SendKeys("~")
WScript.Sleep 800
 
cloner.SendKeys"su -c 'am broadcast android.intent.action.ACTION_SHUTDOWN && sleep 5 && reboot -p'"
cloner.SendKeys("~")
WScript.Sleep 500
cloner.SendKeys "logout" & "~"
WScript.Sleep 500
cloner.SendKeys "~" &  "~" &  "~" &  "~"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar