module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Const MAX_PATH                As Long = 260
Public Const ERROR_SUCCESS           As Long = 0


Public Const URL_ESCAPE_PERCENT      As Long = &H1000

Public Const URL_ESCAPE_SPACES_ONLY As Long = &H4000000

Public Const URL_DONT_SIMPLIFY      As Long = &H8000000

Public Const URL_UNESCAPE            As Long = &H10000000

Public Const URL_ESCAPE_UNSAFE       As Long = &H20000000

Public Const URL_PLUGGABLE_PROTOCOL  As Long = &H40000000

Public Declare Function UrlCanonicalize Lib "shlwapi" _
   Alias "UrlCanonicalizeA" _
  (ByVal pszURL As String, _
   ByVal pszCanonicalized As String, _
   pcchCanonicalized As Long, _
   ByVal dwFlags As Long) As Long