猴子测试及获取系统信息

 

'
''运行IE
'systemutil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://108.88.3.123:8081/admin/index.jsp"
'Services.StartTransaction "userlogin" 'LR性能测试事务
'
'
''自定义函数
'Public Function one
'       ' TODO: add function body here
'    Reporter.ReportEvent micPass,"Pass","Test Pass"
'End Function
'
''调用函数
''one
'
'Set TestPage=Browser("欢迎登陆网站后台管理系统").Page("欢迎登陆网站后台管理系统")
'Set TestBrowser=Browser("欢迎登陆网站后台管理系统")
'TestBrowser.Sync
'TestPage.WebElement("1206_1").Check CheckPoint("1206_1")
''检查网页链接
'TestPage.Check CheckPoint("欢迎登陆网站后台管理系统")
''网页可访问性
''Browser("欢迎登陆网站后台管理系统").Page("欢迎登陆网站后台管理系统").Check CheckPoint("欢迎登陆网站后台管理系统_可访问性")
'one
'TestPage.WebEdit("user").Output CheckPoint("user_2")
'TestPage.WebEdit("user").Set DataTable("user", dtGlobalSheet)
'TestPage.WebEdit("user").Check CheckPoint("user")
'one
'TestPage.WebEdit("password").Output CheckPoint("password_2")
'TestPage.WebEdit("password").SetSecure DataTable("password",dtGlobalSheet)
'TestPage.WebEdit("password").Check CheckPoint("password")
'TestPage.Image("login_button").Output CheckPoint("login_button")
'one
'TestPage.Image("login_button").Click 32,11
''Browser("欢迎登陆网站后台管理系统").Page("欢迎登陆网站后台管理系统").Image("login_button").Check CheckPoint("login_button_2")
'one
'
'TestBrowser.Sync
'TestBrowser.Page("Page").Frame("topwin").Link("注销").Click
'TestBrowser.Sync
'TestBrowser.Close
'Services.EndTransaction "userlogin" 'LR性能测试事务
'
'
''查找QTP->Tools->Option->Folder的目录的文件
''y=PathFinder.Locate("ftnstat.stat")
''msgbox y
'
'
''获取系统信息
'OS=Environment.Value("OS")
'OSVersion=Environment.Value("OSVersion")
'TestName=Environment.Value("TestName")
'IEversion=Environment.Value("IEversion")
'Reporter.ReportEvent micDone , "Environment" ,"运行测试脚本:" &TestName & "的操作系统为:" & OS & "版本为:" & OSVersion & "浏览器为:" & IEversion
''
'
'systemutil.Run "logman","start perf_log"
'systemutil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://108.88.3.123:8081/admin/index.jsp"
'Browser("欢迎登陆网站后台管理系统").FullScreen
'Randomize
'For Iterator = 1 To 10 Step 1
''key=array("1","2","3","4","5","6","7","8","9","0","q","w","e","r","t","y","u","i","o","p","a","s","d","f","g","h","j","k","l","z","x","c","v","b","n","m","!","@","#","$","%","^","&","*","(",")","_","+","{","}","|",":","<",">","?",",",".","/",";","'","[","]","\","=","-")
'key=array("123456","%^&*(","是砂")
'n=randomnumber(0,2)
'send=key(n)
''msgbox send
''
''
'
'with Browser("欢迎登陆网站后台管理系统").Page("欢迎登陆网站后台管理系统")
'.webedit("user").set send
'.WebEdit("password").Set send
''.Image("login_button").VirtualObject("loning_BT").Click
'end with
'wait (1)
'With Browser("欢迎登陆网站后台管理系统")
'.Refresh
'End With
'Next
'

'
''WMI获取屏幕高度与宽度
'Computer="."
'Set objWMIService=GetObject("winmgmts:\\"& Computer &"\root\CIMV2")
'Set colItems=objWMIService.execquery("select * from win32_desktopMonitor",,48)
'For Each objitem In colitems
'height=objitem.screenheight
'width=objitem.screenwidth
'Next
'MsgBox width & "," & height
'
''获取系统日志信息
'systemutil.Run "logman","start perf_log"
'systemutil.Run "logman","stop perf_log"
'
'
''Net获取屏幕高度与宽度
'Set CreateInstance=DotNetFactory.CreateInstance("System.Windows.Forms.Screen","System.Windows.Forms")
'width=CreateInstance.primaryscreen.workingarea.width
'height=CreateInstance.primaryscreen.workingarea.height
'msgbox width & "," & height
'
'
''光标任意点击测试
'Extern.Declare micVoid,"MouseEvent","user32.dll","mouse_event",micInteger,micInteger,micInteger,micInteger,micInteger
'Extern.MouseEvent 80+1,10,100,0,0
'Extern.MouseEvent 2+4,0,0,0,0
'Extern.Declare micInteger,"WindowFromPoint","user32.dll","WindowFromPoint",micInteger,micInteger
'msgbox Extern.WindowFromPoint (0,0)

''截屏,图片存在报告文件夹下，以日期名称生成的NPG
'str=Now
'Set regEx=new RegExp
'regEx.Pattern=":"
'regEx.IgnoreCase=true
'str1=regEx.replace(str,"_")
'str2=regEx.replace(str1,"_")
'str3=str2 & "_"&RandomNumber(0,10000)
'DeskTop.CaptureBitmap str3 & ".png"

'
'
''界面随意点击测试
'Set APIINstance=DotNetFactory.CreateInstance("WinAPI.MouseAPI","D:\WinAPI.dll")
'APIINstance.MoveMouse x,y
'Reporter.ReportEvent micDone,"MouseMove","光标" & x & ", " &y
'APIINstance.ClickMouse "Left",x,y,0,0
'Reporter.ReportEvent micDone,"MouseClick","光标" & x & "," & y
'

 

 

'C:\perflosg\查看log
systemutil.Run "logman","start perf_log"
systemutil.Run "C:\Program Files\Internet Explorer\IEXPLORE.EXE","http://108.88.3.123:8081/admin/index.jsp"
Browser("欢迎登陆网站后台管理系统").FullScreen
with Browser("欢迎登陆网站后台管理系统").Page("欢迎登陆网站后台管理系统")
.webedit("user").set "vikes"
.WebEdit("password").Set "vikes"
end with
wait (1)
With Browser("欢迎登陆网站后台管理系统")
.Refresh
End With

 

'Net获取屏幕高度与宽度
Set CreateInstance=DotNetFactory.CreateInstance("System.Windows.Forms.Screen","System.Windows.Forms")
width=CreateInstance.primaryscreen.workingarea.width
height=CreateInstance.primaryscreen.workingarea.height
'msgbox width & "," & height

For i =1 to 10
 x=RandomNumber(0,Width)
 y=RandomNumber(100,Height)

Set APIINstance=DotNetFactory.CreateInstance("WinAPI.MouseAPI","D:\WinAPI.dll")
APIINstance.MoveMouse x,y
Reporter.ReportEvent micDone,"MouseMove","光标" & x & ", " &y
APIINstance.ClickMouse "Left",x,y,0,0
Reporter.ReportEvent micDone,"MouseClick","光标" & x & "," & y

key=array("1","2","3","4","5","6","7","8","9","0","q","w","e","r","t","y","u","i","o","p","a","s","d","f","g","h","j","k","l","z","x","c","v","b","n","m","!","@","#","$","%","^","&","*","(",")","_","+","{","}","|",":","<",">","?",",",".","/",";","'","[","]","\","=","-")
'key=array("123456","%^&*(","是砂")
n=randomnumber(0,2)
str=key(n)

Set SendkeyInstance=DotNetFactory.CreateInstance("System.Windows.Forms.SendKeys","System.Windows.Forms")
SendkeyInstance.SendWait str

str=Now
Set regEx=new RegExp
regEx.Pattern=":"
regEx.IgnoreCase=true
str1=regEx.replace(str,"_")
str2=regEx.replace(str1,"_")
str3=str2 & "_"&RandomNumber(0,10000)
DeskTop.CaptureBitmap str3 & ".png"

Next

systemutil.Run "logman","stop perf_log"