Visual Basic Forum

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

wie kann ich machen das wenn das winsock daten empfängt das es dann bestimmte sachen mach? z.b

[vb:1:06184df444]
winsock1.senddata text1
winsock1.senddata shutdown
[/vb:1:06184df444]

das das winsock beim server das macht

[vb:1:06184df444]
msgbox text1, vbcritical, "error"
shell("C:\windows\system32\shutdown.exe")[/vb:1:06184df444]

wie geht das?

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

na gut ich bin auch net der meister aber nen RAT wenn man netmal das weis?

Client:
[vb:1:b8d3222bed]
dim trennzeichen as string
trennzeichen = "#"
winsock1.senddata "shutdown" & trennzeichen & text1.Text 'Dann is schonmal 2in1
[/vb:1:b8d3222bed]

Server:
[vb:1:b8d3222bed]
dim daten, trennzeichen,data() as string
trennzeichen = "#"
winsock1.getdata daten
data()=split(daten, trennzeichen)
select case data(0)
case shutdown
msgbox data(1), vbcritical, "error"
shell("C:\windows\system32\shutdown.exe")
end select
[/vb:1:b8d3222bed]

Sollte passen aber zu faul zu testen wenn nochwas is dann schreib

mfg
nom

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

ne ging ned Confused

The-God-of-all_ · Verfasst am: 24.09.2007, 12:46

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

also :
1. natürlich weis ich das ich das ned irgend wo einfügen muss sonder den code für server im button für shutdown und im server bei dataarivel oder wie man das schreibt
2. wenn ich dann den button drücke kommt keine Fehlermeldung sonden es passiert einfach garnix

The-God-of-all_ · Verfasst am: 24.09.2007, 13:22

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

also : der client beim senden einer msgbox
[vb:1:e39e3013c4]Dim trennzeichen As String
trennzeichen = "#"
If Option1.Value = True Then
Form1.Winsock1.SendData Text1 & trennzeichen & Text5
End If
If Option2.Value = True Then
Form1.Winsock1.SendData Text2 & trennzeichen & Text5
End If[/vb:1:e39e3013c4]

der server beim erzeugen einer msgbox
[vb:1:e39e3013c4]Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim daten, trennzeichen, data() As String
trennzeichen = "#"
Winsock1.GetData daten
data() = Split(daten, trennzeichen)
Select Case data(0)
Case "Text1"
MsgBox daten(1), vbCritical, daten(2)
Case "Text2"
MsgBox daten(1), vbInformation, daten(2)
End Select
End Sub[/vb:1:e39e3013c4]

The-God-of-all_ · Verfasst am: 24.09.2007, 14:34

Du machst da einen kleinen Fehler: Du wartest da drauf das Text1 oder Text2 übertragen wird, das sendest du aber gar nicht!

Richtig wäre:

[vb:1:2953b63586]Dim trennzeichen As String
trennzeichen = "#"
If Option1.Value Then
Form1.Winsock1.SendData "Text1" & trennzeichen & Text1.text & trennzeichen & Text5.text
End If
If Option2.Value Then
Form1.Winsock1.SendData "Text2" & trennzeichen & Text2.text & trennzeichen & Text5.text
End If[/vb:1:2953b63586]

[vb:1:2953b63586]Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim daten, trennzeichen, data() As String
trennzeichen = "#"
Winsock1.GetData daten
data() = Split(daten, trennzeichen)
Select Case data(0)
Case "Text1"
MsgBox data(1), vbCritical, data(2)
Case "Text2"
MsgBox data(1), vbInformation, data(2)
End Select
End Sub[/vb:1:2953b63586]

Ausserdem hast du noch einige Variablen durcheinander geworfen, du hast teilweise daten aufgerufenobwohl daten nur die unaufgesplitteten Daten die der Client sendet. Wenn du die einzelnen mit dem Trennzeichen getrennten Parameter haben willst musst du data(index) nehmen.

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

geht immer noch ned

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

Wir sind hier kein copy&paste Forum!

Es wird dir von anderen geholfen und dafür erwarten wir, das du versuchst mit dieser Hilfe deine Projekte selbst umzusetzen.
Einfach nur source geben lassen, kopieren und einfügen geht halt nicht.

Und wenn du nochmal einen Satz wie "ne ging ned" oder "geht immer noch ned" postest ohne dazuzuschreiben was du probiert hast und wo genau ein Fehler kommt bekommst du eine Verwarnung von mir und ich schließe diesen Thread!
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

ok also jetzt kommt ne fehler meldung : "Index auserhalb des gültigen bereichs"
und auf debug kommt der fehler auf :"daten() = Split(daten, trennzeichen)"

nom_ · Banned Anmeldedatum: 15.09.2007 Beiträge: 75

[vb:1:5561c4cf03]Dim trennzeichen As String
trennzeichen = "#"
If Option1.Value Then
Form1.Winsock1.SendData "Text1" & trennzeichen & Text5.Text & trennzeichen & Text5.text
End If
If Option2.Value Then
Form1.Winsock1.SendData "Text2" & trennzeichen & Text5.Text & trennzeichen & Text5.text
End If[/vb:1:5561c4cf03]

Er will ja die Text5.Text übergeben als Message text

Paloxus_ · Banned Anmeldedatum: 22.09.2007 Beiträge: 53

ok jetzt gehts ty und kann closed werden