vbs

方法1：借用VBS脚本 %1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit 方法2： 借用 VBS脚本 %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit exit /B 方法3： 借用 VBS脚本 echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs" "%temp%\getadmin.vbs" del /f /q "%temp%\getadmin.vbs" >nul exit /B 方法4： 借用 第三方程序 nircmd elevate cmd /c "%0" exit /B 方法5：runas命令 runas /noprofile /user

大家好，好久没写博客了，最近都在忙着学习python自动化脚本，有兴趣想交流的可以扫下方二维码，欢迎打扰哦。 特别是网络运维，python这一块的小伙伴，对于现在自动化运维这么火的时候，如果每天都是重复着平淡重复性的工作，可以学习python自动化运维，工作可以做到事半功倍。是不是觉得特别高大上，好了，接下来，推送干货的时间到了。 作为一个网络运维工程师，少不了定期对路由器交换机防火墙等网络设备进行配置备份。根据我个人的实战经验,如果是传统的一台台进行手动ssh登录，然后敲入命令log文件，25台就需要30分钟左右，现在有了自动化脚本，25台只需要3分钟的时间就可以完成，是不是效率很高呢！下面，进行脚本代码分析。 使用到的脚本是vbs脚本，还有一个list.txt存放交换机的登录账号密码的。 list.txt:例如下方的截图，每一行的内容是：ip地址 设备逻辑名 账号 密码，一行写一台设备的信息。 备份.vbs脚本： 在E:\备份配置脚本，这个文件夹可以存放list.txt和备份.vbs脚本，在E:\配置备份\九月份 存放设备的配置备份。 #$language = "VBScript" # $interface = "1.0" '本脚本示范：从一个文件里面自动读取设备IP地址，密码等，自动将设备配置备份 Sub Main '打开保存设备管理地址、名称以及密码的文件 Const

第一个 msgbox"快点叫爸爸"+chr(13)+"要不电脑爆炸",1,"系统紧急提示"（文字多少，类型 根据自己的意愿） 第二个 Set s = CreateObject("sapi.spvoice") i=0 do s.speak i i=i+1 loop 第三个 if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" Set objShell = CreateObject("Wscript.Shell") objShell.Run "shutdown -s -t 5",,true end if 第四个 '这个很强悍的vbs,蓝屏 strs=array(13,105,102,32,77,115,103,66,111,120,40,34,-15133,-13625,-10515,-12873,-15632,- 23617,34,44,118,98,89,101,115,78,111,44,34,-12363,-12877,-13087,- 13634,34,41,61,118,98,121,101,115,32,116,104,101,110,32,13,10,32

需求如题： 在批处理文件头部加入如下代码即可 @echo off >nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system" if '%errorlevel%' NEQ '0' ( goto UACPrompt ) else ( goto gotAdmin ) :UACPrompt echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs" echo UAC.ShellExecute "%~s0", "", "", "runas", 1 >> "%temp%\getadmin.vbs" "%temp%\getadmin.vbs" exit /B :gotAdmin if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" ) 来源： https://www.cnblogs.com/Bruce_H21/p/11597662.html

1、打开文件 使用opentextfile方法 set fs =createobject(“scripting.filesystemobject”) set ts=fs.opentextfile(“c:\1.txt”,1,true) 注意这里需要填入文件的完整路径，后面一个参数为访问模式 1为forreading 2为forwriting 8为appending 第三个参数指定如果指定文件不存在，是否创建。 2、读取文件 读取文件的方法有三个 read(x)读取x个字符 readline读取一行 readall全部读取 例如： set fs =createobject(“scripting.filesystemobject”) set ts=fs.opentextfile(“c:\1.txt”,1,true) value=ts.read(20) line=ts.readline contents=ts.readall 这里还要介绍几个指针变量： textstream对象的atendofstream属性。当处于文件结尾的时候这个属性返回true.我们可以用循环检测又没有到达文件末尾。例如： set fs =createobject(“scripting.filesystemobject”) set f=fs.getfile(“c:\1.txt”,1,false) set ts=f

今天跟大家分享一个简单地轰炸机 set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "xxxx" for i=1 to 100 WScript.Sleep 500 WshShell.SendKeys "^v" WshShell.SendKeys i WshShell.SendKeys "%s" NEXT 上面是源码， for i=1 to 100 （意思是轰炸条数是从 1 --100 可以修改最大数） 着样的轰炸机网上也是一艘一大堆哈 文件后缀名修改成 vbs 然后右击编辑 把你想要发送的内容复制一下 点哪轰哪 ：：：：请理性使用：：：： 来源： https://www.cnblogs.com/dsds/p/11561532.html

