[ ex-baccko @ 31.05.2006. 13:59 ] @
| KAKO DA U OVAJ KOD UTRPAM DA MI OTVORI GLAVNU FORMU PROGRAMA, TEK KADA OVO REGISTRUJE I DA SE OVA FORMA NAKON REGISTRACIJE VIŠE NE POJAVLJUJE VEĆ GLAVNA FORMA PRI STARTANJU APLIKACIJE. OVA REGISTRACIJA FUNKCIONIŠE... ILI MOŽDA IMATE GOTOV PRIMJER REGISTRACIJE APLIKACIJE U ACCESS-U SA KODOM MAŠINE DA SE GENERIŠE. POZDRAV "BACKO"... Option Compare Database Option Explicit Private Sub cmdCancel_Click() DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Open(Cancel As Integer) Select Case Me.OpenArgs Case "Calculate" Me.Caption = "Calculate registration code" Me.cmdCancel.Caption = "Exit" Me.OK.Caption = "Calculate" Case Else If checkDAO() = False Then MsgBox "Pogrešna Licenca molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (www.BackoSoft.com)...", vbCritical Cancel = True End If Me.Caption = "Registration" Me!PCCode = Int(UGetVolumeInfo() / 3) If CheckReg = True Then Me!RegName = getRegName() Me!RegCode = getRegCode() Me!RegName.Enabled = False Me!RegCode.Enabled = False Me!PCCode.Enabled = False Me!cmdCancel.Visible = False Exit Sub Else End If End Select Me!PCCode.Locked = Not (Nz(Me.OpenArgs) = "Calculate") Me!RegCode.Locked = (Nz(Me.OpenArgs) = "Calculate") End Sub Private Sub OK_Click() On Error Resume Next Dim namestr As String, i, addition As Long, regstr, setkey, j, s, k addition = 0 namestr = "SGS" & Me!RegName For i = 1 To Len(namestr) addition = addition + Asc(mID(namestr, i, 1)) Next i Select Case Me.OpenArgs Case "Calculate" k = Nz((Me!PCCode)) Case Else k = Int(UGetVolumeInfo / 3) End Select s = CStr(addition) j = Int(Len(CStr(k)) / Len(CStr(s))) + 1 For i = 1 To j s = s & CStr(addition) Next i s = Left(s, Len(CStr(k))) addition = CLng(s) Select Case Me.OpenArgs Case "Calculate" If IsNull(Me!PCCode) Then Me!RegCode = Null: Exit Sub Me!RegCode = Nz((Me!PCCode)) Xor addition Case Else If Me!RegCode = (Int(UGetVolumeInfo / 3) Xor addition) Then If CheckReg = True Then DoCmd.Close acForm, Me.Name: Exit Sub regstr = CStr(Me!RegCode) setkey = SetAppProp("sgRegCode", dbText, regstr) setkey = SetAppProp("sgRegName", dbText, Me!RegName) MsgBox "Registracija programa je uspješno završena.Hvala što koristite softvere BackoSoft.", vbInformation DoCmd.Close acForm, Me.Name Else If getRegName() > "" Then setkey = SetAppProp("sgRegCode", dbText, "0") setkey = SetAppProp("sgRegName", dbText, "Neregistrovana Verzija Programa") End If MsgBox "Pogrešna Licenca, molimo pokušajte ponovno" & vbCrLf & "BackoSoft Živiice Copyright 2006 (www.BackoSoft.com).", vbCritical, "Greška pri licenciranju programa..." End If End Select End Sub |