Private Sub Command1_Click()
On Error Resume Next
Winsock1.RemoteHost = "download.nvidia.com"
Winsock1.RemotePort = "80"
 
Winsock1.LocalPort = "210"
 
Winsock1.Connect
End Sub
_____________________________________________________
Private Sub Command2_Click()
Winsock1.Close
End Sub
_____________________________________________________
Private Sub Form_Load()
'ProgressBar1.Max = "4033376"
End Sub
_____________________________________________________
Private Sub Text1_Change()
Label1.Caption = Len(Text1.Text)
 
End Sub
 
 
_____________________________________________________
Private Sub Winsock1_Close()
   Close #1
   Winsock1.Close
   Debug.Print "CLOSED"
End Sub
_____________________________________________________
Private Sub Winsock1_Connect()
 
Winsock1.SendData "GET" & _
  "http://download.nvidia.com/Windows/nForce/systemutility/nForce_system_utili" & _
  "y_1.08.5.exe HTTP/1.0" & vbCrLf & vbCrLf
 
   Open "D:\132d.exe" For Binary Access Write As #1
End Sub
_____________________________________________________
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
DoEvents
Dim b As String
Label2.Caption = Label2.Caption + bytesTotal    
 
[u]Winsock1.GetData b      
 
      Put #1, , b 'Empfangene Daten in Datei schreiben
 
End Sub
 
_____________________________________________________
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _
HelpContext As Long, CancelDisplay As Boolean)
Debug.Print Number & " " & Description & vbCrLf
End Sub