vbs

1、新建一个文本本件，输入你想表白的话： 代码如下： msgbox("xxx我喜欢你~") msgbox("没有你我活不了~") msgbox("嫁给我好不好~") msgbox("爱你么么哒~") 2、保存，更改文件后缀名为vbs(新建文本文档.vbs)： 3、选择你要伪装成得软件，比如你想伪装成微信。右击微信--->属性--->复制目标中的字符： 4、右击.vbs文件-->创建快捷方式 生成如图所示得“快捷方式”图标： 5、右击生成得快捷方式图标-->属性： 6、点击“更改图标”按钮： 将第3步中复制得字符串粘贴到红色框中得行编辑框中，点击“确定”按钮出现： 再点击“确定”按钮： 再点击“确定”按钮： 桌面上就出现了和微信快捷方式一模一样的xxx.vbs。 7、先删掉“微信”快捷方式图标，然后右击“新建文本文档.vbs”-->重命名为“微信”： 这时候桌面上得微信图标其实是你伪装得表白神器~~~ 这时候你的女神如果要登录微信，双击打开“微信”（其实是你得表白神器），神奇的一幕发生了： 相信你的女神一定会受宠若惊~~~ 最后祝你表白成功哈~~~ 来源： CSDN 作者： 纯屌丝程序猿 链接： https://blog.csdn.net/Heaven_Evil/article/details/100549310

这个是在网上偶然看见的一个激活方式，分享一下。 复制如下代码保存后修改文件后缀名为".bat",请注意有一个点，然后保存以管理员身份运行即可： @echo off (cd /d "%~dp0")&&(NET FILE||(powershell start-process -FilePath '%0' -verb runas)&&(exit /B)) >NUL 2>&1 title Office 2019 Activator r/Piracy echo Converting... & mode 40,25 (if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root

office激活方法 创建一个后缀为cmd的文本文件。 例如：xxx.cmd 将以下文件复制进去： @echo off title Activate Office 365 ProPlus for FREE - MSGuides.com&cls&echo ============================================================================&echo #Project: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products: Office 365 ProPlus (x86-x64)&echo.&echo.&(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office

查看信息：slmgr.vbs -xpr slmgr /ipk P9C2R-NM3BW-JR7DG-2R38J-D9MPF slmgr /skms kms.xspace.in slmgr /ato 1.win+r打开运行，输入slmgr.vbs -xpr，回车 若提示图示提示，则为kms假激活，只有6个月 如果不信再输入slmgr.vbs -dlv，回车查看详细信息 2.右击开始，打开Windows powershall（管理员） 输入slmgr /ipk P9C2R-NM3BW-JR7DG-2R38J-D9MPF（自行搜索最新激活码） 回车提示成功安装了产品密钥 3.输入slmgr /skms kms.xspace.in设置激活名称 回车 提示…… 4.输入slmgr /ato激活命令 提示激活成功 5.再次输入slmgr.vbs -xpr查看是否永久激活 1、专业版： W269N-WFGWX-YVC9B-4J6C9-T83GX MH37W-N47XK-V7XM9-C7227-GCQG9 2X7P3-NGJTH-Q9TJF-8XDP9-T83GT J2WWN-Q4338-3GFW9-BWQVK-MG9TT NBQWQ-W9PTV-B4YWP-4K773-T6PKG 236TW-X778T-8MV9F-937GT-QVKBB 87VT2-FY2XW-F7K39-W3T8R-XMFGF

@echo off (cd /d "%~dp0")&&(NET FILE||(powershell start-process -FilePath '%0' -verb runas)&&(exit /B)) >NUL 2>&1 title Office 2019 Activator r/Piracy echo Converting... & mode 40,25 (if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*

msgbox strContent, vbOKOnly or vbExclamation or vbSystemModal,strTitle 提示框类型列表： 常数 值 描述 vbOKOnly 0 只显示确定按钮。 vbOKCancel 1 显示确定和取消按钮。 vbAbortRetryIgnore 2 显示放弃、重试和忽略按钮。 vbYesNoCancel 3 显示是、否和取消按钮。 vbYesNo 4 显示是和否按钮。 vbRetryCancel 5 显示重试和取消按钮。 vbCritical 16 显示临界信息图标。 vbQuestion 32 显示警告查询图标。 vbExclamation 48 显示警告消息图标。 vbInformation 64 显示信息消息图标。 vbDefaultButton1 0 第一个按钮为默认按钮。 vbDefaultButton2 256 第二个按钮为默认按钮。 vbDefaultButton3 512 第三个按钮为默认按钮。 vbDefaultButton4 768 第四个按钮为默认按钮。 vbApplicationModal 0 应用程序模式：用户必须响应消息框才能继续在当前应用程序中工作。 vbSystemModal 4096 系统模式：在用户响应消息框前，所有应用程序都被挂起。 来源： https://www.cnblogs.com

1、右键新建一个文本文件； 2、打开记事本将如下代码复制过去； On Error Resume Next Dim wsh,ye set wsh=createobject("wscript.shell") for i=1 to 100 '这里是轰炸次数 wscript.sleep 70 wsh.AppActivate("这里是要轰炸的人的名字") wsh.sendKeys "^v" wsh.sendKeys i wsh.sendKeys "%s" next wscript.quit 3、保存关闭，将文件格式txt修改为vbs格式； 4、复制你要发送的消息内容，双击vbs文件即可； 来源： https://www.cnblogs.com/juihai/p/11325135.html

bat 判断 bat 是否是以管理员权限运行，和自动以管理员权限运行 判断 @echo off net.exe session 1>NUL 2>NUL && ( goto as_admin ) || ( goto not_admin ) :as_admin echo as_admin goto end :not_admin echo not as admin :end pause 自动以管理员权限运行 @echo off net.exe session 1>NUL 2>NUL && ( goto gotAdmin ) || ( goto UACPrompt ) :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" ) :begin pause 参考链接： https://www.cnblogs.com/dengpeng1004

让C/C++程序员告诉你什么叫浪漫，表白黑科技，炫酷多彩求爱利器 最近抖音上火了一个由小伙伴自己制作的一个表白代码，很多小伙伴都在问这个表白代码是怎么写的？大家都知道是使用vbs实现的！虽说我也承让VBS实现更简单，但是如果把打印心那个程序用起来，C语言是反而更妙一点。今天小编带着大家用C语言实现下，顺带复习下C语言中的格式化读写操作 （虽说用windows编程几个对话框就搞定了，但是还是用最基础的C语言实现下吧）想学习编程的小伙伴们可以关注+私信回复：“资料”就可以拿到一份我为大家准备的编程学习资料！ #define _ CRT_SECURE_NO_WARNINGS #include <stdio.h> #include <stdlib.h> #include <string.h> void showWindowStyle() { //设置窗口大小 system("mode con cols=15 lines=1"); system("color f0") //设置眼色为白色 system(“title 表白小程序”)； //设置标题为朗读工具 printf ("做我女朋友"); } 1.头文件。 2.调整窗口样式。 3.打印一句话。 （这里我用图片表示出来，私信回复“资料”获取，手把手教程） 1.文件三部曲：打开文件，读写文件，关闭文件 2.system两部曲，打开vbs文件