Sub Example_DefaultInternetURL()
    ' Этот пример возвращает текущую установку DefaultInternetURL. Затем
    ' изменяет значение и наконец сбрасывает значение назад к
    ' первоначальной установке.
    
    Dim preferences As AcadPreferences
    Dim currDefaultInternetURL As String
    Dim newDefaultInternetURL As String
    
    Set preferences = ThisDrawing.Application.preferences
    
    ' Отыщите текущее значение DefaultInternetURL
    currDefaultInternetURL = preferences.Files.DefaultInternetURL
    MsgBox "Текущее значение для DefaultInternetURL " & currDefaultInternetURL, vbInformation, "DefaultInternetURL Пример"
    
    ' Измените значение для DefaultInternetURL
    newDefaultInternetURL = "TestDefaultInternetURL"
    preferences.Files.DefaultInternetURL = newDefaultInternetURL
    MsgBox "Новое значение для DefaultInternetURL " & newDefaultInternetURL, vbInformation, "DefaultInternetURL Пример"
    
    ' Сбросьте DefaultInternetURL к его первоначальному значению
    preferences.Files.DefaultInternetURL = currDefaultInternetURL
    MsgBox "Значение DefaultInternetURL сброшено к " & currDefaultInternetURL, vbInformation, "DefaultInternetURL Пример"
End Sub