Supportnet / Forum / Skripte(PHP,ASP,Perl...)

Ich bin noch ziemlich am Anfang des Programmierens in VB und hab folgendes Problem: Ich will eine Datei (Bild, Textdatei, oder sonst was) übers netztwerk versenden. Dazu hab ich folgender quellcode: sender: Open data2 For Binary Access Read As #1 Do While Not EOF(1) Get #1, , sDat MsgBox (sDat) ws2.SendData sDat DoEvents Loop Close #1 In "data2" seht der Pfad der Datei die gesendet werden soll und "ws2" ist das Winsock control. Empfänger: Private Sub ws2_DataArrival(ByVal bytesTotal As Long) ws2.GetData dat1 pos = pos + 1 Open dat2 For Binary Access Write As #2 Seek #2, pos Put #2, , dat1 Close #2 End Sub in dat2 steht der ort wo die datei gespeichert werden soll. Das kanze funktioniert jetzt aber nur fehlerfrei wenn ich beim sender ne zeitverzögerung von ca. 200ms pro byte einfüge oder in der schleife ein echo ausgebe und nach jedem byte auf ok klicken muss. Dadurch ist die datenübertragung aber verdammt langsam, ich brauch für ne etwas größere textdatei (ca. 64kB) ca. ne halbe stunde. Wie kann ich das ändern dass es schneller geht?

• Versenden von Dateien mit ICQ 5.1
• Fehler beim versenden von E-Mails mit Incredimail!!
• maximale Größe von Dateien beim senden mit Outlook Express
• frage mails von t-online über thunderbird ab. Bei versenden von großen dateien bekomme ich eine fehlermeldung, daß die mail nicht versand wurde. Komis