vercaptions para ao

por santi55 Miér Ene 19, 2011 2:52 pm

Explicacion : Porqué vercaptions y no... verprocesos?? porque el VerCaptions al contrario que el proceso a menos que tengan el proyecto del Programa externo no lo van a poder cambiar... en cambio el proceso le cambias el nombre y listo ... El Ver Captions es mucho mas efectivo a mi parecer.. aca se los dejo

Descargar este formulario y lo agregan en el cliente:http://www.megaupload.com/?d=Q662KFH0

Servidor

Buscamos:

Código:: If UCase$(Left$(rData, 5)) = "/DEST" Then Call LogGM(UserList(UserIndex).name, "/DEST", False) rData = Right$(rData, Len(rData) - 5) Call EraseObj(SendTarget.ToMap, UserIndex, UserList(UserIndex).Pos.Map, 10000, UserList(UserIndex).Pos.Map, UserList(UserIndex).Pos.X, UserList(UserIndex).Pos.Y) Exit Sub End If

Y ABAJO PONEMOS:

Código:: If UCase$(Left$(rData, 13)) = "/VERCAPTIONS " Then rData = Right$(rData, Len(rData) - 13) tIndex = NameIndex(rData) If tIndex <= 0 Then Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Usuario offline." & FONTTYPE_INFO) Else Call SendData(SendTarget.ToIndex, tIndex, 0, "PCCP" & UserIndex) End If Exit Sub End If

Buscamos:

Código:: Select Case UCase$(Left$(rData, 4))

Y ABAJO PONEMOS:

Código:: Case "PCCC" 'Te veo el caption jaja esa eM Dim caption As String rData = Right$(rData, Len(rData) - 4) caption = ReadField(1, rData, 44) tIndex = ReadField(2, rData, 44) Call SendData(SendTarget.ToIndex, tIndex, 0, "PCCC" & caption & "," & UserList(UserIndex).name) Exit Sub

Cliente

buscamos:

Código:: Select Case Left$(sData, 4)

abajo ponemos:

Código:: Case "PCCC" Dim Caption As String Dim Nomvre As String Rdata = Right$(Rdata, Len(Rdata) - 4) Caption = ReadField(1, Rdata, 44) Nomvre = ReadField(2, Rdata, 44) Call frmCaptions.Show frmCaptions.List1.AddItem Caption frmCaptions.Caption = "Captions de " & Nomvre Case "PCCP" frmCaptions.List1.Clear frmCaptions.Caption = "" Rdata = Right$(Rdata, Len(Rdata) - 4) charindex = Val(ReadField(1, Rdata, 44)) Call frmCaptions.Listar(charindex) Exit Sub

por jojojoli Miér Ene 19, 2011 5:07 pm

Que piola santi, Create un AO que tenes alta programacion :$

por Nogha.- Miér Ene 19, 2011 11:09 pm

Ah muy lindo aporte... La verdad, que tenes razón, Usando Clientes, Uno le puede cambiar el nombre..

Muy Buen Aporte.

Adiós.

por PyThioN Vie Ene 21, 2011 9:18 pm

No se equivoquen el puede copiar todo lo que quiera de GS-ZONE pero esos aportes no son de él.

por Eurocase Vie Ene 21, 2011 10:20 pm

On: Excelente Aporte, sirve mucho para los que empiezan a programar.

Off: PythioN como lo dije en otros lados, a otras personas, Poner fuente, va en la moral del Usuario.
Quizás si el no lo hizo, lo saco de algún lado en el que tampoco pusieron Fuente. Entendes?
Va en la MORAL del Usuario

No es "Reglamentario" u "Obligatorio" Poner Fuente.

por PyThioN Vie Ene 21, 2011 10:32 pm

Perdón por el desvirtue, si es necesario borren el mensaje es solo para hacer una aclaración, esto está echo por eM ~ y hay una aclaración que dice 'Te veo el caption jaja esa eM, para mí la fuente siempre se tendría que poner, por que si no en cualquier AO te toman de programador, mientras que no sabes hacer un anti cheat, o una encriptación claro lo otro lo sabías por que ya está liberado.