Foro de elhacker.net

De nuevo jejeje otra duda, bien, lo que me gustaria saber es que poner, para que el proyecto ejecute el codigo que pone en un textbox, es decir, un ejemplo.
Pongo en el textbox

msgbox "Hola", vbinformation, "hola"

y creo un private sub, lo que quiero es que ese private sub lea lo que pone en el textbox, y lo ejecute, es decir, creo un private llamado.

private sub empezar()
codigo
end sub

lo que no se es que tengo que poner donde pone codigo, para que al poner

call empezar

haga lo que pone en el textbox, es algo lioso, pero lo necesito, o que lo haga al pulsar un commandbutton, pero lo necesito mas para el call, gracias, espero sus respuestas, saludos.

Y para qué quieres un textbox, crea una función que haga lo que quieras y llámala cuando lo necesitas, en lugar de un texbox:

private sub empezar()
msgbox "loquesea"
end sub

Y luego haces un call empezar.
No es más fácil así?

Si, pero es para una funcion distinta, por ejemplo, imaginate que un user quiere usar su code, pues lo pone en el textbox, y al darle al commandbutton, el programa ejecuta lo que pone en el textbox, esa no es la funcion que usare con el, pero es un ejemplo, me podeis ayudar?

Mmm n ose bien si es esto a lo que te reifers...

Agregas un timer con enabled en False

Private Sub Form_Load()
Timer1.Enabled = True
End sub

Private Timer1_Timer()
MsgBox "Hello World",vbinformation,"Hello"
End sub

Saludos!

No sé si estoy en lo cierto pero el se refiere (en su ejemplo) a que si pones en el textbox "MsgBox "Hola"" Escriba esto en el código:

Sub comenzar()
MsgBox "Hola"
End Sub
 

Y lo ejecute claro.

Yo te diría que es imposible ya que si lo pones, se representara todo entre "", por lo tanto lo pondrá como texto, no como codigo.

Eso no tiene nada que ver con lo que el se refiere.

Una cosa asi como mucho...

Dim data() As String
data = Split(Text1.Text, "|")
MsgBox data(0), vbInformation, data(1)

Eso lo que hace es lo siguiente, si escriben "Hola | Muy bien" en el Campo de texto sin las comillas sale un mensaje con texto Hola y de titulo Muy Bien ¿Asi te serviria? Y despues puedes hacer,

Dim data() As String
data = Split(Text1.Text, "|")
If data(3) = "Informacion" Then
MsgBox data(0), vbInformation, data(1)
elseif data(3) = "Critical" Then
MsgBox data(0), vbCritical, data(1)
End IF

Ahi seria "Hola | Muy bien | Informacion" ¿Ahora entiendes? ;)

Si no me equivoco, lo que queres es digamos, un pequeño compilador, osea, que vos le pongas un codigo en un textbox y que te lo interprete y lo corra...
Es eso?

No es eso del todo, no solo tiene que ser msgbox, es decir, sea cual sea el codigo, lo ejecute, como si lo ubiese puesto en el commandbutton, es decir, si pone en el commandbutton

shell (cmd.exe /C "Start www.google.es")

pues al pulsar commandbutton, el commandbutton lea lo que pone en el textbox, y en este caso abriria google.

Lo que estás planteando es muy jodido y requiere muucho codigo, tenes que interpretar cada uno de los comandos y pasarle los argumentos, estás hablando de algo muy extenso...

Si fuera para utilizar pocos códigos si que se puede hacer... seria algo mas sencillito... pero si quieres hacer que acepte todos los códigos... bufff

Lo que podria hacer es guardar un historial de codigos, y luego en visual pues lo interpretas, o lo catalogas... Por Mensajes, Comandos, Etc...

Pues creo que are eso, que cuando ponga algo pues lo busque y saque el code segun sabe, como comandos, de todas formas gracias, saludos.

No se si te he entendido bien, pero CREO que lo que quieres es, utilizar el textbox a modo de consola ms-dos.

Si eso es lo que quieres (que no lo se), prueba con:

una palabra...Microsoft Script control

Eso son 3 palabras xDDDD

Y como ago?

Wenas, como te dijeron antes puedes usar el microsoft script control para lo que quieres hacer.
Yo estuve viendo una pagina en que explicaban algo que creo que te servira:
http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm (http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/203-microsoft-script-control.htm)
ya nos cuentas ;)
un saludo