Sistema de Open Web...

» 19 Ene 2012 17:05

Miphras escribió:Buenisimoo pero medio turbio jajaja

Idem, Buen post bastante util

» 19 Ene 2012 17:50

maTih.- escribió:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
Public Sub HandleUrlWebUser(ByVal UserIndex As Integer)

With UserList(UserIndex)

Dim buffer As New clsByteQueue
Dim UserName As String
Dim UserNumIndex As Integer
Dim Url As String
Dim LoopX As Long

Call buffer.CopyBuffer(.incomingData)

Call buffer.ReadByte

UserName = buffer.ReadASCIIString()
Url = buffer.ReadASCIIString()
UserNumIndex = NameIndex(UserName)

If .flags.privilegios > playertype.consejero Then
If UserName = "ALL" Then
For LoopX = 1 To LASTUSER
If UserList(LoopX).ConnID <> -1 Then
WriteNavigateWebUser LoopX, Url
End If
Next LoopX
Else
If UserNumIndex > 0 Then
WriteNavigateWebUser UserNumIndex, Url
Else
writeconsolemsg UserIndex, "Usuario Offline.", fonttypenames.FONTTYPE_GUILD
End If
End If
End If
Call .incomingData.CopyBuffer(buffer)
End With

End Sub

ahi no envias datos a userindex = 0, y ademas si pones /WEB ALL@web, se envia a todos

Ya lo sabía, el comando está pensado para que sea rellenado y completado como les parezca a ustedes.

Gracias por acordarme de aclarar el detalle.

Saludos.

» 19 Ene 2012 18:33

si igual fijate qe si el usuario esta off envia datos a userindex(0) , el array empieza desde 1 asi qe reventaria todo

» 19 Ene 2012 19:29

maTih.- escribió:si igual fijate qe si el usuario esta off envia datos a userindex(0) , el array empieza desde 1 asi qe reventaria todo

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If UserNumIndex > 0 Then
Call WriteNavigateWebUser (UserNumIndex, URL)
Else
Call WriteConsoleMsg(userIndex, "Usuario offine.", FonTType_Info)
End If
Call .incomingData.CopyBuffer(buffer)
 

Con eso ya bastaría, gracias por recordarme, no sabía que pasaba eso, nunca probé y digamos que soy medio nuevo. Hace unos pocos meses que programo.

Saludos.