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
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.






