• Важно
    Имате проблем со најава или регистрација на it.mk?
    Побарајте го решението на вашиот проблем ТУКА!

IP Address во VB6

HijackHacker

Gaining Experience
21 февруари 2008
5.108
296
www.gorjan.info
Ај да ве видам: Како да најдам IP адреса на компјутерот преку VB6. НЕ ЛОКАЛНА, туки WAN адреса?
 

HijackHacker

Gaining Experience
21 февруари 2008
5.108
296
www.gorjan.info
Haha, само што најдов:

Код:
Private Sub Form_Load()
Dim strHtml As String

strHtml = Inet1.OpenURL("http://simple.showmyip.com/")
Text1.Text = strHtml:P

End Sub

Се разбира треба да се вметне Inet контрола (Microsoft Internet Transfer Control) во формата.
 

Wizardion

Intern
2 март 2008
111
1
Imas lokalna IP adresa za ruterot i taa moze da procitas preku ovoj code

Dim strHostName As String
Dim strIPAddress As String
strHostName = System.Net.Dns.GetHostName()
strIPAddress =
System.Net.Dns.Resolve(strHostName).AddressList(0).ToString()
MessageBox.Show("Host Name: " & strHostName & "; IP Address: " &
strIPAddress)

A gledam deka ti sakas da koristis nesto kako www.whatismyip.com, e toa e nekako potesko i ne sum sretnal kod za ovoj servis :ermm:

Ako nekoj znae neka postira...
 

Нови мислења

Последни Теми

Статистика

Теми
43.458
Мислења
901.516
Членови
32.169
Огласи
540
Најнов член
MartinLee33
На врв Дно