Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Set MSComm1 = New MSComm  (Прочитано 11588 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« : 13-10-2011 14:29 » 

Здравствуйте, что-то на строке
 Dim MSComm1 As MSComm
 Set MSComm1 = New MSComm 'стал получать ошибку ошибка 429 ACtiveX component can't create object

 В то же время библиотека Microsoft Comm Control 6.0 подключена, как лечить??
 Раньше вроде было гладко
пробовал разрегистрировать ActiveX, а потом снова зарегистрировать
 Спасибо

Добавлено через 4 дня, 22 часа, 46 минут и 38 секунд:
похоже конец света, Ворд переставил не помогло, Винду переустановил, не помогло, что ещё предпринять кроме смены компьютера???

Добавлено через 12 дней, 1 час и 42 секунды:
чтобы проверить ActiveX жив или мёртв, то есть чтобы можно выяснить сам факт работоспособности механизма регистрации ActiveX на компьютере, где не удается зарегистрировать определённый ActiveX пробую
Код:
Declare Function RegMSCOMM32OCX Lib "MSCOMM32.OCX" Alias OCXRegisterServer() As Long
 
Sub тест()
Const ERROR_SUCCESS = 0&
Dim retCode As Long
On Error Resume Next  ' включаем программную обработку ошибок
ChDrive "C:"        ' Устанавливаем нужный
ChDir "C:\WINDOWS\system32"    ' каталог текущим
regCode = RegMSCOMM32.OCX()  ' регистрация MSCOMM32.OCX
' анализ возможных ошибок
If Err <> 0 Then
  MsgBox "Файл MSCOMM32.OCX не найден"
Else
  If regCode <> ERROR_SUCCES Then
    MsgBox "Операция регистрации не выполнена"
End If
End If
End Sub

Но пока выделяет на первой строке часть строки - "OCXRegisterServer"
мне на ум приходит, только то, что в скобках () должны быть всевозможные ByVal, так??
Но я не знаю какие, подскажите пжл как правильно
« Последнее редактирование: 30-10-2011 14:17 от Ципихович Эндрю » Записан
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #1 : 02-11-2011 15:24 » new

смотрел в инете, на странице
http://translate.google.ru/translate...26prmd%3Dimvns
Правда она переведена машиной
Сказано:
Нажмите кнопку Пуск и выберите пункт Выполнить.
В поле Открыть введите команду regedit и нажмите кнопку ОК.
Добавить следующее.

[HKEY_CLASSES_ROOT \ Лицензии \ 4250E830-6AC2-11CF-8ADB-00AA00C00905] @ = "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
Смущает, не ужели так и писать "Лицензии"??
а также
"kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
Поможет?Не понял
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #2 : 02-11-2011 15:46 » 

А посмотреть вариант без "перевода"?
Раздел HKEY_CLASSES_ROOT\Licenses существует.
Насчет "поможет" спроси того, кто это написал.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #3 : 04-11-2011 06:33 » 

Посмотрел я на домашнем компьютере раздел
HKEY_CLASSES_ROOT\Licenses\4250E830-6AC2-11cf-8ADB-00AA00C00905
cсуществует и реально его значение "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"
После выходных гляну, как дела обстоят на рабочей машине, вопрос пока в воздухе

Записан
Ципихович Эндрю
Помогающий

ru
Offline Offline

« Ответ #4 : 09-11-2011 13:07 » 

жаль не помню где нагуглил этот ответ, (где-то на забугорном сайте) чтобы поблагодарить, он оказался правильным, спасибо RXL за подсказку
Магические буквы: "kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun"

Добавлено через 2 минуты и 21 секунду:
Проблема висела в воздухе и нервировала меня 2 месяца
« Последнее редактирование: 09-11-2011 13:09 от Ципихович Эндрю » Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines