| Вопрос: Подключение к Интернету | Добавлено: 04.02.04 17:39 |
Автор вопроса:  SharkMan | Web-сайт: www.neshwood.by.ru | ICQ: 5029637 |
|
Люди!!! Подскажите плиз как проверить установлено ли подключение к интернету в данный момент (для обновления программы с сайта). Заранее благодарен!!! |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #1 | Добавлено: 04.02.04 20:04 |
|
Проверка соединения + проверка версии в интернете Буфер 10, т.к. я сравнивал дату выпуска проги, формат dd.mm.yyyy Ну думаю тут легко разобраться. <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<->>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 'Проверка, есть ли соединение Private Sub uP() If InternetCheckConnection("http://www.rambler.ru/", FLAG_ICC_FORCE_CONNECTION, 0&) = 0 Then Exit Sub Else UpDate End If End Sub 'Проверка, какая версия в интернете Public Sub UpDate() Dim a, b, c, Y 'Form2.Timer1.Enabled = False Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long 'Create a buffer for the file we're going to download sBuffer = Space(10) 'Create an internet connection hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0) 'Open the url hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&) 'Read the first 10 bytes of the file InternetReadFile hFile, sBuffer, 10, Ret 'clean up InternetCloseHandle hFile InternetCloseHandle hOpen 'Show our file a = sBuffer 'вы можете предусмотреть (самостоятельно) с чем сравнивать новую дату Open App.Path + "\Version.txt" For Input As #1 Line Input #1, c Close #1 If a <> c Then Y = "На сервере появилась новая версия программы. Хотите посмотреть?" b = MsgBox(Y, vbYesNo, "Обновление программы") 'запуск броузера к странице загрузки программы If b = 6 Then ShellExecute Form2.hwnd, vbNullString, "http://rascalspb.narod.ru/", vbNullString, "C:\", SW_SHOWNORMAL Else Exit Sub End If End Sub |
||
с предыдущей (c)|
Номер ответа: 2 Автор ответа: SharkMan ICQ: 5029637 Вопросов: 1 Ответов: 1 |
Web-сайт: Профиль | | #2 | Добавлено: 04.02.04 21:08 |
|
Спасибо! |
||
|
Номер ответа: 3 Автор ответа: Павел Администратор ICQ: 326066673 Вопросов: 368 Ответов: 5968 |
Web-сайт: Профиль | | #3 | Добавлено: 05.02.04 11:15 |
|
А есл rambler вдруг упадёт? Лучше поищите на сайте пример "IsConnect", там даётся более приемлимый способ. |
||
|
Номер ответа: 4 Автор ответа:  sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #4 | Добавлено: 05.02.04 12:55 |
|
Могу подсказать 3 различных способа для все OS (WIN) и еще одну для Win9x/Me |
||
Страница: 1 |