• Home
 · 
• Internet/HTML
 · 
• DISPLAYS THE 'DNS ERROR' PAGE, AS DISPLAYED IN INTERNET EXPLORER WHEN THE PAGE REQUESTED IS NOT AVA

DISPLAYS THE 'DNS ERROR' PAGE, AS DISPLAYED IN INTERNET EXPLORER WHEN THE PAGE REQUESTED IS NOT AVA

DISPLAYS THE 'DNS ERROR' PAGE, AS DISPLAYED IN INTERNET EXPLORER WHEN THE PAGE REQUESTED IS NOT AVAILABLE.

API Declarations



Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Rate DISPLAYS THE 'DNS ERROR' PAGE, AS DISPLAYED IN INTERNET EXPLORER WHEN THE PAGE REQUESTED IS NOT AVA

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'        Command Button    - Command1

Public Function SystemDir() As String

    Dim sBuffer As String

    sBuffer = String(255, Chr$(0))
    Call GetSystemDirectory(sBuffer, Len(sBuffer))

    SystemDir = Replace(sBuffer, Chr$(0), "")
End Function

Public Function DNSError(sURL As String) As Long

    Dim sCommand As String

    sCommand = "res://" & SystemDir() & "\SHDOCLC.DLL/dnserror.htm#"
    sCommand = sCommand & sURL

    DNSError = ShellExecute(0&, "open", sCommand, vbNullString, vbNullString, 1&)
End Function

Private Sub Command1_Click()

    'Setting return value to caption for just information only...
    Caption = DNSError(Text1)
End Sub

'Errors, feedbacks, etc...
'MAIL: [email protected]