CROSHAIR (a simple vb6 program)

**harlcreeds** · 09-26-2012

Hi guys i just release a simple croshair made by visualbasic 6.0
and here is the screen shots

setting up to window mode in game (just move the window in order to center the croshair)

f9=toggle on/off
f10=exit

some of my codes in vb6

VERSION 5.00
Begin VB.Form mainFrm
BorderStyle = 0 'None
Caption = "Aimbot"
ClientHeight = 525
ClientLeft = 16770
ClientTop = 1710
ClientWidth = 540
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 525
ScaleWidth = 540
ShowInTaskbar = 0 'False
Begin VB.Timer Keys
Interval = 1
Left = 1800
Top = 2160
End
Begin VB.Timer Timer
Interval = 1
Left = 3840
Top = 1320
End
Begin VB.Line Line4
BorderColor = &H000000FF&
X1 = 480
X2 = 120
Y1 = 240
Y2 = 240
End
Begin VB.Line Line3
BorderColor = &H000000FF&
X1 = 240
X2 = 240
Y1 = 240
Y2 = 480
End
Begin VB.Line Line2
BorderColor = &H000000FF&
X1 = 240
X2 = -120
Y1 = 240
Y2 = 240
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 240
X2 = 240
Y1 = -240
Y2 = 240
End
End
Attribute VB_Name = "mainFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub SetWindowPos Lib "User32" _
(ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _
ByVal cy As Long, ByVal wFlags As Long)
Private Declare Function GetWindowLong Lib "User32" _
Alias "GetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" _
Alias "SetWindowLongA" ( _
ByVal hWnd As Long, _
ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "User32" ( _
ByVal hWnd As Long, _
ByVal crKey As Long, _
ByVal bAlpha As Byte, _
ByVal dwFlags As Long) As Long
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_COLORKEY = &H1&
Private Const LWA_ALPHA = &H2&
Dim Status As String

Private Function CenterScreen()
With mainFrm
.Top = (Screen.Height - .Height) / 2
.Left = (Screen.Width - .Width) / 2
End With
End Function
Private Function HideBackGround()
BackColor = RGB(127, 127, 0)
SetWindowLong hWnd, _
GWL_EXSTYLE, _
GetWindowLong(hWnd, GWL_EXSTYLE) Or WS_EX_LAYERED
SetLayeredWindowAttributes hWnd, BackColor, 0, LWA_COLORKEY
End Function
Private Function ScreenHook()
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Function

Private Sub Form_Load()
Status = "Enabled"
CenterScreen
HideBackGround
creditsFrm.Show
End Sub

Private Sub Keys_Timer()
If GetAsyncKeyState(vbKeyF9) Then
If Status = "Enabled" Then
Status = "Disabled"
Me.Visible = False
Timer.Enabled = False
ElseIf Status = "Disabled" Then
Status = "Enabled"
Me.Visible = True
Timer.Enabled = True
End If
End If
If GetAsyncKeyState(vbKeyF10) Then
End
End If
'If GetAsyncKeyState(vbKeyF3) Then
'creditsFrm.Show
'End If
End Sub

Private Sub Timer_Timer()
ScreenHook
End Sub

Tested on Win7 32bit and undetected

virus scans:
VbCrosshair.zip - Jotti's malware scan
https://www.virustotal.com/file/456f...is/1348688305/

thanks and long live MPGH!