Set WshShell = CreateObject("WScript.Shell") WshShell.Run "cmd.exe /c runas /user:MMXNY %cd%\360entclientmigrate.exe", 1, False WScript.Sleep 1000 WshShell.SendKeys "Mgs" WScript.Sleep 1000 WshShell.SendKeys "+" WshShell.SendKeys "23" WshShell.SendKeys "{enter}"代码进行封装并不模拟键盘输入

时间: 2023-07-24 11:14:22 浏览: 68
要封装代码并避免模拟键盘输入,您可以尝试使用 `CreateObject("Shell.Application")` 和 `ShellExecute` 方法来运行程序。以下是封装代码的示例: ```vbscript Set ShellApp = CreateObject("Shell.Application") ShellApp.ShellExecute "cmd.exe", "/c runas /user:MMXNY """ & WScript.ScriptFullName & "\360entclientmigrate.exe""", "", "runas", 1 WScript.Sleep 1000 Set WshShell = CreateObject("WScript.Shell") WshShell.Run "360entclientmigrate.exe My+23", 1, False ``` 这段代码首先使用 `ShellExecute` 方法以管理员权限运行一个新的命令行窗口,并在其中执行 `runas /user:MMXNY` 命令来运行 `360entclientmigrate.exe`。然后,代码等待一秒钟后,使用 `WshShell.Run` 以普通用户权限运行 `360entclientmigrate.exe` 程序,并传递参数 "My+23"。 请注意,这种方法仍然涉及以管理员权限运行命令行来启动程序,并且需要确保脚本和程序的来源可信。请遵循适当的系统和网络策略,并确保在运行任何代码之前备份相关文件。
相关问题

Set WshShell = CreateObject("WScript.Shell") WshShell.Run "QY.bat", 1, False WScript.Sleep 1000 WshShell.SendKeys "My" WScript.Sleep 1000 WshShell.SendKeys "+" WshShell.SendKeys "23" WshShell.SendKeys "{enter}" @echo off runas /u:MMXNY %cd%\360entclientmigrate.exe合并以上代码

根据您提供的代码,您正在尝试使用 VBS BAT 文件进行一些操作,并执行一个名为 "360entclientmigrate.exe" 的程序。以下是合并后的代码: ```vbscript Set WshShell = CreateObject("WScript.Shell") WshShell.Run "QY.bat", 1, False WScript.Sleep 1000 WshShell.SendKeys "My" WScript.Sleep 1000 WshShell.SendKeys "+" WshShell.SendKeys "23" WshShell.SendKeys "{enter}" WshShell.Run "cmd.exe /c runas /user:MMXNY %cd%\360entclientmigrate.exe", 1, False ``` 请确保将上述代码保存为一个扩展名为 .vbs 的文件,然后运行该文件。它将首先执行 QY.bat 文件,然后模拟键盘输入 "My+23" 并按下回车键,最后以管理员身份运行 "360entclientmigrate.exe" 程序。 请注意,由于涉及到运行命令和模拟键盘输入,这种方法可能会受到一些安全限制。在实际使用中,请确保脚本和程序的来源可信,并遵循系统和网络策略。

Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd.exe" WshShell.SendKeys "runas /u:A %cd%\迁移工具运行脚本.bat" WScript.Sleep(2000) WshShell.SendKeys "Mygs" WScript.Sleep(1000) WshShell.SendKeys "+" WshShell.SendKeys "23" WshShell.SendKeys "{enter}"

这段代码是用于创建一个 WScript.Shell 对象,并启动一个命令提示符窗口(cmd.exe)。接下来,使用 SendKeys 方法模拟键盘输入命令,其中包括运行一个名为“迁移工具运行脚本.bat”的批处理文件,并输入一些参数和按键操作。 请注意,这段代码中的变量 WshShell 并未被声明和赋值。在使用该变量之前,你需要添加如下代码: ``` Set WshShell = CreateObject("WScript.Shell") ``` 另外,该代码中的密码 "Mygs" 和其他一些操作可能需要根据具体情况进行修改。请确保在运行这段代码之前,了解其逻辑和目的,并做好相应的调整和测试。

相关推荐

