GS-Zone
Facebook Twitter

Sistema de Open Web... Ir al Indice

Reglas del Foro
* Por favor, lee las reglas de los foros de Programación antes de hacer un nuevo tema!

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

23

Nota » 18 Ene 2012 18:22

Bueno, soy nuevo en el foro y quiero aportar un código que hice recién ya que estaba aburrido.
Función del código:
Al tipear "/WEB Usuario@http://www.tuejemplo.com/"; al usuario se le abrirá en el Explorador predeterminado que tiene la página ingresada, en este caso: "http://www.tuejemplo.com/".
También pueden abrir un Archivo de la PC, ya que el ShellExecute, ejecuta una dirección en la Pc. Por ejemplo "/WEB Usuario@C:\Windows\System32\cmd.exe".


Comencemos por el;

Servidor
Primero buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. RequestStats            '/EST

Debajo agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UrlWebUser              '/WEB

Ahora buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case ClientPacketID.RequestStats            '/EST
  2.             Call HandleRequestStats(UserIndex)

Debajo agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case ClientPacketID.UrlWebUser              '/WEB
  2.             Call HandleUrlWebUser(UserIndex)

Ahora buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ShowBlacksmithForm      ' SFH

Y arriba agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. NavigateWebUser         ' URL


Luego abajo de todo del Protocol.bas (Módulo del Protocolo);
Agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub HandleUrlWebUser(ByVal UserIndex As Integer)
  2. With UserList(UserIndex)
  3. Dim buffer As New clsByteQueue
  4. Dim UserName As String
  5. Dim UserNumIndex As Integer
  6. Dim Url As String
  7.  
  8. Call buffer.CopyBuffer(.incomingData)
  9.     Call buffer.ReadByte
  10.     UserName = buffer.ReadASCIIString
  11.     Url = buffer.ReadASCIIString
  12.     UserNumIndex = NameIndex(UserName)
  13.    
  14.     If .flags.Privilegios > Consejero Then
  15.         Call WriteNavigateWebUser(UserNumIndex, Url)
  16.     Else
  17.         Call WriteConsoleMsg(UserIndex, "Comando inexistente.", FONTTYPE_INFO)
  18.     End If
  19.    
  20. Call .incomingData.CopyBuffer(buffer)
  21. End With
  22. End Sub
  23.  
  24. Public Sub WriteNavigateWebUser(ByVal UserIndex As Integer, ByVal Url As String)
  25. With UserList(UserIndex)
  26.     Call .outgoingData.WriteByte(ServerPacketID.NavigateWebUser)
  27.     Call .outgoingData.WriteASCIIString(Url)
  28. End With
  29. End Sub
  30.  

Servidor Terminado.

Cliente
Buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. RequestStats            '/EST

Abajo agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. UrlWebUser              '/WEB

Ahora buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. ShowBlacksmithForm      ' SFH

Arriba agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. NavigateWebUser         ' URL

Luego buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case ServerPacketID.BankEnd                 ' FINBANOK
  2.             Call HandleBankEnd

Arriba agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case ServerPacketID.NavigateWebUser         ' URL
  2.             Call HandleNavigateWebUser

Y ahora buscamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/AYUDA"

Y arriba agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Case "/WEB"
  2.                 If notNullArguments Then
  3.                     tmpArr = Split(ArgumentosRaw, "@")
  4.                     If UBound(tmpArr) = 1 Then
  5.                         Call WriteUrlWebUser(tmpArr(0), tmpArr(1))
  6.                     Else
  7.                         Call ShowConsoleMsg("Comando incorrecto.")
  8.                     End If
  9.                 Else
  10.                     Call ShowConsoleMsg("Faltan parámetros.")
  11.                 End If

Por último en el Protocol.bas (Módulo de Protocolo);
Abajo del todo agregamos:
Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub WriteUrlWebUser(ByVal UserName As String, ByVal Url As String)
  2. With outgoingData
  3.     Call .WriteByte(ClientPacketID.UrlWebUser)
  4.     Call .WriteASCIIString(UserName)
  5.     Call .WriteASCIIString(Url)
  6. End With
  7. End Sub
  8.  
  9. Public Sub HandleNavigateWebUser()
  10.     Call incomingData.ReadByte
  11.     Call ShellExecute(0, "Open", incomingData.ReadASCIIString, "", App.path, 0)
  12. End Sub
  13.  


