Hallo
Wer kann mir weiter helfen? Ich möchte eine Datei über den Winsock downloaden. Jetzt ist es so, dass es einfach nicht funktioniert, aber ich kann keinen Fehler sehen. Kannst Du mir Bitte weiterhelfen?
Unter dem aufgeführeten Link ist das ganze Projekt zum Download aufgeschaltet.
http://www.nothilfe.org/nhkadmin/t.zip
Besten Dank für jeden Hinweis
Grüsse Sebastian
Hi,
leider bin ich mit Winsock nicht ganz fitt 
hast du mal versucht anstatt einer .INFO Datei eine .Exe zu laden ?
Kenne es nur aus dem IExplorer das eine exe Sofort zum Download angeboten wird die Info aber geöffnet, also angezeigt.
Wenn das auch nicht geht würde ich FTP zugriff vorschlagen.
Leider macht mein Rechner gerade was er und nicht was ich will sonst würde ich dir 2 Interessante Links zu FTP Posten.
Schreib wenn es dich Interessiert
mfg joe
Nabend,
Du solltest der aupd.info Zugriffsrechte geben.
Wenn du mal in dein code: http://www.xdclan.de/test.info
eingibst sollte es klappen.
Wenn du es mal testen möchtest hier nen Code zum Rumspielen
(DANKE RAINER!!) 
mfg joe
Private Sub Command1\_Click()
URL = "http://www.nothilfe.org/nhkadmin/update/nhkdaten/autoupdate/aupd.info"
'URL = "http://www.xdclan.de/test.info"
Command1.Enabled = False
MousePointer = vbHourglass
Winsock1.RemoteHost = "nothilfe.org"
'Winsock1.RemoteHost = "xdclan.de"
Winsock1.RemotePort = 80
Winsock1.Connect
End Sub
Private Sub Text1\_Change()
SiteID = Text1.Text
End Sub
Private Sub Winsock1\_Close()
'Command1.Enabled = True
'MousePointer = vbDefault
End Sub
Private Sub Winsock1\_Connect()
Cmd = "GET " & URL & " HTTP/1.0" & vbCrLf & "Accept: \*/\*" & \_
vbCrLf & "Accept: text/html" & vbCrLf & vbCrLf
Winsock1.SendData Cmd
End Sub
Private Sub Winsock1\_DataArrival(ByVal bytesTotal As Long)
Dim Data$
Dim Teil() As String
Dim I As Integer
Winsock1.GetData Data, vbString
Teil = Split(Data, " ")
For I = LBound(Teil) To UBound(Teil)
Ausgabe = Teil(I)
List1.AddItem Ausgabe
Next
End Sub
Funktioniert leider nicht
Besten Dank für den Tipp, werde Ihn mal ausprobieren…
Funtioniert leider noch nicht.
Besten Dank für jeden weiteren Hinweis.
Gruss Sebastian
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]