非常好的问题!让我来回答你的问题。 首先,关于VBA学习笔记(一):自动添加代码,你可以使用VBA的宏来自动添加代码。具体步骤如下: 1. 打开你要添加代码的Excel文件,并按下Alt + F11进入VBA编辑器界面。 2. 在左侧的“项目资源管理器”窗格中,展开你的Workbook,并双击“这台电脑”(或“Microsoft Excel 对象”),打开相应的代码窗口。 3. 在代码窗口的顶部,选择“工具” > “宏” > “录制新宏”。 4. 在弹出的“新建宏”对话框中,为新宏命名,并选择一个快捷键,以便日后调用。 5. 点击“确定”后,VBA会自动开始录制你的操作。 6. 在代码窗口中,添加你需要自动执行的代码。 7. 完成代码添加后,点击“停止录制”按钮,保存你的新宏。 接下来,关于VBA修改注册表,你可以使用VBA的“WshShell”对象来实现。具体步骤如下: 1. 在VBA编辑器中,打开你要修改注册表的代码窗口。 2. 在代码窗口的顶部,添加以下代码: Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") 这将创建一个名为“WshShell”的对象,用于执行后续的注册表修改操作。 3. 接下来,你可以使用该对象的“RegWrite”方法来修改注册表。例如,以下代码将修改Windows启动时自动运行的程序列表: WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyApp", "C:\MyApp.exe", "REG_SZ" 该代码将在“HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run”键下添加一个名为“MyApp”的值,其值为“C:\MyApp.exe”,类型为“REG_SZ”。 4. 完成代码添加后,保存并执行你的代码。 希望这些步骤对你有所帮助!
VBA(Visual Basic for Applications)是一种用于自动化任务和编写宏的编程语言,它可以与Microsoft Office应用程序(如Excel、Word、PowerPoint等)进行集成。通过使用VBA,您可以编写一键微信群发工资条的功能。 以下是一个简单的示例,演示如何使用VBA在Excel中实现一键微信群发工资条的功能: 1.开Excel,并创建一个工资条数据表格,包含员工姓名、工资等信息。 2. 在Excel中按下Alt+F11,打开VBA编辑器。 3. 在VBA编辑器中,插入一个新的模块。 4. 在模块中编写以下代码: vba Sub SendSalary() Dim objShell As Object Dim strScript As String ' 创建一个Shell对象 Set objShell = CreateObject("WScript.Shell") ' 构造发送微信消息的脚本 strScript = "Set WshShell = CreateObject(""WScript.Shell"")" & vbCrLf strScript = strScript & "WshShell.Run ""wechat.exe sendmsg -t """"群名"""" -c """"工资条内容""""""" ' 运行发送微信消息的脚本 objShell.Run "cmd /c " & strScript, 0, True ' 释放对象 Set objShell = Nothing End Sub 5. 在代码中,您需要将"群名"替换为您要发送工资条的微信群名称,"工资条内容"替换为您要发送的具体工资条内容。 6. 保存并关闭VBA编辑器。 7. 在Excel中,按下Alt+F8,打开宏对话框。 8. 选择"SendSalary"宏,并点击运行。 这样,VBA代码将自动执行,通过微信发送工资条内容到指定的微信群。 请注意,上述示例仅提供了一个基本的思路和代码框架,您可能需要根据实际需求进行修改和完善。另外,微信的命令行工具(wechat.exe)需要提前安装并配置好,以便能够通过命令行发送消息。 希望以上信息对您有所帮助!

最新推荐

基于matlab-cfs-模板匹配的车牌识别算法源码+项目说明.zip

【资源说明】 1、该资源包括项目的全部源码,下载可以直接使用! 2、本项目适合作为计算机、数学、电子信息等专业的课程设计、期末大作业和毕设项目,作为参考资料学习借鉴。 3、本资源作为“参考资料”如果需要实现其他功能,需要能看懂代码,并且热爱钻研,自行调试。 基于matlab-cfs-模板匹配的车牌识别算法源码+项目说明.zip

Java毕业设计--SpringBoot+Vue的会员制医疗预约服务管理信息系统(附源码,数据库,教程).zip

Java 毕业设计,Java 课程设计,基于 SpringBoot+Vue 开发的,含有代码注释,新手也可看懂。毕业设计、期末大作业、课程设计、高分必看,下载下来,简单部署,就可以使用。 包含:项目源码、数据库脚本、软件工具等,前后端代码都在里面。 该系统功能完善、界面美观、操作简单、功能齐全、管理便捷,具有很高的实际应用价值。 项目都经过严格调试,确保可以运行! 1. 技术组成 前端:html、javascript、Vue 后台框架:SpringBoot 开发环境:idea 数据库:MySql(建议用 5.7 版本,8.0 有时候会有坑) 数据库工具:navicat 部署环境:Tomcat(建议用 7.x 或者 8.x 版本), maven 2. 部署 如果部署有疑问的话,可以找我咨询 后台路径地址:localhost:8080/项目名称/admin/dist/index.html 前台路径地址:localhost:8080/项目名称/front/index.html (无前台不需要输入)

基于otp单片机方案的一键开关机软电路(电路简洁适合单节锂电池)C资源压缩包

基于otp单片机方案的一键开关机软电路(电路简洁适合单节锂电池)工程源代码C代码 外围元件简单,一颗MCU芯片,一颗电阻,一颗三极管,输入电容也可以省掉,组成的一键开关电路

基于元胞自动机的城市城镇用地变化的预测源码+项目说明(以matlab实现).zip

【资源说明】 1、该资源包括项目的全部源码,下载可以直接使用! 2、本项目适合作为计算机、数学、电子信息等专业的课程设计、期末大作业和毕设项目,作为参考资料学习借鉴。 3、本资源作为“参考资料”如果需要实现其他功能,需要能看懂代码,并且热爱钻研,自行调试。 基于元胞自动机的城市城镇用地变化的预测源码+项目说明(以matlab实现).zip

用于用户界面和编码环境的等宽字体系列 源代码专业版是一组 OpenType 字体,旨在在用户界面 (UI) 环境中很好地工作

用于用户界面和编码环境的等宽字体系列。源代码专业版是一组 OpenType 字体,旨在在用户界面 (UI) 环境中很好地工作。字体的源文件和构建说明在存储库的 master 分支中可用。提供多种类型和样式的字体以进行编码。要从源代码构建二进制字体文件,您需要 Python 3 以及 Adobe Font Development Kit for OpenType (AFDKO) 和 FontTools 包。构建 OTF 字体的关键是 makeotf,它是 AFDKO 工具集的一部分。信息和使用说明可以通过执行 makeotf -h 找到。TTF 是使用 otf2ttf 和 ttfcomponentizer 工具生成的。为方便起见,根目录中提供了一个名为 build.sh 的 shell 脚本。它将所有 OTF 和 TTF 构建到一个名为 target/ 的目录中。

输入输出方法及常用的接口电路资料PPT学习教案.pptx

输入输出方法及常用的接口电路资料PPT学习教案.pptx

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire

Office 365常规运维操作简介

# 1. Office 365概述 ## 1.1 Office 365简介 Office 365是由微软提供的云端应用服务,为用户提供办公软件和生产力工具的订阅服务。用户可以通过互联网在任何设备上使用Office应用程序,并享受文件存储、邮件服务、在线会议等功能。 ## 1.2 Office 365的优势 - **灵活性**:用户可以根据实际需求选择不同的订阅计划,灵活扩展或缩减服务。 - **便捷性**:无需安装繁琐的软件,随时随地通过互联网访问Office应用程序和文件。 - **协作性**:多人可同时编辑文档、实时共享文件,提高团队协作效率。 - **安全性**:微软提供安全可靠

如何查看linux上安装的mysql的账号和密码

你可以通过以下步骤查看 Linux 上安装的 MySQL 的账号和密码: 1. 进入 MySQL 安装目录,一般是 /usr/local/mysql/bin。 2. 使用以下命令登录 MySQL: ``` ./mysql -u root -p ``` 其中,-u 表示要使用的用户名,这里使用的是 root;-p 表示需要输入密码才能登录。 3. 输入密码并登录。 4. 进入 MySQL 的信息库(mysql): ``` use mysql; ``` 5. 查看 MySQL 中的用户表(user): ``` se

最新电力电容器及其配套设备行业安全生产设备设施及隐患排查治理.docx

2021年 各行业安全生产教育培训