'================================================================
'= URLの結合

'=    (InternetCombineUrl.bas)
'================================================================

' 絶対パスと相対パスを組み合わせて新しいURLを作成
Declare Sub Api_InternetCombineUrl Lib "wininet" Alias "InternetCombineUrlA" (ByVal lpszBaseUrl$, ByVal lpszRelativeUrl$, ByVal lpszBuffer$, ByRef lpdwBufferLength&, ByVal dwFlags&)

#define ICU_BROWSER_MODE &H2000000       '#や?の後のキャラクタを変換しない
#define ICU_DECODE &H10000000            '%XX形式のエスケープシーケンスをキャラクタに変換
#define ICU_ENCODE_PERCENT &H1000        '%文字を変換する
#define ICU_ENCODE_SPACES_ONLY &H4000000 'スペースのみエンコード
#define ICU_ESCAPE -2147483648           '特殊文字をエスケープシーケンスに変換する
#define ICU_NO_ENCODE &H20000000         '特殊文字をエスケープシーケンスに変換しない
#define ICU_NO_META &H8000000            '.や..等、メタシーケンスを削除しない
#define ICU_USERNAME &H40000000          'ユーザ名追加時に、ログイン時に指定されたユーザ名を使用する

Var Buff As String
Var str1 As String
Var str2 As String

str1 = "http://tokovalue.web.infoseek.co.jp"
str2 = "/index.htm"

Buff = String$(255, Chr$(0))

Api_InternetCombineUrl str1, str2, Buff, 255, ICU_ENCODE_PERCENT

strBuffer = Left$(Buff, InStr(Buff, Chr$(0)) - 1)

Print Buff

Stop
End