How to make a Key Generator in VB6

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
868 views
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Apr 18, 2009

Ok, Please read through the tutorial in the video, and then copy/paste the code below:

Private Sub Command1_Click()
Text1.Text = "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9) & "-" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & "" & Rand(1, 9) & "" & Rand(1, 9)
End Sub
Public Function Rand(ByVal Low As Long, _ ByVal High As Long) As Long
Rand = Int((High - Low + 1) * Rnd) + Low
End Function

Have fun, Any questions, post them in comments/profile or send them to "divinity_guy@hotmail.co.uk"

Thanks for using this tutorial!

Category:

Education

Tags:

License:

Standard YouTube License

Link to this comment:

Share to:
see all

All Comments (5)

Sign In or Sign Up now to post a comment!
  • sir what is function rand? where i will paste it?

  • Haha, what do you use it for then?

    Makes a good password :D.

  • yea it doesnt u need to fix the key code in ur info box

  • ha ha

  • This does not work

Loading...

Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more