First VB6 Program (Slayer Counter)

[Billyy]

Alright so Nullware helped me to create my first ever VB program. It is a very simple program, as it was my first.

Scenario:

You get a slayer task, you need to kill 37 hill giants. Pull out this program, and after each hill giant you kill you hit the plus sign. This will show you quickly your progress on your task. And once you hit 37, you know you've completed your task and you can return to your Slayer Master.

This also has the function of clicking the 'RuneScape' button, and it pulls up an Internet browser, and loads RuneScape's homepage.

There is also a 'Clear' button to clear your current number, and a '-' button, in case you need to subtract one.

Screenshot:

And here's the code:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1
Private Sub ClearButton_Click()
TextNumber.Text = 0
End Sub

Private Sub MinusBox_Click()
If TextNumber.Text > 0 Then
TextNumber.Text = TextNumber.Text - 1
End If
End Sub

Private Sub PlusBox_Click()
TextNumber.Text = TextNumber.Text + 1
End Sub

Private Sub RuneScapeButton_Click()
Dim iret As Long
iret = ShellExecute(Me.hwnd, _
vbNullString, _
"http://www.runescape.com", _
vbNullString, _
"c:\", _
SW_SHOWNORMAL)
End Sub

Thanks again Nullware, you really helped me. Hopefully I'll get better at VB and learn to make all different kinds of programs.

Oh, and if you want the download, tell me, I'll upload it and post the link.

 

[Eric]

Nice Gl with future scripts.

 

[Daily]

Cool beans.

 

[Nullware]

No flaming yet, getting lucky.

 

[hockeykid09]

Very basic, but its a good start.

 

[Billyy]

Very basic, but its a good start.

Working on a Combat Calculator now, including Summoning.

 

[Covey]

You should work on your display

Other then that, good start.

 

[Darthatron]

It is pretty basic, but a good start. Stick to it and you will pick it up pretty quickly. Good luck.

 

[Rdogg999]

dl link pl0x?

 

[jdsfighter]

Very basic, but we all have to start from somewhere. Keep it up and you will be going good one day. Also I see that you are using APIs, this is always a good habit to get into. Keep it up.

 

[The Volume]

Very Nice Program Not that I'll ever use it.Keep up the good work!