C Procedure übersetzen nach PB

Fragen zu allen anderen Programmiersprachen.
Benutzeravatar
MJP
Beiträge: 72
Registriert: 14.10.2004 18:45
Wohnort: Nähe Frankfurt/Hessen
Kontaktdaten:

C Procedure übersetzen nach PB

Beitrag von MJP »

Moin..., :mrgreen:
Ich möchte gerne ein Remote Tool schreiben und ich habe nach langen suchen im WWW diese Procedure gefunden. Könnte mir das bitte übersetzten? :) Ich bin dafür ein bissi zu blöd :oops:

Code: Alles auswählen

DWORD
   PsExecRemoteLogon (
   LPCSTR lpComputerName,
   LPCSTR lpUserName,
   LPCSTR lpPassword
   )
   {
	char szFullPath [_MAX_PATH];
	NETRESOURCE NetResource;
	sprintf (szFullPath, "\\\\%s\\IPC$");
	// Initialize NetResource structure, omitted here
	...
	return (NO_ERROR == 
		WNetAddConnection2 (
			&NetResource, 
			lpPassword, 
			lpUserName, 
			0)
		);
   } 
Hier der Link wo ich es her hab:
http://www.ntkernel.com/articles/psexec.shtml

Ich hab auch in Msdn gesuch hier ein Link:
http://msdn.microsoft.com/library/defau ... ce_str.asp

Thx MJP :mrgreen:
Alle Reschtsreib feler sind beabsichticht unn kosten nichs echtra ;-D
Visit ---|> http://www.Komani.de/
traumatic
Beiträge: 478
Registriert: 27.11.2004 15:42

Re: C Procedure übersetzen nach PB

Beitrag von traumatic »

Leider ist die Funktion nicht komplett...

Code: Alles auswählen

// Initialize NetResource structure, omitted here
...
...bringt so also nicht wirklich etwas.

Was genau verstehst Du denn nicht? Hilft Dir das folgende schon weiter?

Code: Alles auswählen

Procedure.l PsExecRemoteLogon(ComputerName.s, UserName.s, Password.s)
  ; Char szFullPath [_MAX_PATH] ; konvertierung hängt davon ab,
                                ; was hiermit noch geschehen wird...
                                ;
                                ; a) FullPath.s
                                ; b) Dim FullPath.b(#MAX_PATH)
  
  NETRESOURCE.NETRESOURCE
  ; sprintf (szFullPath, "\\\\%s\\IPC$")  ; gibt die Variable FullPath
                                          ; formatiert wieder aus, irrelevant
                                          ; da zur Zeit leer (?)
  
  ; Initialize NETRESOURCE Structure, omitted here  ; der eigentlich interessante Teil ;)

  ProcedureReturn WNetAddConnection2_(@NETRESOURCE, Password, UserName, 0)  ; ist 0 (#NO_ERROR) wenn erfolgreich
EndProcedure
Ohne Gewähr - ist irgendwie blöd ohne kompletten Code... ;)
Benutzeravatar
MJP
Beiträge: 72
Registriert: 14.10.2004 18:45
Wohnort: Nähe Frankfurt/Hessen
Kontaktdaten:

Beitrag von MJP »

Ohhh... nich so ganz :oops: abba halb!
Leider ist die Funktion nicht komplett...

Code: Alles auswählen

// Initialize NetResource structure, omitted here 
... 
...bringt so also nicht wirklich etwas.
Dafür habe ich eigentlich auch den Msdn Link mitgeliefert... :)
http://msdn.microsoft.com/library/defau ... ce_str.asp

Sorry ich habe noch nie Code übersetzt dafür bin ich noch net gut genug in PB... :oops:

Thx 4 Help traumatic :allright:
Alle Reschtsreib feler sind beabsichticht unn kosten nichs echtra ;-D
Visit ---|> http://www.Komani.de/
traumatic
Beiträge: 478
Registriert: 27.11.2004 15:42

Beitrag von traumatic »

MJP hat geschrieben: Dafür habe ich eigentlich auch den Msdn Link mitgeliefert... :)
http://msdn.microsoft.com/library/defau ... ce_str.asp
Ja, aber dann guck Dir doch mal an, welche Flags da alle gesetzt werden können...
woher soll ich denn jetzt wissen, was in Deinem Beispiel nötig ist... :mrgreen:

Den Artikel von ntkernel.com werde ich mir jetzt mit Sicherheit nicht reinziehen ;)
Sorry!

ABER:
Wenn Du Schwierigkeiten beim Verstehen von Code oder der Übersetzung in PureBasic
hast, versuche ich natürlich gerne, zu helfen.
Antworten