Det her skulle være nok...
'------------------------------ Form1 ------------------------------
Option Explicit
Private Declare Function InternetOpen Lib "wininet" _
Alias "InternetOpenA" ( _
ByVal sAgent As String, _
ByVal lAccessType As Long, _
ByVal sProxyName As String, _
ByVal sProxyBypass As String, _
ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" ( _
ByRef hInet As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" ( _
ByVal hFile As Long, _
ByVal sBuffer As String, _
ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" _
Alias "InternetOpenUrlA" ( _
ByVal hInternetSession As Long, _
ByVal lpszUrl As String, _
ByVal lpszHeaders As String, _
ByVal dwHeadersLength As Long, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Private Sub Form_Load()
Dim hOpen As Long
Dim hFile As Long
Dim strUrl As String
Dim strBuffer As String
Const strName As String = "testnavn" 'Navn minus (dyndns.dk, kyed.com, lir.dk eller yaboo.dk)
Const strDomain As String = "dyndns.dk" 'dyndns.dk, kyed.com, lir.dk eller yaboo.dk
Const strPass As String = "***********" 'Password det ved du nok.
strUrl = "
http://dyndns.dk/opdat.php?name=" & strName & _
"&domain=" & strDomain & _
"&pw=" & strPass & _
"&silent=1"
hOpen = InternetOpen(vbNullString, 1, vbNullString, vbNullString, 0&)
hFile = InternetOpenUrl(hOpen, strUrl, vbNullString, ByVal 0&, &H80000000, ByVal 0&)
strBuffer = Space(1000)
Call InternetReadFile(hFile, strBuffer, 1000, 0&)
Call InternetCloseHandle(hFile)
Call InternetCloseHandle(hOpen)
MsgBox strBuffer
End Sub
'------------------------------ Form1 ------------------------------
