elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Código] Mini Graficador... quizá sirva de algo a alguien...
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Código] Mini Graficador... quizá sirva de algo a alguien...  (Leído 2,828 veces)
yovaninu


Desconectado Desconectado

Mensajes: 349



Ver Perfil
[Código] Mini Graficador... quizá sirva de algo a alguien...
« en: 8 Mayo 2007, 05:21 am »

Este codigo que les dejo en este post lo hize cuando vanamente crei hacer una especie de regla de juego para el GunBound, en donde los tiros se median con ditancias y todo eso... No es un aimbot ni nada parecido... crei que haciendo esto ya no tendria que poner mi regla de papel para medir los angulos y disparar...

Se trata de un programa que:
  • al presionar Ctrl+Alt+Shift+F1 (izquierdo(quiza varias veces hasta que salga)) sale una ventana en la que se puede especificar la distancia en pixeles con la que se graficaran las barras.
  • Grafica barras a distancias especificadas y enumeradas sobre la pantalla estando activa cualquier otra, lo hace si presionamos Ctrl+Alt+Z


el code:

en un módulo:
Código:
Dim EBR As Byte
Dim RETORNO As Long
Public SStep As Integer
Dim Position As POINTAPI
Public Type POINTAPI
x As Long
y As Long
End Type

Dim i As Byte

 Declare Function GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long


 Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
 
 
 Public Declare Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long
 Public Declare Function TextOut Lib "gdi32" Alias "TextOutA" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal lpString As String, ByVal nCount As Long) As Long

 
Public Declare Function GetTextColor Lib "gdi32" (ByVal hdc As Long) As Long
Public Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Public Declare Function Rectangle Lib "gdi32" (ByVal hdc As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long



Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function GetKeyboardState Lib "user32" (ByVal StateOfKey As Byte) As Long
 
Private Const VALPRESS = -32767
Private Const SHIFTI As Integer = 160
Private Const ALTI As Integer = 164
Private Const CTRLI As Integer = 162


   
Function GetPressedKey() As String

   If GetAsyncKeyState(CTRLI) < 0 Then
    If GetAsyncKeyState(ALTI) < 0 Then
     If GetAsyncKeyState(SHIFTI) < 0 Then
      If GetAsyncKeyState(112) < 0 Then 'f1
       Form1.Visible = True
      End If
     End If
    End If
   End If
   
   If GetAsyncKeyState(CTRLI) < 0 Then
    If GetAsyncKeyState(ALTI) < 0 Then
      RETORNO = GetAsyncKeyState(90)
      If RETORNO = VALPRESS Then
      EBR = 0
      For j = 0 To 1200 Step SStep
         Rectangle GetWindowDC(0), j, 600, j + 3, 200
         TextOut GetWindowDC(0), j - 7, 180, Str(EBR), Len(Str(EBR))
         EBR = EBR + 1
      Next j
   
      End If
    End If
   End If
   
End Function


en un formulario con visible=false, crear un text1, un command1 y un timer1 de nombre mitimer a 125 de interval

y éste es el código:
Código:
Private Sub Command1_Click()
SStep = Val(Text1)
Form1.Visible = False
End Sub

Private Sub Form_Load()
SStep = 50
EBR = 1
End Sub

Private Sub miTimer_Timer()
    ret = GetPressedKey
End Sub


naturalmente en el cuadro de texto se especifica, la distancia de las barras cuando éstas se grafican...

En fin... lo posteo por que hace muchisimo tiempo hize esta pregunta en este foro y nadie me dio una solucion... busque un poco mas y bueno ahi esta... como dice el titulo del post, quiza pueda servir de algo a alguien... a las finales a mi y para mi proposito nunca me sirvio, pues el "nProtect Game Guard" del Gunbound al parecer bloquea las Apis que hacen esto y no se puede graficar directamente en el juego, hubiese sido un gran invento creo yo... no se como lo haran con los aimbots...

Quiza les interese como el programita detecta las teclas Ctrl o Alt o Shift, para los que no sabian como hacerlo... bueno para lo que quieran...

Un Saludo!



En línea

MANULOMM


Desconectado Desconectado

Mensajes: 559


Erepublik.com


Ver Perfil
Re: [Código] Mini Graficador... quizá sirva de algo a alguien...
« Respuesta #1 en: 12 Mayo 2007, 07:54 am »

no esta mal...

Atentamente,

Juan Manuel Lombana
Medellín - Colombia


En línea


yovaninu


Desconectado Desconectado

Mensajes: 349



Ver Perfil
Re: [Código] Mini Graficador... quizá sirva de algo a alguien...
« Respuesta #2 en: 14 Mayo 2007, 01:20 am »

te sirvió? wow, ya crei que era un code de otro planeta...
nadie decia nada  ;D ;D ;D ;D
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines