dim AsoR,FlashFileName  
Set ArgObj = WScript.Arguments  

dim PositionStart,OKed,Tag,EndSize  
PositionStart = 920000'flash 4的播放器的大致字节数  
EndSize = 8    'exe文件结尾字节数,其它版本可以设置为0  
FlashFileName = ArgObj(0)'传递路径  

set AsoR=CreateObject("Adodb.Stream")  
AsoR.Mode=3   
AsoR.Type=1   
AsoR.Open   
set AsoW=CreateObject("Adodb.Stream")  
AsoW.Mode=3   
AsoW.Type=1   
AsoW.Open  
AsoR.LoadFromFile(FlashFileName)  

OKed = true  
dim filesize  
filesize = AsoR.size  

if filesize>PositionStart then  
   while OKed  
       AsoR.Position = PositionStart  
       Tag = Bin2Str(AsoR.read(20))  
       if instr(Tag,"0000000") >0 then  
           PositionStart = PositionStart + 1  
       else  
           PositionStart = PositionStart + 20  
       end if  
       if Tag = "00000000000000000708783" or Tag = "00000000000000000678783" then  
           OKed = false  
       end if  
       'if PositionStart > filesize then  
       '    OKed = false  
       'end if  
   wend  
else  
   msgbox "文件错误"  
end if  
PositionStart = PositionStart + 16  
'msgbox PositionStart  
AsoR.Position = PositionStart  
AsoW.write AsoR.read(filesize-int(PositionStart)-int(EndSize))  

'新文件名  
dim newFileName  
'newFileName = left(FlashFileName,len(FlashFileName)-4) & ".swf"  
newFileName = FlashFileName & ".swf"  

Set fso = CreateObject("Scripting.FileSystemObject")  
If (fso.FileExists(newFileName)) Then  
   overwrite = msgbox(newFileName&" 已存在"& vbnewline &"要替换它吗?",308,"文件已经存在 - exe2swf脚本")  
   if overwrite=6 then  
       AsoW.SaveToFile newFileName, 2  
   else  
       msgbox "操作被取消",0,"exe2swf脚本"  
   end if  
else  
   AsoW.SaveToFile newFileName, 1  
end if  

AsoR.close  
set AsoR=nothing  
AsoW.close  
set AsoW=nothing  

Function Bin2Str(Bin)  
   Dim I, Str  
   For I=1 to LenB(Bin)  
       clow=MidB(Bin,I,1)  
       if ASCB(clow)<128 then  
           Str = Str & (ASCB(clow))  
       else  
           I=I+1  
           if I <= LenB(Bin) then Str = Str & (ASCW(MidB(Bin,I,1)&clow))  
       end if  
   Next   
   Bin2Str = Str  
End Function 

vbs更改3389远程桌面端口的脚本
SetWshShell=CreateObject("Wscript.Shell")FunctionImput()imputport=InputBox("请输入一个端口号，注意：这个端口号目前不能被其它程序使用，否则会影响终端服务","更改

用vbs实现的强制杀进程的脚本
黑人必会！强制杀进程！对付杀毒软件啊'备注：vbs强制关闭程序'防止出现错误OnErrorResumeNext'vbs代码开始----------------------------------------------subClose_Process(

用VBS脚本实现更换Windows Xp序列号的代码
ONERRORRESUMENEXTDimVOL_PROD_KEYifWscript.arguments.count1thenVOL_PROD_KEY=InputBox("使用说明："&vbCr&vbCr&"本程序将自动替换你当前Windows的序列号,通过微软验证完全正版。"