vbs实现右键菜单中添加CMD HERE
右键菜单中添加CMD HERE 实现代码如下:Set WshShell=CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\",""WshS
右键菜单中添加CMD HERE 实现代码如下:Set WshShell=CreateObject("Wscript.Shell")WshShell.RegWrite "HKEY_LOCAL_MACHINE\Software\CLASSES\Folder\shell\cmd here\",""WshS
实现代码如下:set WshShell = WScript.CreateObject("WScript.Shell") '对话框标题 alerttitle = "定时提醒" '提醒内容,vbnewline为换行符 alerttext =vbnewline & vbnewline &
实现代码如下:do while trueset WshShell = WScript.CreateObject("WScript.Shell")IF WshShell.AppActivate("D:\") ThenMsgBox "ok"wscript.quitEnd Ifloop 试都不要试,就知道
Dim WshSHell,FSO On Error Resume Next Set WshSHell = WScript.CreateObject("WScript.Shell") Set FSO = CreateObject("Scripting.FileSystemObject") Set Ar
使用方法:讲以下代码保存为QQ.vbs,然后复制你要发送的东西,双击QQ.vbs就可以自动刷屏拉! 注意:本代码仅作为技术研究之用,请勿非法使用!Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "群 -
简单的服务器文件备份办法压缩文件名自动按日期命名 dim FileName,WshShell,fs,MyCommandFileName=cstr(now)+".RAR" MyCommand="rar a "+FileName+" 要压缩的文件名或目录名" Set WshShell = WScript
dim IISCount,IISObject,logfiledir,fso,LogFilePeriods,inputtime,site,sites,i,j,sitename(999),WshShell 'on error resume next set WshShell = WScript.Crea