[kaster]

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

[LikeSD]

Есть пока такое. Тоже где-то на форуме отыскал...Хотелось бы в этот код вставить решение задач, но не знаю с чего начать((

читать дальше »

#include <Timers.au3>

Global $iShow_While_Progress = 1
Global $iProgress = 0
Global $hTimer = 0

_ProgressStart_Proc()

$iInetIsConnected = InetGetSize("http://ya.ru/logo.png")

_ProgressStop_Proc()

If $iInetIsConnected > 0 Then
MsgBox(64, "Internet Connection", "Интернет РАБОТАЕТ!")
Exit
EndIf

$iAsk = MsgBox(20, "Internet Connection", _
"К сожалению, сейчас Интернет на вашем компьютере НЕ РАБОТАЕТ. Сообщить, если Интернет будет работать?")

If $iAsk = 6 Then
If $iShow_While_Progress Then _ProgressStart_Proc()

While 1
Sleep(5000)

If InetGetSize("http://ya.ru/logo.png") > 0 Then
_ProgressStop_Proc()

Beep(1000, 100)
MsgBox(64, "Internet Connection", "Интернет РАБОТАЕТ | Время подключения: " & @HOUR & ":" & @MIN & ":" & @SEC)

Exit
EndIf
WEnd
EndIf

Func _ProgressStart_Proc()
ProgressOn("Internet Connection", "Проверка подключения", "Пожалуйста, подождите...", -1, -1, 16)
$hTimer = _Timer_SetTimer(0, 100, "_ProgressSet_Proc")
EndFunc

Func _ProgressStop_Proc()
If $hTimer <> 0 Then _Timer_KillTimer(0, $hTimer)

$hTimer = 0

ProgressSet(100)
Sleep(1000)
ProgressOff()
EndFunc

Func _ProgressSet_Proc($hWnd, $nMsg, $iIDTimer, $dwTime)
$iProgress += 1
If $iProgress >= 100 Then $iProgress = 0

ProgressSet($iProgress)
EndFunc

[266903582]

LikeSD, вставляй нужный адрес/адреса и пользуйся:

Код:

if Ping("127.0.0.1")=0 Or Ping("127.0.0.1")=0 Or Ping("127.0.0.1")=0 Or Ping("127.0.0.1")=0 Then
	MsgBox(16,"","Возможно вы не получили IP адрес от провайдера, обратитесь в ТП")
Else
	MsgBox(0,"","Сеть работает. Если у вас проблемы с подключением,"&@CR&"проверте правильность ввода логина/пароля, наличие средств "&@CR&"на вашем лицевом счету")
EndIf

В справке есть вся необходимая информация.

[LikeSD]

О! Спасибо

[zonderz]

LikeSD,

скачай мою прогу - для работы пригодится

[Mancoffee]

А как дождаться соединения?
Например как ProccessWait

То есть, как только Ping пошёл, так сразу подключиться к интернету?