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_PART_SCHEME As Long = 1
Public Const URL_PART_HOSTNAME As Long = 2
Public Const URL_PART_USERNAME As Long = 3
Public Const URL_PART_PASSWORD As Long = 4
Public Const URL_PART_PORT As Long = 5
Public Const URL_PART_QUERY As Long = 6

Public Const URL_PARTFLAG_KEEPSCHEME As Long = &H1

Public Declare Function UrlGetPart Lib "shlwapi.dll" _
   Alias "UrlGetPartA" _
  (ByVal pszIn As String, _
   ByVal pszOut As String, _
   pcchOut As Long, _
   ByVal dwPart As Long, _
   ByVal dwFlags As Long) As Long