VBS其他功能

    1. 获取系统用户名

      DimWshNetwork

      Set WshNetwork =CreateObject("WScript.Network")

      strTaccount = WshNetwork.UserName

      strRoot = "D:\"&strTaccount&"\Desktop\QAAutomation"

    2. 获取系统时间

      year(Now)& Month(Now) & day(Now) & Hour(Now) & Minute(Now) & Second(Now)

      randomize()

      dim Random:Random=int(rnd*999+1)

    3. Split ,Ubound,For each

      Dim MyStrs
      MyStrs=split("a,b,c,d",",")
      msgbox ubound(MyStrs)

      For each Strs In MyStrs

      Print Strs

      Next

      返回一个下标从0到ubound(MyStrs)的数组,数组元素共ubound(a)+1个

    4. 启动应用程序

      a.

      SetStartURL ="https://agent.monthly.qa.motoristsinsurance.com/home/"

      Set IE =CreateObject("InternetExplorer.Application")

      IE.Visible= true

      IE.NavigateStartURL

      b.

      Dim IE,Chrome, strURL

      IE ="C:\Program Files\Internet Explorer\iexplore.exe"

      Chrome ="C:\Program Files (x86)\Google\Chrome\Application\chrome.exe"

      strURL ="https://agent.monthly.qa.motoristsinsurance.com/home/"

      'SystemUtil.Run  IE ,strURL ,,,3

      SystemUtil.Run  Chrome ,strURL ,,,3

  1. 关闭后台进程

    On ErrorResume Next

    Set objWMIService =GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

    Set arrProcesses =objWMIService.ExecQuery( "select * from win32_process where Name='"&strProcName&"'" )

    For Each proccess In arrProcesses

    proccess.Terminate 0

    Next

  2. 获取系统时间

    CurrentTime = year(Now)&"-"&Month(Now)&"-"&day(Now)&"-"&Hour(Now)&":"&Minute(Now)&":"&Second(Now)

  3. 后台启动UFT跑vbs脚本

    'Create QTP object

    Set QTP = CreateObject("QuickTest.Application")

    QTP.Launch

    QTP.Visible = TRUE

    'Open QTP Test

    QTP.Open "\\MGPCTFSW01\UserFolders$\t165050\Desktop\Portal_Smoke_1214\Portal_MainScript", TRUE

    'Set Result location

    Set qtpResultsOpt = CreateObject("QuickTest.RunResultsOptions")

    qtpResultsOpt.ResultsLocation = "\\MGPCTFSW01\UserFolders$\t165050\Desktop\Portal_Smoke_1214\Result"

    'Run QTP test

    QTP.Test.Run qtpResultsOpt

    'Close QTP

    QTP.Test.Close

    QTP.Quit

    ' batch run vbs: CScript "\\MGPCTFSW01\UserFolders$\t165050\Desktop\QTP.vbs"

  4. Others

    去掉字符串前面和后面的空格 Trim()

    从字符串中返回指定数目的字符 Mid(string, start[, length])

    从字符串右边返回指定数目的字符 Right(string, length)

    返回指定数目的从字符串左边算起的字符 Left(string, length)

    把变量b转换为字符串 a=CStr(b)

    将一个字符串中的小写字母转化为大写字母 Ucase()

    返回一个字符串在另一个字符串中首次出现的位置 InStr()

  5. Load function

    LoadFunctionLibrary "\\MGPCTFSW01\UserFolders$\"&UserAccount&"\Desktop\Portal_Smoke_1214\Functions\Functions.qfl"

  6. 键盘输入

Dim wshshell

Set wshshell=createobject("wscript.shell")

wshshell.sendkeys"{ENTER}"

