Flasher
|
 Posted: Tue Oct 11, 2011 16:46 Post subject: |
 |
|
| Code: | ' Копировать имя папки/файла под курсором
' Параметры: %N%Z "%P"
'========================================
With CreateObject("WScript.Shell")
P = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1407"
A = .RegRead(P)
If A > 0 Then .RegWrite P, 0, "REG_DWORD"
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
.document.ParentWindow.ClipboardData.SetData("text"), WScript.Arguments(0)
End With
If A > 0 Then .RegWrite P, A, "REG_DWORD"
End With |
Last edited by Flasher on Tue Oct 11, 2011 22:58; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
