29. november 2000 - 17:59Der er
37 kommentarer og 1 løsning
Registrering ?
Hej
Jeg er løbet ind i et problem. Jeg skal bruge et registreingsscript. Altså et hvor man skal have en \"key\" man skal skrive et sted og så virker det. Men det skal kunne lidt mere en bare det normale. Her er havd den skal: 1: Key skal være delt op i to og del 1 skal være på 10 cifre og den anden på 5 (1324567890-12345). 2: Den ene del er registreringskoden, den anden del skal tjekke om programmet skal køre i STANDARD eller ENTERPRICE. Fx er del et ikke højre end 1234566666 så er den \"ulovlig\", er den højre end 9876544444 så er den også \"ulovlig\" dvs. den skal være mellem 1234566666 og 9876544444. Del 2 kan være mellem 12333 og 24354 så er den STANDARD og er den mellem 40023 og 65422 så er den ENTERPRICE.
Hvis du ikke helt forstå noget a\'ed så skriv lige en kommentar.
Function CheckKey(Key) Part1=Left(Key,10) Part2=Right(Key,5) if Part1<1234566666 or part1 >9876544444 then Checkkey=\"Wrong\" End if If Part2 > 12333 and part2 < 24354 then Checkkey=\"Standard\" End if IF part2 > 40023 and part2 < 65422 then checkkey=\"Enterprice\" End if If Checkkey=\"\" Then checkkey=\"Wrong\" end function
If lngLegal < 1234566666 Or lngLegal > 9876544444 Then MsgBox \"Illegal keycode provided!\": Unload Me If lngType >= 12333 And lngType <= 24354 Then MsgBox \"Standard\" If lngType >= 40023 And lngType <= 65422 Then MsgBox \"Enterprise\"
Function CheckKey(Key) Part1=Left(strKey,10) Part2=Right(strKey,5) if Part1<1234566666 or part1 >9876544444 then Checkkey=\"Wrong\" End if If Part2 > 12333 and part2 < 24354 then Checkkey=\"Standard\" End if IF part2 > 40023 and part2 < 65422 then checkkey=\"Enterprice\" End if If Checkkey=\"\" Then checkkey=\"Wrong\" end function
well...jeg sidder og spiller gratis på en netcafe og havde lige lydt til en pause i counterstrike..og besluttede mig for at gå ind og nakke points fra dig :)
Select case checkkey(\"1234566666-24354\") Case \"Wrong\" Msgbox \"Forkert key\" End case \"Enterprice\" Enterpriceform.show Case \"Standard\" Standardform.show end select
Select case checkkey(\"1234566666-24354\") Case \"Wrong\" \'HER SKAL DER STÅ HVAD DER SKAL SKE HVIS KODEN ER FORKERT! End case \"Enterprice\" \'HER SKAL DER STÅ HVAD DER SKAL SKE HVIS DET ER EN STANDARD KODE Case \"Standard\" \'HER SKAL DER STÅ HVAD DER SKAL SKE HVIS DET ER EN ENTERPRICE KODEN! end select
If lngType >= 12333 And lngType <= 24354 Then CheckKey = 1 If lngType >= 40023 And lngType <= 65422 Then CheckKey = 2 If lngLegal < 1234566666 Or lngLegal > 9876544444 Then CheckKey = 0 End Sub
Select Case CheckKey(\"1234566666-24354\") Case 0: MsgBox \"Invalid keycode provided!\" Case 1: MsgBox \"Standard Edition\" Case 2: MsgBox \"Enterprise Edition\" End Select
Kunne det være nemmere ? Det er lidt mere overskueligt end Blazers...
If lngType >= 12333 And lngType <= 24354 Then CheckKey = 1 If lngType >= 40023 And lngType <= 65422 Then CheckKey = 2 If lngLegal < 1234566666 Or lngLegal > 9876544444 Then CheckKey = 0 End Function
Select Case CheckKey(\"1234566666-24354\") Case 0: MsgBox \"Invalid keycode provided!\" Case 1: MsgBox \"Standard Edition\" Case 2: MsgBox \"Enterprise Edition\" End Select
Function\'en skal bare smides ind i f.eks. et modul eller en form hvor du har lyst.
Select Case\'en udfører checket på en key.
Min funktion returnere en af tre værdier. 0 = Keycode\'n er ugyldig 1 = Gyldig og en standard version\'s key 2 = Gyldig og en enterprise version\'s key.
Nrå jeg laver den om til fx 9854562564-24354 så for jeg denne fejl: \"Runtime error \"6\": Overflow.\" Og den markere (med gult): \"lngLegal = Val(Left$(strKey, 10))\"
Tdaugaard >> Har du noget imod jeg sender dig noget ? Fordi nu har jeg leget med det og prøver at smide det over i et andet projekt, men det gider ikke helt som jeg vil.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