打印乘法口诀表：在C盘建立文件test.vbs，代码如下 '调用示例： '用 c: 和 cd / 命令到位置 C:\> '输入命令 cscript test.vbs 9 //Nologo '可以计算 1-9 的乘法口诀表 Option Explicit '所有变量必须声明后再使用 '输入参数：口诀表上线数字，默认为9 Dim Number Number = 9 If WScript.Arguments.Count > 0 Then Number = WScript.Arguments(0) End If '输入参数不为正整数则直接退出 If Not IsNumeric(Number) Then WScript.Echo "参数必须为正整数" WScript.Quit End If If Number <= 0 Then WScript.Echo "参数必须为正整数" WScript.Quit End If '每行的文字 Dim Line Line = "" '口诀表标题 WScript.Echo WScript.Echo "乘法表 (1 - " & Number & ")" WScript.Echo '输出口诀表 Dim i, j For i = 1 To Number Line = "" For j = 1 To Number Line = Line & i & "*" & j

Set Obj_Shell = CreateObject("Wscript.shell") '读写删注册表，打开指定程序 Set Obj_WinHttp = Createobject("WinHttp.WinHttpRequest.5.1")'网页POST，GET Set Obj_DictionAry = CreateObject("Scripting.DictionAry")'字典 Set Obj_FilEsystem = CreateObject("Scripting.FileSystemObject")'文件相关对象，磁盘 Set Obj_Adodb = CreateObject("adodb.stream")'可以用于GET，POST下载网页图片等数据 Set Obj_ScriptControl= CreateObject("MSScriptControl.ScriptControl") '可以运行JAvaScript代码 Set Obj_RegExp = New RegExp ‘正则表达式 ’============================================================================== Obj_Shell.RUn 按WIn+R可以执行的所有功能,短整形运行式样,布尔值等待程序被关闭 运行式样：0

　相信很多朋友在刷抖音的时候刷到很多表白程序，很是神奇。想知道这是怎么做的，自己也想弄一个，下面小编为大家带来了抖音vbs表白代码制作教程分享，想学习的朋友快来了解一下吧! 　　 　　抖音vbs表白代码制作教程 　　 　　步骤一: 　　 　　在电脑上新建一个txt文件。 　　 　　步骤二: 　　 　　打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。 　　 　　Set Seven = Ws cript.CreateObject("Ws cript.Shell") 　　 　　strDesktop = Seven.SpecialFolders("AllUsersDesktop") 　　 　　set oShelll ink = Seven.CreateShortcut(strDesktop "\Seven.url") 　　 　　oShelll ink.TargetPath = "http://user.qzone.qq.com/985390927" 　　 　　oShelll ink.Save 　　 　　Sub ak47 　　 　　Set oShelll ink=Nothing 　　 　　seven.Run "notepad",3 　　 　　Ws cript.Sleep 500 　　 　　seven.SendKeys " I " 　　 　

步骤一、打开记事本，输入以下代码（建议直接复制）： msgbox "我有一件事想跟你说",vbQuestion,"在吗" msgbox"自从第一天遇见你，我便对你难以忘怀了！" CreateObject("SAPI.SpVoice").Speak"能够遇见你，对我来说是最大的幸福。有了你，我的生活变的绚丽多彩，有了你，世界变得如此迷人。你是我的世界，我的世界是你。我愿意用自己的一生，好好的陪着你，爱着你。陪你到你想去的地方，用心走完我们人生的余下的旅程。在未来的日子里，也许什么都无法确定，但唯一可以确定的是，我爱的人是你，无论现在还是将来，我想我这里都会是你最温暖的港湾，都是为你遮风避雨的城墙。无论狂风，无论暴雨。我都会陪在你的身旁，让你不会感到丝毫的担心和惶恐。" msgbox"亲爱的，我喜欢你" dim i do while i<1 Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！") Case 6 i=1 Case 7 msgbox"你再考虑一下呗" end Select loop msgbox"爱你一万年！" 步骤二、点击【文件】→【另存为】→【文件名：后缀改为 .vbs （示例：Play.vbs）】→【保存类型：所有文档】 注： 代码中 “ ” 内的 中文 均可以修改为你喜欢的内容。 效果如下图所示： 最后，希望大家告白成功！！ 来源：