JOIN DEVPPL

It looks like you are new here. If you want to get involved, click on Join below!



Need help eith my Key Gen (need help fast)


V

keyboard_arrow_up
0
keyboard_arrow_down


First Post Mark as Spam viktorsvektor
Posts: 1 - Registered: 2013-07-22 16:25:50

Hey

I have made the Key Generator but i need help to but in some "-" in the key's i must look like this xxxx-xxxxx-xxxxx-xxxxx-xxxxx

This is the code i use to meke the random key's if you need to know

Public Class Form1
Public Function Generatecode() As Object
Dim intRnd As Object
Dim strName As Object
Dim intNameLength As Object
Dim intLenght As Object
Dim strInputString As Object
Dim inStep As Object

strInputString = "ABCDEFEFGH0123456789"

intLenght = Len(strInputString)

intNameLength = 24

Randomize()

strName = ""

For inStep = 1 To intNameLength

intRnd = Int((intLenght * Rnd()) + 1)

strName = strName & Mid(strInputString, intRnd, 1)

Next

Generatecode = strName

End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Generatecode()
End Sub

And i'm using VB 2012

And if this is posted on the wrong place then i'm sorry






JOIN DEVPPL

It looks like you are new here. If you want to get involved, click on Join below!




MENU
Advertising