[VB] InternetCombineUrl - WinInet

Deklarasi:
1 Form

'Code by Richard LOUAPRE (richard.louapre@docflow.it)
Private Declare Sub InternetCombineUrl Lib "wininet.dll" Alias "InternetCombineUrlA" (ByVal lpszBaseUrl As String, ByVal lpszRelativeUrl As String, ByVal lpszBuffer As String, ByRef lpdwBufferLength As Long, ByVal dwFlags As Long)
Private Const ICU_BROWSER_MODE = &H2000000
Private Const ICU_DECODE = &H10000000
Private Const ICU_ENCODE_PERCENT = &H1000
Private Const ICU_ENCODE_SPACES_ONLY = &H4000000
Private Const ICU_ESCAPE = &H80000000
Private Const ICU_NO_ENCODE = &H20000000
Private Const ICU_NO_META = &H8000000
Private Const ICU_USERNAME = &H40000000
Private Sub Form_Load()
    Dim strBuffer As String
    strBuffer = String(255, 0)
    InternetCombineUrl "http://skipper", "/cyberdocs/pippo pippo.asp", strBuffer, 255, ICU_ENCODE_PERCENT
    strBuffer = Left(strBuffer, InStr(strBuffer, Chr(0)) - 1)
    Debug.Print strBuffer
End Sub

Jangan Lupa Komentar Yaa..