Hej sitter och försöker få till en smidig funktion för att administrera licensnummer.

Jag vill att en applikation skall ha unika licensnummer som skall skrivas in för att det skall bli en licensierad version, utan att lägga in en massa i olika nummer i programmet som kollas av.

Testar tex att 6 st tecken skall stämma överens med den inslagna strängen där man kanske bara lägger till fyra tecken så tar programmet det som godkändt nummer, kanske inte det säkraste men stoppar kanske peti & kleti.

Men får inte till det med vanlig vb kod som tex i SQL Like för att gämnföra textsträngen.

Kanske någon har en ide hur man skall lägga upp en sån funktion.


Mvh
Tobbe

Hej
Kan denna princip vara något ?

Option Explicit
Private Sub Command1_Click()
Dim licStr As String
licStr = "123456789"
If licStr Like "1234*" Then Label1.Caption = "Licens Ok"
End Sub

mvh
Sven

Tack går att använda

Hälsningar
Tobbe

Alternativ:

Option Explicit
Private Sub Command1_Click()
Dim licStr As String
licStr = "123456789"
If licStr Like "1#3##6##9" Then
Label1.Caption = "Licens Ok"
Else
Label1.Caption = "Filaktig licens"
End If
End Sub

Hej
>Label1.Caption = "Filaktig licens"

Vad menas med filaktig licens ? är det en fil som liknar licens ?
eller är den sur som i filmjölk ?

Sven ;-)

Bara jag som flummar mer än vanligt vid tangentbordet.

Igen
Det kan hända den bästa , det har hänt mig.

Sven