'获取随机数 Public function randonum() Randomize randonum = replace(10000*rnd(),".","a") & "@qq.com" End Function '获取指定范围内的随机数 MAX,MIN RandomizeWScript.Echo Int((MAX-MIN+1)*Rnd)+MIN '截图 Public function capture(part) Dim fi…
今天用VBS脚本写了几个程序,用到了字典(Dictionary).动态数组(ArrayList).队列(Queue)和堆栈(Stack).现在写篇Blog总结一下 :-) 1.编写环境 今天突发奇想下载了个gVim来写VBS脚本,我用的版本是7.4的 在写脚本前,需要在gVim的安装根目录下,找到文件“_vimrc”,在里面添加下面三行: set number 意思分别是“显示行号”.“按退格键一次删掉4个空格”和“设定Tab长度为4个字符” 这个设置类似于Linux系统下文件“.vimrc”的…
VBS中的队列需要使用System.Collections.Queue '建立队列 Dim Que : Set Que = CreateObject("System.Collections.Queue") Que.EnQueue("Element1") Que.EnQueue("Element2") Que.EnQueue("Element3") '查看队列中的元素数 WScript.Echo "队列中的元素数: &…
@echo off rem 通过adb方式截图rem 需要安装adb ,一般安装了android sdk 默认带了adb ,路径为sdk目录的android-sdk\platform-toolsrem @author lujian rem 文件保存名称Set FileSaveName=%Date:~0,4%-%Date:~5,2%-%Date:~8,2%_%time:~0,2%%time:~3,2%%time:~6,2% rem 文件保存在个人电脑地址,固定目录rem Set Fil…
