Visual Basic Forum

Verfasst am: 20.06.2011, 06:33 Aufrufe: 451

Accept requestID ' Command1 anschalten damit man die Nachricht ' senden kann Command1.Enabled = True End Sub ' Wenn Daten ankommen Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim sData As String ' Die ankommenden Daten werden in einer Variable ' (strDaten) gespeichert Winsock1.GetData sData End Sub Private Sub Command1_Click() ' Nachricht wird zum Client gesendet ...

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

RemoteHost = Ip Winsock1.Connect End Sub Sub Winsock1_Connect() Debug.Print "Verbindung zu " & Winsock1.RemoteHost & " hergestellt" Winsock1.SendData "Anfrage" End Sub Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock1.GetData Daten Debug.print Daten End Sub Als Ausgabe erhalte ich: "Ve ...

Verfasst am: 28.10.2009, 16:46 Aufrufe: 556

Caption = "SERVER OFF" End Sub Private Sub srv_ConnectionRequest(ByVal requestID As Long) If srv.State <> sckClosed Then srv.Close End If srv.Accept requestID List1.AddItem ("Client connected") End Sub Private Sub srv_DataArrival(ByVal bytesTotal As Long) Dim message_m As String srv.GetData message_m Lis ...

Verfasst am: 16.08.2009, 17:28 Aufrufe: 672

Verfasst am: 15.06.2009, 12:16 Aufrufe: 1917

1", 2222 End Sub Private Sub ws_Close() Label1.Caption = "Connection lost" End Sub Private Sub ws_Connect() Label1.Caption = "Connection established" End SubUnd hier die Sub zum empfangen der Datei.Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim buffer As ...

Verfasst am: 07.05.2009, 12:38 Aufrufe: 1032

Mein Code: Private Sub wsTrashMailComCheck_DataArrival(ByVal bytesTotal As Long) 'On Error Resume Next Dim strSource As String Dim bufTitel As String Dim bufAbsender As String Dim bufAnkunft As String Dim bufMailID1 As String Dim bufMailID2 As String Dim strTitel As String Dim strAbsender As String Dim strAnkunft As String Dim strMailID1 As String Dim strMa ...

Verfasst am: 10.04.2009, 19:02 Aufrufe: 823

Close Winsock1.Accept requestID End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim data As String Winsock1.GetData data Dim arr() As String arr = Split(data, "#") '######## AUFLISTEN ALLER LAUFWERKE LISTVIEW 1 ####### If arr(0) = "dddddw" Then Dim oFSO As New FileSystemObject Dim oDrive As Drive Dim fff As String ...

Verfasst am: 16.09.2008, 17:16 Aufrufe: 2149

Verfasst am: 28.08.2008, 15:38 Aufrufe: 3056

Verfasst am: 22.08.2008, 00:06 Aufrufe: 3056

Verfasst am: 30.06.2008, 15:00 Aufrufe: 2871

Verfasst am: 14.05.2008, 19:58 Aufrufe: 920

SendData "USER Assasine Assasine Assasine Assasine Assasine" & vbCrLf End With Timer1.Enabled = False End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim strData As String, arrData() As String, i As Long, msg() As String, command As String, dat() As String, com As String, p As Integer, Reply As String, sInhalt As Str ...

Verfasst am: 06.05.2008, 17:18 Aufrufe: 1133

... t;br /> Length = GetLocaleInfo(LCID, ID, Buffer, 0) - 1 Buffer = Space(Length + 1) Result = GetLocaleInfo(LCID, ID, Buffer, Length) GetEntry = Left$(Buffer, Length) End Function Private Sub Winsock1_DataArrival(ByVal bytesTotal ...

Verfasst am: 17.04.2008, 12:04 Aufrufe: 2013

Das wichtigste ist jetzt, dass ihr in den Eigenschaften vom Winsock Control bei „Index“ eine 0(Null) hineinschreibt.Jetzt sieht eine Sub von Winsock z.B. so aus:Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)Wie ihr seht, bekommt ihr jetzt den Index der Verbindung, die euch etwas sendet, übergeben.Also jede Verbindung die ihr mit einem Server aufbaut, bzw. der Server mit euch, hat ...

Verfasst am: 13.04.2008, 16:27 Aufrufe: 565

