Key code, How do i add my project a keycode

[Coderrrr]

On some games and programs they have a key code. Well how can i make my program ask for a keycode? please help


thanks!

[squakMix]

Private Sub Form_Load()

Form1.Hide

KCODE = InputBox("Keycode: ", "Type Keycode here!", "Keycode here.")
If KCODE = "'place keycode # here." Then Form1.Show
If Form1.Visible = False Then MsgBox ("Sorry, Wrong Key!")

Unload Me
End Sub

[squakMix]

It doesnt always need to be hidden. You could have a different variable change instead, but i used the visibility change as an easier variable change.

[Coderrrr]

thanks is there also a way i can stop it from being copy?

[squakMix]

yea, one sec.

[squakMix]

I dont know how you could put this with your code for the Registration key, but i can show you how to detect if ctrl z is pressed.:

Private Sub Form_KeyDown(KeyCode As Integer, ctrl As Integer)
'which is keycode?
Debug.Print KeyCode
'now, when you press a key, you will see in immediate window the number....


    If ctrl Then
        
        If KeyCode = 90 Then
            MsgBox "<ctrl><z> was pressed"
        End If
    End If

End Sub

[Coderrrr]

thank i will figure it out

[Coderrrr]

how do i make it so u only have to type it in once??

[kebo]

before asking for the code, check a registry location...

dim GotCode as boolean
GotCode = GetSetting(App.Title, "Settings", "GotCode", False)

if it is false then ask for the code. If it is true then skip the process.
after the code has been entered correctly, write to the registry location

SaveSetting(App.Title, "Settings", "GotCode", True)

doing this will cause the code process to be skipped if the code has been entered correctly
kevin

[Coderrrr]

Private Sub Command1_Click()
Dim GotCode As Boolean
GotCode = GetSetting(App.Title, "Settings", "GotCode", False)
If Text1.Text = "546" Then GoTo la1 Else GoTo no:
la1:
If Text2.Text = "879" Then GoTo la2 Else GoTo no:
la2:
If Text3.Text = "417" Then GoTo la3 Else GoTo no:
la3:
If Text4.Text = "639" Then GoTo la4 Else GoTo no:
la4:
Form1.Show
Form3.Hide
GetSetting(App.Title, "Settings", "GotCode", True)
GoTo end1:
no:
MsgBox "Access Deny.", vbOKOnly, "Dumbas*"
end1:
End Sub

Private Sub Form_Load()
If GotCode = True Then
Form1.Show
Form3.Hide
End If
End Sub


wat wrong??

[Twodogs]

What's wrong is that you are trying to stuff a string into a boolean variable...and it won't work.

Create another variable (string) to hold the value returned from GetSetting(), then check whether that variable = ""

IE

Dim RetValue as string
RetValue = ""
RetValue = GetSetting(App.Title, "Settings", "GotCode", "")

If RetValue <> "" then
' put your code if the correct value is returned here
Else
' Put your code dealing with the no value returned here
End If

oh - and I think you'd be better off using a Select Case statement rather than a sh*tload of GoTo's

[Coderrrr]

lol im only 11 and now starting vb6 (i know baTch html & javaS)

[kebo]

CodeErr,

Once you have read the value of GotCode (which is a Boolean and will be set or not set depending on the registry value of True or False) you have to test it in an if stataement

if not GotCode then
     'put your key code stuff here
endif

in your code you read GotCode, but never check it
kevin

[Coderrrr]

tHaNks

i wish i had a forum like this when i was learning batch and stuff they took days to answer and most of the time they couldn't

[kebo]

I started coding when I was about 12, and back then they hadn't even discovered dirt yet.