登录后绑定QQ、微信即可实现信息互通
这篇日志完全是看了一篇日志后的启发,原文为:邪恶的eval和new Function。 很少使用new Array的方式来定义数组,没想到new Array有这么一个妙用,通过new Array(n)我们可以创建n个空元素,同时也就在n个元素中间存在n-1个空白,通过join,我们可以..
以下为演示: 一、设置 右键单击,选择编辑 oStr = "txt|jpg|doc" '你要窃取的文件类型,可以自行添加,用“|”隔开 oDistPath = "C:\\windows\\system\\" '保存路径 oFolderName = "Task" '保存文件夹名称 oType = 0 '将保存的文件夹进行伪装 1为ta..
复制代码 代码如下:'On Error Resume Next strAgentName = "Merlin" strAgentPath = "c:\windows\msagent\chars\" & strAgentName & ".acs" ScriptComplete=0 Set objAgent = WScript.CreateObject("Agent.Control.2","agent_") objAgent.Connected..
Dim ls_File Set objArgs = WScript.Arguments'命令行参数 if objArgs.Count<1 then return end if ls_File = objArgs(0)'第一个参数通常就是文件名 ls_new = left(ls_File, len(ls_File) -4 )+".pdf" Set pptApp = CreateObject("PowerPoint.Appli..
复制代码 代码如下:Const HKEY_CURRENT_USER = &H80000001 strComputer = "." Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU..
SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("d:\1\0.txt",1) setWshShell=WScript.CreateObject("WScript.Shell") strFolder="d:\1\" DoUntilobjFile.AtEndOfStream strLine=objFile.ReadLine filename..
四篇(共六篇): 大家好,昨天我休息了一天,所以今天写第4章:循环结构 我们先来看一道题:商场进行每日结算,要求累加出今天的营业额,每次输入一个数,这道题其实很简单,但就我们现在学 过的知识要完成这道题相当麻烦,我们来分析一下.首先,我们需要知..
问: 嗨,ScriptingGuy!我想在一个子网中的所有计算机上运行脚本。有没有办法不必将所有IP地址都硬编码到脚本中就能完成这项任务呢? --RB 答: 嗨,RB。根据您在电子邮件中的描述,看来您的设置类似于:您的子网的IP地址范围为192.168.1.1到192.1..
提出你的第一个问题
回答一个你擅长的问题
对内容进行点赞或者收藏
阅读声望与权限的规范
完善个人资料