RunProgram() und net.exe -> keine Ausgabe

Für allgemeine Fragen zur Programmierung mit PureBasic.
SBond
Beiträge: 266
Registriert: 22.05.2013 20:35

RunProgram() und net.exe -> keine Ausgabe

Beitrag von SBond »

Hi Leute,

ich versuche seit einigen Stunden vergeblich die Ausgabe von net.exe in PureBasic einzulesen. Kennt jemand von euch dieses Problem und eventuell eine Lösung?

lg,
SBond

Code: Alles auswählen

; hier erhalte ich eine Ausgabe:
hProgramm = RunProgram("cmd", "/c dir c:\", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Write | #PB_Program_Hide)
sNachricht.s = ""

If hProgramm  
	While ProgramRunning(hProgramm)
		If AvailableProgramOutput(hProgramm)
			sNachricht + ReadProgramString(hProgramm) + Chr(13)
		EndIf
	Wend
  
	CloseProgram(hProgramm)
	MessageRequester("",sNachricht)
EndIf



; hier nicht :(
hProgramm =  RunProgram("C:\Windows\System32\net.exe", "use Z: \\Computername /user:Username Passwort /PERSISTENT:NO", "C:\Windows\System32\", #PB_Program_Open | #PB_Program_Read | #PB_Program_Write | #PB_Program_Hide)
sNachricht.s = ""

If hProgramm  
	While ProgramRunning(hProgramm)
		If AvailableProgramOutput(hProgramm)
			sNachricht + ReadProgramString(hProgramm) + Chr(13)
		EndIf
	Wend
  
	CloseProgram(hProgramm)
	MessageRequester("",sNachricht)
EndIf
41 6c 73 6f 20 77 65 6e 6e 20 64 75 20 73 6f 20 76 69 65 6c 20 4c 61 6e 67 65 77 65 69 6c 65 20 68 61 73 74 2c 20 64 61 6e 6e 20 6b 61 6e 6e 73 74 20 64 75 20 61 75 63 68 20 67 6c 65 69 63 68 20 7a 75 20 6d 69 72 20 6b 6f 6d 6d 65 6e 20 75 6e 64 20 61 62 77 61 73 63 68 65 6e 2e

:D
Benutzeravatar
Bisonte
Beiträge: 2476
Registriert: 01.04.2007 20:18

Re: RunProgram() und net.exe -> keine Ausgabe

Beitrag von Bisonte »

Nur ein Versuch : Kompiliere in ASCII Modus ?
PureBasic 6.21 (Windows x86/x64) | Windows11 Pro x64 | AsRock B850 Steel Legend Wifi | R7 9800x3D | 64GB RAM | GeForce RTX 5080 | ThermaltakeView 270 TG ARGB | build by vannicom​​
Benutzeravatar
Kiffi
Beiträge: 10725
Registriert: 08.09.2004 08:21
Wohnort: Amphibios 9

Re: RunProgram() und net.exe -> keine Ausgabe

Beitrag von Kiffi »

eine Ausgabe von net.exe erfolgt grundsätzlich. Kann man hier sehen:

Code: Alles auswählen

hProgramm =  RunProgram("C:\Windows\System32\net.exe", "help", "C:\Window...
@SBond: Was sagt denn "net use ...", wenn Du es normal in der CMD ausführst?

Grüße ... Kiffi
a²+b²=mc²
SBond
Beiträge: 266
Registriert: 22.05.2013 20:35

Re: RunProgram() und net.exe -> keine Ausgabe

Beitrag von SBond »

also kompiliert wird im ASCII-Modus und nicht als Unicode-Exe.

In der normalen Konsole erhalte ich eine Ausgabe, solange ich nicht die Flags: #PB_Program_Open und #PB_Program_Read verwende. Andere Konsolenanwendungen funktionieren problemlos, nur net.exe nicht.
41 6c 73 6f 20 77 65 6e 6e 20 64 75 20 73 6f 20 76 69 65 6c 20 4c 61 6e 67 65 77 65 69 6c 65 20 68 61 73 74 2c 20 64 61 6e 6e 20 6b 61 6e 6e 73 74 20 64 75 20 61 75 63 68 20 67 6c 65 69 63 68 20 7a 75 20 6d 69 72 20 6b 6f 6d 6d 65 6e 20 75 6e 64 20 61 62 77 61 73 63 68 65 6e 2e

:D
Antworten