Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Ip

Автор: Wilmor 26.2.2006, 17:34

Кто нить знает как написать в Visual Basic прогу которая узнаёт IP? smile

Автор: Akina 26.2.2006, 17:46

Код


Set NetworkAdapter = GetObject("winmgmts:{impersonationLevel=impersonate}!Win32_NetworkAdapterConfiguration=1")
msgbox NetworkAdapter.IPAddress

Автор: Akina 26.2.2006, 18:06

Еслиэто покажется сложным, то

Код


Shell "ipconfig > ipconfig.txt",vbHide
open "ipconfig.txt" for input as #1
do while not eof(1)
   line input #1,a$
   if instr(a$,"IP-")>0 then msgbox trim(mid(a$,1+instr(a$,":")))
loop
close #1
kill "ipconfig.txt"

Автор: Wilmor 26.2.2006, 18:34

Не работает непонимает что такое a$ и не мижет найти "ipconfig.txt"

Автор: Akina 26.2.2006, 18:44

Правильно не работает - и не должно... подкорректируй код с учетом того что ipconfig - утилита командной строки.