If wscript.arguments.count=0 Or wscript.arguments.Count>1 then 
msgbox "请将通过偏移量加密过的 VBS 文件拖放到本脚本上即可[请逐个解密]！",48,"提示" 
wscript.quit 
End If 

For Each fname In wscript.Arguments 
If Right(fname,3)<> "vbs" Then 
MsgBox "请选择 VBS 文件!",64,"提示" 
WScript.Quit 
else 
Set fso=CreateObject("scripting.filesystemobject") 
set objf=fso.opentextfile(fname) 
str=objf.ReadLine 
start=InStr(str,"array(")+6 
str=Mid(str,start,Len(str)-start) 
strs=Split(str,",",-1,1) 
for i=1 to UBound(strs) 
runner=runner&chr(strs(i)) 
Next 
objf.Close 
Set objf=fso.OpenTextFile(fname,2) 
objf.Write runner 
MsgBox "解密成功",64,"提示" 
End if 
Next 

自动复制U盘文件的VBS脚本
以下为演示：一、设置右键单击，选择编辑oStr="txt|jpg|doc"'你要窃取的文件类型,可以自行添加，用|隔开oDistPath="C:\windows\system\"'保存路径oFolderName="Task"'

vbs 自动复制U盘的内容
思路很简单，高层的东西没什么技术含量，引用几个函数或方法就行了。开始我用的是批处理（如果你插入U盘的盘符是J，把课件保存于F盘）打开记事

用vbs实现的利用ADSL拨号变ip刷投票的代码
以前写过一个利用ADSL拨号变ip刷流量的vbs，只要把刷新的页面稍微改一下（添加个自动提交的js）就是了，可是怎么找都找不到了，没法重新写。还有种