HP-VB

接着上面的来，书写函数库文件

登录脚本和写入文件函数的脚本，（ByRef Name, ByRef Password ）传递两个参数，一个是用户名一个是密码,Login函数就是登录，返回一个布尔值，登录成功就返回true，登录失败返回false，可以打印结果查看

Public Function Login(ByRef Name, ByRef Password)
      ' 登录航班订票系统
     SystemUtil.Run"C:\Program Files (x86)\HP\Unified Functional Testing\samples\flight\app\flight4a.exe"
     Dialog("Login").WinEdit("Agent Name:").Set Name
     Dialog("Login").WinEdit("Password:").Set Password
     Dialog("Login").WinButton("OK").Click
     
     If Dialog ("Login").Exist Then
      Login=false
       ' msgbox Login     打印结果
      else
        Login=true
        'msgbox Login    打印结果  可以注释掉
     End If
End Function