Automated Shopping Bot using VB6

[pengis]

Hello. I'm new to programming and am trying to make what I thought was going to be a simple automating shopping bot.

This program has a few tasks it needs to perform.
1)It needs to click on an NPC.
2)It needs to check for the variables I specify on items in the shop.
3)If the variables are found it needs to click on said item and a yes button.
4)If the item(s) are purchased or the variables are not found it needs to close the shop window.
5)It needs to sleep for a specified amount of time before repeating everything.

Here's what I have so far:

Private Sub Command1_Click()

End Sub

Private Sub Combo3_Change()

End Sub

Private Sub atype_Change()

End Sub

Private Sub a1_Click()

If atype.ListIndex = -1 Then Exit Sub

chose1.AddItem atype.Text
atype.RemoveItem atype.ListIndex

End Sub

Private Sub a2_Click()

If ael.ListIndex = -1 Then Exit Sub

chose1.AddItem ael.Text
ael.RemoveItem ael.ListIndex

End Sub

Private Sub a3_Click()

If atype.ListIndex = -1 Then Exit Sub

chose1.AddItem asuf.Text
asuf.RemoveItem asuf.ListIndex

End Sub

Private Sub a4_Click()

If atype.ListIndex = -1 Then Exit Sub

chose2.AddItem wel.Text
wel.RemoveItem wel.ListIndex

End Sub

Private Sub a5_Click()

If atype.ListIndex = -1 Then Exit Sub

chose2.AddItem wsuf.Text
wsuf.RemoveItem wsuf.ListIndex

End Sub

Private Sub Form_Load()

With atype
.AddItem "Leather"
.AddItem "Wooden"
.AddItem "Chain"
.AddItem "Copper"
.AddItem "Bronze"
.AddItem "Iron"
.AddItem "Cloth"
.AddItem "Pupil"
.AddItem "Desert"
.AddItem "Berserker"
.AddItem "Viking"
.AddItem "Gladiator"
.AddItem "Blood"
.AddItem "Initiate"
.AddItem "Traveler"
.AddItem "Thief"
.AddItem "Rogue"
.AddItem "Novice"
.AddItem "Apprentice"
.AddItem "Druidic"
.AddItem "Shaman"
.AddItem "Conjuror"
.AddItem "Wizard"


End With

With ael
.AddItem "All"
.AddItem "Sand"
.AddItem "Earth"
.AddItem "Granite"
.AddItem "Rock"
.AddItem "Air"
.AddItem "Breeze"
.AddItem "Gust"
.AddItem "Wind"
.AddItem "Flame"
.AddItem "Burn"
.AddItem "Fire"
.AddItem "Inferno"
.AddItem "Aqua"
.AddItem "Water"
.AddItem "Wave"
.AddItem "Tidal"
.AddItem "Cold"
.AddItem "Snow"
.AddItem "Frost"
.AddItem "Ice"
.AddItem "Shock"
.AddItem "Zap"
.AddItem "Volt"
.AddItem "Lightning"
.AddItem "Shadow"
.AddItem "Dark"
.AddItem "Shade"
.AddItem "Unholy"
.AddItem "Bright"
.AddItem "Light"
.AddItem "Radiant"
.AddItem "Gleaming"
.AddItem "Poison"
.AddItem "Taint"
.AddItem "Bio"
.AddItem "Venom"
.AddItem "Alleviation"
.AddItem "Soothe"
.AddItem "Remedy"
.AddItem "Pure"
End With

With asuf
.AddItem "Thorns"
.AddItem "Spikes"
.AddItem "Razors"
.AddItem "Ages"
.AddItem "Ease"
.AddItem "Sapling"
.AddItem "Vine"
.AddItem "Oak"
.AddItem "Spirit"
.AddItem "Soul"
.AddItem "Wanderer"
.AddItem "Wayfarer"
.AddItem "Pacing"
.AddItem "Haste"
.AddItem "Speed"
.AddItem "Jackal"
.AddItem "Fox"
.AddItem "Wolf"
.AddItem "Tiger"
.AddItem "Newt"
.AddItem "Frog"
.AddItem "Lizard"
.AddItem "Snake"
.AddItem "Snail"
.AddItem "Tortoise"
.AddItem "Feather"
.AddItem "Wings"
End With

With wel
.AddItem "All"
.AddItem "Sand"
.AddItem "Earth"
.AddItem "Granite"
.AddItem "Rock"
.AddItem "Air"
.AddItem "Breeze"
.AddItem "Gust"
.AddItem "Wind"
.AddItem "Flame"
.AddItem "Burn"
.AddItem "Fire"
.AddItem "Inferno"
.AddItem "Aqua"
.AddItem "Water"
.AddItem "Wave"
.AddItem "Tidal"
.AddItem "Cold"
.AddItem "Snow"
.AddItem "Frost"
.AddItem "Ice"
.AddItem "Shock"
.AddItem "Zap"
.AddItem "Volt"
.AddItem "Lightning"
.AddItem "Shadow"
.AddItem "Dark"
.AddItem "Shade"
.AddItem "Unholy"
.AddItem "Bright"
.AddItem "Light"
.AddItem "Radiant"
.AddItem "Gleaming"
.AddItem "Poison"
.AddItem "Taint"
.AddItem "Bio"
.AddItem "Venom"
.AddItem "Alleviation"
.AddItem "Soothe"
.AddItem "Remedy"
.AddItem "Pure"
End With

With wsuf
.AddItem "Blundering"
.AddItem "Leech"
.AddItem "Locust"
.AddItem "Bat"
.AddItem "Wraith"
.AddItem "Ages"
.AddItem "Bear"
.AddItem "Ease"
.AddItem "Magus"
.AddItem "Rabbit"
.AddItem "Cheetah"
End With











End Sub

Private Sub m1_Click()

If atype.ListIndex = -1 Then Exit Sub

m1.AddItem atype.Text
atype.RemoveItem atype.ListIndex

End Sub

Private Sub r1_Click()

If chose1.ListIndex = -1 Then Exit Sub

atype.AddItem chose1.Text
chose1.RemoveItem chose1.ListIndex


End Sub

Private Sub r2_Click()

If chose1.ListIndex = -1 Then Exit Sub

ael.AddItem chose1.Text
chose1.RemoveItem chose1.ListIndex


End Sub

Private Sub r3_Click()

If chose1.ListIndex = -1 Then Exit Sub

asuf.AddItem chose1.Text
chose1.RemoveItem chose1.ListIndex

End Sub

Private Sub r4_Click()

If chose2.ListIndex = -1 Then Exit Sub

wel.AddItem chose1.Text
chose2.RemoveItem chose2.ListIndex

End Sub

Private Sub r5_Click()

If chose2.ListIndex = -1 Then Exit Sub

wsuf.AddItem chose1.Text
chose2.RemoveItem chose2.ListIndex

End Sub

Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_MBUTTONDOWN = &H207
Public Const WM_MBUTTONUP = &H208

Public Sub mainproc()

End Sub

Can someone help me with what I need to do next?

Edit: In the GUI the top left list box is from an older screen shot before I decided to just list all the armor types regardless of armor class.

[SacredSpenny]

i dont understand. Is this for wow?