Sub Main Dim cnte Dim cnt Dim delay Dim time Dim onetime onetime = 9999999 delay = 5000 time = 700 For cnte = 0 To onetime crt.screen.Send "quit " & Chr(10) & chr(13) crt.Sleep delay crt.screen.Send "quit " & chr(13) crt.Sl…

vbs文件介绍: VBS是基于Visual Basic的脚本语言.VBS的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). 可以新建一个记事本文件,在其内写入代码,最后更改后缀为.vbs. 1.矩形面积计算器: dim a,b,s a=inputbox("请输入矩形的长:") b=inputbox("请输入矩形的宽:") s=a*b msgbox (s) 2.圆面积计算器: dim a,s a=i…

一.添加默认注释 1.新建一个TXT文档,将要添加的注释写在文档中 2.再将文档名改为:ActionTemplate.mst 3.将文件放到QTP安装目录(默认为:C:\Program Files\HP\QuickTest Professional)的dat文件夹中 在文件中写入注释的内容如下: '********************************************** '作者: '创建时间: '更新人: '更新时间: '函数名称: '函数说明: '参数说明: '[1] '[…

测试HAPROXY的文件分流办法 http://blog.chinaunix.net/uid-20553497-id-3054980.html http://blog.sina.com.cn/s/blog_6d04670f01013zdq.html http://dngood.blog.51cto.com/446195/738634/…

'on error resume NextConst MY_COMPUTER=&H11& Const WINDOW_HANDLE=0 Const OPTIONS=0 '设置我的电脑为根目录 Set objShell=CreateObject("Shell.Application") Set objFolder=objShell.Namespace(MY_COMPUTER) Set objFolderItem=objFolder.Self strPath=objFolde…

参考资料: vbs能否像其他编程语言一样,把写好的代码打包成类库以供调用呢?经过搜索和实验,发现vbs文件之间可以互相调用并共享变量,这样我们就不用再反复地编写轮子了. 以下是一个调用实例: =====1.vbs开始===== dim str str = "hello world" =====1.vbs结束===== =====2.vbs开始===== Sub include(sInstFile) Dim oFSO, f, s Set oFSO = CreateObject("…

linux测试noatime对文件访问时间的影响 文件(如abc)有3个时间: # stat abc Access: 2015-04-16 19:30:13.665970572 +0800 Modify: 2015-04-16 19:28:53.770002677 +0800 Change: 2015-04-16 19:28:53.784001602 +0800 Access是文件最后访问时间,cat命令会改变这个时间.但是由于缓存的原因,短期内只有第一次cat 'abc'时 会改变这个时间.如…

postman测试上传文件   输入url:http://127.0.0.1:8081/uploadfile 选择post方式 选择body 选择form-data,text改为file 输入key:file  ,value:选择文件 send即可…

bat文件: set /P StrInput="输入数字:" echo 输入的数字为%StrInput% set /P Flg="是否执行(y/n):" IF "%Flg%" equ "y" ( echo 执行命令 cscript abc.vbs "%StrInput%" ) 注意: 等于号(=)之间不能有空格,不然会出错. 判断值大小最好使用equ之类. 条件判断后的括号的有空格. VBS文件: 获取外部…

Set xPost = createObject("Microsoft.XMLHTTP")xPost.Open "GET","http://www.xx.com/dc.exe",0 '下载文件的地址xPost.Send()Set sGet = createObject("ADODB.Stream")sGet.Mode = 3sGet.Type = 1sGet.Open()sGet.Write(xPost.responseBod…