WinWaitActive("Pubwin 控制台","",3)
If FileExists("c:\jiezhang.txt") Then
Local $file = FileOpen("c:\jiezhang.txt",0)
If $file <> -1 Then
; 每次读取一行文本,直到文件结束.
For $i=1 To 100
Local $line = FileReadLine($file,$i)
If @error = -1 Then ExitLoop
Send($line)
Sleep(5000)
Send("{ENTER}}")
WinWaitActive("结账","",1)
Send("{space}{ESC}")
Next
FileClose($file)
EndIf
EndIf