[Aportes indexados] /GM Consultas

Estado
Cerrado para nuevas respuestas.

Thron

Destructor Lvl 5
[SERVIDOR] /GM Consultas

Vieron en IAO que si escribimos /GM saltan un panel de consultas.
bueno les dejo el codigo

SERVIDOR

Buscamos:

Código:
Public Sub Push

Remplazamos por:

Código:
Public Sub Push(ByVal Info As String, ByVal Nombre As String, ByVal Informacion As String) 
On Error Resume Next 
Call Cola.Add(UCase$(Nombre) & "@" & Informacion) 
End Sub

Buscamos:

Código:
Case "/GM"

Si queres reemplazar, remplazas. Sino le cambias le cambias el nombre y hacemos un comando nuevo.
En el caso voy a reemplazar, PONEMOS:

Código:
Select Case UCase$(Left$(rdata, 4)) 
Case "/GM " 
 
rdata = Right$(rdata, Len(rdata) - 4) 
If rdata = "" Or rdata = " " Then 
Call SendData(ToIndex, UserIndex, 0, "||Deberas escribir el mensaje." & FONTTYPE_PARTY) 
Exit Sub 
End If 
If Not Ayuda.Existe(UserList(UserIndex).Name) Then 
Call SendData(ToIndex, UserIndex, 0, "||El mensaje ha sido entregado, ahora solo debes esperar que se desocupe algun GM." & FONTTYPE_PARTY) 
Call Ayuda.Push(rdata, UserList(UserIndex).Name, rdata) 
 
Else 
Call Ayuda.Quitar(UserList(UserIndex).Name) 
Call Ayuda.Push(rdata, UserList(UserIndex).Name, rdata) 
Call SendData(ToIndex, UserIndex, 0, "||Ya habias mandado un mensaje, tu mensaje ha sido movido al final de la cola de mensajes." & FONTTYPE_PARTY) 
End If 
Exit Sub 
End Select 
 
Select Case UCase$(Left$(rdata, 3)) 
Case "/GM " 
Call SendData(ToIndex, UserIndex, 0, "||Deberas escribir tu mensaje." & FONTTYPE_PARTY) 
Exit Sub 
 
End Select

Cliente

Buscamos:

Código:
Private Sub mnuBorrar_Click()

Reemplazamos por:

Código:
Private Sub mnuBorrar_Click() 
If List1.ListIndex < 0 Then Exit Sub 
SendData ("SOSDONE" & List1.List(List1.ListIndex) & "@" & List2.List(List1.ListIndex)) 
mensaje = MsgBox("Se realizo el mensaje?", vbYesNo) 
If mensaje = vbYes Then 
Call SendData("NOCONSU" & List1.List(List1.ListIndex)) 
End If 
List2.RemoveItem List1.ListIndex 
List1.RemoveItem List1.ListIndex 
End Sub

Luego, BUSCAMOS:

Código:
Case "RSOS"

Y REEMPLAZAMOS:

Código:
Case "RSOS" ' >>>>> Mensaje :: RSOS 
Rdata = Right$(Rdata, Len(Rdata) - 4) 
Dim Nombre As String 
Dim Informa As String 
Nombre = ReadField(1, Rdata, Asc("@")) 
Informa = ReadField(2, Rdata, Asc("@")) 
frmMSG.List1.AddItem Nombre 
frmMSG.List2.AddItem Informa 
Exit Sub

Despues VAMOS al FrmMsg, donde se aparecen los /GM y CREAR un TextBox y ListBox, proporcionalmente grandes.

HACER que su propiedad sea:

Código:
Visible = False

Despues BUSCAMOS:

Código:
nd = Val(ReadField(2, List1.List(List1.ListIndex), Asc("-")))

AGREGAMOS abajo de ésta linea:

Código:
Text1.Text = List2.List(List1.ListIndex)


y listo , esto fue el codigo de /GM Consultas de IAO para la consola VB y espero que les halla gustado.
Chau
 

DarkThom

Oráculo Lvl 3
Che y Los formularios , Ponelos Sino Es Incompleto
Hay Gente que No Sabe Tan Bien el VB

algunos solo Copian Codigos y Leen Intrucciones de como copiarlos

xd


Igual Muy buen Code

Si Pones los formularios Seguro lo usaran muchos ;)
 

Thron

Destructor Lvl 5
DarkThom dijo:
Che y Los formularios , Ponelos Sino Es Incompleto
Hay Gente que No Sabe Tan Bien el VB

algunos solo Copian Codigos y Leen Intrucciones de como copiarlos

xd


Igual Muy buen Code

Si Pones los formularios Seguro lo usaran muchos ;)


No se si sabias pero si pones Buscar , dise Buscar en Todo el Proyecto ;)
 

DarkThom

Oráculo Lvl 3
Ahh PErdona es que lei el code asi de ante mano

Me olvide de ceirte .- USa la Tag [ vb ] [ /vb ]

PAra Algo Esta y Eso lo digo para todos usenla es mas entendible
 

Thron

Destructor Lvl 5
DarkThom dijo:
Ahh PErdona es que lei el code asi de ante mano

Me olvide de ceirte .- USa la Tag [ vb ] [ /vb ]

PAra Algo Esta y Eso lo digo para todos usenla es mas entendible


Jajaa si es cierto :p
 

Thron

Destructor Lvl 5
RaYdeN.ADM dijo:
hice todo tal cual y dejo de funcionar el /GM xD

Probaste de poner el grafico de tal cual lo tiene IAO ;)

Edit: Te recomiendo sacarlo de el mismo codigo fuente del IAO asi te tiene que andar
 
Estado
Cerrado para nuevas respuestas.
Arriba