Hola Gente de elhacker.net
Estoy aprendiendo a manejar Shell pero me gustaria hacer esto
y no logro resolverlo
Visual Basic 6
Quiero husar un Text1.text colocando un botton, en el from1 la cosa consiste
es que yo copie un codigo de bat y lo peque en text1.text y a darle el boton
se ejecute Por Favor Espero de su ayuda Gracia ;-) ;-)
lo que quieres es que cree un bat con ese codigo y lo ejecute?
Cita de: Tyrz en 24 Enero 2010, 14:37 PM
lo que quieres es que cree un bat con ese codigo y lo ejecute?
Claro osea, supungamos, yo tengo un codigo de un bat, lo pego en text1 y a darle el boton se ejecute me entiende
será esto lo que buscas?
Private Sub Command1_Click()
Call Shell("cmd /c" & Text1.Text, vbNormalFocus)
End Sub
por ejemplo colocando este code, fijate que igual no me funcionaria
Citarecho Set oWMP = CreateObject("WMPlayer.OCX.7" ) >> abredisk.vbs
echo Set colCDROMs = oWMP.cdromCollection >> abredisk.vbs
echo. >> abredisk.vbs
echo if colCDROMs.Count >= 1 then >> abredisk.vbs
echo For i = 0 to colCDROMs.Count - 1 >> abredisk.vbs
echo colCDROMs.Item(i).Eject >> abredisk.vbs
echo Next ' cdrom >> abredisk.vbs
echo End If >> abredisk.vbs
start abredisk.vbs
Si coloco eso , en el ejemplo que me diste, no funciona, yo ante lo pense asi pero no
funciono
bueno, ya lo que quieres es algo mas :silbar:
mira a ver si esto te sirve
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Open "C:\ejemplo.bat" For Output As #1
Print #1, , Text1.Text
Close #1
Call Shell("C:\ejemplo.bat", vbHide)
Sleep 50
Kill ("C:\ejemplo.bat")
End Sub
en bat funciona super pero en un vbs no :(
Cita de: carlos_129 en 24 Enero 2010, 14:11 PM
Hola Gente de elhacker.net
Estoy aprendiendo a manejar Shell pero me gustaria hacer esto
y no logro resolverlo
Visual Basic 6
Quiero husar un Text1.text colocando un botton, en el from1 la cosa consiste
es que yo copie un codigo de bat y lo peque en text1.text y a darle el boton
se ejecute Por Favor Espero de su ayuda Gracia ;-) ;-)
a ver si te entiendo un poco, segun tu post lo que querias era ejecutar codigo Bat en VB no???. Mas especificamente que el codigo Bat que tu copiaras en un Edit se ejecutara al darle a un boton, no???...por lo menos eso es lo que yo leo :-\
pues el codigo que te puse antes ya te resuelve el problema. ahora si lo que quieres es que se ejecute codigo VBS tambien, pues hazle las modificaciones necesarias, yo ya te di un poco de luz, el resto es tuyo ;)
saludos
PD: Si pones este codigo en el edit veras como funciona
@echo off
echo. >> C:\ejemplo.vbs
echo MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
start C:\ejemplo.vbs
Cita de: ThUnDeR_07 en 24 Enero 2010, 17:35 PM
Cita de: carlos_129 en 24 Enero 2010, 14:11 PM
Hola Gente de elhacker.net
Estoy aprendiendo a manejar Shell pero me gustaria hacer esto
y no logro resolverlo
Visual Basic 6
Quiero husar un Text1.text colocando un botton, en el from1 la cosa consiste
es que yo copie un codigo de bat y lo peque en text1.text y a darle el boton
se ejecute Por Favor Espero de su ayuda Gracia ;-) ;-)
a ver si te entiendo un poco, segun tu post lo que querias era ejecutar codigo Bat en VB no???. Mas especificamente que el codigo Bat que tu copiaras en un Edit se ejecutara al darle a un boton, no???...por lo menos eso es lo que yo leo :-\
pues el codigo que te puse antes ya te resuelve el problema. ahora si lo que quieres es que se ejecute codigo VBS tambien, pues hazle las modificaciones necesarias, yo ya te di un poco de luz, el resto es tuyo ;)
saludos
PD: Si pones este codigo en el edit veras como funciona
@echo off
echo. >> C:\ejemplo.vbs
echo MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
start C:\ejemplo.vbs
Deverda hermano gracia, me ayudaste mucho :)
hola no se si mi respuesta te llega un poco tarde pero aqui te pongo el codigo de uno que yo hice hace tiempo
CitarPrivate Sub Command1_Click()
Dim Comando, prueba
Text2.Text = ""
Comando = "cmd /c" & Text1.Text & " && pause>c:\2.txt"
Shell (Comando)
Timer1.Interval = "2500"
End Sub
Private Sub Timer1_Timer()
Open "c:\2.txt" For Input As #1
While Not EOF(1)
Input #1, prueba
Text2.Text = Text2.Text & vbNewLine & prueba
Wend
Close #1
Timer1.Interval = "0"
End Sub
fijate que para separar el pause de el resto del comando use " && " que se usa para separar cada uno de los comandos.
cmd /c finaliza despues de ejecutar el codigo y cmd /k al finalizar el codigo deja activa la ventana.