Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Волшебник
Подскажите,
как можно закрыть окно Сетевые подключения программно.

Пробывал этой функцией, ничего не помогло.

Function regncpa55()
Dim dblReturn As Double
'1 dblReturn = Shell("taskkill /pid 3360")
'2 dblReturn = Shell("TASKKILL /F /IM explorer.exe /T")
'3 dblReturn = Shell("taskkill /pid 1024")
End Function

1 у explorer.exe pid 3360 - выскаквает окно выключения и перезагрузки
2 Когда попробовал это - TASKKILL /F /IM explorer.exe /T,
все процессы explorera убились. После перезагрузки Pid стал 1024, почему - не знаю.
разве Pid не постоянная величина?
3 Пробовал и так. Результат первый.

Может кто нибудь знает как это Сетевые подключения закрыть?


Ваше имя:

Пароль:

Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.