Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

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

Settings	1.311	Ines_garten	31.01.05 22:25
Re: Settings	905	planetX	01.02.05 01:38
Re: Settings	1.121	Ines_garten	01.02.05 15:11
Re: Settings	1.045	DaveS	01.02.05 15:21
Re: Settings	1.025	Ines_garten	02.02.05 11:48
Re: Settings	819	DaveS	02.02.05 11:56

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen