Bitte wähle nachfolgend aus, welche Beiträge auf dieser Themenseite auf dem Ausdruck ausgegeben werden sollen. Um dies zu tun markiere bitte die Checkbox auf der linken Seite der Posts, die im Ausdruck berücksichtigt werden sollen und klicke anschließend ganz unten auf der Seite auf den Button "Drucken".

FinCmd verwenden mit visual basic?

Deathmean

Betreff:

FinCmd verwenden mit visual basic?

 ·  Gepostet: 01.11.2010 - 15:59 Uhr  ·  #70917
Hi,
ich versuche mit visual basic die FinCmd.exe zu bedienen.
Mit Shell oder Process.Start geht es aber nicht oder mache ich was falsch?

Kennt jemand eine Lösung?

Bin für Besipiele in vb und c# dankbar.

Deathmean

Betreff:

Re: FinCmd verwenden mit visual basic?

 ·  Gepostet: 01.11.2010 - 16:36 Uhr  ·  #70918
Das funktioniert:
Zitat

Dim procInfo As New ProcessStartInfo()
With procInfo
.FileName = Application.StartupPath & "\BankingTools\FinCmd.exe"
'.FileName = "cmd.exe"
'.UseShellExecute = False
'.CreateNoWindow = False
'.Verb = "runas"
.Arguments = "statement -contactname apoBankDüsseldorf -acctno 0001956434 -pin 11111 -format csv"
'.RedirectStandardOutput = True
End With

Dim proc As New System.Diagnostics.Process

With proc
'.EnableRaisingEvents = True
.StartInfo = procInfo
End With

proc.Start()
proc.WaitForExit()
Dim sr As IO.StreamReader = proc.StandardOutput
While sr.EndOfStream = False
TextBox1.AppendText(sr.ReadLine & vbCrLf)
Application.DoEvents()
End While


Aber als Output kommt leider nichts

Deathmean

Betreff:

Re: FinCmd verwenden mit visual basic?

 ·  Gepostet: 01.11.2010 - 17:00 Uhr  ·  #70920
Code

    Dim procInfo As New ProcessStartInfo()
        With procInfo
            .FileName = Application.StartupPath & "\BankingTools\FinCmd.exe"
            .UseShellExecute = True
            .CreateNoWindow = False
            .Verb = "runas"
            .Arguments = "statement -contactname apoBankDüsseldorf -acctno 0001956434 -pin 11111 -format csv >C:\Users\Ich\Desktop\out1.csv"

        End With

        Dim proc As New System.Diagnostics.Process

        With proc
            .EnableRaisingEvents = True
            .StartInfo = procInfo
        End With

        proc.Start()
        proc.WaitForExit()

und hier kommt ein Fehler