21. november 2002 - 17:59Der er
11 kommentarer og 3 løsninger
"Registrere program"
Hej... Jeg vil gerne lave et program der kan "registreres" i første omgang uden penge... MEN.... 1) Når man trykker på BUY opretter programmet en *.txt-fil 2) Den loader txt-filen 3) Den skriver f.esk. licens inde i txt-filen 4) Når man åbner programmet skal den checke hvad der står i txt-filen 5) Hvis der står f.esk. licens i txt-filen, aktiverer den f.esk. en knap der ikke er med i "demo'en"...
Måske lyder det lidt indviklet men jeg håber i kan hjælpe :) Jeg har virkelig brug for det så jeg giver 200 point til den der kommer med svaret der virker...
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Dim LicensNummer As String Dim FilNummer as Integer Filnummer = FreeFile Open app.path & "\licens.txt" For Input As #Filnummer Line Input #Filnummer, LicensNummer 'Putter 1. linie i filen ind i LicensNummer Close #Filnummer if LicensNummer = "290834u092134" then cmdHemmeligKnap.visible = true end if Spørg videre, hvis det ikke er svar nok
Shhh, men du har allerede fået svar på det i 283454.
Dim linie as string
If Len(Dir(App.Path & "\hej_verden.txt")) > 0 Then Open app.path & "\hej_verden.txt" for Input as #1 Line Input #1, linie close #1 If linie = "hej med dig" Then Command1.enabled = True End if
Jeg opretter en fil med noget andet indhold men med det samme navn i app.path... Men.. Når jeg har "købt" licensen skriver den "Object Required"! Hvad skal jeg gøre ved det?
Jeg mener at hvis man blot tester på dir(sti & filnavn) > "" så får man fejl når filen ikke findes, men ved at søge på længden af dir fortsættes uden fejlmedd.
Ellers må man jo sætte en error-handling foran.
Sub form Load
On error goto fejl1 If Len(Dir(App.Path & "\hej_verden.txt")) > 0 Then Open app.path & "\hej_verden.txt" for Input as #1 Line Input #1, linie close #1 If linie = "hej med dig" Then Command1.enabled = True End if exit sub fejl1: x = MsgBox("Der er ikke en licens-fil",48,"Medd. fra licens-test.") exit sub resume next
1) Jeg logger ind i programmet 2) Jeg kommer ind i menu'en 3) Jeg trykker på knappen til FAQ... 4) Jeg kommer ind i formen men et par sekunder efter går den ind i menu'en igen! hvorfor?
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.
