Hey,
Ich wollte ja grad Password Protect schreiben, funtzt soweit alles gut nur das Programm hatt beim endpfangen immernoch was zu mekern. Hier ist der Code:
Dim passwort
Dim para
Dim vpass
Dim para1
para = passwort.ToString.Length
para += 3
para1 = para
para1 -= 1
Dim befehl As String, parameter As String
befehl = Mid(message, 1, 2)
vpass = Mid(message, 3, para1)
parameter = Mid(message, para)
If passwort = vpass Then
Select Case befehl
Case "00"
Case "01"
Case "02"
Case Else
End Select
Else : End If
wo liegt der verdammte fehler?
Ich wollte ja grad Password Protect schreiben, funtzt soweit alles gut nur das Programm hatt beim endpfangen immernoch was zu mekern. Hier ist der Code:
Dim passwort
Dim para
Dim vpass
Dim para1
para = passwort.ToString.Length
para += 3
para1 = para
para1 -= 1
Dim befehl As String, parameter As String
befehl = Mid(message, 1, 2)
vpass = Mid(message, 3, para1)
parameter = Mid(message, para)
If passwort = vpass Then
Select Case befehl
Case "00"
Case "01"
Case "02"
Case Else
End Select
Else : End If
wo liegt der verdammte fehler?