Page 1 of 3 123 LastLast
Results 1 to 15 of 37
  1. #1
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry

    Cool CROSHAIR (a simple vb6 program)

    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!
    Attached Thumbnails Attached Thumbnails
    vb3.png  

    vb2.jpg  

    vb1.jpg  

    <b>Downloadable Files</b> Downloadable Files
    Last edited by harlcreeds; 09-26-2012 at 05:43 PM.

  2. The Following 89 Users Say Thank You to harlcreeds For This Useful Post:

    /\drian (10-10-2012),760059495 (11-18-2012),ADPinto (09-30-2012),aflame (11-07-2012),Ahmednasr (11-14-2012),Airwolf1 (11-11-2012),al3xx (09-30-2012),AlkindiWarrior (09-27-2012),ammarzuqi (09-27-2012),amoreskev (10-18-2012),andyansah (11-12-2012),anuraag20 (12-31-2012),ashfire1231 (11-19-2012),avarms (09-28-2012),ayald (09-27-2012),bomba112 (11-16-2012),BorecekCZ (11-17-2012),byebyemtf (10-01-2012),byoncle (11-15-2012),cereal2 (09-29-2012),CHANGEMYNAMEKTHX (11-07-2012),chimera15 (02-01-2013),computertakeover (09-26-2012),cracktimecom (09-29-2012),cur (09-26-2012),danielkogan23 (09-27-2012),darklion855 (09-26-2012),DarkPlugin (09-26-2012),deadlyhorce (10-16-2012),DEATHL (09-26-2012),DGD56 (10-14-2012),diodanu (11-06-2012),drzaius666 (09-27-2012),dstijl (11-12-2012),edmundedmund (11-12-2012),Fexxy (11-14-2012),georgel.geo (09-26-2012),GiONiXx (11-13-2012),grande17 (09-29-2012),Gun_Adder (09-26-2012),iph0ne4s (03-08-2013),jannex1234 (05-17-2016),jaydeeph (09-30-2012),jecacl (10-01-2012),jianting (09-30-2012),jkljkl218 (09-26-2012),jota762 (11-16-2012),jssmart (11-13-2012),[MPGH]Lehsyrus (09-27-2012),libyaXsniper (02-01-2013),lolman963 (11-17-2012),luxert (10-05-2012),madboymongoose (10-02-2012),makelovenowar (10-16-2012),mediodrogado (11-11-2012),messi_12 (10-07-2012),mevirovingio (09-26-2012),Moshe Kasa (09-27-2012),mruize85 (09-26-2012),MxMoshi (11-11-2012),NARUTYCA (09-28-2012),newextrem (02-20-2013),nickb33 (09-26-2012),paco442 (09-29-2012),pison1101 (10-21-2012),Protje123 (09-27-2012),punisher54 (09-27-2012),ramboamadeus (11-13-2012),reeaper (09-30-2012),refrex (11-13-2012),rody07 (09-26-2012),Ryostar (10-07-2012),secrets10 (11-17-2012),Sh0tgunh1t (09-30-2012),simon120 (03-04-2013),skoll20 (11-18-2012),skorak (10-20-2012),sn36k0191 (09-30-2012),starskunk (10-26-2012),teknologica (11-11-2012),tinhsi2005 (10-17-2012),TOPNETyEEEAH (11-19-2012),totodehyere (11-12-2012),Viktor (09-27-2012),walker0321 (11-14-2012),xasax (09-27-2012),X_Titi (11-17-2012),[Aeria]admin (10-03-2012),[pVp]TROLLFACER (10-01-2012)

  3. #2
    ikaheel's Avatar
    Join Date
    Oct 2011
    Gender
    male
    Posts
    382
    Reputation
    10
    Thanks
    129
    My Mood
    Amused
    Multiple threads?

  4. #3
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry
    Quote Originally Posted by ikaheel View Post
    Multiple threads?
    yeah, my mistake

  5. #4
    nickb33's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    12
    Reputation
    10
    Thanks
    560
    My Mood
    Bitchy
    good job thx

  6. #5
    bask14's Avatar
    Join Date
    Sep 2012
    Gender
    male
    Posts
    8
    Reputation
    10
    Thanks
    0
    Need Bypass GameGuard for 32b ? so if need ... now way for me

  7. #6
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry
    Quote Originally Posted by bask14 View Post
    Need Bypass GameGuard for 32b ? so if need ... now way for me
    tested on 32bit and undetected

  8. #7
    Gun_Adder's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Posts
    9
    Reputation
    10
    Thanks
    279
    My Mood
    Breezy
    Nice

  9. #8
    Prepix's Avatar
    Join Date
    Jun 2012
    Gender
    male
    Posts
    5,963
    Reputation
    117
    Thanks
    1,375
    /file approved.

  10. #9
    danielkogan23's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    28
    Reputation
    10
    Thanks
    1
    dude how i do the aimbot on?

  11. #10
    harlcreeds's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    system32
    Posts
    97
    Reputation
    10
    Thanks
    503
    My Mood
    Angry
    Quote Originally Posted by danielkogan23 View Post
    dude how i do the aimbot on?
    its just a crosshair

    im still developing an aimbot, im just hoping

  12. #11
    danielkogan23's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Posts
    28
    Reputation
    10
    Thanks
    1
    what i need to do?
    to make it on?

  13. #12
    Viktor's Avatar
    Join Date
    Feb 2012
    Gender
    male
    Location
    BC, Canada
    Posts
    4,390
    Reputation
    127
    Thanks
    584
    Pretty nice, Great work

  14. #13
    XenXable's Avatar
    Join Date
    Oct 2011
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    2
    Nice sd hahaha.

  15. #14
    briankilla4's Avatar
    Join Date
    Aug 2010
    Gender
    male
    Location
    EGYPT,cairo
    Posts
    875
    Reputation
    10
    Thanks
    730
    My Mood
    Amazed
    great work .
    since its MADE with VB there is a high chance of being banned using it. as it interacts with AVA.exe

  16. #15
    punisher54's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Location
    MPGH Fanatical
    Posts
    901
    Reputation
    17
    Thanks
    303
    My Mood
    Cool
    Nice job, thx !

Page 1 of 3 123 LastLast

Similar Threads

  1. [Help] with simple C++ program...
    By ZKPB in forum C++/C Programming
    Replies: 4
    Last Post: 06-04-2010, 08:39 PM
  2. Simple C++ Program
    By Krypton1x in forum C++/C Programming
    Replies: 6
    Last Post: 05-30-2010, 01:07 AM
  3. Simple VB program
    By FrostyTheSnowman in forum CrossFire Discussions
    Replies: 13
    Last Post: 04-15-2010, 06:35 AM