INFORMATICA Y OCIO

 Foros de informática
  Inicio    Normas    Buscar   Miembros   Clanes   Regístrese   Perfil   Conéctese para revisar sus mensajes   Conectarse 
[informatica] + [videos graciosos] + [ultimos mensajes] + [top usuarios] + [contacto]
[Codigo VB] - Trucos GTA Vice City

 
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Foroz comunity :: Programación
Ver tema anterior :: Ver siguiente tema  
Autor Mensaje
w0rm
Yo soy el foro
Yo soy el foro


Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
MensajePublicado: Lun Oct 31, 2005 6:55 pm    Título del mensaje: [Codigo VB] - Trucos GTA Vice City Responder citando
Código:
'==============================='
'                               '
'-------------------------------'
'**** Trucos: GTA Vice City ****'
'    <¡ --- por  w0rm --- !>    '
'-------------------------------'
'  *****  www.foroz.org  *****  '
'-------------------------------'
'                               '
'==============================='

'**********************************************************************
'Los trucos infinitos tardan X segundos, una vez alcanzado ese tiempo,
'el programa detiene su ejecución y espera a que se pulse la tecla Y,
'para volver a reanudar el proceso de trucos. (X e Y son incognitas ¬¬)
'ADVERTENCIA:
'Una vez ejecutado el programa y realizados los trucos,
'es MUY recomendable no volver a ejecutar el proceso de trucos
'sin antes haber agotado la munición de las armas.
'Los trucos de vida, chaleco y policia deberás hacerlo a mano
'una vez que tengas munición infinita.
'Esto no es más que por motivos de seguridad,
'si dejas el programa corriendo mientras juegas es posible que
'el sistema se vea afectado y se cuelge sin más.
'Por ello he incluido una rutina que al alcanzar el tiempo necesario
'para la realización de los trucos, detiene la ejecución de los mismos.
'**********************************************************************

'API para captar pulsaciones de teclado:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
'API para simular pulsaciones de teclado:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'Eventos de Teclado:
Const VK_INSERT = &H2D 'Pulsar tecla...
Const KEYEVENTF_KEYUP = &H2 'Soltar tecla...
'Variables:
Dim Hora_Inicio, Hora_Actual, Tiempo_Transcurrido As Variant 'Variables del tiempo
Dim t0 As Variant, t1 As Variant 'Variables para restar el tiempo
Const KeyR = -32767 'Rango de teclas ASCII

Private Sub Form_Load()
tmrTrucos.Enabled = False 'Desactivo el Timer de Trucos...
Hora_Inicio = Format(Now, "hh:mm:ss") 'Hora a la que se ejecutaron los trucos...

 '==================================================
 If Not tmrTrucos.Enabled = True Then 'Compruebo que no esté encendido el Timer de Trucos
     Shell "gta-vc.exe", vbNormalFocus        'Ejecuto el Juego
 End If
 '==================================================
 
 '==================================================
    Espera 3 'Espero 3 segundos... (Tiempo que tarda en salir la presentación)
  Call keybd_event(VK_INSERT, 0, 0, 0) 'Simulo presionar la tecla ENTER
    Espera 5 'Espero 5 segundos... (Tiempo entre la presentación y la introducción)
  Call keybd_event(VK_INSERT, 0, KEYEVENTF_KEYUP, 0) 'Simulo soltar la tecla pulsada.
    Espera 20 'Espero 20 segundos...(Tiempo para cargar todo, y comenzar a jugar)
 '==================================================

tmrTrucos.Enabled = True 'Activo el Timer de Trucos!
End Sub

Sub Espera(Intervalo) 'Función que detiene la ejecución del programa durante X segundos
Current = Timer
 Do While Timer - Current < Val(Intervalo) 'Operaciones simples...¬¬
  DoEvents
Loop
End Sub

