处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本）

set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate("about:blank")
s = objIE.document.parentwindow.clipboardData.GetData("text")
objie.quit
set file=fso.createtextfile("tmp.txt")
file.write s
file.close
ws.run "cmd /c more tmp.txt>test.txt",0,true
fso.deletefile "tmp.txt"
ws.run "notepad.exe test.txt"

用vb和vbs 破解flashxp的密码的代码
整个在新版中，不是明文的密码字符串了，建议大家都升级到新版本中vbs版[Ctrl+A全选注:如需引入外部Js需刷新才能执行]vb版vb破解flashxp的密码,他的密码

用VBS实现的批量gb2312转utf-8,支持拖动
'/*========================================================================='*Intro拖动所有要转换的gb2312编码文件到这个文件上，程序会将它们自动转换为utf-8编码文件'*Fi

用vbs实现的XP序列号替换器
ONERRORRESUMENEXTDimVOL_PROD_KEYifWscript.arguments.count1thenVOL_PROD_KEY=InputBox("本程序能帮助您更换WindowsXP的序列号。"&vbCr&vbCr&"序列号由您自己寻找并输入。下面列