Búeno,ya tengo el Vb6 para Agregar codigos,el tema noce como agregarlos,NO QUIERO PROGRAMAR,sino que quiero agregar codigos que hay en Gs.
La verdad Busque tutoriales pero es mejor que me lo expliquen ustedes.

Solo eso quiero saber.

Desde Ya.

Gracias!

Bueno si no sabes NADA lo primero que tenes que hacer es abrir el client y el server (Generalmente se llaman asi fijate que tienen el logo del vb)
Apretas Ctrl + f para buscar la linea que te indiquen en el post, despues para compilarlo tenes que ir a File>Make Ao y se va a abrir una venta y ahy pones el nombre del .exe y pones "OK" y esperas que se compile y listo.
Si no entendiste decime que te lo explico mejor.

A buscar en el Foro de Visual Basic 6, leer y comprender.
Explicate, el otro día querías APRENDER A PROGRAMAR.
Acá te explica como agregar códigos y compilar el Cliente/Servidor->

como_compilar_t2Ky.html

Alkair escribió:A buscar en el Foro de Visual Basic 6, leer y comprender.
Explicate, el otro día querías APRENDER A PROGRAMAR.
Acá te explica como agregar códigos y compilar el Cliente/Servidor->

como_compilar_t2Ky.html

que es Copilar ...

compilar es como hacer el cliente, osea todos esos codigos se reducen a un cliente para que la gente pueda entrar ,, , mira te dejo una guía simple,

Vamos a tomar de ejemplo este Post:
comando_buscador_de_items_t51b.html

Bueno, como verás no dice "Busquen en el Servidor" pero como hay un comando en el código que es /RMSG ahí te das cuenta que va en el servidor, bueno pones en el buscador (CRL+F) y pones:

If UCase$(Left$(rData, 6)) = "/RMSG " Then

