vbs

Windows Office 365 Pro Plus安装 本体的安装地址： http://221.228.67.159/dl.softmgr.qq.com/original/Office/setupo365homepremretail.x86.zh-cn_.exe?mkey=5d2c01fcdff2e7c7&f=8935&cip=223.242.193.50&proto=http 后续处理 1.创建一个txt文件 2.里边内容： @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.

vbs VBS是基于Visual Basic的脚本语言。VBS的全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。 其语言类似Visual Basic（VB） 脚本语言的特点为: 简单易学 解释性语言 集成成熟技术 VBScript是 Visual Basic Script 的简称，即 Visual Basic 脚本语言，有时也被缩写为 VBS。 VBScript 是微软开发的一种脚本语言。使用 VBScript，可通过 Windows 脚本宿主调用 COM，所以可以使用 Windows 操作系统中可被使用的程序库。 VBScript 一般被用在以下个方面：VBScript 经常被用来完成重复性的Windows 操作系统任务；用来指挥客户方的网页浏览器。在这一方面，VBS 与 JavaScript 是竞争者，因为本文的实验环境基于 Window 平台，为了达到更好的兼容性和性能选用 VBScript。 来源： CSDN 作者： HOLD ON! 链接： https://blog.csdn.net/cxu123321/article/details/103955951

office小技巧 @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

文章目录 1、TextStream对象 2、TextStream对象的方法 2.1、Close() 2.2、Read(numchars) 2.3、ReadAll() 2.4、ReadLine() 2.5、Skip(numchars) 2.6、SkipLine() 2.7、Write(string) 2.8、WriteLine(string) 2.9、WriteBlankLines(n) 2.10、 Skip 2.11、SkipLine 2.12、TextStream对象的属性 2.13、AtEndOfLine及AtEndOfStream 3、读写文件举例 3.1、写 3.2、读 3.2、读最后一行 3.3、读取最后一行不为空的内容 3.4、读取文本指定行内容 1、TextStream对象 TextStream对象是用于访问文本文件的对象，它是FileSystemObject一个独立的附属对象，但在使用TextStream对象时，我们仍要借助FileSystemObject 对象或其附属对象来创建一个 TextStream 对象并访问磁盘文件的内容。 可以通过FileSystemObject 对象的CreateTextFile()及OpenTextFile()，来获取TextStream的对象句柄。 2、TextStream对象的方法 2.1、Close() 关闭一个打开的文件 2

Windows Server 2008 R2密钥点击下载 Windows Server 2008 R2是微软基于Windows8/Windows8.1 以及 Windows RT 8/Windows RT 8.1界面的一款服务器操作系统，也是Windows Server 2012 的升级版本，功能包括了服务器虚拟化、服务器管理和自动化、Web 和应用程序平台、存储、软件定义网络、访问和信息保护、虚拟桌面基础结构等。为此小编经过研究，特意在这里为您提供的是Windows Server 2008 R2各个版本安装所需的序列号和密钥。不过小编需要说明的是下列Windows Server 2008 R2密钥只能用于相应服务器系统的安装，想要长期激活的话还需要您使用激活工具进行激活。 Windows Server 2008 R2密钥 win2008 r2安装序列号分享 Server Standard 标准版安装密钥： YC6KT-GKW9T-YTKYR-T4X34-R7VHC 33PXH-7Y6KF-2VJC9-XBBR8-HVTHH 7XMDV-M9VKV-RGT3C-4DYTM-PHPDJ 2KV2B-JDHHH-JQ3VW-FVGMG-KGYJK FKJQ8-TMCVP-FRMR7-4WR42-3JCD7 6TPJF-RBVHG-WBW2R-86QPH-6RTM4 VTC42

今天用VBS脚本写了几个程序，用到了字典（Dictionary）、动态数组（ArrayList）、队列（Queue）和堆栈（Stack）。现在写篇Blog总结一下 ：-） 1.编写环境 今天突发奇想下载了个gVim来写VBS脚本，我用的版本是7.4的 在写脚本前，需要在gVim的安装根目录下，找到文件“_vimrc”，在里面添加下面三行： set number set softtabstop=4 set tabstop=4 意思分别是“显示行号”、“按退格键一次删掉4个空格”和“设定Tab长度为4个字符” 这个设置类似于Linux系统下文件“.vimrc”的配置 2.字典：Scripting.Dictionary VBS中的字典需要使用Scripting.Dictionary 脚本文件：a.vbs，包含字典的添加、删除、判断键是否存在、修改键、修改值、遍历、统计键值对个数 Option Explicit '建立字典 Dim Dict : Set Dict = CreateObject("Scripting.Dictionary") '添加键值对 Dict.Add "Key1", "Item1" Dict.Add "Key2", "Item2" Dict.Add "Key3", "Item3" '字典中键值对数量 WScript.Echo "字典中现有键值对数量: " & Dict

自从安装了Oracle数据库后，我电脑的运行速度满了很多。为此我想了一个办法，让我在不需要使用Oracle数据库的时候，可以轻松地关掉Oracle相关服务。 我安装的Oracle版本为Oracle11g，与Oracle有关的服务如下图所示： 这些服务包括： 1、Oracle ORCL VSS Writer Service（手动启动） 2、OracleDBConsoleorcl（自动启动） 3、OracleJobSchedulerORCL（禁用） 4、OracleMTSRecoveryService（自动启动） 5、OracleOraDb11g_home1ClrAgent（手动） 6、OracleOraDb11g_home1TNSListener（自动启动） 7、OracleServiceORCL（自动启动） 其中，需要我们用脚本关闭的服务，都是开机自启动且当前已启动的服务，一共有四个（2、4、6、7）。 我们可以使用WQL查出这四个服务，逐一关闭即可。 VBS脚本（StopServiceLikeOracle.vbs）如下： Set ServiceSet = GetObject("winmgmts:"). _ ExecQuery("select * from Win32_Service where name like 'Oracle%' and started = true")

VBS脚本可以通过调用WIA.Vector对象画图，使用该对象的Add方法可以把vb中的颜色逐个坐标画到位图中。 下面这段代码，是打印方程X(n+1)=cot(X(n)),x(1)=1迭代20次后的图像（坐标有调整，每个小格并不代表单位1） WScript.Echo "计算X(n+1)=cot(X(n)),x(1)=1 迭代20次" '沙盘 Dim V(300,300) '初始值 Dim F F = 1 '迭代前的初始点 Dim TX, TY For TX = -3 To 3 For TY = -3 To 3 V(50 + TX, 150 + TY) = 1 Next Next WScript.Echo "初始值 " & F '迭代公式20次 Dim Counter For Counter = 1 To 20 F = Cos(F) / Sin(F) WScript.Echo "第 " & Counter & " 次迭代，值为 " & F '沙盘描点 For TX = -3 To 3 For TY = -3 To 3 V(50 + Counter * 10 + TX, 150 + Eval(F) * 3 + TY) = 1 Next Next Next WScript.Echo "计算完毕" '创建WIA对象 Set Ve = CreateObject("WIA.Vector")

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

相较于传统的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 (激活状态) 来源： https://www.cnblogs.com/RXDXB/p/11934366.html