獲取系統(tǒng)用戶(hù)名

DimWshNetwork

Set WshNetwork =CreateObject("WScript.Network")

strTaccount = WshNetwork.UserName

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

獲取系統(tǒng)時(shí)間

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

randomize()

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

Split ,Ubound,For each

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

For each Strs In MyStrs

Print Strs

Next

返回一個(gè)下標(biāo)從0到ubound(MyStrs)的數(shù)組，數(shù)組元素共ubound(a)+1個(gè)

啟動(dòng)應(yīng)用程序

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

關(guān)閉后臺(tái)進(jìn)程

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

獲取系統(tǒng)時(shí)間?

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

后臺(tái)啟動(dòng)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"

Others

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

從字符串中返回指定數(shù)目的字符 Mid(string, start[, length])

從字符串右邊返回指定數(shù)目的字符 Right(string, length)

返回指定數(shù)目的從字符串左邊算起的字符 Left(string, length)

把變量b轉(zhuǎn)換為字符串 a=CStr(b)

將一個(gè)字符串中的小寫(xiě)字母轉(zhuǎn)化為大寫(xiě)字母 Ucase()

返回一個(gè)字符串在另一個(gè)字符串中首次出現(xiàn)的位置 InStr()

Load function

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

?

鍵盤(pán)輸入

?