Andrey_A
|
Posted: Fri May 07, 2010 17:23 Post subject: |
|
|
Ура! Получилось! Случайно вспомнил про скрипт от Volniy который "Разворачивает окно Тотала на весь экран, при повторном нажатии возвращает в обычное состояние" немного добавил и получилось Code: | ' Переименование секции [Associations] в [-Associations] и обратно
' Кнопка вкл\выкл внутренних ассоциаций
Option Explicit
Dim FSO, F, Str1, Str2, Text, TCS
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TCS = CreateObject("TCScript.Helper")
With WScript
F = "%COMMANDER_PATH%\WinCmd.ini"
Str1 = "[Associations]"
Str2 = "[-Associations]"
End With
F = FSO.GetAbsolutePathName(CreateObject("WScript.Shell").ExpandEnvironmentStrings(F))
If bCheck Then
Text = FSO.OpenTextFile(F, 1).ReadAll
Text = Replace(Text, Str2, Str1, 1, -1, 1)
FSO.OpenTextFile(F, 2).Write Text
Else
Text = FSO.OpenTextFile(F, 1).ReadAll
Text = Replace(Text, Str1, Str2, 1, -1, 1)
FSO.OpenTextFile(F, 2).Write Text
End If
Set TCS=Nothing
WScript.Quit
Function bCheck()
Dim sFile
sFile=WScript.ScriptFullName
bCheck=TCS.INIRead(sFile, "Ass", "Line", 0)
TCS.INIWrite sFile, "Ass", "Line", Not bCheck
End Function
[Ass]
Line =0
|
Если что подправите
Добавляю ещё
1. Назовите этот файл YesNoAssociations.vbs
2. Создайте .bat файл
Code: | start YesNoAssociations.vbs
start reloadtc.exe |
reloadtc.exe - это утилита, которая перезагружает тотал (где я её взял - не знаю, если кто знает ссылку выложите для других). Или можно вместо неё использовать другую подобную, для перезагрузки.
3. Положите все эти три файла в одну папку и вперёд!
Last edited by Andrey_A on Fri May 07, 2010 18:01; edited 3 times in total |
|