sa
|
 Posted: Thu Jun 13, 2013 23:24 Post subject: |
 |
|
Когда-то применял функцию определения наличия выделения (SelectYes), посылая нажатия в диалог настройки списка исключений:
| Code: | Dim FSO, TCS, S
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
S = TCS.INIRead (TCS.MainINI, "Configuration", "IgnoreListFile", 0)
If SelectYes Then
TCS.INIWrite TCS.MainINI, "Configuration", "IgnoreListFile", S
MsgBox "Выделение есть!", vbSystemModal
Else
MsgBox "Нет выделения!", vbSystemModal
End If
Set FSO = Nothing
Set TCS = Nothing
Wscript.Quit
Function SelectYes()
TCS.SendCommand 480 'cm_IgnoreConfig
TCS.Pause = 0
TCS.SendKeystroke "+{TAB 6}{ENTER}010{ENTER}{LEFT}{TAB 4}{ENTER}"
TCS.Pause = 50
If FSO.GetBaseName(TCS.INIRead (TCS.MainINI, "Configuration", "IgnoreListFile", 0)) = "010" Then
SelectYes = 1
Else
SelectYes = 0
End If
End Function
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
