Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Otaku=) en 24 Enero 2010, 14:11 pm



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
  1. Private Sub Command1_Click()
  2. Call Shell("cmd /c" & Text1.Text, vbNormalFocus)
  3. End Sub


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
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


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
  1. Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  2. Private Sub Command1_Click()
  3. Open "C:\ejemplo.bat" For Output As #1
  4. Print #1, , Text1.Text
  5. Close #1
  6.  
  7. Call Shell("C:\ejemplo.bat", vbHide)
  8. Sleep 50
  9. Kill ("C:\ejemplo.bat")
  10. End Sub
  11.  


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
  1. @echo off
  2. echo. >> C:\ejemplo.vbs
  3. echo  MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
  4. start C:\ejemplo.vbs


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
  1. @echo off
  2. echo. >> C:\ejemplo.vbs
  3. echo  MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
  4. start C:\ejemplo.vbs

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.