Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
Господа, будьте снисходительны, не бросайтесь сразу штрафовать за, как вам кажется, глупые вопросы - beginners на то и beginners.
Хм... 05.07.06 09:06 Число просмотров: 1433
Автор: DamNet <Denis Amelin> Статус: Elderman Отредактировано 05.07.06 09:06 Количество правок: 1
|
Хм....
Мониторинг соединения скорее всего можно сделать обычным виндузовым алертером, а запускать его можно так:
'On Error Resume Next
*************************************************************************
function EstablishRASConnection()
dim ConnectSatus, k
EstablishRASConnection = 0
EstablishRASConnection = WshShell.Run("rasdial " &chr(34) & ConnectionName &chr(34) & " ЛОГИН ПАРОЛЬ", 0, TRUE)
end function
*************************************************************************
sub breakOffRASConnection()
Return = WshShell.Run("rasdial /disconnect ", 0, TRUE)
end sub
*************************************************************************
Set WshShell = WScript.CreateObject("WScript.Shell")
Set Arguments = WScript.Arguments
ConnectionName = "инет"
for each Arg in Arguments
Key = lcase(left(Arg,8))
select case Key
case "/connect"
ibn = EstablishRASConnection
case "/disconn"
Call breakOffRASConnection()
end select
next
|
|
|