 Autor
|
Tema: Trabajando Visual Basic En BaT (Leído 3,526 veces)
|
Otaku=)
 Desconectado
Mensajes: 20
|
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 
|
|
|
|
|
En línea
|
|
|
|
Tyrz
Desconectado
Mensajes: 927
Get big or die tryin'
|
lo que quieres es que cree un bat con ese codigo y lo ejecute?
|
|
|
|
|
En línea
|
 Web dedicada por completo al surf. Hablamos de tablas de surf, videos de surf, fotos, juegos y mucha información sobre como aprender a surfear, spots famosos como mundaka, pipeline y zonas como vizcaya, surf españa, sopelana y mucho más. Trucos y peligros del surf. A que esperas? Entra en Surf |
|
|
Otaku=)
Desconectado
Mensajes: 20
|
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
|
|
|
|
|
En línea
|
|
|
|
ThunderCls
Desconectado
Mensajes: 455
Coder | Reverser | Gamer
|
será esto lo que buscas? Private Sub Command1_Click() Call Shell("cmd /c" & Text1.Text, vbNormalFocus) End Sub
|
|
|
|
|
En línea
|
|
|
|
Otaku=)
Desconectado
Mensajes: 20
|
por ejemplo colocando este code, fijate que igual no me funcionaria echo 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 |
|
|
|
|
En línea
|
|
|
|
ThunderCls
Desconectado
Mensajes: 455
Coder | Reverser | Gamer
|
bueno, ya lo que quieres es algo mas  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 línea
|
|
|
|
Otaku=)
Desconectado
Mensajes: 20
|
en bat funciona super pero en un vbs no  |
|
|
|
|
En línea
|
|
|
|
ThunderCls
Desconectado
Mensajes: 455
Coder | Reverser | Gamer
|
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
|
|
|
|
|
En línea
|
|
|
|
Otaku=)
Desconectado
Mensajes: 20
|
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 
|
|
|
|
|
En línea
|
|
|
|
|
bomba1990
|
hola no se si mi respuesta te llega un poco tarde pero aqui te pongo el codigo de uno que yo hice hace tiempo Private 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. |
|
|
|
|
En línea
|
|
|
|
|
 |
