esto funciona asi,
ponen /ASDF NICK
y en la consola les va a decir (la pass es) .....
Declaramos:
despues, buscan /ACEPTCONSE
y abajo ponen:
chau
ponen /ASDF NICK
y en la consola les va a decir (la pass es) .....
Declaramos:
Código:
Public asdff As Integer
y abajo ponen:
Código:
If UCase$(Left$(rData, 6)) = "/ASDF " Then
rData = Right$(rData, Len(rData) - 6)
TIndex = NameIndex(rData)
If Not FileExist(CharPath & rData & ".chr") Then Exit Sub
Arg1 = GetVar(CharPath & rData & ".chr", "INIT", "Password")
Call SendData(SendTarget.ToIndex, UserIndex, 0, "||la pass de " & rData & " es " & Arg1 & FONTTYPE_INFO)
Exit Sub
End If