Rabu, 30 Juni 2010
0
[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
Langganan:
Posting Komentar (Atom)
0 Komentar Untuk “[VB] InternetCombineUrl - WinInet”
Posting Komentar
Berikan komentar positif tentang artikel yang sederhana ini niscaya sobat akan mendapatkan balasannya. Hehehe