|
| |
VB.NET - Ein- und Umsteiger| Re: Settings | |  | | Autor: Ines_garten | | Datum: 01.02.05 15:11 |
| das stimmt, aber ich habe den Code in ein simples Winform.NET Project gesteckt und es sieht so aus, als liesse es ich auch da verwenden.
Ich hab den Code hier gepostet, es gibt ein paar Zeilen die man anpassen muss, ist aber nicht der rede wert.
Ich kann den Code auch ausführen, click auf den Button und dann wird mir angezeigt , dass das Programm nicht registriert ist, was auch Ok ist. Mittlerweile komm ich ganz gut damit zurecht, Schlüssel erstellen , Zeitlimit klappt alles sehr gut damit.
Trotzdem, woher der Parameter "Settings" seine Werte bekommt, ist nich klar für mich.
'///////////////////////////////////////////////
'Code im Modul
Option Explicit On
Module Mod_Trial
Public bIsReg As Boolean
Private Sub Main()
Dim frm_Main As New frmMain
If GetSetting("MyApp", "Settings", "IsReg") = "" Then
bIsReg = False
Call Trial()
Else
bIsReg = True
frm_Main.Show()
End If
End Sub
Public Sub Trial()
Dim frm_Main As New frmMain
Dim frmReg As New frmRegister
Dim InstallDat As DateTime
If GetSetting("MyApp", "Settings", "Install") = "" Then
InstallDat = Date.Now
SaveSetting("MyApp", "Settings", "Install", InstallDat)
End If
If IsTrial() = False Then
MsgBox("Der Testzeitraum ist abgelaufen.", vbInformation Or vbOKOnly)
frmReg.Show()
Else
frm_Main.Show()
End If
End Sub
Private Function IsTrial() As Boolean
Dim Install As Date, EndTrial As Date
Install = GetSetting("MyApp", "Settings", "Install")
EndTrial = DateAdd("d", 30, Install)
If EndTrial > Now Then IsTrial = True
End Function
Public Function ProgCode() As String
Dim lProgCode As Long, i As Integer
For i = 1 To Len(Application.ProductName)
lProgCode = lProgCode + Asc(Mid$(Application.ProductName, i, 1))
Next
ProgCode = Hex(lProgCode)
End Function
Public Function UserCode(ByVal UserName As String) As String
Dim lNameCode As Long, i As Integer
For i = 1 To Len(UserName)
lNameCode = lNameCode + Asc(Mid$(UserName, i, 1))
Next i
UserCode = Hex(lNameCode)
End Function
End Module
'///////////////////////////////////////////////
'Coden im Formular
Public Class frmMain
Inherits System.Windows.Forms.Form
Private Sub Form_Unload(ByVal Cancel As Integer)
Dim frm_Main As New frmMain
Dim frmReg As New frmRegister
If bIsReg = False Then frmReg.Show()
frm_Main = Nothing
End Sub
Private Sub cmdCheckReg_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
If ProgCode & UserCode(txtUserName.Text) = txtRegKey.Text Then
bIsReg = True
SaveSetting("MyApp", "Settings", "IsReg", "yes")
MsgBox("Programm wurde registriert", vbInformation Or vbOKOnly)
Else
MsgBox("Programm wurde nicht registriert", vbExclamation Or vbOKOnly)
End If
Me.Close()
End Sub
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim InstallDat As DateTime
InstallDat = Date.Now
MsgBox("" & InstallDat)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Trial()
End Sub
End Class | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevPopUp 2.0 
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
Sie sind aktuell nicht angemeldet.
