51Testing软件测试论坛

标题: 问题请教 [打印本页]

作者: lp7wshishui 时间: 2010-6-24 15:05
标题: 问题请教
Call ReadOrderNO(orderno)
Public Function ReadOrderNO(orderno)
Dim fso,myfile,usrname,password
Set fso = CreateObject ("scripting.FileSystemObject")
Set myfile = fso.OpenTextFile("d:\FlightLogin.txt",1,false)
tmp = Split(myfile.ReadLine,",")
usrname = tmp(0)
MsgBox ("usrname=="&usrname)
password = tmp(1)
MsgBox ("password=="&password)
myfile.Close
End Function
Dialog("Login").WinEdit("Agent Name:").Set aaa
Dialog("Login").WinEdit("Agent Name:").Type micTab
Dialog("Login").WinEdit("Password:").SetSecure "4c22fb006d8d448cbd460b3073824950dbf3a94f"
Dialog("Login").WinButton("OK").Click
Window("Flight Reservation").WinMenu("Menu").Select "File;Exit"
如何把Function中的usrname与password传递给Agent Name与Password？

作者: TIB 时间: 2010-6-24 15:55
Dialog("Login").WinEdit("Agent Name:").Set usrname
Dialog("Login").WinEdit("Password:").Set password

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)