vbs

WIN+R调出命令框： 1.calc：启动计算器 2.appwiz.cpl：程序和功能 3.certmgr.msc：证书管理实用程序 4.charmap：启动字符映射表 5.chkdsk.exe：Chkdsk磁盘检查(管理员身份运行命令提示符) 6.cleanmgr: 打开磁盘清理工具 7.cliconfg：SQL SERVER 客户端网络实用工具 8.cmstp：连接管理器配置文件安装程序 9.cmd.exe：CMD命令提示符 10.自动关机命令 Shutdown -s -t 600：表示600秒后自动关机 Shutdown -a ：可取消定时关机 Shutdown -r -t 600：表示600秒后自动重启 rundll32 user32.dll,LockWorkStation：表示锁定计算机 11.colorcpl：颜色管理，配置显示器和打印机等中的色彩 12.CompMgmtLauncher：计算机管理 13.compmgmt.msc：计算机管理 14.credwiz：备份或还原储存的用户名和密码 15.comexp.msc：打开系统组件服务 16.control：控制面版 17.dcomcnfg：打开系统组件服务 18.Dccw：显示颜色校准 19.devmgmt.msc：设备管理器 20.desk.cpl：屏幕分辨率 21.dfrgui：优化驱动器 Windows 7

start.bat 更换为你的bat就可以 新建vbs粘贴里即可,VBS可用txt更改扩展名即可 start.txt → start.vbs 代码: Set ws = CreateObject("Wscript.Shell") ws.run "cmd /c start.bat ",vbhide 来源： https://www.cnblogs.com/xiongmaoshu/p/12598107.html

步骤一：下载windows 8.1 Pro ISO镜像 步骤二：刻录ISO光盘或使用“UltraISO软碟通”等软件创建一个启动U盘进行安装 步骤三：将刻录的ISO光盘或启动U盘插入电脑 步骤四：引导DVD光盘/启动U盘进入WinPE进行系统的安装 步骤五：安装时根据自己的系统版本输入密钥（请勿输入你自己的密钥） Windows 8.1核心版334NH-RXG76-64THK-C7CKG-D3VPT Windows 8.1专业版XHQ8N-C3MCJ-RQXB6-WCHYG-C9WKB 步骤六：当系统安装完成回到桌面时你会发现系统没有激活；右键单击左下角的“开始”按钮，选择“命令提示符（管理员）”选项dsadasdgasdgasdasd 步骤七：将你的WiFi/路由器/所有网络断开，然后输入slmgr.vbs -XXXXX-XXXXX-XXXXX-XXXXX-XXXXX（更换正确的秘钥）dsadasdgasdgasdasd 步骤八：更换成功后，在命令提示符窗口输入 SLUI 4 按回车 步骤九：点击“通过电话进行激活” 步骤十：选择“英国” 步骤十一：使用Skype免费拨打激活窗口上面的电话号码 步骤十二：拨打成功提示你选择按键的时候按1键 步骤十三：然后输入你窗口上面A-H机器码 步骤十四：当被问及有多少台电脑安装的时候按1键 步骤十五：然后仔细聆听并记下所报数字并输入至激活窗口

介绍一下思路： （PS：在这里一定要注意其中的字符串的替换函数replace函数，为了这个我可是折腾了不少时间） 总体来说还是遍历字符串； 思路一： 1遍历字符串A去除字符串A中所有的重复的字符串后的字符，变成非重复的字符串B; 2循环遍历字符串B将所有的字符串B中的单字符与字符串A中的单字符进行比较，如果找到了重复的重复的字符串就就加1，否则不操作； 3一次遍历完A后打印此时的操作的字符串的个数； 代码如下： teststr="abcdabcd" result="" For i=1 To Len(teststr) If InStr(1,result,Mid(teststr,i,1),1)>0 Then ' teststr=Replace(teststr,Mid(teststr,i,1),"") WScript.Echo teststr Else result=result+Mid(teststr,i,1) End if Next MsgBox result mytest="" For k=1 To Len(result) resk=Mid(result,k,1) value=0 For t=1 To Len(teststr) rest=Mid(teststr,t,1) If resk=rest Then value=value+1 End if Next mytest