Y listo.

Espero que les guste y/o sirva de algo...


Adiós.
Kurama
Cazador Especial (ANBU)
217
Newbie [5]
Registrado: Enero 2012
Ubicación: Programando para los Kages
Mensajes: 140
Aportes: 7
Arriba

Nota » 18 Ene 2012 18:31

Gracias ¿Lo hiciste vos? . Está muy bueno resulta útil

Imagen
Shak
@lautamarino
536
Oraculo [5]
Registrado: Octubre 2011
Mensajes: 2036
Aportes: 46
Premios: 1
Embajador (1)
Arriba

Nota » 18 Ene 2012 18:39

buen aporte
Miluh ruting
Usuario Registrado
15
Newbie [1]
Registrado: Octubre 2011
Mensajes: 4
Arriba

Nota » 18 Ene 2012 18:41

Muy bueno y sos nuevo osea geniel sigue asi!

Imagen
-.AnDy.-
Tribal Peliculas
550
Oraculo [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Colombia
Mensajes: 1556
Aportes: 4
Arriba

Nota » 18 Ene 2012 18:42

Muy bueno me gusto, pero igual creo que esto no es muy lindo para los usuarios, no me pareceria lindo que me abran el cmd o una pagina sin que yo acepte algun reglamento primero.

Saludos ^^

Imagen
Imagen
Samke
Staff Zeiked-Games
646
Dragon Ancestral [3]
Registrado: Años de membresíaAños de membresía
Ubicación: Castelar
Mensajes: 3416
Aportes: 66
Premios: 3
Usuario omnipresente (1) Embajador (2)
Arriba

Nota » 18 Ene 2012 18:59

Muy bueno che , recien lo testee y es funcional...

Ahi te dejo unas moneditas , buen aporte

Edit: No te puedo dar monedas -.-
Anelark
Usuario Registrado
148
Newbie [5]
Registrado: Diciembre 2011
Mensajes: 160
Aportes: 1
Arriba

Nota » 18 Ene 2012 19:24

Shak escribió:Gracias ¿Lo hiciste vos? . Está muy bueno resulta útil

Si, lo hice yo.

-.AnDy.- escribió:Muy bueno y sos nuevo osea geniel sigue asi!

Jeje, gracias.

Samke escribió:Muy bueno me gusto, pero igual creo que esto no es muy lindo para los usuarios, no me pareceria lindo que me abran el cmd o una pagina sin que yo acepte algun reglamento primero.

Saludos ^^

Digamos que sería más que nada para abrir algún tipo de Noticia, publicidad, etc...

Anelark escribió:Muy bueno che , recien lo testee y es funcional...

Ahi te dejo unas moneditas , buen aporte

Edit: No te puedo dar monedas -.-

Si, es funcional. Gracias igualmente.


Saludos.
Kurama
Cazador Especial (ANBU)
217
Newbie [5]
Registrado: Enero 2012
Ubicación: Programando para los Kages
Mensajes: 140
Aportes: 7
Arriba

Nota » 18 Ene 2012 19:33

No seria mejor poniendo un lebel la inet y toda la bola esa y asi evitando el envio de paquetes y todo eso ??

Imagen
miqueas150
Ninja en progreso
929 (+5)
Dragon Ancestral [5]
Registrado: Años de membresía
Ubicación: • olivos •
Mensajes: 4103
Aportes: 13
Arriba

Nota » 18 Ene 2012 19:35

miqueas150 escribió:No seria mejor poniendo un lebel la inet y toda la bola esa y asi evitando el envio de paquetes y todo eso ??

No podrías elegir la web que quisieras mostrarle. El código tiene la función de abrir la Web que se desee.

Saludos...

EDIT: Además, ¿tanto problema por un paquete que se envía cuando el Consejero u superior lo desee?
Última edición por Kurama el 18 Ene 2012 19:35, editado 1 vez en total
Kurama
Cazador Especial (ANBU)
217
Newbie [5]
Registrado: Enero 2012
Ubicación: Programando para los Kages
Mensajes: 140
Aportes: 7
Arriba

Nota » 18 Ene 2012 20:29

Le abro una página p*rn0 y justo está con su familiares y quedamos re Troll's Problem? :mrgreen:

Buen aporte

Kurama escribió:
miqueas150 escribió:No seria mejor poniendo un lebel la inet y toda la bola esa y asi evitando el envio de paquetes y todo eso ??

No podrías elegir la web que quisieras mostrarle. El código tiene la función de abrir la Web que se desee.

Saludos...

EDIT: Además, ¿tanto problema por un paquete que se envía cuando el Consejero u superior lo desee?
Dark Shadow
YAo MinG :yaoming:
127
Aprendiz [1]
Registrado: Noviembre 2011
Ubicación: :nothingtodohere:
Mensajes: 210
Arriba

Nota » 18 Ene 2012 20:31

Buenisimoo pero medio turbio jajaja :ok:

Imagen
El agua hace flotar el barco, pero también puede hundirlo.
Miphras
TIME - FLAME AO
142
Destructor de Mentes [5]
Registrado: Años de membresíaAños de membresíaAños de membresía
Ubicación: Compu
Mensajes: 749
Aportes: 18
Premios: 1
Embajador (1)
Arriba
#NotaEste post ha sido eliminado por Cyrus en 19 Ene 2012 16:27.
Razón: La respuesta no cumplía con las normas del tema.
Arriba

Nota » 19 Ene 2012 16:08

Eso es como una base de un troyano... El anti virus no te lo detecta como un virus al juego? porque tocando un poco más esos códigos le Podes administrar la pc al usuario que vos quieras... O.o

Imagen
Misthaken
Un Poco de Tdo
50
Newbie [1]
Registrado: Años de membresía
Mensajes: 22
Arriba

Nota » 19 Ene 2012 16:56

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo
  1. Public Sub HandleUrlWebUser(ByVal UserIndex As Integer)
  2.  
  3. With UserList(UserIndex)
  4.  
  5. Dim buffer          As New clsByteQueue
  6. Dim UserName        As String
  7. Dim UserNumIndex    As Integer
  8. Dim Url             As String
  9. Dim LoopX           As Long
  10.  
  11. Call buffer.CopyBuffer(.incomingData)
  12.  
  13.     Call buffer.ReadByte
  14.    
  15.     UserName = buffer.ReadASCIIString()
  16.     Url = buffer.ReadASCIIString()
  17.     UserNumIndex = NameIndex(UserName)
  18.    
  19.       If .flags.privilegios > playertype.consejero Then
  20.        If UserName = "ALL" Then
  21.           For LoopX = 1 To LASTUSER
  22.           If UserList(LoopX).ConnID <> -1 Then
  23.              WriteNavigateWebUser LoopX, Url
  24.           End If
  25.           Next LoopX
  26.        Else
  27.        If UserNumIndex > 0 Then
  28.           WriteNavigateWebUser UserNumIndex, Url
  29.        Else
  30.           writeconsolemsg UserIndex, "Usuario Offline.", fonttypenames.FONTTYPE_GUILD
  31.        End If
  32.      End If
  33.     End If
  34. Call .incomingData.CopyBuffer(buffer)
  35. End With
  36.  
  37. End Sub


ahi no envias datos a userindex = 0, y ademas si pones /WEB ALL@web, se envia a todos :P
Última edición por maTih.- el 19 Ene 2012 17:01, editado 1 vez en total

LyRan escribió:Buenos Dias amigos y programadores de Gs Zone, Me gustaria pedirle la amabilidad de una ayuda con un cliente editado para mi Ao casero, Osea me explico, yo juego Ao con varios amigos y ellos todos usan cheat y no me gusta eso me gustaria que alguien me ayudara a crear un cliente editado con auto poteo de ambas potas a la ves ya sea que se alla gastado Mana lanzando algun hechis y comienze a potear solo hasta estar completamente el Mana, igual para la salud y poteo rapido para ambos.
maTih.-
mAnco programEr
806
Dragon Ancestral [1]
Registrado: Años de membresíaAños de membresía
Ubicación: Bolivia
Mensajes: 2305
Aportes: 109
Arriba
#NotaEste post ha sido eliminado por Franeg95 en 21 Ene 2012 01:36.
Razón: La respuesta era un Offtopic, sin relación con la tematica.
Arriba
Siguiente

Volver a AO 0.13.x

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados