Jump to content
Welcome, Guest
Existing user? Sign In

Sign In



Sign Up
The MatriX
  • Welcome To Ghbsys
  • CS GO Streaming Version is released. Have fun streaming while cheating!
  • Have a Payment Issue? Send us a Support ticket.
  • Make a thread if you need support or join our discord for live support.
  • Have Suggestions? Make a thread and you'll earn Ghbsys Points for implemented suggestions.
  • Join our discord to stay well connected! Don't forget to integrate your discord to the site
  • Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum

    Welcome to [GHB] - GAmEhAcKbAsTaRdS Forum, like most online communities you must register to view or post in our community, but don't worry this is a simple free process that requires minimal information for you to signup. Be apart of [GHB] - GAmEhAcKbAsTaRdS Forum by signing in or creating an account.
    • Start new topics and reply to others
    • Subscribe to topics and forums to get email updates
    • Get your own profile page and make new friends
    • Send personal messages to other members.

    [HELP]Making a VB.net Menu for D3D Games[Help]


    jomel590
     Share

    Recommended Posts

    is this possible?

     

    i have a code but the menu doesn't show in D3D 10 Game

     

    this is my code working only for D3D 9|8 Game

    Public Class Form1
       Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer ' need for GetAsyncKeyState
    
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Me.TopMost = True ' < show youre menue ingame ! 
       End Sub
    
       Private Sub ShowHide_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowHide.Tick
           ' menue open and close with Insert GetAsyncKeyState !
           ' menue + process close with Delete GetAsyncKeyState!
    
           If GetAsyncKeyState(Keys.Insert) Then
               If Me.Visible = True Then
                   Me.Visible = False
                   Exit Sub
               End If
               If Me.Visible = False Then
                   Me.Visible = True
                   Exit Sub
               End If
           End If
    
           If GetAsyncKeyState(Keys.Q) Then
               Me.Close()
           End If
       End Sub
    
       Private Sub Hacks_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hacks.Tick
           ':::::::::::::::::::AFK BOT:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F1) Then
               If Label2.Text = "[OFF]" Then
                   Label2.Text = "[ON]"
                   Label2.ForeColor = Color.Red
                   'hack
                   afkbot.Start()
                   Exit Sub
               End If
               If Label2.Text = "[ON]" Then
                   Label2.Text = "[OFF]"
                   Label2.ForeColor = Color.Blue
                   'normal
                   afkbot.Stop()
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::Clock:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F2) Then
               If Label3.Text = "[OFF]" Then
                   Label3.Text = "[ON]"
                   Label3.ForeColor = Color.Blue
                   Label6.Text = ("Clock")
                   Label6.Visible = True
                   Exit Sub
               End If
               If Label3.Text = "[ON]" Then
                   Label3.Text = "[OFF]"
                   Label3.ForeColor = Color.Red
                   Label6.Visible = False
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::ClockColor:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F5) Then
               If Label7.Text = "[1]" Then
                   Label7.Text = "[2]"
                   Label7.ForeColor = Color.MidnightBlue
    
                   Label6.ForeColor = Color.MidnightBlue
                   Exit Sub
               End If
               If Label7.Text = "[2]" Then
                   Label7.Text = "[3]"
                   Label7.ForeColor = Color.Red
    
                   Label6.ForeColor = Color.Red
                   Exit Sub
               End If
               If Label7.Text = "[3]" Then
                   Label7.Text = "[4]"
                   Label7.ForeColor = Color.White
    
                   Label6.ForeColor = Color.White
                   Exit Sub
               End If
               If Label7.Text = "[4]" Then
                   Label7.Text = "[5]"
                   Label7.ForeColor = Color.BlueViolet
    
                   Label6.ForeColor = Color.BlueViolet
                   Exit Sub
               End If
               If Label7.Text = "[5]" Then
                   Label7.Text = "[1]"
                   Label7.ForeColor = Color.Yellow
    
                   Label6.ForeColor = Color.Yellow
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::move menue:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F6) Then
               If Label8.Text = "[OFF]" Then
                   Label8.Text = "[ON]"
                   Label8.ForeColor = Color.Blue
                   'hack
                   Movemenu.Enabled = True
                   Movemenu.Start()
                   Exit Sub
               End If
               If Label8.Text = "[ON]" Then
                   Label8.Text = "[OFF]"
                   Label8.ForeColor = Color.Red
                   'normal
                   Movemenu.Stop()
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::close crossfire:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F7) Then
               If Label8.Text = "[OFF]" Then
                   Label8.Text = "[ON]"
                   Label8.ForeColor = Color.Red
                   'hack
               End If
               If Label8.Text = "[ON]" Then
                   Label8.Text = "[OFF]"
                   Label8.ForeColor = Color.Red
                   Try
                       Dim cmd As String
                       cmd = "start www.vipgaming.forumtl.com"
                       Shell("cmd.exe /k" & cmd, AppWinStyle.NormalFocus)
                   Catch
                       Label8.Text = "[OFF]"
                       Label8.ForeColor = Color.Red
    
                   End Try
    
                   Exit Sub
               End If
           End If
           If GetAsyncKeyState(Keys.F8) Then
               If Label9.Text = "[OFF]" Then
                   Label9.Text = "[ON]"
                   Label9.ForeColor = Color.Green
                   'hack
                   Try
                       Dim p As Process = Process.GetProcessesByName("crossfire")(0)
                       p.CloseMainWindow()
                       Threading.Thread.Sleep(500)
                       If Process.GetProcessesByName("crossfire").Length > 0 Then
                           p.Kill()
                           Me.Close()
                       End If
                       Exit Sub
                   Catch
                       Label9.Text = "[OFF]"
                       Label9.ForeColor = Color.Red
    
                   End Try
               End If
               If Label9.Text = "[ON]" Then
                   Label9.Text = "[OFF]"
                   Label9.ForeColor = Color.Red
                   'nothing
    
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::Credits or Spammer:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F4) Then
               If Label5.Text = "[OFF]" Then
                   Label5.Text = "[ON]"
                   Label5.ForeColor = Color.Red
                   'hack
                   Form4.Show()
                   Exit Sub
               End If
               If Label5.Text = "[ON]" Then
                   Label5.Text = "[OFF]"
                   Label5.ForeColor = Color.Blue
                   'normal
                   Form4.Show()
                   Exit Sub
               End If
           End If
           ':::::::::::::::::::Crosshair:::::::::::::::::::::::::
           If GetAsyncKeyState(Keys.F3) Then
               If Label4.Text = "[OFF]" Then
                   Label4.Text = "[ON]"
                   Label4.ForeColor = Color.Blue
                   'hack
                   Form5.Show()
                   Form6.Show()
                   Form7.Show()
                   Exit Sub
               End If
               If Label4.Text = "[ON]" Then
                   Label4.Text = "[OFF]"
                   Label4.ForeColor = Color.Red
                   'normal
                   Form5.Close()
                   Form6.Close()
                   Form7.Close()
                   Exit Sub
               End If
           End If
    
       End Sub
    
       Private Sub Afkbot_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Afkbot.Tick
           ' AFK move section
           Try
               Interaction.AppActivate("D3D game")
               My.Computer.Keyboard.SendKeys("W")
               My.Computer.Keyboard.SendKeys("A")
               My.Computer.Keyboard.SendKeys("S")
               My.Computer.Keyboard.SendKeys("D")
           Catch
               ' here you can make an error message or something else!
           End Try
           ' AFK move section
           Try
               Interaction.AppActivate("D3D9 game.exe")
               My.Computer.Keyboard.SendKeys("W")
               My.Computer.Keyboard.SendKeys("A")
               My.Computer.Keyboard.SendKeys("S")
               My.Computer.Keyboard.SendKeys("D")
           Catch
               ' here you can make an error message or something else!
           End Try
       End Sub
    
       Private Sub Clock_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Clock.Tick
           Label6.Text = DateTime.Now.Hour & ":" & DateTime.Now.Minute & ":" & DateTime.Now.Second
       End Sub
    
       Private Sub Movemenu_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Movemenu.Tick
           If GetAsyncKeyState(Keys.Up) Then
               Me.Top = Me.Top - 10
           End If
           If GetAsyncKeyState(Keys.Down) Then
               Me.Top = Me.Top + 10
           End If
           If GetAsyncKeyState(Keys.Left) Then
               Me.Left = Me.Left - 10
           End If
           If GetAsyncKeyState(Keys.Right) Then
               Me.Left = Me.Left + 10
           End If
       End Sub
    
    
    End Class
    

     

    Examples of D3D Games

     

    Crossfire <= D3D9

     

    Soldier Front <= D3D10 (i think)

     

    K.O.S <= D3D8/9

     

    Help Sir(s)

    Link to comment
    Share on other sites

    The TopMost feature doesnt work in every game, you should think about c++ and make real D3D hacks...

    Link to comment
    Share on other sites

    • 2 months later...

    Fehler 1 Die Handles-Klausel erfordert eine WithEvents-Variable, die im enthaltenden Typ oder einem seiner Basistypen definiert wird.

     

    ??? what can i do

    Link to comment
    Share on other sites

    Handles clause requires a WithEvents variable defined in the containing type or one of its base types

     

    Für dich auf deutsch: Sie haben in der Handles-Klausel keine WithEvents-Variable angegeben. Verwenden Sie das Handles-Schlüsselwort am Ende einer Prozedurdeklaration, damit es Ereignisse behandelt, die durch eine mit dem WithEvents-Schlüsselwort deklarierte Objektvariable ausgelöst werden.

     

    MSDN ftw! Wobei sich dieser Fehler von selbst erklärt...

    Link to comment
    Share on other sites

    • 4 weeks later...
    • 4 weeks later...

    VB Hacks für Warrock sind möglich, jedoch ist die Mühe unnötig, mit C++ erreicht man das Ziel 10mal so schnell (;

    Link to comment
    Share on other sites

    • 1 year later...

    Are you f*cking kidding me? This is simple form with TopMost function, that never work on D3D games. If you wan't help with making D3D Menu in Visual Basic then PM me.

    Link to comment
    Share on other sites

    Natürlich kannst du das in Warrock laufen lassen, die ganzen neunmalklugen kinder die hier posten haben keinen schimmer.

     

    Und nenn das nich D3D das eintigste was du versuchst is ne GUI zu erstellen

    Link to comment
    Share on other sites

    Guest
    This topic is now closed to further replies.
     Share

    • Recently Browsing   0 members

      • No registered users viewing this page.
    ×
    ×
    • Create New...