InternetCrackUrl
Aus API-Wiki
Version vom 27. Februar 2007, 12:06 Uhr von Bernhard Döbler (Diskussion | Beiträge)
Declare Sub InternetCrackUrl Lib "wininet.dll" _ Alias "InternetCrackUrlA" ( _ ByVal lpszUrl As String, _ ByVal dwUrlLength As Long, _ ByVal dwFlags As Long, _ ByRef lpUrlComponents As URL_COMPONENTSA)
Beispiel
Public Function GetURL(ByVal URL As String) As Boolean Dim COMPONENTS As URL_COMPONENTS Dim Buffer As String Dim BufLen As Long Const BufSize = 1024 GetURL = False Buffer = Space$(BufSize) BufLen = Len(Buffer) If InternetCanonicalizeUrl(URL, Buffer, BufLen, ICU_BROWSER_MODE) Then URL = Left(Buffer, BufLen) With COMPONENTS .StructSize = Len(COMPONENTS) .Scheme = Space$(INTERNET_MAX_SCHEME_LENGTH) .SchemeLength = INTERNET_MAX_SCHEME_LENGTH .nScheme = InternetSchemeUnknown .HostName = Space$(INTERNET_MAX_HOST_NAME_LENGTH) .HostNameLength = INTERNET_MAX_HOST_NAME_LENGTH .nPort = 0 .UserName = Space$(INTERNET_MAX_USER_NAME_LENGTH) .UserNameLength = INTERNET_MAX_USER_NAME_LENGTH .Password = Space$(INTERNET_MAX_PASSWORD_LENGTH) .PasswordLength = INTERNET_MAX_PASSWORD_LENGTH .URLPath = Space$(INTERNET_MAX_PATH_LENGTH) .UrlPathLength = INTERNET_MAX_PATH_LENGTH .ExtraInfo = Space$(BufSize) .ExtraInfoLength = BufSize End With GetURL = CBool(InternetCrackUrl(URL, Len(URL), ICU_ESCAPE, COMPONENTS)) With COMPONENTS mvarScheme = Left$(.Scheme, .SchemeLength) mvarlScheme = .nScheme mvarHostName = Left$(.HostName, .HostNameLength) mvarUserName = Left$(.UserName, .UserNameLength) mvarPassword = Left$(.Password, .PasswordLength) mvarURLPath = Left$(.URLPath, .UrlPathLength) mvarURLExtraInfo = Left$(.ExtraInfo, .ExtraInfoLength) mvarPort = .nPort End With End If
End Function
Diese Deklaration wurde von Bernhard Döbler erstellt. Sollten Sie Fragen zur Verwendung der entsprechenden Funktion haben, so verwenden Sie hierfür bitte das Visual Basic Forum, die Artikeldiskussionsseite oder die Nutzerdiskussionsseite.