Trabajando Visual Basic En BaT

[Otaku=)]

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 

[Tyrz]

lo que quieres es que cree un bat con ese codigo y lo ejecute?

[Otaku=)]

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

[ThunderCls]

será esto lo que buscas?

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Call Shell("cmd /c" & Text1.Text, vbNormalFocus)
End Sub

[Otaku=)]

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

[ThunderCls]

bueno, ya lo que quieres es algo mas 
mira a ver si esto te sirve

Código (vb) [Seleccionar] Expandir

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


[Otaku=)]

en bat funciona super pero en un vbs no 

[ThunderCls]

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 (bash) [Seleccionar] Expandir

@echo off
echo. >> C:\ejemplo.vbs
echo  MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
start C:\ejemplo.vbs

[Otaku=)]

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 (bash) [Seleccionar] Expandir

@echo off
echo. >> C:\ejemplo.vbs
echo  MsgBox "HOLA MUNDO">> C:\ejemplo.vbs
start C:\ejemplo.vbs

Deverda hermano gracia, me ayudaste mucho

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