Sub Curarme() ' aspirine
   Call keybd_event(65, 0, 0, 0) 'a
   Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(80, 0, 0, 0) 'p
   Call keybd_event(80, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(73, 0, 0, 0) 'i
   Call keybd_event(73, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(82, 0, 0, 0) 'r
   Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(73, 0, 0, 0) 'i
   Call keybd_event(73, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(78, 0, 0, 0) 'n
   Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
End Sub

Sub Chaleco() 'preciousprotection
   Call keybd_event(80, 0, 0, 0) 'p
   Call keybd_event(80, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(82, 0, 0, 0) 'r
   Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(67, 0, 0, 0) 'c
   Call keybd_event(67, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(73, 0, 0, 0) 'i
   Call keybd_event(73, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(85, 0, 0, 0) 'u
   Call keybd_event(85, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(80, 0, 0, 0) 'p
   Call keybd_event(80, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(82, 0, 0, 0) 'r
   Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(67, 0, 0, 0) 'c
   Call keybd_event(67, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(73, 0, 0, 0) 'i
   Call keybd_event(73, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(78, 0, 0, 0) 'n
   Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0)
End Sub

Sub Policia() 'leavemealone
   Call keybd_event(76, 0, 0, 0) 'l
   Call keybd_event(76, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(65, 0, 0, 0) 'a
   Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(86, 0, 0, 0) 'v
   Call keybd_event(86, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(77, 0, 0, 0) 'm
   Call keybd_event(77, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(65, 0, 0, 0) 'a
   Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(76, 0, 0, 0) 'l
   Call keybd_event(76, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(78, 0, 0, 0) 'n
   Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
End Sub

Sub Armas01() 'NO LO RECUERDO...:S
'--- INCOMPLETO ---
End Sub

Sub Armas02() 'professionaltools
   Call keybd_event(80, 0, 0, 0) 'p
   Call keybd_event(80, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(82, 0, 0, 0) 'r
   Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(70, 0, 0, 0) 'f
   Call keybd_event(70, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(73, 0, 0, 0) 'i
   Call keybd_event(73, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(78, 0, 0, 0) 'n
   Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(65, 0, 0, 0) 'a
   Call keybd_event(65, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(76, 0, 0, 0) 'l
   Call keybd_event(76, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(76, 0, 0, 0) 'l
   Call keybd_event(76, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
End Sub
   
Sub Armas03() 'nuttertools
   Call keybd_event(78, 0, 0, 0) 'n
   Call keybd_event(78, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(85, 0, 0, 0) 'u
   Call keybd_event(85, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(69, 0, 0, 0) 'e
   Call keybd_event(69, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(82, 0, 0, 0) 'r
   Call keybd_event(82, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(84, 0, 0, 0) 't
   Call keybd_event(84, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(79, 0, 0, 0) 'o
   Call keybd_event(79, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(76, 0, 0, 0) 'l
   Call keybd_event(76, 0, KEYEVENTF_KEYUP, 0)
   Call keybd_event(83, 0, 0, 0) 's
   Call keybd_event(83, 0, KEYEVENTF_KEYUP, 0)
End Sub

Private Function Temporizador() 'Función para ver la diferencia entre horas...

 '==================================================
Hora_Actual = Format(Now, "hh:mm:ss") '...No necesita explicación
    t0 = Format(Hora_Inicio, "hh:mm:ss") '...No necesita explicación
    t1 = Format(Hora_Actual, "hh:mm:ss") '...No necesita explicación
Tiempo_Transcurrido = Format(TimeValue(t1) - TimeValue(t0), "hh:mm:ss") 'Operación Matemática: Resta
 '==================================================
 
 '==================================================
 'Cuando el tiempo entre una hora y otra sea mayor o igual a 1 minutos...
 If Tiempo_Transcurrido >= Format("00:10:00", "hh:mm:ss") Then
   '...entonces detengo el Timer de Trucos.
   tmrTrucos.Enabled = False
 End If
 '==================================================
 
End Function

Private Sub tmrTrucos_Timer() 'En vez de usar un timer, podria usar un bucle...
'Pero es casi lo mismo...asi que es una tonteria...eso ya segun el programador.
'NOTA: El proceso se repite cada 1000ms (1s)

Armas03 'Truco nuttertools = Armas para Psicopatas xD
  Espera 0.5 'Paramos...
Curarme 'Truco aspirine = Curación
  Espera 0.5 'Paramos...
Chaleco 'Truco preciousprotection = Protección
  Espera 0.5 'Paramos...
Policia 'Truco leavemealone = Dejame solo...xD (Sin policia)
  Espera 0.5 'Paramos...
 
End Sub

Private Sub lblCierra_Click() 'Cerramos el programa manualmente (no es necesario).
End 'Termina la aplicación
End Sub

Private Sub tmrKeylogger_Timer()
 If GetAsyncKeyState(116) = KeyR Then
     tmrTrucos.Enabled = False
 ElseIf GetAsyncKeyState(117) = KeyR Then
     tmrTrucos.Enabled = True
 End If
End Sub

Private Sub tmrTemporizador_Timer()
Temporizador 'Cada 1000ms (1s) compruebo el tiempo transcurrido
'entre el inicio de los trucos y la hora actual, si supera o iguala al tiempo
'necesario para que la munición de armas sea infinita,
'entonces detengo el bluce de trucos.
End Sub


Espero que les guste...
PD: He notado que en ocasiones puede causar el cuelgue del sistema.
_________________


netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP...
Volver arriba
Ver perfil del usuario Enviar mensaje privado
t4t0
Moderador
Moderador


Registrado: 31 May 2005
Mensajes: 2791
Ubicación: Posadas - Argentina
MensajePublicado: Lun Oct 31, 2005 7:10 pm    Título del mensaje: Responder citando
Esta en vb? puede ke el problema de los cuelgues sea por la operacion de resta, tal vez cada x cantidad de veces, ser realiza alguna operacion ke provoca algun desbordamiento de memoria
Volver arriba
Ver perfil del usuario Enviar mensaje privado Enviar correo Yahoo Messenger MSN Messenger
w0rm
Yo soy el foro
Yo soy el foro


Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
MensajePublicado: Lun Oct 31, 2005 7:16 pm    Título del mensaje: Responder citando
No, ademas oye el codigo no lo pongo por temas de errores,
lo pongo porque alguien me dijo que lo subiera que seria interesante.

El problema creo que es por simular tan rapido las pulsaciones de tecla
mientras el juego anda corriendo, por ello traté de meterle una funcion
y que detenga los trucos, luego con otra tecla, lo vuelves a iniciar.

Pero se sigue colgando, creo que el bucle de teclas que circula
en cada truco hace que la maquina se vea a mas del 100% de uso y pete...
De todos modos solo es una manera cutre de evitar teclear mil veces la misma palabra de un truco.

Solo lo puse para que lo vieran y si os interesaba...
Es todo VB. Yo solo trabajo en ese lenguaje de momento.
Salu2.
_________________


netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP...
Volver arriba
Ver perfil del usuario Enviar mensaje privado
r3dd3vil2
Moderador
Moderador


Registrado: 19 Nov 2004
Mensajes: 1664
Ubicación: en ninguna parte.
MensajePublicado: Jue Nov 10, 2005 7:45 am    Título del mensaje: Responder citando
Me das permiso para modificarlo y en lugar de los trucos de GTA Viecity ponga los trucos de GTA San andreas?
Gracias!
_________________

Escuchar Musica Online
Aarón - Programador Web
elephant Elefante que vela por nosotros
Volver arriba
Ver perfil del usuario Enviar mensaje privado Visitar sitio web del autor MSN Messenger
w0rm
Yo soy el foro
Yo soy el foro


Registrado: 04 Jun 2005
Mensajes: 2374
Ubicación: España - Málaga
MensajePublicado: Jue Nov 10, 2005 8:35 am    Título del mensaje: Responder citando
Por supuesto, permiso concecido.

Si ves que consigues que la maquina no se cuelge,
pues repostea el nuevo codigo, a todo esto, supongo que has leio la parte
de que se cuelga si lo dejas corriendo mucho rato.

Ese es el unico fallo que tiene, lo demas es pan comido y furula bien.

Para t4t0: Creo que tienes razon, se puede deber a que cada segundo hago una resta de horas,
tal que si la hora a la que se ha ejecutado el juego, menos la hora actual,
es igual a X minutos, termine el programa.
Principalmente intenté usar esa funcion (temporizador) en el timer para evitar que colgase el sistema.
Pero parece que tambien lo cuelga la propia funcion...xDDDDDD

En fin, es un codigo tonto, si alguien lo quiere mejorar, modificar,
piratear, vender, regalar o publicar donde sea, adelante.

Es de libre distribucion, siempre que respeteis los creditos.
Y como minimo poner quien lo ha hecho y de donde sale.

(w0rm, de foroz.org) algo asi...
Salu2.
_________________


netw0rm.com[a:R`r,0+b¨a]G|v|4¡L[p^u.n-t'O]C0|v|
NO ATIENDO A PEDIDOS POR MP...
Volver arriba
Ver perfil del usuario Enviar mensaje privado
Mostrar mensajes anteriores:   
Publicar Nuevo Tema   Responder al Tema    Índice del Foro Foroz comunity :: Programación Todas las horas están en GMT + 1 Hora
Página 1 de 1
Saltar a:  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
 
Articulos relacionados
En Webmasters >> Problema con codigo de reproductor - ...
En Dance, DJ´s, house... >> Fiesta KRAM CITY Radical
En Consolas/ Playstation, Nintendo, Sega... >> gta: vice city stories (duda)
En Juegos PC >> URGENTE: AVION " SKIMMER" G...
En General >> ERROR CODIGO DE ERROR:88780078
 

 
Foroz comunity Tema RSS 




by phpBB  
informatica Videos graciosos webmasters theme by Scott Stubblefield Top foroz