[amel27]

Kenwood3D

Необходимо программно отркрыть окно свойства одного из сетевого подключения »

Код:

HotKeySet("{Esc}", "OnExit")
_OpenConnProperties('Подключение по локальной сети')

While 1
    Sleep(1000)
Wend

Func _OpenConnProperties($sConnName)
    Local $oShellApp = ObjCreate('shell.application')
    Local $oCP = $oShellApp.Namespace (3), $item
    For $item In $oCP.items
        If $item.name = 'Сетевые подключения' Then
            For $item In $item.getfolder.items
                If $item.name = $sConnName Then $item.InvokeVerb('Сво&йства')
            Next
        EndIf
    Next
EndFunc

Func OnExit()
    Exit
EndFunc