[vb] Probleem met IP controle

[Verwijderd]

Hallo,

Ik heb een inlog script gemaakt maar wil ook dat de gebruiker zijn IP moet invullen. Ik doe dit nu zo:

Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim strURL As String, strIP As String
strURL = Inet1.OpenURL("http://www.whatismyip.com/")
a = InStr(1, strURL, "<TITLE>Your ip is ")
b = InStr(1, strURL, " WhatIsMyIP.com</TITLE>")
strIP = Mid(strURL, a + 18, b - (a + 18))

If TxtUsername <> "gebruiker" Or TxtWachtwoord <> "wachtwoord" Or Combo1 <> "thuis" Or TxtIp <> "" & strIP & vbCrLf & "" Then
MsgBox "U heeft niet de juiste rechten om dit programma in te komen", vbCritical, "Toegang geweigerd"
Else
Form2.Show
Unload Me
End If

End Sub


Weet iemand waarom hij het IP niet pakt want doe ik:

Msgbox "" & strIP & vbCrLf & ""

Dan geeft die wel het IP weer.

Groet,

Jonathan

[gorgi_19]

wat doet die vbcrlf er achter?

[Verwijderd]

ow sorry, dit was later nodig in de code. Kzal het wel ff weghalen, weet iemand het trouwens?

[Verwijderd]

Verwijderd schreef op 14 maart 2004 @ 18:58:
Hallo,

Ik heb een inlog script gemaakt maar wil ook dat de gebruiker zijn IP moet invullen. Ik doe dit nu zo:

Private Sub Command1_Click()
Dim a As Integer, b As Integer
Dim strURL As String, strIP As String
strURL = Inet1.OpenURL("http://www.whatismyip.com/")
a = InStr(1, strURL, "")
strIP = Mid(strURL, a + 18, b - (a + 18))

If TxtUsername <> "gebruiker" Or TxtWachtwoord <> "wachtwoord" Or Combo1 <> "thuis" Or TxtIp <> ""& strIP &"" Then
MsgBox "U heeft niet de juiste rechten om dit programma in te komen", vbCritical, "Toegang geweigerd"
Else
Form2.Show
Unload Me
End If

End Sub


Weet iemand waarom hij het IP niet pakt want doe ik:

Msgbox "" & strIP & vbCrLf & ""

Dan geeft die wel het IP weer.

Groet,

Jonathan

[gorgi_19]

Verwijderd schreef op 14 maart 2004 @ 19:04:
ow sorry, dit was later nodig in de code. Kzal het wel ff weghalen, weet iemand het trouwens?

Waarom denk je dat ik het noem? Ik neem aan dat je geen enter hebt geramd in TxtIP

[Verwijderd]

Ow kheb de oplossign al.
Dat ene woord moest weg.
Thx:)

[ Voor 21% gewijzigd door Verwijderd op 14-03-2004 19:06 ]