SendData "X" Else figur = "O" Winsock1.SendData "O" End If End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim daten As String Dim feld() As String Winsock1.GetData daten If InStr(1, daten, "#") = 1 Then feld = Split(daten, "#") Select Case feld(0) Case "X" Label1(feld&# ...

Verfasst am: 03.04.2008, 15:16 Aufrufe: 371

machs am besten mit Select Case : Private Sub socket4_DataArrival(ByVal bytesTotal As Long) Dim StrData As String socket4.GetData StrData Select Case StrData Case test: MsgBox "lol" case killserver: Command1_Click end Select

Verfasst am: 03.04.2008, 15:08 Aufrufe: 371

Moin Leute! Hier erstmal ein Code vom DataArrival vom Server: Private Sub socket4_DataArrival(ByVal bytesTotal As Long) Dim StrData As String socket4.GetData StrData If StrData = "killserver" Then Command1_Click End If socket4.GetData StrData If StrData = "test" Then MsgBox "lol" End If End Sub Wenn der Client jetzt "killserver" sendet, wi ...

Verfasst am: 02.04.2008, 13:03 Aufrufe: 412

Nehm ma das Private Sub Socket1_DataArrival(ByVal bytesTotal As Long) Dim TestData As String socket1.GetData TestData If TestData = "test" Then socket4.Close MsgBox "test" End If End Sub

Verfasst am: 02.04.2008, 11:22 Aufrufe: 412

SubItems(2)).SendData "test" End If End If End If Hier sendet der Client "test". Im DataArrival steht das hier: Private Sub Socket1_DataArrival(ByVal bytesTotal As Long) Dim TestData As String socket1.GetData TestData If TestData = "test" Then socket4.Close MsgBox "test" End If ...

Verfasst am: 29.03.2008, 19:09 Aufrufe: 299

Beim winsock gibt es verschiedene Events. Z.B. das "DataArrival". http://img3.imagebanana.com/img/t61ecl9/1.JPG Wenn dein Winsock etwas empfängt, wird diese Prozedur ausgeführt. Du brauchst also nur eine Variable wo du das empfangene speicherst. Private Sub Winsock_DataArrival(ByVal bytesTotal As Long) Dim sData As String Winsock.GetData sData End Sub

Verfasst am: 27.02.2008, 09:48 Aufrufe: 626

Verfasst am: 27.02.2008, 09:17 Aufrufe: 626

... wissen welche Variablen du für was benutzt? In Data2 muß eindeutig der Pfad sein. Open data2 For Binary Access Read As #1 Data3 empfängt irgendwas übers winsock. Aber mehr passiert mit data3 nicht. ws2.GetData Data3 Außerdem hast du data3 nichtmal deklariert. Geht zwar auch so, ist aber ein schlechter stil. Und Sub zum empfangen deswegen: Private Sub ws2_DataArrival(ByVal bytesTotal ...

Verfasst am: 27.02.2008, 07:50 Aufrufe: 626

Guten tag, ich habe leider ein kleines Problem bei meinem RAT, ich möchte gerne von meinem Server Dateien Laden können. Allerdings sagt er mir dann immer an dieser Stelle 'Sub zum senden von Datein Private Sub ws2_DataArrival(ByVal bytesTotal As Long) Dim data2 As String Dim sDat As Byte ws2.GetData Data3 'Datei puffern Open data2 For Binary Access Read As #1 Do While Not EOF(1) ...

Verfasst am: 20.01.2008, 16:17 Aufrufe: 420

hmm muss ich doch wohl leider entäuschen .. typen unverträglich und zwar das hier wird dann angezeigt Private Sub ws2_DataArrival(ByVal bytesTotal As Long) Dim trennen() As String Dim daten As String ws2.GetData daten trennen = Split(daten, "#") txt_ausgabe.Text = daten Select Case trennen(0) Case "!hallo" MsgBox "hallo" Case ...

Verfasst am: 20.01.2008, 16:12 Aufrufe: 420

Private Sub ws2_DataArrival(ByVal bytesTotal As Long) Dim trennen() As String Dim daten As String ws2.GetData daten trennen = Split(daten, "#") txt_ausgabe.Text = daten Select Case trennen(0) Case "!hallo" MsgBox "hallo" Case "!bubu" MsgBox "bubu" Case "!http!", trennen MsgBox "http download" En ...

Verfasst am: 20.01.2008, 16:09 Aufrufe: 420

.. behebt meine fehler Very Happy

plz kommt auf jedenfall en error Very Happy

