问题请教

lp7wshishui

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

Dialog("Login").WinEdit("Agent Name:").Set  usrname
Dialog("Login").WinEdit("Password:").Set  password