'Открыть рабочую группу
Dim TCS
Set TCS = CreateObject("TCScript.Helper")
TCS.LockTC True
TCS.SendCommand "cm_FocusCmdLine"
TCS.SendKeystroke "cd " & путь_к_ярлыку.lnk
TCS.Pause = 200
TCS.SendKeystroke "{ENTER 2}"
Set TCS = Nothing
Wscript.Quit
Учить как делается простая кнопка и то, как создавать пользовательскую команду и горячую клавишу для неё надеюсь не надо, это уже описывалось на форуме десятки раз, и в справке по ТС всё есть на эту тему.
Last edited by Flasher on Fri Jun 25, 2010 11:37; edited 1 time in total
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
