RunProgram input

[callroot]

OpenConsole ()
Use RunProgram to call the FTP input "hnysc.com open" and then enter the account and password

Code: Select all

If OpenConsole()
  ConsoleTitle("1111111111111111")
  pc=RunProgram("FTP" ,"open hnysc.com", "",#PB_Program_Open)

 Input()
 EndIf

Did not find examples of who can help to write a

[citystate]

perhaps something like this?

Code: Select all

If OpenConsole()
  ConsoleTitle("1111111111111111")
  pc=RunProgram("FTP" ,"", "",#PB_Program_Open|#PB_Program_Write)
  While ProgramRunning(pc)
    a$=Input()
    If LCase(a$)="end"
      CloseProgram(pc)
      Break
    ElseIf ProgramRunning(pc)
      WriteProgramStringN(pc,a$)
    Else
      Break
    EndIf
  Wend
  CloseConsole()
EndIf