PureBasic Forums - English

Posted: **Wed Nov 02, 2016 6:46 pm**

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


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

Posted: **Fri Nov 04, 2016 3:03 am**

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

PureBasic Forums - English

RunProgram input

RunProgram input

Re: RunProgram input