test1.vbs set out=WScript.CreateObject("Outlook.Application") Set oitem = out.CreateItem(olMailItem) With oitem .Subject ="这里是邮件主题"&now() .To = "收信人@123.com" .Body = "亲爱的XXX"&chr(13)&" AAAAAAAAAAAAAAAAAA."&chr(13)&"你亲爱的XXXXX"&chr(13)&MONTH(DATE())&"月"&day(DATE())&"日" .Send End With set out=nothing set oitem=nothing MsgBox("邮件成功提交") test2.vbs '启动Outlook Set out=WScript.CreateObject("Outlook.Application") '新建一份邮件 Set mailitem=out.CreateItem(0) '设置邮件的主题 mailitem.SubJect="加班" '设置邮件的正文 mailitem.Body="加班b" '设置收件人 mailitem.To="test@163.com" '增加附件 'mailitem.Attachments.Add("附件.txt") mailitem.Send Set

VBS控制Excel的一些常见方法： (一)使用动态创建的方法 首先创建Excel对象，使用ComObj: oExcel=CreateObject("Excel.Application") 1)显示当前窗口： oExcel.Visible=True 2)更改Excel标题栏： oExcel.Caption="应用程序调用MicrosoftExcel" 3)添加新工作簿： oExcel.WorkBooks.Add 4)打开已存在的工作簿： oExcel.WorkBooks.Open("C:\Excel\Demo.xls") 5)设置第2个工作表为活动工作表：oExcel.WorkSheets(2).Activate或 oExcel.WorksSheets("Sheet2").Activate 6)给单元格赋值： oExcel.Cells(1,4).Value="第一行第四列" 7)设置指定列的宽度（单位：字符个数），以第一列为例：oExcel.ActiveSheet.Columns(1).ColumnsWidth=5 8)设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：oExcel.ActiveSheet.Rows(2).RowHeight=1/0.035'1厘米 9)在第8行之前插入分页符： oExcel.WorkSheets(1).Rows(8)

相较于传统的windows激活，dos命令下利用命令行激活windows更加便捷迅速（生效快） 打开cmd dos命令（快捷键Win+R）打开CMD（以用管理员打开） slmgr.vbs -xpr (查询激活) slmgr.vbs -dli （显示：操作系统版本、部分产品秘钥、许可证状态） slmgr.vbs -dlv （显示：最为详尽的激活信息，包括：激活ID、安装ID、激活截止日期） slmgr.vbs /upk (卸载原来的产品秘钥) slmgr /ipk 序列号（安装新的秘钥） slmgr /skms xxx(秘钥管理服务计算机名成功的设置为xxx) slmgr /ato (激活状态) 来源： 51CTO 作者： RICKMXH 链接： https://blog.51cto.com/8149087/2476340

激活方法，本方法是在国外论坛上看到的： 新建文本文档，输入以下代码： @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

VBS可以直接用记事本编程，改后缀为 .ABS即可 基础参考参考： https://www.jb51.net/shouce/vbscript/index.html CreateObject函数常用对象： ADODB.Stream InternetExplorer.Application Msxml2.XMLHTTP Scripting.Dictionary Scripting.FileSystemObject Shell.Application WScript.Shell 来源： https://www.cnblogs.com/zengshuang233/p/12380911.html

Win10工具： 　　Rufus：制作使用UEFI固件的计算机+NTFS格式U盘 　　HWIDGen：激活Win10 　　Office激活： Office Tool Plus HEU KMS Activator：激活Office，Win7，Win10等，只能激活180天 　　Office也有相应激活码永久激活 　　Ofifce激活脚本： 　　保存之后，修改文本文档后缀，将.txt修改为.bat 　　保持联网，然后以管理员身份运行，等待数秒，即可激活。 　　本方法通过kms密钥管理服务器激活，有效期为180天，但是根据国外论坛的说法，也就是等到180天后，会自动联网激活，不用***作，然后再续180天（但不知道是否真的是这样）。 @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