How to fix this?
2013-05-21, 03:48 AM,
#1
So i'm trying to make a keygen since i've never tried the keygen niche out.

What i've done:

Custom button .dll format.

So whenever i add it to my Form it works perfectly and it acts as a button aswell.

But when i add this code:
Code:
Textbox1.Enabled = True
Dim Key As Integer
Key = (rnd() *5 )
Select Case Key
Case 1
Textbox1.text = "Serial Key Here!"
Case 2
Textbox1.text = "Serial Key Here!"
Case 3
Textbox1.text = "Serial Key Here!"
Case 4
Textbox1.text = "Serial Key Here!"
Case 5
Textbox1.text = "Serial Key Here!"
End Select
This happens:
[Image: QUeuk4n.png]

Any help?

-LinX

PM ME TO JOIN OUR TRADING GROUP FOR FREE!
[Image: CyjquRg.png]
Reply
2013-05-21, 04:19 AM,
#2
(2013-05-21, 03:48 AM)LinX Wrote: So i'm trying to make a keygen since i've never tried the keygen niche out.

What i've done:

Custom button .dll format.

So whenever i add it to my Form it works perfectly and it acts as a button aswell.

But when i add this code:
Code:
Textbox1.Enabled = True
Dim Key As Integer
Key = (rnd() *5 )
Select Case Key
Case 1
Textbox1.text = "Serial Key Here!"
Case 2
Textbox1.text = "Serial Key Here!"
Case 3
Textbox1.text = "Serial Key Here!"
Case 4
Textbox1.text = "Serial Key Here!"
Case 5
Textbox1.text = "Serial Key Here!"
End Select
This happens:
[Image: QUeuk4n.png]

Any help?

-LinX

I am not sure about vb.net as I do not code in it but shouldn't it be

Textbox1.text = key() + "-" + key() + "-" + key() + "-" + key() + "-" + key()

That would be for a 25 digit code like a microsoft code but you would need to include some random letters in your results.

And shouldn't it be...

Dim key as Integer = 5

I could be wrong, I haven't touched vb.net for fun in like 4 years.
Reply
2013-05-21, 04:21 AM,
#3
(2013-05-21, 04:19 AM)The Mentor Wrote:
(2013-05-21, 03:48 AM)LinX Wrote: So i'm trying to make a keygen since i've never tried the keygen niche out.

What i've done:

Custom button .dll format.

So whenever i add it to my Form it works perfectly and it acts as a button aswell.

But when i add this code:
Code:
Textbox1.Enabled = True
Dim Key As Integer
Key = (rnd() *5 )
Select Case Key
Case 1
Textbox1.text = "Serial Key Here!"
Case 2
Textbox1.text = "Serial Key Here!"
Case 3
Textbox1.text = "Serial Key Here!"
Case 4
Textbox1.text = "Serial Key Here!"
Case 5
Textbox1.text = "Serial Key Here!"
End Select
This happens:
[Image: QUeuk4n.png]

Any help?

-LinX

I am not sure about vb.net as I do not code in it but shouldn't it be

Textbox1.text = key() + "-" + key() + "-" + key() + "-" + key() + "-" + key()

That would be for a 25 digit code like a microsoft code but you would need to include some random letters in your results.

And shouldn't it be...

Dim key as Integer = 5

I could be wrong, I haven't touched vb.net for fun in like 4 years.

The code i used it a code every one uses.

-LinX

PM ME TO JOIN OUR TRADING GROUP FOR FREE!
[Image: CyjquRg.png]
Reply
2013-05-23, 10:48 PM,
#4
Maybe I can help you .Add me on skype : mutant.bull
Reply
2013-05-24, 01:14 AM,
#5
(2013-05-23, 10:48 PM)Mutantbull Wrote: Maybe I can help you .Add me on skype : mutant.bull

I got it working no worries :)
I was being stupid :)
Thanks anyway :)

-LinX

PM ME TO JOIN OUR TRADING GROUP FOR FREE!
[Image: CyjquRg.png]
Reply


Possibly Related Threads...
Thread Author Replies Views Last Post
  How To Fix The Flicker On Photoshop(Windows 7 and 8) Amped- 6 865 2014-01-29, 05:35 AM
Last Post: Amped-
  Computers Crashing And Freezing. Anyone know the fix? Xzyl 5 848 2013-07-04, 01:27 AM
Last Post: Xzyl





About Us | Contact Us | CPA Elites | Advertise | Stats | Staff Team

© 2013-2017 CPA Elites Ltd
Enhanced by MyBB and WallBB
Return to top