Rabu, 30 Juni 2010

0

[VB] InternetCombineUrl - WinInet

  • Rabu, 30 Juni 2010
  • Nurkholish Ardi Firdaus
  • Share

  • Deklarasi:
    1 Form

    'Code by Richard LOUAPRE ([email protected])
    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..
    Related Posts Plugin for WordPress, Blogger...

    0 Komentar Untuk “[VB] InternetCombineUrl - WinInet”

    Posting Komentar

    Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe

    Subscribe