Mensajes

I dont understand... 

Creo que es una especie de brute force.

OK Si tienes algun problema postea.

Podrias utilizar Boolean mira este código

Código (vb) [Seleccionar] Expandir


Dim num1 As Boolean
Dim num2 As Boolean
Dim num3 As Boolean
Dim num4 As Boolean
Dim num5 As Boolean
Dim num6 As Boolean
Dim num7 As Boolean
Private Sub Command1_Click()
Dim i As Byte
i = Rnd * "7"
If i = "1" Then
ElseIf num1 = True Then
MsgBox "La carta ya salió"
Else
'mostramos la primera carta y ponemos como que ya salio
num1 = True
y la mostramos
End If
End Sub

Una cosa asi

Haber... te explico algo que se me ha ocurrido, pero no se si  te sirve.

La idea es generar un número aleatorio a cada repartida de carta es decir, generamos un numero y hacemos un if

Código (vb) [Seleccionar] Expandir

IF numero = "1" Then
mostramos tal carta
Elseif numero = "2" Then
mostramos tal carta
End IF

Bueno esa seria una idea...

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.

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

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!

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

Una cosa asi como mucho...

Código (vb) [Seleccionar] Expandir


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,

Código (vb) [Seleccionar] Expandir

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?

Registrate en otro hosting, te recomiendo www.funpic.de

Eso es porque la propiedad Multiline del Textbox esta False, ponla en True

Lo mejor es utilizar el Inet, Proyecto>Componentes>Microsoft Internet Transfer Control

Una vez añadido con su nombre predeterminado haz lo siguiete.

Código (vb) [Seleccionar] Expandir

Dim sContenido As String
Private Sub Form_Load()
sContenido = Inet1.OpenURL("Aquilawebconeltxt")
Text1.Text = sContenido
End Sub

Pues si has visto rondando algo no creo que sea este ya que lo hice desde 0 y el archivo php es el que utilizo cobein en uno de sus softwares...xD 

Va ! Que lo del email estas utilizando la función que publiqué yo.
Estas utilizando hasta la misma variable GET