问题请教
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:").TypemicTab
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？ Dialog("Login").WinEdit("Agent Name:").Setusrname
Dialog("Login").WinEdit("Password:").Setpassword
页:
[1]
