Hej har ett gammalt dosprogram som jag vill kunna styra upp från vb.net
vid chatten fick jag en vägledning av en kille från finnland, men senare blev det stopp har provat olika varianter.

problemet som jag ser det är att
det funkar bra till

proc.StartInfo.Arguments = "cdbastb.txt -lt"

denna process får i gång allt men sen får jag ej ut någon data det verkar som om de andra argumenten
ej tar !

Vad gör jag för fel



ligger i ett formulär

Dim proc = New Process
proc.StartInfo.WorkingDirectory = "c:\cykler"
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.RedirectStandardInput = True
proc.StartInfo.FileName = "c:\cykler\moving"
proc.Start()
proc.StartInfo.Arguments = "cdbastb.txt -lt"
proc.StandardOutput.Read()
proc.StartInfo.Arguments = "ap.prn"
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("ap.prn")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("y")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("N")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("N")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("6510,0,1")
proc.StandardOutput.Read()

proc.WaitForExit()
proc.Dispose()

mvh Per H

Borde fungera om du sätter:
<code>
proc.StartInfo.Arguments = """cdbastb.txt"" ""-lt"""
</code>

Tack Robert !

Dock funkar det ej
helt klart är att jag får i gång programet dvs moving startar,
men att dessa parametrar ej kommer in
proc.StandardInput.WriteLine("""ap.prn""") osv
kan det vara så att dosprogramet bör ha en vänteperriod på några millesekunder eller ??

Jag är mycket tacksam över att du lägger ner tid mvh Per H

Dim proc = New Process
proc.StartInfo.WorkingDirectory = "c:\cykler"
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = True
proc.StartInfo.RedirectStandardInput = True
proc.StartInfo.FileName = "c:\cykler\moving"
proc.Start()
proc.StartInfo.Arguments = """cdbastb.txt"" ""-lt"""
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("""ap.prn""")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("""y""")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("""N""")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("""N""")
proc.StandardOutput.Read()
proc.StandardInput.WriteLine("""6510,0,1""")
proc.StandardOutput.Read()

proc.WaitForExit()
proc.Dispose()

Gjorde lite test med följande kod och kom fram till några slutsatser:
Du borde ha raden med StartInfo.Arguments innan proc.start()
Du bör inte sätta RedirectStandardOutput=True om du inte tänker använda informationen processen lämnar ifrån sig och du behöver då heller inte använda proc.StandardOutput.Read()
Däremot kan det tänkas att du behöver använda proc.StandardInput.Flush() för att pocessen skall fatta att den inte skall vänta på mer input innan den går vidare.

Lycka till // Robert

<code>
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim proc = New Process()
proc.StartInfo.WorkingDirectory = "c:\windows\system32"
proc.StartInfo.UseShellExecute = False
proc.StartInfo.RedirectStandardOutput = False
proc.StartInfo.RedirectStandardInput = True
proc.StartInfo.FileName = "c:\windows\system32\cmd.exe"
proc.Start()
proc.StandardInput.WriteLine("echo ap.prn")
proc.StandardInput.WriteLine("echo y")
proc.StandardInput.WriteLine("echo N")
proc.StandardInput.WriteLine("echo N")
proc.StandardInput.WriteLine("echo 6510,0,1")

proc.WaitForExit()
proc.Dispose()
End Sub
</code>
[EDIT]
OBS! Koden ovan är inte tänkt att motsvara den du behöver till ditt program, t.ex ska du inte skicka "echo" till ditt program och du startar inte i "c:\windows\system32"

Hej Robert !
Det gick inte så bra när jag körde direkt mot gamla dosprogrrammet,men om jag gjorde några bat filer och sedan använde mig av din lösning fungerade det mycket bra.
Tusen Tacck för hjälpen och åter tusen tack
Mvh Per Höglund