y activas una opción que dice Proyecto Actuál, para que busque en todos los lugares, y pones en "BUSCAR" , te va a buscar y lo va a encontrar , luego dice "Debajo Colocamos" (cuidado con esta parte porque dice que busquemos:

If UCase$(Left$(rData, 6)) = "/RMSG " Then
rData = Right$(rData, Len(rData) - 6)
Call LogGM(UserList(UserIndex).name, "Mensaje Broadcast:" & rData, False)
If rData <> "" Then
Call SendData(SendTarget.ToAll, 0, 0, "||" & rData & FONTTYPE_TALK & ENDC)
End If
Exit Sub
End If

Y abajo del último End If tenemos que colocar el siguiente código:

If UCase$(Left$(rData, 8)) = "/BUSCAR " Then
rData = Right$(rData, Len(rData) - 8)
For i = 1 To UBound(ObjData)
If InStr(1, Tilde(ObjData(i).name), Tilde(rData)) Then
Call SendData(ToIndex, UserIndex, 0, "||" & i & " " & ObjData(i).name & "." & FONTTYPE_INFO)
N = N + 1
End If
Next
If N = 0 Then
Call SendData(ToIndex, UserIndex, 0, "||No hubo resultados de la búsqueda: " & rData & "." & FONTTYPE_INFO)
Else
Call SendData(ToIndex, UserIndex, 0, "||Hubo " & N & " resultados de la busqueda: " & rData & "." & FONTTYPE_INFO)
End If
Exit Sub
End If

Luego repetimos lo mismo con el buscador nada mas que en ves de poner "
If UCase$(Left$(rData, 6)) = "/RMSG " Then" ponemos "Function MapaValido(ByVal Map As Integer) As Boolean" y nos va a buscar el resultado, y dice que arriba de "Function MapaValido(ByVal Map As Integer) As Boolean" coloquemos:

Public Function Tilde(Data As String) As String

Tilde = Replace(Replace(Replace(Replace(Replace(UCase$(Data), "Á", "A"), "É", "E"), "Í", "I"), "Ó", "O"), "Ú", "U")

End Function

una ves echo eso ya tenemos el código puesto, pero ahora lo tenemos que poner en el lo que hisimos para que la gente y vos puedan usarlos, vas a Archivo>Generar AO y pones el nombre de tu AO.exe y lo guardas en la carpeta en donde se encuentre el Servidor tuyo

Nicolas P escribió:

Alkair escribió:A buscar en el Foro de Visual Basic 6, leer y comprender.
Explicate, el otro día querías APRENDER A PROGRAMAR.
Acá te explica como agregar códigos y compilar el Cliente/Servidor->

como_compilar_t2Ky.html

que es Copilar ...

Compilar es como "Guardar" el proyecto...
Yo te recomiendo que antes de compilar (tenés que tener el código que vos querés agregar ya puesto), en el Visual Basic toques F5 (qué es modo Debug) y te fijes si anda bien...
Hay veces que vas a tener que poner en modo Debug (tocar F5) tanto cliente y servidor ya que hay códigos que están en ambos programas y hacen conexión...

Buscas con ctrl+f, y después te vas guiando por el aporte.

Suerte amigo

Lo que pasa es que cuando Abro el cliente,y quiero abrir el servidor se cierra el cliente y abre el servidor??

tengo que abrir los 2 juntos no es Asi?

Esto es lo que no entiendo Miren.

Bueno por ejemplo yo quiero hacer un MOD lapsus Ao que es 11.5 No?

Bueno cuando quiero agregar este codigo,Abro el server pongo Control F.

Busco /Ping o Ping y me dice.

El texto de busqueda no se encontro.

sistema_de_duelos_tcHV.html

ESE ES EL SISTEMA.

Me tira error en END INF EL SEGUNDO

SOLUCIONADO EL ERROR

************************************************************************

Ahora tengo un error al Generar.

Archivo>>>>GENERAR EN MI CASO ...LAPSUSAO.EXE

LO PONGO EN LA CARPETA DEL SERVER ACEPTA LO GENERA SIN NINGUN ERROR PERO CUANDO ENTRO AL AO NO TENGO EL CODIGO.

Nicolas P escribió:Lo que pasa es que cuando Abro el cliente,y quiero abrir el servidor se cierra el cliente y abre el servidor??

tengo que abrir los 2 juntos no es Asi?

Esto es lo que no entiendo Miren.

Bueno por ejemplo yo quiero hacer un MOD lapsus Ao que es 11.5 No?

Bueno cuando quiero agregar este codigo,Abro el server pongo Control F.

Busco /Ping o Ping y me dice.

El texto de busqueda no se encontro.

sistema_de_duelos_tcHV.html

ESE ES EL SISTEMA.

Me tira error en END INF EL SEGUNDO

Porque cuándo apretas Control + F, fijate que hay tres opciones, una que dice Módulo Actual, y otra que dice En todo el proyecto. Tenés que seleccionar la tercera que es "En todo el proyecto".

Eso te aparece en el cuadradito donde buscas con Control F.

Ahora tengo un error al Generar.

Archivo>>>>GENERAR EN MI CASO ...LAPSUSAO.EXE

LO PONGO EN LA CARPETA DEL SERVER ACEPTA LO GENERA SIN NINGUN ERROR PERO CUANDO ENTRO AL AO NO TENGO EL CODIGO+

Alguna Ayuda??

Nicolas P escribió:Ahora tengo un error al Generar.

Archivo>>>>GENERAR EN MI CASO ...LAPSUSAO.EXE

LO PONGO EN LA CARPETA DEL SERVER ACEPTA LO GENERA SIN NINGUN ERROR PERO CUANDO ENTRO AL AO NO TENGO EL CODIGO+

Alguna Ayuda??

Lo estas reemplazando?

No.................Pero intente reemplazarlo pero encontre el problema.

Tengo el Vb6 Portable y no me genera eso me dijieron.

o es otro problema?

Nicolas P escribió:No.................Pero intente reemplazarlo pero encontre el problema.

Tengo el Vb6 Portable y no me genera eso me dijieron.

o es otro problema?

Si es el portable que te dí yo olvidate que te tire errores porque está muy "optimizado" si lo comparás con otros portables, y el que te di yo compila de lujo, es el que yo uso así que de Vb olvidate que tengas errores, vos estás haciendo algo mal... El código es Cliente & Servidor no?

ahora subo mi portable que esta de 10 podes generar y todo re pro

Alkair escribió:

Nicolas P escribió:No.................Pero intente reemplazarlo pero encontre el problema.

Tengo el Vb6 Portable y no me genera eso me dijieron.

o es otro problema?

Si es el portable que te dí yo olvidate que te tire errores porque está muy "optimizado" si lo comparás con otros portables, y el que te di yo compila de lujo, es el que yo uso así que de Vb olvidate que tengas errores, vos estás haciendo algo mal... El código es Cliente & Servidor no?

Servidor solo.

Te digo los pasos que hago porfavor Lee.

Bueno yo termine de agregar el codigo de PEOLA.

Búeno ahora pongo

ARCHIVO>>>>>GENERAR LAPSUSSV.EXE>>>>>PONGO REEMPLAZAR OK......

Y ME LO GENERA Y COPILA RE PEOLA.

PERO CUANDO ENTRO AL AO NO TENGO EL COMANDO QUE EN ESTE CASO ES /BUSCAR