copy protect your applications 1

[Pampers]

Hi Folks,
I created a little application for an optician. Is there a (simple) way to protect the app from being copied and installed somewhere else?? It may also be a 3-party ActiveX-control or something like that. Has anyone experience with this subject...

Pampers
There is only one way to change a diaper - fast

 

[dRahme]

Here's my poor man's method. Works quite well for me.

Bury a text file in large directory. When the db starts, look for the file. If it exists, start up. If not, quit.

Dim sFile As String

sFile = "C:\Windows\Q366666.Log"
If Dir(sFile) = "" Then
DoCmd.Quit acQuitSaveNone
End If

Hope that helps.

 

[Pampers]

Hi dRahme,
I think that is pretty good!! Tnx.

Pampers
There is only one way to change a diaper - fast

 

[subbywrx]

Hello, I made this open a msgbox saying ,"This is an
unregistered program." How can I have it open a form that
stays on the screen? All I want the form to say is
"Unregistered Version".

I tried docmd.runmacro (reg)

but I keep getting a compile error...

please help, thanks!

 

[Pampers]

Not sure what you are trying to do....

If you want to use a form that stays on top, you can use the property Modal (set it to yes). You can have the formed opened if you click on the ok of your msgbox or on the close event of the form. This code will then open your form that then stays on top

Docmd.Openform "MyForm"

Pampers
There is only one way to change a diaper - fast

 

[subbywrx]

What I'm trying to do is if it finds that registered file
set reg to 1 and if reg = 1 then regname="Registered" if not regname = "Unregistered"

then I want to take those values or strings, whatever, and
apply them to a single form that stays on the screen
that says "This program is "regname" ".

How could I do that??

 

[TheTomCat]

I have my app protected a number of different ways.

I distribute my application as an .mde file. I even password protect my code.

I have it expire on a date certain unless I chnage the date in a module. That way, if someone copies the app and places it on another computer, it will lock down when it reaches the date I have set.

I have the Shift Key disabled. You have to click on a command button on the switchboard and enter the correct password to ByPass the Shift Key.


I know this is quite a bit, but either one would work. The more protection the better.

I even distribute a DEMO that restricts the user to a certain number of entries.


Take Care.

Thomas Bailey
a/k/a TomCat

http://www.reportcop.com

 

[FastLearnerIThink]

subbywrx,

Do you want a nagging pop up? Or display "Unregistered" all the time?

For both, you could try something like this.

On Main Form:

Private Sub Form_Load()
    Me.txtHidden = 1
    Me.TimerInterval = 2000
End Sub

Private Sub Form_Timer()
    If Me.txtHidden = 1 Then
        If Reg = 1 Then
            Me.Form.Caption = Me.Form.Caption & " (Registered)"
        Else
            DoCmd.OpenForm ("frmPopUp"), acNormal, , , , acDialog
            Me.Form.Caption = Me.Form.Caption & " (Unregistered Version)"
        End If
    Me.txtHidden = 2
    End If
End Sub

On load I assign a value of 1 to a hidden text box, and change it to 2 after it executes the popup. This way it only pops-up once and not every 2 seconds.

Then on the Pop-Up Form

Private Sub Form_Load()
    Me.TimerInterval = 2000
End Sub

Private Sub Form_Timer()
    DoCmd.Close
End Sub

This will make the popup stay open for 2 seconds and then closes itself.


-- Fast Learner, I Think

Here's something to think about. How come you never see a headline like 'Psychic Wins Lottery!'? - Jay Leno