Flasher
|
 Posted: Thu Aug 18, 2011 16:27 Post subject: |
 |
|
sa, помню с Tab-ом проблемы какие-то были, поэтому и остановился на командах.
А насчёт TCFS2 тогда уж и остальную портабельность с буфером допиливать:
| Code: | With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
T = .Document.ParentWindow.ClipboardData.GetData("text")
.Document.ParentWindow.ClipboardData.SetData "text", Mid(S,1)
CreateObject("WScript.Shell").Exec"%COMMANDER_PATH%\Utils\TCFS2\TCFS2.exe /ef ""tcm(2033) tcm(4002) tcm(2033) tcm(4001), test(L_isActive) | tcm(2033) tcm(4001) tcm(2033) tcm(4002)"""
Wscript.Sleep(50)
.Document.ParentWindow.ClipboardData.SetData "text", Mid(T,1)
.Quit
End With |
папка не пропущена?
Last edited by Flasher on Fri Aug 19, 2011 15:10; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