VBS 学习的更多相关文章

  1. VBS学习日记(一个) 开始了解

    Vbs 一个 Windows 脚本,其代表 :Microsoft Visual Basic Script Editon.( 微软可视化BASIC 脚本版),VBS 是 Visual Basic 的的一 ...

  2. QTP vbs学习

    1.helloworld Dim helloworld helloworld = "QTP自动化测试技术导航" mxgbox helloworld   2.显示申明变量 Optio ...

  3. VBS学习

    简介 VBS windows脚本 Microsoft visual basic script editionVBS 是visual basic的一个抽象子集,系统内置,不编译为二进制文件,(由host ...

  4. vbs学习笔记1——判断文件和文件夹是否存在

    首先分享一个“VBS脚本常用经典代码收集”,这里面关于vbs很丰富的内容. 所有vbs脚本都需要保存为.vbs形式才可以运行 FileSystemObject Object的所有方法参考:http:/ ...

  5. VBS学习:流程控制语句判断结构

    一.数值运算: 1) Dim a,b,c a=inputbox("a是:","输入半径") b=Inputbox("b是:","输 ...

  6. vbs学习笔记2——创建桌面快捷方式

    脚本 Set WshShell = WScript.CreateObject("WScript.Shell") strDesktop = WshShell.SpecialFolde ...

  7. VBS学习日记(二) 基础知识

    VBScript 基础知识 一.变量 1.全部单引號后面的内容都被解释为凝视.(在vbsedit中ctrl+m凝视,反凝视ctrl+shift+m) 2.在 VBScript 中,变量的命名规则遵循标 ...

  8. QTP学习一添加默认的注释及调用外部vbs文件

    一.添加默认注释 1.新建一个TXT文档,将要添加的注释写在文档中 2.再将文档名改为:ActionTemplate.mst 3.将文件放到QTP安装目录(默认为:C:\Program Files\H ...

  9. VBS数组函数学习实例分析

    Array 函数 返回包含数组的Variant. Array(arglist) 参数:arglist是赋给包含在Variant中的数组元素的值的列表(用逗号分隔).如果没有指定此参数,则将会创建零长度 ...

随机推荐

  1. Entity Framework Tutorial Basics(10):Entity Lifecycle

    Entity Lifecycle: Before we work on CRUD operation (Create, Read, Update, Delete), it's important to ...

  2. 数据结构_我不会AVL_wbhavl

    问题描述 欢迎来到暴走数据结构,我是洪尼玛.今天,我们来玩 AVL 树,怎么玩呢? 很简单:给你 n 个数字,你需要按顺序插入一棵 AVL树中,然后输出每个数所在节点的深度(从 1 开始).因为我不会 ...

  3. 机器学习基石笔记:11 Linear Models for Classification、LC vs LinReg vs LogReg、OVA、OVO

    原文地址:https://www.jianshu.com/p/6f86290e70f9 一.二元分类的线性模型 线性回归后的参数值常用于PLA/PA/Logistic Regression的参数初始化 ...

  4. 自定义非等高 Cell

    1.自定义非等高 Cell介绍 1.1 代码自定义(frame) 新建一个继承自 UITableViewCell 的类. 重写 initWithStyle:reuseIdentifier: 方法. 添 ...

  5. day01.3-常用Dos命令

    一.  常用Dos命令 Windons系统下:开始 —> 运行—> cmd —> 进入命令运行界面 1.  ipconfig /? |—> 查看ip帮助: 2.  ping / ...

  6. 青橙 A1280. 最长双回文串

    A1280. 最长双回文串 时间限制:2.0s   内存限制:512.0MB   总提交次数:   AC次数:   平均分:   将本题分享到:        查看未格式化的试题   提交   试题讨 ...

  7. vue file-loader vs url-loader

    1.前言 如果我们希望在页面引入图片(包括img的src和background的url).当我们基于webpack进行开发时,引入图片会遇到一些问题. 其中一个就是引用路径的问题.拿backgroun ...

  8. xPath在C#中运用

    <?xml version="1.0" encoding="utf-8" ?> <pets>   <cat color=" ...

  9. P4219 [BJOI2014]大融合 LCT维护子树大小

    \(\color{#0066ff}{ 题目描述 }\) 小强要在\(N\)个孤立的星球上建立起一套通信系统.这套通信系统就是连接\(N\)个点的一个树. 这个树的边是一条一条添加上去的.在某个时刻,一 ...

  10. 微信网页授权操作逻辑封装-C#实例

    http://blog.csdn.net/u011127019/article/details/52650619