Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: IP
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003
IP

Jak zobaczyć (z poziomu vb oczywiście), czy mam zmienne ip?


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

27-07-2004 19:31
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
bisiek




Typ: neutral
Postów: 487
Zarejestrowany: Jul 2003

Użyj jakiejśc strony która podaje twoje IP zewnętrzne, zapamiętuj je i porównuj z zapisanym. IP mżesz znaleść tu:
http://members.lycos.co.uk/bisiekmob/myip.php3

Utwórz na oknie przycisk, dodaj kontrokę DHTML Edit i wpisz:

Me.DHTMLEdit1.LoadURL "http://members.lycos.co.uk/bisiekmob/myip.php3";
Do While Me.DHTMLEdit1.Busy
DoEvents
Loop
Stop
'MsgBox Me.DHTMLEdit1.DocumentHTML
a = Split(Me.DHTMLEdit1.DocumentHTML, vbLf)
b = Split(a(0) & " ", " "
'MsgBox b(3)
If GetSetting("Bisiek", "IPTest", "", b(3)) = b(3) Then
MsgBox "Twój zewnętrzny IP to " & b(3) & " - nie zmienił się od ostatniego sprawdzenia."
Else
MsgBox "Twój zewnętrzny IP to " & b(3) & " - przy poprzednim sprawdzaniu miałeś " & GetSetting("Bisiek", "IPTest", "", b(3))
SaveSetting "Bisiek", "IPTest", "", b(3)
End If


_____________________________________________
www.mob.abc.pl - moja strona o VB

28-07-2004 11:37
Pokaż profil bisiek  Wyślij email do bisiek   Odwiedź stronę bisiek       3380672
mikmas
From Łódź Stadt




Typ: neutral
Postów: 772
Zarejestrowany: Apr 2003

Dzięki! Tylko nie kasuj tej stronki, bo mi program udupisz


_____________________________________________
4C;65;70;69;65;6A;20;62;79;9C;20;73;69;EA;20;
62;61;72;64;7A;69;65;6A;20;73;6B;6F;6E;63;65;
6E;74;72;6F;77;61;B3;20;6E;61;20;6F;64;70;6F;
77;69;65;64;7A;69;2C;20;61;20;6E;69;65;20;6E;
61;20;72;6F;7A;73;7A;79;66;72;6F;77;79;77;61;
6E;69;75;20;3A;50

28-07-2004 12:00
Pokaż profil mikmas  Wyślij email do mikmas   Odwiedź stronę mikmas       3632553
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1