Visual Basic Forum

Verfasst am: 28.01.2009, 22:38 Aufrufe: 1514

... Client: (Microsoft Visual Basic 2008) Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival Winsock1.Getdata Datei (Ist Deklariert) If Datei = "Hallo" then Msgbox Datei End if End Sub Server: (Vb6) Private Sub Command1_Click& ...

Verfasst am: 18.08.2008, 16:35 Aufrufe: 591

1. Über die ICQ.exe connecten ist Schwachsinn, du kannst allerhöchstens ne DLL injeten in den ICQprozess machen.2. Im DataArrival Ereignis rufst du "GetData DeineVariable" auf.Dann kannst du da natürlich nach select case filtern. Ich rate dir, dir einen einfachen Chatclienten anzusehen, gibts bei google genug von.

Verfasst am: 16.07.2008, 19:47 Aufrufe: 679

Hm ne ein socket möchte ich nicht so gerne, weil mir die Rückgabe im Dataarrival nicht so gefällt. Ich möchte den HTML Quelltext schon gern noch in der selben Prozedur erhalten. :>

Verfasst am: 30.06.2008, 15:00 Aufrufe: 2871

Verfasst am: 12.05.2008, 14:25 Aufrufe: 719

Verfasst am: 09.04.2008, 16:57 Aufrufe: 521

GetData befehl Select Case befehl Case "refreshtask": List1.Clear Call GetExeNames 'ruft die funktion auf,welche die tasks in die list1 schreibt Dim tsklist As String tsklist = List1.Text ws1.SendData "tsklist" & tsklist End Select End Sub Client: ' DataArrival Select Case Case "Prozesse": Dim tsklist As String ws5.GetData "tsklist" List1.Clear ...

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, 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: 08.01.2008, 15:44 Aufrufe: 791

State <> Winsock2007.WinsockStates.Closed Then Winsock1.Close() Winsock1.Accept(sender) End Sub Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As Winsock2007.WinsockDataArrivalEventArgs) Handles Winsock1.DataArrival MsgBox("hallo!!") Dim sData As String = Winsock1.Get msgbox("Daten:" & sDat ...

Verfasst am: 07.01.2008, 20:19 Aufrufe: 791

ConnectionRequest server_sock.Close() server_sock.Accept(sender) End Sub Private Sub server_sock_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles server_sock.DataArrival 'Dim sData As String = sender 'Select Case sData ' Case Is = ("#status_ok#") ...

Verfasst am: 11.12.2007, 23:59 Aufrufe: 1297

Server - DataArrival winsock1.senddata "Server sendet an Client" client - DataArrival winsock(index).getdata gData msgbox gData hoffe das reicht...(den rest kannste sicherlich selber...) hab den source garnicht mehr auf der platte..... MfG

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: 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: 29.07.2007, 20:03 Aufrufe: 731