feedburner
Enter your email address:

Delivered by FeedBurner

Funcion AntiBot

CATEGORIAS: ,

Y bueno ya que han pedido esa función para sus clientes, lo publico. Crear funcion antibot se puede hacer de varias formas, usando ListView(analógico al ax3l chat),ListBox, etc. Pero publicare el método con el que se ignora el bot activo, y luego a su gusto lo ponen sea Lview u otra cosa. Para las fuentes de xTreme beta, abran modulo general, busquen la parte siguiente:

If optionpriv = True Then
For a = 0 To UBound(vprivado())
If
vprivado(a).Caption = "Privado Con : " & tmwhoto Then Call
vprivado(a).prvmsg(tmnick, tmtalk): Exit Sub
Next

For a = 0 To
UBound(vprivado())
If vprivado(a).Caption = "Privado Con : " & tmnick
Then Call vprivado(a).prvmsg(tmnick, tmtalk): Exit Sub
Next
ReDim
Preserve vprivado(UBound(vprivado()) + 1)
vprivado(UBound(vprivado())).Show
Call vprivado(UBound(vprivado())).prvmsg(tmnick, tmtalk)
Else
Call
fchat.prvpan(tmnick, tmtalk)
End If
End If
Y debajo de eso ponen código de antibot lo que en total tendrá aspecto algo aprecido a Esto:

Con eso queda claro que el bot se imprimirá en pantalla principal de chat. Basandose en ese ejemplo pueden llevar funcion a Lview, listbox, etc.


Buscas un programa y no lo encuentras? Pidelo , posteando en blog o en tag y te lo conseguimos!



0 comments:

Post a Comment