Comando /SOPORTE TEXTO - Funcional y con log

#1 - Fecha: 21 Mar 2008 19:37

bueno... acá le dejo el comando /SOPORTE TEXTO para fenixao(9.9z)
este comando lo ise recién YO y anda a la perfección

mientras lo hagan bien -.-"

Cliente:

Buscamos:

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

If UCase$(Left$(Datos, 3)) = "/GM" Then
    frmMSG.Show
    Exit Sub
End If

y lo ELIMINAMOS.

buscamos:

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

Select Case UCase$(Left$(sdData, 9))

y debajo antes de:

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

    Case "/APOSTAR "

ponemos:

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

    Case "/SOPORTE "
        Rdata = Right$(sdData, Len(sdData) - 9)
        ReplaceData = "#+ " & Rdata

Servidor:

buscamos:

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

    Case "#5"
        rdata = Right$(rdata, Len(rdata) - 3)

arriba de eso ponemos:

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

    Case "#+"
        rdata = Right$(rdata, Len(rdata) - 3)
        Name = ReadField(1, rdata, 32)
        If UserList(UserIndex).flags.Privilegios > 1 Then
            Call SendData(ToIndex, UserIndex, 0, "||Tu eres GM!" & FONTTYPE_INFO)
                Exit Sub
        Else
                Call SendData(ToAdmins, 0, 0, "||" & UserList(UserIndex).Name & ": " & rdata & FONTTYPE_VENENO)
                Call SendData(ToIndex, UserIndex, 0, "||Tu mensaje a sido enviado a los Administradores!" & FONTTYPE_INFO)
                Call Soporte(UserList(UserIndex).Name & " Envió: " & rdata)
                Exit Sub
        End If
        

Buscamos:

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

Public Sub LogGM(Nombre As String, Texto As String, Consejero As Boolean)
On Error GoTo errhandler
 
Dim nfile As Integer
nfile = FreeFile
 
 
 
If Consejero Then
    Open App.Path & "\logs\consejeros\" & Nombre & ".log" For Append Shared As #nfile
Else
    Open App.Path & "\logs\" & Nombre & ".log" For Append Shared As #nfile
End If
Print #nfile, Date & " " & Time & " " & Texto
Close #nfile
 
Exit Sub
 
errhandler:
 
End Sub

y arriva ponemos:

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

Public Sub Soporte(Texto As String)
On Error GoTo errhandler
 
Dim nfile As Integer
nfile = FreeFile
 
 
    Open App.Path & "\logs\SOPORTE.log" For Append Shared As #nfile
    Print #nfile, Date & " " & Time & " " & Texto
    Close #nfile
 
Exit Sub
 
errhandler:
 
End Sub

y listo

este anda a la perfección, además!:
un GM pone: /SOPORTE TEXTO y le dice que es GM!

un user pone: /SOPORTE TEXTO y le dice que el msg ha sido entregado
los msg que mandan los users, son guardado en: SOPORTE.LOG
dice la fecha y hora, quien y que dijo

además de por supuesto mandárselo a todos los ADMIN

espero que les sirva, pues es mi primer código :idea:

suerte!

#2 - Fecha: 21 Mar 2008 19:50

Muy bueno el aporte.. Encima te digo una cosa. Hoy a la tarde me mate hacerlo y lo termine me quedo re bien

y ahora me vengo al foro y veo que lo posteas.

5 palabras: ME QUIERO CORTAR LOS HUEVOS.

Agregame a tu Mail. el_bajito_06@hotmail.com Y por hai nos inclinamos a la parte de Seguridad de los Mod FenixAO. ¿Te parece? Bueno.. Te espero.

Bueno.. Espero que sigas asi. Asi podemos seguir creciendo la comunidad de GS.

Un gusto.

Blade.

#3 - Fecha: 21 Mar 2008 23:43

Aportón, funciona exelente, muchas gracias

#4 - Fecha: 26 Mar 2008 22:28

Ener, sos un gran programador y sabes mucho.
Excelente codigo.
Pero con ese codigo, lo que me pasa es que cuando mando con un gm../soporte "texto".
Me aparece en consola..."Tú eres GM".
Lo mando con un user, y no me aparece nada en consola.
Ademas estária bueno que pongas el /show sos(para los gms).
Saludos.-