Download fra HTTP

Jeg går ud fra, at jeg skal bruge "Winsock". Men hvordan, det ved jeg ikke. :S

Lige en ting, en IP går fra 0 til 255 du har skrævet 321 ;)

'----------------------------------- Form1 -----------------------------------
Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
                          Alias "URLDownloadToFileA" ( _
                          ByVal pCaller As Long, _
                          ByVal szURL As String, _
                          ByVal szFileName As String, _
                          ByVal dwReserved As Long, _
                          ByVal lpfnCB As Long) As Long

Public Sub DownloadFile(ByVal strURL As String, ByVal strSave As String)
  Call URLDownloadToFile(0&, strURL, strSave, 0&, 0&)
End Sub

Private Sub Form_Load()
  Call DownloadFile("http://xxx.xxx.xxx.xxx/HL2DEMO.exe", "C:\HL2DEMO.exe")
End Sub
'----------------------------------- Form1 -----------------------------------

Det var bare et eksempel :D

Tak for dit svar:D Det virker perfekt