Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > C/C++
You last visited: Today at 18:01

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[C++] winsock ws_32.dll hook

Discussion on [C++] winsock ws_32.dll hook within the C/C++ forum part of the Coders Den category.

Reply
 
Old   #1
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
[C++] winsock ws_32.dll hook

i am trying to make a hack for a online game.

but i don't know how to hook my program to the process name : khanclient.exe

can someone help me? this is my current code in VB2008

the point in this is i want to click a button and send a packet to server from client. i hope you get what i mean.

here is a screenshot:



0A 00 0A 19 5E BF F1 51 18 2E-> is a packet that buys POTs automatically w/o going to the NPC

i want to send that to server.

i use to send that packet before by using WPE.

now i want to make a program that will send it so i dont need to open WPE

thanks.
Code:
Option Strict Off
Option Explicit On
Friend Class form1
    Inherits System.Windows.Forms.Form
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
    Private Declare Sub mouse_event Lib "user32" (ByVal dwflags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)
    Private Const MOUSELEFTDOWN = &H2 '  left button down /This is actually MOUSEEVENTF_LEFTDOWN
    Private Const MOUSELEFTUP = &H4 '  left button up /This is actually MOUSEEVENTF_LEFTUP
    Public Const MOUSERIGHTDOWN = &H8
    Public Const MOUSERIGHTUP = &H10
	
	Public Sub about_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles about.Click
        AboutBox1.Show()
    End Sub
	
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
        winsock1.SendData("0A 00 0A 19 5E BF F1 51 18 2E")
    End Sub

    Private Sub form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.F6 Then
            CheckBox2.Checked = Not CheckBox2.Checked
        End If
        If e.KeyCode = Keys.F7 Then
            CheckBox3.Checked = Not CheckBox3.Checked
        End If
        If e.KeyCode = Keys.F5 Then
            If Button1.Enabled = True Then
                Button1.performclick 
            Else
                Button3.PerformClick()
            End If
        End If
 

    End Sub
    Private Sub form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        hotkey.Enabled = True
        KeyPreview = True

        Combo1.Enabled = False
        winsock1.Connect("61.19.250.152", 2104)
        'ultima hack procedures
        Command1.Enabled = False
        Command2.Enabled = False
        Command3.Enabled = False
        ComboBox2.Enabled = False

        'macro spam msg
        Button3.Enabled = False
        'ultima hack check boxes
        Check4.Enabled = False
        Check5.Enabled = False

        'item hack procedures
        ComboBox1.Enabled = False
        List1.Enabled = False
        Combo3.Enabled = False
        cmdgetitem.Enabled = False
    End Sub

    Private Sub form1_FormClosed(ByVal eventSender As System.Object, ByVal eventArgs As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        winsock1.Close()
    End Sub

    Private Sub Winsock1_ConnectEvent(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles winsock1.ConnectEvent
        Combo1.Enabled = True
    End Sub

    Private Sub Winsock1_DataArrival(ByVal eventSender As System.Object, ByVal eventArgs As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles winsock1.DataArrival
        Dim temp As String
        temp = New String(Chr(0), eventArgs.bytesTotal)
        winsock1.GetData(temp, VariantType.String, eventArgs.bytesTotal)
        MsgBox(temp)
    End Sub

    Private Sub Frame1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Combo1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo1.SelectedIndexChanged
        Select Case Combo1.Text
            Case "Wroclaw Castle"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map01.gif"

            Case "Kharakorum"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map02.gif"

            Case "Boggy Dungeon"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map03.gif"

            Case "Lublin Mongol Fortress"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map04.gif"

            Case "Iron Dungeon"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map05.gif"

            Case "Lava Canyon"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map06.gif"

            Case "Mist Iron Prison"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map07.gif"

            Case "Mist Ancient Ruin"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map08.gif"

            Case "Altai Gorge"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map09.gif"

            Case "Hangzhou"
                PictureBox1.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\maps\map11.gif"
        End Select
        Command1.Enabled = True
        Command2.Enabled = True
        Command3.Enabled = True

        Check4.Enabled = True
        Check5.Enabled = True
        ComboBox2.Enabled = True
        Combo3.Enabled = True
    End Sub

    Private Sub Combo3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Combo3.SelectedIndexChanged
        Select Case Combo3.Text
            Case "Weapons"
                ComboBox1.Items.Clear()
                List1.Items.Clear()
                ComboBox1.Text = "Item Type"
                ComboBox1.Items.Add("Sword")
                ComboBox1.Items.Add("Axe")
                ComboBox1.Items.Add("Mace")
                ComboBox1.Items.Add("Spear")
                ComboBox1.Items.Add("Wand")
                ComboBox1.Items.Add("Bow")
                ComboBox1.Items.Add("Dagger")
            Case "Defense"
                ComboBox1.Items.Clear()
                List1.Items.Clear()
                ComboBox1.Text = "Item Type"
                ComboBox1.Items.Add("Helmet")
                ComboBox1.Items.Add("Armor")
                ComboBox1.Items.Add("Boots")
                ComboBox1.Items.Add("Pants")
        End Select
        ComboBox1.Enabled = True

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        Select Case ComboBox1.Text
            Case "Sword"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Gust Sword - Two Hand Weapon")
                List1.Items.Add("Wallon Sword - One Hand Weapon")
                List1.Items.Add("Rapier - One Hand Weapon")
                List1.Items.Add("Falchion - Two Hand Weapon")
                List1.Items.Add("Saber - Two Hand Weapon")
                List1.Items.Add("Bastard Sword - One Hand Weapon")
                List1.Items.Add("Zweihader - One Hand Weapon")
                List1.Items.Add("Claymore - Two Hand Weapon")
                List1.Items.Add("Flamberge - Two Hand Weapon")
                List1.Items.Add("Siegfried's Nothung - One Hand Weapon")
            Case "Axe"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Bullova - Two Hand Weapon")
                List1.Items.Add("Broad Axe - One Hand Weapon")
                List1.Items.Add("Executioner Axe - One Hand Weapon")
                List1.Items.Add("Double Axe - Two Hand Weapon")
                List1.Items.Add("Great Axe - Two Hand Weapon")
                List1.Items.Add("Giant Axe - One Hand Weapon")
                List1.Items.Add("Mangle Axe - One Hand Weapon")
                List1.Items.Add("Bhuj - Two Hand Weapon")
                List1.Items.Add("Bipennis - Two Hand Weapon")
                List1.Items.Add("Bango's Axe - One Hand Weapon")
            Case "Mace"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Great Smasher - Two Hand Weapon")
                List1.Items.Add("Lucerne Hammer - One Hand Weapon")
                List1.Items.Add("Rezakhan - One Hand Weapon")
                List1.Items.Add("War Pick - Two Hand Weapon")
                List1.Items.Add("Thorn Flail - Two Hand Weapon")
                List1.Items.Add("Maul - One Hand Weapon")
                List1.Items.Add("Grand Mallet - One Hand Weapon")
                List1.Items.Add("Siege Hammer - Two Hand Weapon")
                List1.Items.Add("Bashing Driver - Two Hand Weapon")
                List1.Items.Add("Thor's Mj llnir - One Hand Weapon")
            Case "Spear"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Halbard - Two Hand Weapon")
                List1.Items.Add("Bill - One Hand Weapon")
                List1.Items.Add("Berdysh - One Hand Weapon")
                List1.Items.Add("Scythe - Two Hand Weapon")
                List1.Items.Add("Guisarme - Two Hand Weapon")
                List1.Items.Add("Corsesca - One Hand Weapon")
                List1.Items.Add("Billhook - One Hand Weapon")
                List1.Items.Add("Chauve Souris - Two Hand Weapon")
                List1.Items.Add("War Trident - Two Hand Weapon")
                List1.Items.Add("Odin's Gungnir - One Hand Weapon")
            Case "Wand"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Oriental Staff")
                List1.Items.Add("Gothic Staff")
                List1.Items.Add("Brandestoc")
                List1.Items.Add("Pilgrim's Staff")
                List1.Items.Add("Sword Stick")
                List1.Items.Add("Bone Wand")
                List1.Items.Add("Rune Wand")
                List1.Items.Add("Amber Wand")
                List1.Items.Add("Crystal Wand")
                List1.Items.Add("Aron's Rod")
            Case "Bow"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Long Bow")
                List1.Items.Add("Getale Bow")
                List1.Items.Add("Siege Bow")
                List1.Items.Add("Gothic Bow")
                List1.Items.Add("Tower Bow")
                List1.Items.Add("Gastrapheter")
                List1.Items.Add("Arbalest")
                List1.Items.Add("Target Cross Bow")
                List1.Items.Add("Hand Catapult")
                List1.Items.Add("Jumong's Bow")
            Case "Dagger"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                List1.Items.Add("Blood Stinger")
                List1.Items.Add("Runeblade Dagger")
                List1.Items.Add("Fatal Point")
                List1.Items.Add("Razor Spine")
                List1.Items.Add("Dragon Dirk")
                List1.Items.Add("Crystaline Dirk")
                List1.Items.Add("Backstabber")
                List1.Items.Add("Ethereal Dagger")
                List1.Items.Add("Jagged Blade Dagger")
                List1.Items.Add("Ojaser’s Dagger")
            Case "Helmet"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                'knight
                List1.Items.Add("Helmet of Lionheart")
                List1.Items.Add("Helmet of Templar")
                List1.Items.Add("Helmet of Thorn")
                List1.Items.Add("Helmet of Paladin")
                List1.Items.Add("Helmet of RoyalGuard")
                'necro
                List1.Items.Add("Helmet of Orchid")
                List1.Items.Add("Helmet of Amber")
                List1.Items.Add("Helmet of Crimson")
                List1.Items.Add("Helmet of Brilliance")
                List1.Items.Add("Helmet of Ulupi")
                'micko
                List1.Items.Add("Helmet of Oriharcon")
                List1.Items.Add("Helmet of Soothsayer")
                List1.Items.Add("Helmet of Destiny")
                List1.Items.Add("Helmet of Arch")
                List1.Items.Add("Helmet of Principaliti")
                'sorc
                List1.Items.Add("Turban of Salaim")
                List1.Items.Add("Turban of Saleina")
                List1.Items.Add("Turban of Salion")
                List1.Items.Add("Turban of Fury")
                List1.Items.Add("Turban of SoulBreak")
                'sin
                List1.Items.Add("Helmet of Sea Turtle")
                List1.Items.Add("Helmet of Unworthy")
                List1.Items.Add("Helmet of Pine")
                List1.Items.Add("Helmet of Deep Sea")
                List1.Items.Add("Helmet of Jade")
                'cleric
                List1.Items.Add("Helmet of Shadow")
                List1.Items.Add("Helmet of Vengeance")
                List1.Items.Add("Helmet of Sacrifice")
                List1.Items.Add("Helmet of Faith")
                List1.Items.Add("Helmet of Star")

            Case "Armor"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                'knight
                List1.Items.Add("Armor of Lionheart")
                List1.Items.Add("Armor of Templar")
                List1.Items.Add("Armor of Thorn")
                List1.Items.Add("Armor of Paladin")
                List1.Items.Add("Armor of RoyalGuard")
                'necro
                List1.Items.Add("Armor of Orchid")
                List1.Items.Add("Armor of Amber")
                List1.Items.Add("Armor of Crimson")
                List1.Items.Add("Armor of Brilliance")
                List1.Items.Add("Armor of Ulupi")
                'micko
                List1.Items.Add("Armor of Oriharcon")
                List1.Items.Add("Armor of Soothsayer")
                List1.Items.Add("Armor of Destiny")
                List1.Items.Add("Armor of Arch")
                List1.Items.Add("Armor of Principaliti")
                'sorc
                List1.Items.Add("Robe of Salaim")
                List1.Items.Add("Robe of Saleina")
                List1.Items.Add("Robe of Salion")
                List1.Items.Add("Robe of Fury")
                List1.Items.Add("Robe of SoulBreak")
                'sin
                List1.Items.Add("Tunic of Sea Turtle")
                List1.Items.Add("Tunic of Unworthy")
                List1.Items.Add("Tunic of Pine")
                List1.Items.Add("Tunic of Deep Sea")
                List1.Items.Add("Tunic of Jade")
                'cleric
                List1.Items.Add("Armor of Shadow")
                List1.Items.Add("Armor of Vengeance")
                List1.Items.Add("Armor of Sacrifice")
                List1.Items.Add("Armor of Faith")
                List1.Items.Add("Armor of Star")

            Case "Boots"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                'knight
                List1.Items.Add("Boots of Lionheart")
                List1.Items.Add("Boots of Templar")
                List1.Items.Add("Boots of Thorn")
                List1.Items.Add("Boots of Paladin")
                List1.Items.Add("Boots of RoyalGuard")
                'necro
                List1.Items.Add("Boots of Orchid")
                List1.Items.Add("Boots of Amber")
                List1.Items.Add("Boots of Crimson")
                List1.Items.Add("Boots of Brilliance")
                List1.Items.Add("Boots of Ulupi")
                'micko
                List1.Items.Add("Boots of Oriharcon")
                List1.Items.Add("Boots of Soothsayer")
                List1.Items.Add("Boots of Destiny")
                List1.Items.Add("Boots of Arch")
                List1.Items.Add("Boots of Principaliti")
                'sorc
                List1.Items.Add("Boots of Salaim")
                List1.Items.Add("Boots of Saleina")
                List1.Items.Add("Boots of Salion")
                List1.Items.Add("Boots of Fury")
                List1.Items.Add("Boots of SoulBreak")
                'sin
                List1.Items.Add("Boots of Sea Turtle")
                List1.Items.Add("Boots of Unworthy")
                List1.Items.Add("Boots of Pine")
                List1.Items.Add("Boots of Deep Sea")
                List1.Items.Add("Boots of Jade")
                'cleric
                List1.Items.Add("Boots of Shadow")
                List1.Items.Add("Boots of Vengeance")
                List1.Items.Add("Boots of Sacrifice")
                List1.Items.Add("Boots of Faith")
                List1.Items.Add("Boots of Star")


            Case "Pants"
                List1.Items.Clear()
                PictureBox2.ImageLocation = ""
                'knight
                List1.Items.Add("Pants of Lionheart")
                List1.Items.Add("Pants of Templar")
                List1.Items.Add("Pants of Thorn")
                List1.Items.Add("Pants of Paladin")
                List1.Items.Add("Pants of RoyalGuard")
                'necro
                List1.Items.Add("Pants of Orchid")
                List1.Items.Add("Pants of Amber")
                List1.Items.Add("Pants of Crimson")
                List1.Items.Add("Pants of Brilliance")
                List1.Items.Add("Pants of Ulupi")
                'micko
                List1.Items.Add("Pants of Oriharcon")
                List1.Items.Add("Pants of Soothsayer")
                List1.Items.Add("Pants of Destiny")
                List1.Items.Add("Pants of Arch")
                List1.Items.Add("Pants of Principaliti")
                'sorc
                List1.Items.Add("Pants of Salaim")
                List1.Items.Add("Pants of Saleina")
                List1.Items.Add("Pants of Salion")
                List1.Items.Add("Pants of Fury")
                List1.Items.Add("Pants of SoulBreak")
                'sin
                List1.Items.Add("Pants of Sea Turtle")
                List1.Items.Add("Pants of Unworthy")
                List1.Items.Add("Pants of Pine")
                List1.Items.Add("Pants of Deep Sea")
                List1.Items.Add("Pants of Jade")
                'cleric
                List1.Items.Add("Pants of Shadow")
                List1.Items.Add("Pants of Vengeance")
                List1.Items.Add("Pants of Sacrifice")
                List1.Items.Add("Pants of Faith")
                List1.Items.Add("Pants of Star")
        End Select
        List1.Enabled = True
    End Sub

    Private Sub List1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles List1.SelectedIndexChanged
        Select Case List1.Text
            'item type SWORD
            Case "Gust Sword - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_theswordofwind.bmp"

            Case "Wallon Sword - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_walloon.bmp"

            Case "Rapier - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_rapier.bmp"

            Case "Falchion - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_falchion.bmp"

            Case "Saber - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_saber.bmp"

            Case "Bastard Sword - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_bastard.bmp"

            Case "Zweihader - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_zweiahander.bmp"

            Case "Claymore - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_claymore.bmp"

            Case "Flamberge - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_flamberg.bmp"

            Case "Siegfried's Nothung - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\sword\iv_sword_siegfrieds.bmp"

                'item type AXE

            Case "Bullova - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_bullova.bmp"

            Case "Broad Axe - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_broad.bmp"

            Case "Executioner Axe - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_executioners.bmp"

            Case "Double Axe - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_double.bmp"

            Case "Great Axe - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_great.bmp"

            Case "Giant Axe - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_giant.bmp"

            Case "Mangle Axe - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_mangle.bmp"

            Case "Bhuj - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_bhuj.bmp"

            Case "Bipennis - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_bipenis.bmp"

            Case "Bango's Axe - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\axe\iv_axe_bango.bmp"

                'item type MACE

            Case "Great Smasher - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\1.bmp"

            Case "Lucerne Hammer - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\2.bmp"

            Case "Rezakhan - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\3.bmp"

            Case "War Pick - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\4.bmp"

            Case "Thorn Flail - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\5.bmp"

            Case "Maul - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\6.bmp"

            Case "Grand Mallet - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\7.bmp"

            Case "Siege Hammer - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\8.bmp"

            Case "Bashing Driver - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\9.bmp"

            Case "Thor's Mj llnir - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\mace\10.bmp"


                'item type SPEAR

            Case "Halbard - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\1.bmp"

            Case "Bill - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\2.bmp"

            Case "Berdysh - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\3.bmp"

            Case "Scythe - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\4.bmp"

            Case "Guisarme - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\5.bmp"

            Case "Corsesca - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\6.bmp"

            Case "Billhook - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\7.bmp"

            Case "Chauve Souris - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\8.bmp"

            Case "War Trident - Two Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\9.bmp"

            Case "Odin's Gungnir - One Hand Weapon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\spear\10.bmp"


                'item type WAND

            Case "Oriental Staff"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\1.bmp"

            Case "Gothic Staff"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\2.bmp"

            Case "Brandestoc"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\3.bmp"

            Case "Pilgrim's Staff"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\4.bmp"

            Case "Sword Stick"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\5.bmp"

            Case "Bone Wand"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\6.bmp"

            Case "Rune Wand"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\7.bmp"

            Case "Amber Wand"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\8.bmp"

            Case "Crystal Wand"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\9.bmp"

            Case "Aron's Rod"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\wand\10.bmp"


                'item type BOW

            Case "Long Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\1.bmp"

            Case "Getale Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\2.bmp"

            Case "Siege Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\3.bmp"

            Case "Gothic Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\4.bmp"

            Case "Tower Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\5.bmp"

            Case "Gastrapheter"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\6.bmp"

            Case "Arbalest"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\7.bmp"

            Case "Target Cross Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\8.bmp"

            Case "Hand Catapult"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\9.bmp"

            Case "Jumong's Bow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\bow\10.bmp"


                'item type DAGGER

            Case "Blood Stinger"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\1.bmp"

            Case "Runeblade Dagger"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\2.bmp"

            Case "Fatal Point"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\3.bmp"

            Case "Razor Spine"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\4.bmp"

            Case "Dragon Dirk"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\5.bmp"

            Case "Crystaline Dirk"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\6.bmp"

            Case "Backstabber"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\7.bmp"

            Case "Ethereal Dagger"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\8.bmp"

            Case "Jagged Blade Dagger"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\9.bmp"

            Case "Ojaser’s Dagger"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\weapons\dagger\10.bmp"


                'item type Helmet
                'knight

            Case "Helmet of Lionheart"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\helmet\1.bmp"

            Case "Helmet of Templar"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\helmet\2.bmp"

            Case "Helmet of Thorn"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\helmet\3.bmp"

            Case "Helmet of Paladin"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\helmet\4.bmp"

            Case "Helmet of RoyalGuard"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\helmet\5.bmp"

                'necromancer

            Case "Helmet of Orchid"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\helmet\1.bmp"

            Case "Helmet of Amber"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\helmet\2.bmp"

            Case "Helmet of Crimson"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\helmet\3.bmp"

            Case "Helmet of Brilliance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\helmet\4.bmp"

            Case "Helmet of Ulupi"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\helmet\5.bmp"

                'micko

            Case "Helmet of Oriharcon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\helmet\1.bmp"

            Case "Helmet of Soothsayer"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\helmet\2.bmp"

            Case "Helmet of Destiny"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\helmet\3.bmp"

            Case "Helmet of Arch"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\helmet\4.bmp"

            Case "Helmet of Principaliti"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\helmet\5.bmp"

                'sorcerer

            Case "Turban of Salaim"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\helmet\1.bmp"

            Case "Turban of Saleina"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\helmet\2.bmp"

            Case "Turban of Salion"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\helmet\3.bmp"

            Case "Turban of Fury"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\helmet\4.bmp"

            Case "Turban of SoulBreak"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\helmet\5.bmp"

                'assassin


            Case "Helmet of Sea Turtle"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\helmet\1.bmp"

            Case "Helmet of Unworthy"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\helmet\2.bmp"

            Case "Helmet of Pine"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\helmet\3.bmp"

            Case "Helmet of Deep Sea"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\helmet\4.bmp"

            Case "Helmet of Jade"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\helmet\5.bmp"

                'cleric

            Case "Helmet of Shadow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\helmet\1.bmp"

            Case "Helmet of Vengeance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\helmet\2.bmp"

            Case "Helmet of Sacrifice"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\helmet\3.bmp"

            Case "Helmet of Faith"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\helmet\4.bmp"

            Case "Helmet of Star"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\helmet\5.bmp"


                'item type armor
                'knight

            Case "Armor of Lionheart"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\armor\1.bmp"

            Case "Armor of Templar"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\armor\2.bmp"

            Case "Armor of Thorn"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\armor\3.bmp"

            Case "Armor of Paladin"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\armor\4.bmp"

            Case "Armor of RoyalGuard"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\armor\5.bmp"

                'necromancer

            Case "Armor of Orchid"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\armor\1.bmp"

            Case "Armor of Amber"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\armor\2.bmp"

            Case "Armor of Crimson"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\armor\3.bmp"

            Case "Armor of Brilliance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\armor\4.bmp"

            Case "Armor of Ulupi"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\armor\5.bmp"

                'micko

            Case "Armor of Oriharcon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\armor\1.bmp"

            Case "Armor of Soothsayer"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\armor\2.bmp"

            Case "Armor of Destiny"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\armor\3.bmp"

            Case "Armor of Arch"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\armor\4.bmp"

            Case "Armor of Principaliti"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\armor\5.bmp"

                'sorcerer

            Case "Robe of Salaim"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\armor\1.bmp"

            Case "Robe of Saleina"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\armor\2.bmp"

            Case "Robe of Salion"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\armor\3.bmp"

            Case "Robe of Fury"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\armor\4.bmp"

            Case "Robe of SoulBreak"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\armor\5.bmp"

                'assassin


            Case "Tunic of Sea Turtle"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\armor\1.bmp"

            Case "Tunic of Unworthy"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\armor\2.bmp"

            Case "Tunic of Pine"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\armor\3.bmp"

            Case "Tunic of Deep Sea"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\armor\4.bmp"

            Case "Tunic of Jade"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\armor\5.bmp"

                'cleric

            Case "Armor of Shadow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\armor\1.bmp"

            Case "Armor of Vengeance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\armor\2.bmp"

            Case "Armor of Sacrifice"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\armor\3.bmp"

            Case "Armor of Faith"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\armor\4.bmp"

            Case "Armor of Star"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\armor\5.bmp"


                'item type Boots
                'knight

            Case "Boots of Lionheart"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\boots\1.bmp"

            Case "Boots of Templar"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\boots\2.bmp"

            Case "Boots of Thorn"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\boots\3.bmp"

            Case "Boots of Paladin"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\boots\4.bmp"

            Case "Boots of RoyalGuard"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\boots\5.bmp"

                'necromancer

            Case "Boots of Orchid"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\boots\1.bmp"

            Case "Boots of Amber"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\boots\2.bmp"

            Case "Boots of Crimson"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\boots\3.bmp"

            Case "Boots of Brilliance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\boots\4.bmp"

            Case "Boots of Ulupi"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\boots\5.bmp"

                'micko

            Case "Boots of Oriharcon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\boots\1.bmp"

            Case "Boots of Soothsayer"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\boots\2.bmp"

            Case "Boots of Destiny"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\boots\3.bmp"

            Case "Boots of Arch"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\boots\4.bmp"

            Case "Boots of Principaliti"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\boots\5.bmp"

                'sorcerer

            Case "Boots of Salaim"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\boots\1.bmp"

            Case "Boots of Saleina"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\boots\2.bmp"

            Case "Boots of Salion"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\boots\3.bmp"

            Case "Boots of Fury"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\boots\4.bmp"

            Case "Boots of SoulBreak"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\boots\5.bmp"

                'assassin


            Case "Boots of Sea Turtle"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\boots\1.bmp"

            Case "Boots of Unworthy"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\boots\2.bmp"

            Case "Boots of Pine"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\boots\3.bmp"

            Case "Boots of Deep Sea"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\boots\4.bmp"

            Case "Boots of Jade"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\boots\5.bmp"

                'cleric

            Case "Boots of Shadow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\boots\1.bmp"

            Case "Boots of Vengeance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\boots\2.bmp"

            Case "Boots of Sacrifice"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\boots\3.bmp"

            Case "Boots of Faith"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\boots\4.bmp"

            Case "Boots of Star"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\boots\5.bmp"

                'item type Pants
                'knight

            Case "Pants of Lionheart"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\pants\1.bmp"

            Case "Pants of Templar"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\pants\2.bmp"

            Case "Pants of Thorn"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\pants\3.bmp"

            Case "Pants of Paladin"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\pants\4.bmp"

            Case "Pants of RoyalGuard"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\knight\pants\5.bmp"

                'necromancer

            Case "Pants of Orchid"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\pants\1.bmp"

            Case "Pants of Amber"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\pants\2.bmp"

            Case "Pants of Crimson"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\pants\3.bmp"

            Case "Pants of Brilliance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\pants\4.bmp"

            Case "Pants of Ulupi"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\necromancer\pants\5.bmp"

                'micko

            Case "Pants of Oriharcon"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\pants\1.bmp"

            Case "Pants of Soothsayer"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\pants\2.bmp"

            Case "Pants of Destiny"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\pants\3.bmp"

            Case "Pants of Arch"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\pants\4.bmp"

            Case "Pants of Principaliti"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\micko\pants\5.bmp"

                'sorcerer

            Case "Pants of Salaim"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\pants\1.bmp"

            Case "Pants of Saleina"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\pants\2.bmp"

            Case "Pants of Salion"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\pants\3.bmp"

            Case "Pants of Fury"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\pants\4.bmp"

            Case "Pants of SoulBreak"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\sorcerer\pants\5.bmp"

                'assassin


            Case "Pants of Sea Turtle"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\pants\1.bmp"

            Case "Pants of Unworthy"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\pants\2.bmp"

            Case "Pants of Pine"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\pants\3.bmp"

            Case "Pants of Deep Sea"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\pants\4.bmp"

            Case "Pants of Jade"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\assassin\pants\5.bmp"

                'cleric

            Case "Pants of Shadow"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\pants\1.bmp"

            Case "Pants of Vengeance"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\pants\2.bmp"

            Case "Pants of Sacrifice"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\pants\3.bmp"

            Case "Pants of Faith"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\pants\4.bmp"

            Case "Pants of Star"
                PictureBox2.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\items\defense\cleric\pants\5.bmp"
        End Select
        cmdgetitem.Enabled = True
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Select Case ComboBox2.Text
            Case "Knight"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\k03-1.jpg"
            Case "Necromancer"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\n03-1.jpg"
            Case "Micko"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\m05-1.jpg"
            Case "Sorcerer"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\s05-1.jpg"
            Case "Assassin"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\a10-1.jpg"
            Case "Cleric"
                PictureBox3.ImageLocation = "C:\Documents and Settings\silencio\My Documents\KhanToolz2008\KhanToolz.NET\images\characters\cl01-1.jpg"
        End Select
    End Sub

    Private Sub quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles quit.Click
        End
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            leftclick.Start()
        Else
            leftclick.Stop()
        End If
    End Sub

    Private Sub leftclick_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leftclick.Tick
        mouse_event(MOUSELEFTDOWN, 0, 0, 0, 0) 'left button goes down
        mouse_event(MOUSELEFTUP, 0, 0, 0, 0) 'left button comes up
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        sendspam1.Interval = (sendspaminterval.Text)
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            rightclick.Start()
        Else
            rightclick.Stop()
        End If
    End Sub

    Private Sub rightclick_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rightclick.Tick
        mouse_event(MOUSERIGHTDOWN, 0, 0, 0, 0) 'right button goes down
        mouse_event(MOUSERIGHTUP, 0, 0, 0, 0) 'right button comes up
    End Sub

    Private Sub sendspam1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles sendspam1.Tick
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{ENTER}")


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Enabled = False
        Button3.Enabled = True
        sendspam1.Start()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button1.Enabled = True
        Button3.Enabled = False
        sendspam1.Stop()
    End Sub

    Private Sub hotkey_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hotkey.Tick
        'Dim hotkey As Boolean
        '   hotkey = GetAsyncKeyState(Keys.F11)
        '   If hotkey = True Then

        '    End If
        ' End Sub
        If CBool(GetAsyncKeyState(Keys.ControlKey)) And CBool(GetAsyncKeyState(Keys.F8)) Then
            If Button1.Enabled = True Then
                Button1.PerformClick()
            Else
                Button3.PerformClick()
            End If
        End If

    End Sub
End Class
Translation: German


Ich versuche, einen Hack für eine Online-Spiel.

aber ich weiß nicht, wie Haken mein Programm für den Prozess Name: khanclient.exe

Kann jemand mir helfen? Das ist meine aktuellen Code in VB2008

das ist in diesem Punkt möchte ich auf eine Schaltfläche klicken, und senden Sie ein Paket an den Server vom Client. Ich hoffe, Sie bekommen, was ich meine.

Hier ist ein Screenshot:



0A 00 0A 19 5E BF F1 51 18 2E-> ist ein Paket, kauft POTS automatisch w / o in die NPC

Ich möchte, dass an den Server senden.

Ich benutze zu senden, dass die Päckchen vor mit WPE.

jetzt möchte ich ein Programm, das wird es so brauche ich nicht zu öffnen WPE

Danke.
majidemo is offline  
Old 06/05/2009, 09:58   #2
 
elite*gold: 0
Join Date: Apr 2009
Posts: 67
Received Thanks: 83
Extern like this you maybe won't get it like you want.

You should code a Dll which opens a server to transfer messages with your tool, so that it can contact the Dll, which then calls send inside the gameclient.
You also have to get the current socked id.
Either by hooking send and saving it in a variable or by finding, if used, the static address used for the socket id.
RDTSC is offline  
Thanks
1 User
Old 06/05/2009, 15:28   #3
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
will you help me on it?

i tried searching for guides but didnt get any good..

im a newbie to this.. can somebody help me??

This is the client of the game i want to hack
majidemo is offline  
Old 06/05/2009, 17:14   #4
 
elite*gold: 0
Join Date: May 2009
Posts: 1
Received Thanks: 0
i will post a topic here maj about winsock but you already have a post..

so ill gonna wait for theyr'e reply and im still searching..

hope i can get it..
imsuchanoob is offline  
Old 06/05/2009, 18:28   #5
 
majidemo's Avatar
 
elite*gold: 0
Join Date: Apr 2008
Posts: 347
Received Thanks: 1,286
Yeah..

im waiting for it.. thats the only code i lack..

its honestly hard^_^
majidemo is offline  
Old 06/05/2009, 18:58   #6
 
cryzed's Avatar
 
elite*gold: 0
Join Date: Mar 2009
Posts: 30
Received Thanks: 4
I'm not really familiar with Visual Basic and neither with hooking functions in processes but I guess you could do that via DLL injection. You can compile a DLL which hooks certain functions once you inject it into a given process. For example when the game opens a connection to the server or you are logged in and the circumstances are right for you to be able to buy items you could use the already opened connection to the server or simply call the function which is called when you buy items manually.
cryzed is offline  
Reply


Similar Threads Similar Threads
[Advanced] Winsock in C#
05/23/2013 - CO2 Programming - 7 Replies
Requires ws2_32.dll, and "using System.Runtime.InteropServices" // fuck creating my own socketerror enum LOL using SocketError = System.Net.Sockets.SocketError; // Interface to ws2_32.dll public unsafe partial class Native
[C++] Winsock + Select
12/03/2009 - C/C++ - 13 Replies
I solved this Problem adding a "continue;" at if(FD_ISSET(aSocket, &fdSet)) { AddSocket(accept(aSocket, NULL, NULL)); continue; }
[VB6]Winsock Packet Sending Program & [C++] ws_32 Hook&DLL
06/07/2009 - C/C++ - 1 Replies
Hi.. im trying to create a program that send packet to the server.. someone told me to hook my program using the ws_32 hook and dll can someone give me or teach me how to do these codes? the client i need to attach to is "KhanClient.exe" i hope you can help me..
winsock in vb.net?
12/29/2007 - Conquer Online 2 - 4 Replies
anyone know how to get winsock into vb.net?ive been googleing for an answer and cant findone. i downloaded oswinsock and still not sure how to use it?? Ive been using vb6 for a while and am using vb 2005 for the first time and this is pissing me off.i read i should use systemcom.net or somthing? just anyone know how i can use winsock in vb.net or explain what i need to do,before i give up on this .net framework and stick with my trusty vb6 if anyone has a simple source proxy in...
vb6 winsock tutorial
10/24/2006 - .NET Languages - 2 Replies
Ich weiß, vb6 ist aaaaaaaalllt und 2005 ist sooooo besser (kann ich auch gleich zu C# gehen), aber fürs erste will ich das noch probieren. Okay, ich suche ein Winsock tutorial was allerdings direkt HEX packets schickt/verarbeitet und nicht im ASCII format, ich hab zwar ein paar Beispiel sources, allerdings versteh ich nicht so recht wie ich das machen soll. Also ne TCP verbindung.



All times are GMT +1. The time now is 18:01.


Powered by vBulletin®
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2026 elitepvpers All Rights Reserved.