Visual Basic Forum

kra_ · Tutorial Leser Anmeldedatum: 18.03.2007 Beiträge: 22

hi hab hier mal wieder ne frage und zwar folgende: Wie kann ich dem server sagen,wenn ich bei dem client den button start klicke, dass er eine exe auf dem server startet?

ich brauche nur einen befehl, der dem server sagt, mach etwas mit der exe.

z.b
client: ich klicke auf button. der befehl wird gesendet und sagt dem server starte die exe.

hoffe ihr versteht was ich meine und könnt mir helfen

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Beispiel:

Client
[code]
Dim cmd as string 'In cmd geben wir unseren Befehl
cmd = "execute" 'execute wird übergeben
filepath = "C:\xyz.exe" 'Pfad zu Datei die ausgeführt werden soll
ws.SendData (cmd & "'#" & filepath & "#") 'Die Daten werden zusammengehängt mit einem Trennzeichen dazwischen und übermittelt.
[/code]

server
[code]
Dim buffer as string 'Variable zum empfangen der Daten
Dim cmd() as string 'Array in das der empfangene String aufgeteilt wird.

ws.GetData buffer 'Daten werden empfangen

cmd() = Split(buffer, "#") 'String wird bei den Trennzeichen gesplitted

select case (cmd(0)) 'Es wird überprüft welcher Befehl übermittelt wurde
case "execute" 'Wenn execute übermittelt wurde, dann wird Call Shell ausgeführt
Call Shell(cmd(1), vbHide) 'Call Shell startet die Datei
end select
[/code]

mfg, ZiG
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

kra_ · Tutorial Leser Anmeldedatum: 18.03.2007 Beiträge: 22

okey vielen dank zig hast mri schon ein stück weiter geholfen.

wäre das so richtig bei dem befehl (local wird der befehl so lauten)
[code]Call Shell(App.Path & "\" & txt_exe.Text & " -f scan.txt " & txt_threads.Text, vbHide)
[/code]
.[code] Dim cmd As String 'In cmd geben wir unseren Befehl
dim txt_exe as string
dim txt_scan as string
dim txt_treads as string
cmd = "execute" 'execute wird übergeben
filepath = "App.Path" 'Pfad zu Datei die ausgeführt werden soll
txt_exe = txt_exe.text
txt_scan = "-f scan.txt"
txt_treads = txt_treads.text
ws.SendData (cmd & "'#" & filepath & "#" & "/" & "'#" & txt_exe & "#" & txt_scan & "#" & txt_treads & "#") 'Die Daten werden zusammengehängt mit einem Trennzeichen dazwischen und übermittelt[/code]

und mit dem server komm ich jetzt dann gar nich weiter...

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Naja. Da du "App.Path" nutzt brauchen wir z.B. den Filepath doch nicht mit übermitteln.
Und die ganzen Parameter die du anhängst, bzw. die Filenamen, brauchst du nicht alle trennen zum übermitteln.

Client:
[code]
ws.SendData (cmd & "#" & "/" & txt_exe & txt_scan & txt_treads & "#")
[/code]

Der server könnte dann so bleiben wie ich es oben schon gepostet habe.
In cmd(0) wäre der Befehl, damit der server weiß welche Aktion er durchführen soll und in cmd(1) sind deine zusätzlichen Parameter drin.

Nur eins mußt du anpassen. App.Path mußt du noch einfügen beim server.
[code]
Call Shell(App.Path & cmd(1), vbHide) 'Call Shell startet die Datei
[/code]
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)