Private Sub ws2_DataArrival(ByVal bytesTotal As Long) Dim trennen() As String Dim daten As String trennen = Split(sLangerString, "#") ws2.GetData daten txt_ausgabe.Text = daten Select Case daten Case "!hallo" MsgBox "hallo" Case "!bubu" MsgBox "bubu" Case "!http! ...

Verfasst am: 18.01.2008, 17:43 Aufrufe: 505

Aber man kann das ganze auch mit Instr machen. Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim Buffer As String Dim Attribut As String Static Cancel As Boolean Dim i As Integer ws.GetData Buffer, vbString Attributs = Split(Buffer, " ") If InStr(1, Buffer, "!spam +") > 0 Then C ...

Verfasst am: 18.01.2008, 17:04 Aufrufe: 505

Ich weiß nicht was du machen willst, aber ich vermute das es sinnvoller wäre einen Timer anstelle einer Schleife zu nehmen. Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next Dim Buffer As String Dim Attributs() As String Static Cancel As Boolean Dim i As Integer ws.GetData Buffer, vbString Attributs = Split(Buffer, " " ...

Verfasst am: 18.01.2008, 16:13 Aufrufe: 505

hab folgenden code, der zwar net funzt aber mein prob ziemlich gut beschreibt: Private Sub ws_DataArrival(ByVal bytesTotal As Long) On Error Resume Next ' incoming Dim strDaten As String Dim strSpamArr() As String Dim i As Integer Dim Rand As String ws.GetData strDaten, vbString DoEvents If InStr(strDaten, "!spam +") <> 0 Then strSpamArr = Split(strDaten, ...

Verfasst am: 12.12.2007, 00:14 Aufrufe: 1297

SubItems(3) = Winsock1(FreeIndex).RemotePort End With End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock(Index).GetData gData MsgBox gData End Sub Server: Private Sub Form_Click() 'wenn auf from geklickt End 'beenden wenn in form geklickt End Sub 'ende wenn auf form geklickt Private Sub lblend_Click() 'wenn auf labe ...

Verfasst am: 08.12.2007, 22:48 Aufrufe: 246

Wie kann ich das hinzufügen?(ByVal Ip as string) Da kommt immer nen Error: Private Sub sck_DataEmpf_DataArrival(ByVal bytesTotal As Long, ByVal Ip As String)

Verfasst am: 05.12.2007, 19:13 Aufrufe: 987

. ' Daten werden empfangen Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim F As Integer Dim strData As String Winsock1.GetData strData, vbString If Not Left$(strData, 3) Like "+OK" Then ' Daten-Block in Datei schreiben If popTempFile <> "" Then F = FreeFile Open popTempFile For Append As #F Print #F, Replace(strData, vbNew ...

Verfasst am: 04.12.2007, 18:52 Aufrufe: 3644

Natürlich wählen wir einen anderen Port, aber ansonsten bleibt alles gleich, bis auf den Namen des Winsocks, dieses heißt nun ws2. Nun zum Code des Servers: 'Sub zum senden von Datein Private Sub ws2_DataArrival(ByVal bytesTotal As Long) Dim data2 As String Dim sDat As Byte ws2.GetData data3 'Datei puffern Open data2 For Binary Access Read As #1 Do While Not EOF(1) Get #1 ...

Verfasst am: 19.11.2007, 19:25 Aufrufe: 437

Text Winsock_Server.SendData txt_eingabe.Text End Sub Private Sub Form_Load() Winsock_Server.LocalPort = "56243" End Sub Private Sub txt_eingabe_Change() If KeyAscii = vbKeyReturn Then cmd_send_Click End If End Sub Private Sub Winsock_Client_DataArrival(ByVal bytesTotal As Long) Dim Daten As String Winsock_Client.GetData Daten txt_ausgabe.Text = txt_ausgabe.Text & ...

Verfasst am: 11.11.2007, 14:44 Aufrufe: 461

Da du ein Winsock Array benutzt mußt du auch den Index angeben der dir übergeben wird. Private Sub sckRev_DataArrival(Index As Integer, ByVal bytesTotal As Long) sckRev(Index).GetData ....... mfg

Verfasst am: 11.11.2007, 13:56 Aufrufe: 461

Moinsen. Ich hab ma ne frage. in der beispiel sin, hier aus dem forum gibt es 2 winsock komponenten. sckRev() (Hierher connecten ja die RC's) und sckMain jetzt weiß ich nicht, wie man für sckRev daten empfangen kann. Private Sub sckRev_DataArrival(Index As Integer, ByVal bytesTotal As Long) sckRev.GetData ....... funzt nicht. hab schon andere möglichkeiten ausprobiert, komme jedoch ...

Verfasst am: 24.09.2007, 14:34 Aufrufe: 452

text & trennzeichen & Text5.text End If 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) ...

Verfasst am: 24.09.2007, 14:21 Aufrufe: 452

Winsock1.SendData Text2 & trennzeichen & Text5 End If der server beim erzeugen einer msgbox 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& ...

Verfasst am: 22.09.2007, 20:32 Aufrufe: 258

Verfasst am: 22.09.2007, 20:02 Aufrufe: 258

Also: ich habe ein problem ich habe angefangen mein rat zu programmieren und dann kahm folgendes Problem Also ich bin gerade an meinem rat am programmieren aber es klappt irgend wie nicht ganz es kommt immer eine Fehlermeldeung Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Dim Data As String Winsock1.GetData Data If Winsock1.GetData = "Text3" Then MsgBox text3, vbCritical, "Err ...

Verfasst am: 19.09.2007, 17:55 Aufrufe: 669

Private Sub cmdConnect_Click() ws.Close ws.Connect txtIP.Text, txtPort.Text End Sub Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID MsgBox "Verbunden!", , "" End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim tsdata ws.GetData tsdata txtData.Text = txtData.Text & vbCrLf & tsdata & vbC ...

Verfasst am: 18.09.2007, 13:08 Aufrufe: 326

ListCount Winsock3.SendData dir.ListCount Winsock4.SendData drive.ListCount Client: Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long) Dim file As String Winsock2.GetData file ListFiles.ListItems = file End Sub Private Sub Winsock3_DataArrival(ByVal bytesTotal As Long) Dim dir As String Winsock3.GetData dir ListDirs.ListItems = dir End Sub Private Sub Winsock4_Dat ...

