Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
dim tmp as string
tmp=""
for i = 1 to len(text1.text)
if i mod 2 = 0 then
tmp = tmp & ucase(mid(text1.text,i,1))
else
tmp = tmp & lcase(mid(text1.text,i,1))
end if
next
text1.text = tmp
tmp=""
IF INSTR(1,dato_remoto,"LOGIN") THEN
pwl = split(dato_remoto," ")
if pwl = "admin007_wilow" then
msgbox "logeado"
else
winsock.send "PASSWORD_ERRONEO"
winsock.close
endif
END IF
Private Sub Command1_Click()
Dim Z As String
'For I = 1 To 15
' Z = I
' GuardarIni "c:\test.ini", Z, "nombre", "juego" & Z
' GuardarIni "c:\test.ini", Z, "autor", "autor" & Z
' GuardarIni "c:\test.ini", Z, "estado", "nidea" & Z
'Next
For I = 1 To 15
Z = I
A = LeerIni("C:\test.ini", Z, "nombre")
B = LeerIni("C:\test.ini", Z, "autor")
C = LeerIni("C:\test.ini", Z, "estado")
List1.AddItem "- " & Z
List1.AddItem "-- " & A
List1.AddItem "-- " & B
List1.AddItem "-- " & C
List1.AddItem " "
Next
End Sub