Problema con orden
Publicado por dPix (5 intervenciones) el 03/09/2006 17:28:04
Bien, mi siguiente problema es que estoy haciendo un bot que solo me haga caso a mi, y todo va bien (los comandos a ejecutar) excepto el que tiene que ejecutar lo que yo le diga despues de un comando, lo que quiero es que al recibir *irc "algo", mande el comando algo. Y lo he hecho así y no funciona:
--------------------------------------
Private Sub Text3_Change()
'EJECUTAR COMANDO IRC
If InStr(1, Text3.Text, "*irc") And Left(recib, 6) = ":dPix!" Then
WinsocK1.SendData ((Left(Text3.Text, 47 + Len(Text4.Text)) & Chr(13) & Chr(10)))
End If
End Sub
--------------------------------------
Las 3 primeras líneas están bien, creo que el error está en la 4ª, por favor si alguien me puede ayudar que postee, muchas gracias de antemano, será un error muy sencillo de solucionar.
sAlu2,
dPix
--------------------------------------
Private Sub Text3_Change()
'EJECUTAR COMANDO IRC
If InStr(1, Text3.Text, "*irc") And Left(recib, 6) = ":dPix!" Then
WinsocK1.SendData ((Left(Text3.Text, 47 + Len(Text4.Text)) & Chr(13) & Chr(10)))
End If
End Sub
--------------------------------------
Las 3 primeras líneas están bien, creo que el error está en la 4ª, por favor si alguien me puede ayudar que postee, muchas gracias de antemano, será un error muy sencillo de solucionar.
sAlu2,
dPix
Valora esta pregunta


0