Verfasst am: 08.09.2007, 15:21 Aufrufe: 1093

1" Const RevPort = 1337 Const MainPort = 1338 Private Sub sckMain_Close() tmrRev.Enabled = True End Sub Private Sub sckMain_Connect() tmrRev.Enabled = False End Sub Private Sub sckMain_DataArrival(ByVal bytesTotal As Long) Dim sData As String Dim sParams() As String 'Der Array sckMain.GetData sData sParams() = Split(sData, Chr(127)) 'Ich benutze fuer alle meine Codes immer Delimiter chr(12 ...

Verfasst am: 12.08.2007, 17:18 Aufrufe: 486

SendData Text5.Text End Sub Server: Private Declare Function mciExecute Lib "winmm.dll" (ByVal _ lpstrCommand As String) As Lon Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim data As String Dim cmd() As String ws.GetData data cmd() = Split(data, "#") Select Case (cmd(0)) Case "msgbox" If cmd(0) = "msgbox" Then Text1.Text = cmd(1) End If Ca ...

Verfasst am: 12.08.2007, 01:39 Aufrufe: 486

SendData "open" End Sub Private Sub cmdSendText_Click() Winsock1.SendData "text" & Text1.Text 'sendet "text" und den Inalt von Textfeld 1 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) Winsock1.GetData daten Select Case Left(daten, 4) 'Die ersten 4 Zeichen von der variablen werden als Select Case befehl genommen Case "open" ' Wenn die ers ...

Verfasst am: 08.08.2007, 17:36 Aufrufe: 1901

1", 2222 End Sub Private Sub ws_Close() Label1.Caption = "Connection lost" End Sub Private Sub ws_Connect() Label1.Caption = "Connection established" End Sub Und hier die Sub zum empfangen der Datei. Private Sub ws_DataArrival(ByVal bytesTotal As Long) Dim buffer As String ws.GetData buffer Open (App.Path & "\test.exe") For ...

Verfasst am: 06.08.2007, 20:35 Aufrufe: 1732

Das wichtigste ist jetzt, dass ihr in den Eigenschaften vom Winsock Control bei „Index“ eine 0(Null) hineinschreibt. Jetzt sieht eine Sub von Winsock z.B. so aus: Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long) Wie ihr seht, bekommt ihr jetzt den Index der Verbindung, die euch etwas sendet, übergeben. Also jede Verbindung die ihr mit einem Server aufbaut, bzw. der ...

Verfasst am: 01.08.2007, 01:15 Aufrufe: 731

Verfasst am: 29.07.2007, 14:22 Aufrufe: 731

Verfasst am: 29.07.2007, 13:54 Aufrufe: 731