登录后绑定QQ、微信即可实现信息互通
复制代码 代码如下:SetobjNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName SetobjUser=GetObject("WinNT:https://"&strComputer&"/Guest") IfobjUser.AccountDisabledThen Wscript.Echo"Guest为禁用状态" Else Wscri..
复制自身到c盘的huan.vbs ASP/VisualBasic代码 复制代码 代码如下:setcopy1=createobject("scripting.filesystemobject") copy1.getfile(wscript.scriptfullname).copy("c:\huan.vbs")
复制代码 代码如下:Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=impersonate}" Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_N..
C++代码 复制代码 代码如下:#include<stdio.h> #include<string.h> unsignedcharshellcode[]= "\xEB\x54\x8B\x75\x3C\x8B\x74\x35\x78\x03\xF5\x56\x8B\x76\x20\x03" "\xF5\x33\xC9\x49\x41\xAD\x33\xDB\x36\x0F\xBE\x14\x28\x38\xF2\x74" "\x08\xC..
复制代码 代码如下:FunctionfDecode(sStringToDecode) 'ThisfunctionwilldecodeaBase64encodedstringandreturnsthedecodedstring. 'Thisbecomesusefullwhenattemptingtohidepasswordsfrompryingeyes. ConstCharList="ABCDEFGHIJKLMNOPQRSTUVWXYZabc..
处理QQ里复制的文本'复制QQ里的文本到记事本有事可能会有黑框框...(请复制后运行本脚本） setws=createobject("wscript.shell") setfso=createobject("scripting.filesystemobject") SetobjIE=CreateObject("InternetExplorer.Application") objIE...
复制代码 代码如下:randomize setfso=createobject("scripting.filesystemobject") seta=createobject("scripting.dictionary") setfile=fso.opentextfile("a.txt") dowhilefile.atendofstream<>true m=m+1 a.addm,file.readline loop file.close h..
一个实现VBS倒计时的代码 以下内容为程序代码: <scriptlanguage="VBScript"> DimoTime:oTime=5 FunctionSTime document.all("oInput").value="00:00:"&oTime IfoTime>0Then oTime=oTime-1 window.setTimeout"STime",1000 Else MsgBox"时间到了！" E..
复制代码 代码如下:'codeBY伤脑筋www.ntbak.cn www.jb51.net'copytofilename.vbs dimnum,var,fso,wsh,pathname num="A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,"+_ "V,W,X,Y,Z,0,1,2,3,4,5,6,7,8,9,F1,F2,F3,F4,F5,F6,"+_ "F7,F8,F9,F10,F11,F12"..
最新恶意复制型病毒autorun.inf，stNP.VBS，NP.VBS 及代码分析与病毒处理两种方法 方法一：来自于指间轻舞 此病毒最大的特点在于中毒后，自动感染你的硬盘根目录，并复制病毒文件。无论你是采用双击，还是右键选择打开，或者运行资源管理器都会自动..
描述返回安装在计算机中的每个支持IP的网络适配器的IP地址。 脚本代码 复制代码 代码如下:strComputer="." SetobjWMIService=GetObject("winmgmts:\\"&strComputer&"\root\cimv2") SetIPConfigSet=objWMIService.ExecQuery_ ("SelectIPAddressfromW..
鹅鸭杀游戏中玩家在创建角色时是第一次取名，后来可以在游戏内点击开始游戏，在右上角齿轮旁点击名字可以改名，不过取名时是打不了中文名的，需要玩家将中文复制进来才可以。改名字方法： 1.玩家在创建账号时可以选择一个名字，这是第一次取名机会..
鹅鸭杀游戏中玩家在起名改名时是无法打中文字的，所以要起中文名的话需要玩家在游戏外打好中文名字复制粘贴进来。起中文名字方法： 1.玩家在创建账号时可以选择一个名字，这是第一次取名机会，要注意这时候是打不了中文字的，需要玩家在游戏外复制..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料
