Problema con bot

[dPix]

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

[Mad Antrax]

Simplemente olvidate de las funciones instr, left y todas esas. Yo en tu lugar usaria Split, te explico como funciona:

Código [Seleccionar] Expandir


Dim codigo() As String

codigo = Split("irc$hola$adios$prueba","$")

codigo(0)="irc"
codigo(1)="hola"
codigo(2)="adios"
codigo(3)="prueba"


Lo que hace Split es dividir un string y lo pone en un array, para eso necesitas un "delimitador" (que en este caso he usado $) para separar los comandos. Asi en tu bot escribes:

say|Hola soy un bot

Y el bot sabrá que codigo(0) es "say" y codigo(1) es "Hola soy un bot". Luego eso lo envias por SendData y ya esta. Es más facil de lo que crees lo que pasa esque yo me explico fatal xD

Suerte

[dPix]

Muchísimas gracias ||MadAntrax|| cada vez voy a prendiendo más funciones y esta me ha gustado mucho. Una gran ayuda, gracias.

[LuckyMonkey]

Hola,

Bueno si quieres algun consejo de estilo
Si el instr comienza desde 1 cómo en tu caso puedes ahorrarte éste parametro y queda más claro.

Además en lugar de Chr(13) & Chr(10) puedes usar la constante vbcrlf

Saludos

[BenRu]

Usa Ucase y/o Lcase para pasar el comando que tu introduzcas a mayusculas o minusculas...asi, escribas como escribas, siempre va a funcionar.

Estoy viene muy bien para los bots de charla