Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.54/13: Рейтинг темы: голосов - 13, средняя оценка - 4.54
19 / 18 / 5
Регистрация: 30.05.2010
Сообщений: 227
1

Определить IP-адрес компьютера

06.05.2016, 19:18. Просмотров 2332. Ответов 5
Метки нет (Все метки)


Ребят, привет

В общем делал до этого программу на Visal Basic 6 (и вы мне в этом помогали). Но теперь я перешел на новый Visual Basic 2012 (Microsoft Visual Studio 2012)

Сразу появились проблемы с переносом кода. Некоторые функции не работают.

Решение проблемы с выводом своего IP, которую я решал 3 дня, оказалась напрасной. В новой версии она не работает. Ругается.

vb.net
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Function OpenURL(ByVal sUrl As String) As String
    Dim hOpen As Long
    Dim hOpenUrl As Long
    Dim bDoLoop As Boolean
    Dim bRet As Boolean
    Dim sReadBuffer As String * 2048
    Dim lNumberOfBytesRead As Long
    Dim sBuffer As String
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    hOpenUrl = InternetOpenUrl(hOpen, sUrl, vbNullString, 0, INTERNET_FLAG_RELOAD, 0)
    bDoLoop = True
    While bDoLoop
    sReadBuffer = vbNullString
    bRet = InternetReadFile(hOpenUrl, sReadBuffer, Len(sReadBuffer), lNumberOfBytesRead)
    sBuffer = sBuffer & Left$(sReadBuffer, lNumberOfBytesRead)
    If Not CBool(lNumberOfBytesRead) Then bDoLoop = False
    Wend
    If hOpenUrl <> 0 Then InternetCloseHandle (hOpenUrl)
    If hOpen <> 0 Then InternetCloseHandle (hOpen)
    OpenURL = sBuffer
End Function

Эта функция не работает.

например вот на эти сроки переменные:
1) Dim sReadBuffer As String * 2048 (пишет Требуется завершение оператора)
2) InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG
InternetOpenUrl
INTERNET_FLAG_RELOAD
sReadBuffer
InternetReadFile
Left$(sReadBuffer
и т.д.

Возможно эти все переменные и функции уже имеют другие имена в новой версии?
Может есть у кого решение для этой версии как узнать свой IP?
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.05.2016, 19:18
Ответы с готовыми решениями:

Записать название ОС и IP-адрес компьютера в файл
Как сделать чтобы в текстовый файл записало название системы и ип пдрес

По имени компьютера в сети узнать его ip адрес
Есть в Listbox список компьютеров в сети. возможно ли при выборе компьютера(записи) в listbox...

Как узнать IP-адрес компьютера в локальной сети
Как программно узнать IP? То есть на форме есть кнопка и текстбокс, как сделать чтобы при нажатии...

Получить MAC адрес компьютера в локальной сети по его имени
Срочно требуется помощь в данном вопросе, ибо машин много и подходить к каждой с листочком лень))

5
11191 / 3564 / 632
Регистрация: 13.02.2009
Сообщений: 10,656
06.05.2016, 19:36 2
В новой версии она не работает.
Боюсь напугать, но будь готовым к тому, что большинство функций работать не будут!
NET это другой ЯП!
0
19 / 18 / 5
Регистрация: 30.05.2010
Сообщений: 227
06.05.2016, 19:38  [ТС] 3
Блин, вот только узнал об этом. Прочитал что это уже VB .NET
Ладно, буду разбираться
0
Модератор
Эксперт .NET
3248 / 2909 / 448
Регистрация: 27.01.2014
Сообщений: 5,396
06.05.2016, 20:20 4
XOTAB, пользуйтесь поиском по форуму:
Как узнать IP-адрес компьютера в локальной сети
1
19 / 18 / 5
Регистрация: 30.05.2010
Сообщений: 227
06.05.2016, 21:16  [ТС] 5
Мне не локальный IP нужен, а внешний
Я уже разобрался с этим. Спасибо.
0
Почетный модератор
21281 / 9015 / 1081
Регистрация: 11.04.2010
Сообщений: 11,015
06.05.2016, 22:16 6
Цитата Сообщение от XOTAB Посмотреть сообщение
Я уже разобрался с этим
Расскажите и другим, вдруг кто-то будет искать подобное.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.05.2016, 22:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Определить IP-адрес компьютера
Пишу программу для обмена сообщениями по локальной сети. Есть ли функция или другой способ для...

На одном из компьютеров адрес dhcp-сервера сменился на адрес компьютера другого сотрудника
Здравствуйте! Столкнулся с такой проблемой: на одном из компьютеров отвалился интернет, перво...

Вывести IP-адрес компьютера, имя компьютера, имя пользователя и дату и время включения/выключения компьютера
необходимо написать скрипт который, будет лежать в автозагрузке на локальных машинах и выводить в...

Вычислить адрес верхушки стека, адрес следующей команды, адрес переменной, адрес которой содержится в BX
Помогите решить следующие задачи: 1.Вычислить адрес верхушки стэка. 2.Вычислить адрес следующей...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.