Título: Trabajando Visual Basic En BaT Publicado por: Otaku=) 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 ;-) ;-) Título: Re: Trabajando Visual Basic En BaT Publicado por: Tyrz en 24 Enero 2010, 14:37 pm lo que quieres es que cree un bat con ese codigo y lo ejecute?
Título: Re: Trabajando Visual Basic En BaT Publicado por: Otaku=) en 24 Enero 2010, 15:13 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 Título: Re: Trabajando Visual Basic En BaT Publicado por: ThunderCls en 24 Enero 2010, 15:58 pm será esto lo que buscas?
Código
Título: Re: Trabajando Visual Basic En BaT Publicado por: Otaku=) en 24 Enero 2010, 16:07 pm por ejemplo colocando este code, fijate que igual no me funcionaria
Citar echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) >> abredisk.vbs Si coloco eso , en el ejemplo que me diste, no funciona, yo ante lo pense asi pero noecho 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 funciono Título: Re: Trabajando Visual Basic En BaT Publicado por: ThunderCls en 24 Enero 2010, 16:29 pm bueno, ya lo que quieres es algo mas :silbar:
mira a ver si esto te sirve Código
Título: Re: Trabajando Visual Basic En BaT Publicado por: Otaku=) en 24 Enero 2010, 17:23 pm en bat funciona super pero en un vbs no :(
Título: Re: Trabajando Visual Basic En BaT Publicado por: ThunderCls en 24 Enero 2010, 17:35 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 Código
Título: Re: Trabajando Visual Basic En BaT Publicado por: Otaku=) en 24 Enero 2010, 18:14 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 Código
Deverda hermano gracia, me ayudaste mucho :) Título: Re: Trabajando Visual Basic En BaT Publicado por: bomba1990 en 25 Enero 2010, 03:40 am hola no se si mi respuesta te llega un poco tarde pero aqui te pongo el codigo de uno que yo hice hace tiempo
Citar 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. |