Funcion AntiBot
Posted by
ax3L
CATEGORIAS:
Códigos fuente,
Programación
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 ThenY debajo de eso ponen código de antibot lo que en total tendrá aspecto algo aprecido a Esto:
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
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!
Subscribe to:
Post Comments (Atom)
Post a Comment