Com error 80020009

BlackStrip-форум

regsvr32: ошибка 0x80020009 при вызове DllRegisterServer

regsvr32: ошибка 0x80020009 при вызове DllRegisterServer

Сообщение blackstrip » Вс апр 02, 2017 1:05 pm

Лет 15 назад писал на VB6 и активно использовал ActiveX компоненты, которые обычно хранятся в OCX файлах. Перебирал старые исходники, проги, и увидел при запуске одной из прог, что OCX компонент не найден в системе.

И если под Windows 10 вызывать regsvr32 без прав администратора, то выдает ошибку 0x80020009.

Чтоб автоматизировать процедуру регистрации для любых OCX и DLL файлов и регистрировать их по одному клику необходимо сделать следующее:

1) Жмем Windows+R (или Пуск-Выполнить), вводим

2) Открывается папка, в которой валяются все ярлыки прог, которые видны в меню по правому клику на любом файле (точнее, в его подменю Отправить, что по-английски будет как раз «send to»).

3) Создаем в папке текстовый файл, переименовываем его в regsvr.bat

4) Жмем правой кнопкой мыши на regsvr.bat и выбираем Изменить (второй пункт сверху)

5) Файл regsvr.bat будет открыт в блокноте, вводим в блокнот следующее:

6) Сохраняем наш файл regsvr.bat и закрываем блокнот

7) Жмем правой кнопкой мыши по regsvr.bat и выбираем «Создать ярлык».

Переименовываем ярлык в «regsvr.bat ADMIN»

9) Жмем правой кнопкой мыши по ярлыку «regsvr.bat ADMIN» и выбираем Свойства

10) На вкладке «Ярлык» жмем внизу справа кнопку «Дополнительно»

11) В открывшемся окне ставим галку «Запуск от имени администратора» и жмем «Ок».

12) Закрываем окно свойств ярлыка кнопкой «Ок».

Источник

ошибка 0х80020009

пытаюсь зарегистрировать v7plus.dll. Вроде все сделала, но пишет, что модуль установлен, но не удается выполнить вызов dllRegisterServer. Подскажите, что можно сделать?

У меня Vista Houm Premium, работаю на правах администратора,устанавливала с помощью командной строки,через regsvr32.exe

Читают тему:

Мероприятия

1C:Лекторий: 2 ноября 2022 года (вторник, начало в 10:00, все желающие) — Новые источники данных в 1С:Аналитике

При использовании материалов активная прямая гиперссылка на перепечатанный материал обязательна.

Редакция БУХ.1С не несет ответственности за мнения и информацию, опубликованную в комментариях к материалам.

Редакция уважает мнение авторов, но не всегда разделяет его.

Мы используем файлы cookie, чтобы анализировать трафик, подбирать для вас подходящий контент и рекламу, а также дать вам возможность делиться информацией в социальных сетях. Если вы продолжите использовать сайт, мы будем считать, что вас это устраивает.

Источник

80020009 при извлечении данных из SQL

Эта статья помогает устранить ошибку 80020009 при извлечении данных из SQL Server.

Оригинальная версия продукта: SQL Server
Исходный номер КБ: 175239

Симптомы

Следующая ошибка возникает при доступе к набору записей в файле ASP ASP, который содержит или введите данные из Text Blob SQL таблицы:

Microsoft OLE DB Provider for ODBC Drivers error ‘80020009’

Причина

Следующее условие может привести к ошибке:

Поля Text/Blob выбираются в порядке, предшествуемом другим типам полей.

Решение

При работе с полями BLOB из Microsoft SQL Server необходимо поместить их в правой части столбцов без BLOB в resultset. Чтобы быть безопасными, необходимо также прочитать столбцы в порядке слева направо, поэтому если у вас есть два столбца BLOB в качестве последних двух столбцов в вашем resultset, прочитайте первый, а затем второй. Не читайте их в обратном порядке.

Чтобы продемонстрировать правильный порядок выбора поля, создайте новую страницу ASP в visual InterDev Project и вклейте следующий код на пустой странице ASP. Измените строку подключения, чтобы подключиться к SQL Server:

Перед запуском этого кода необходимо изменить имя пользователя= и PWD= на правильные значения. Убедитесь, что пользовательский ID имеет соответствующие разрешения для выполнения этой операции в базе данных.

Статус

Такое поведение является особенностью данного продукта. Однако это не происходит при использовании Mdac 2.1 sp2 или более поздней с драйвером 3.7 или более поздней SQL Server.

Дополнительные сведения

SQL Server отправляет данные по проводу, и клиент получает поток битов, которые последовательно читают на сетевом проводе. С помощью связанных столбцов (то есть значения могут быть скопированы в локальные буферы памяти и кэшированы там), драйвер передает данные в этих столбцах в буферы памяти. После того как данные будут в локальных буферах, вы можете считывать данные в любом порядке. Поэтому столбцы результатов можно читать в любом порядке, если все столбцы связаны (а не BLOBs).

При включите столбцы BLOB, длина столбца может быть примерно 2 гигабайта, и библиотеки доступа к данным обычно не связывают эти столбцы, так как драйвер часто не может точно определить, насколько большой BLOB до получения. Кроме того, библиотеки доступа к данным обычно избегают кэшинга BLOB-данных, так как это может потреблять большие объемы памяти и кэшинг их как в библиотеке доступа к данным, так и в вашем приложении. Если для драйвера доступа к данным запрашивается возврат содержимого столбца BLOB, он обычно отбрасывается из столбцов, предшествующих запрашиваемому столбце BLOB, поскольку он должен получить последовательное поток данных, прежде чем он сможет прочитать запрашиваемую колонку. Поэтому считывающие данные слева направо эффективнее, так как это соответствует способу получения данных.

Это описывает поведение SQL Server. Oracle и другие клиентские или серверные DBMS могут делать то же самое, но это не обязательно.

Возможно, лучше избегать использования столбца Text. Поскольку SQL Server выделяет пространство в 2K-фрагментах, использование текстовых столбцов может привести к неэффективному использованию хранилища, если длина текста небольшая. Время резервного копирования также зависит от того, что для сброса журнала транзакций требуется больше времени. Часто лучше создать другую таблицу с PK существующей таблицы, столбцом номеров куска и varchar (255) столбцом. Разделите текст на количество необходимых 255 фрагментов символов и вставьте в новую таблицу столько строк, сколько есть фрагментов. Обычно это стоит дополнительного времени кодирования, так как вы делаете более эффективное использование хранилища и резервного копирования идти гораздо быстрее.

Источник

Код ошибки 0х80020009 в windows 10

НОВОСТИ

Самый распространённые проблемы в обновлении Windows 10 May 2020 и варианты их решения

Компания Microsoft начала постепенное распространение обновления системы Windows 10 May 2020 Update. Здесь есть ряд изменений и новых функциональных возможностей, которые улучшат качество работы компьютеров и ноутбуков. Это девятое крупное обновление системы и первое для 2020 года.

Microsoft завершила разработку обновления раньше обычного и потратила больше времени на тестирование и решение найденных проблем. В результате версия 2004 включает в себя значительные изменения кода. Это означает потенциальные проблемы с совместимостью, драйверами, неожиданные ошибки и т. д.

Поскольку May 2020 Update требует переустановки системы, могут возникнуть проблемы, несвязанные конкретно с этой версией. Обычно процесс обновления может оказаться неудачным из-за проблем с хранилищем, несовместимыми программами, повреждёнными или устаревшими драйверами, кастомными конфигурациями компонентов и проблемами с работоспособностью компонентов. В этом руководстве мы расскажем о некоторых известных проблемах и их возможных решениях.

Помощь в устранении проблем при установке Windows 10 May 2020 Update

Когда появляется новая версия Windows 10, могут возникнуть проблемы двух типов. Вы можете столкнуться с известными ошибками, которые случаются в процессе и после установки обновления. Это проблемы с активацией, хранилищем, функциональными возможностями. Это необязательно проблемы именно версии 2004.

Ещё есть проблемы из-за багов конкретно в данном обновлении. Они могут относиться к драйверам, совместимости с приложениями или сторонними антивирусами.

В этой статье описаны проблемы обоих типов, в том числе во время и после установки при помощи центра обновления Windows, Update Assistant и Media Creation Tool.

Как исправить проблемы центра обновления Windows при установке May 2020 Update

Рекомендуется использовать центр обновления Windows. Впрочем, этот механизм не является совершенным и иногда в его работе происходят ошибки, которые не позволяют поставить обновление.

Решение неожиданных ошибок при работе с Центром обновления Windows

Если центр обновления Windows не работает, можно использовать инструмент решения проблем для исправления самых распространённых ошибок.

Если вы получаете ошибку 0xc1900223, возникли проблемы в скачивании обновления и вы ничего не можете сделать. Позже центр обновления попробует скачать его снова.

Решение ошибки 0x80073712 при использовании центра обновления Windows

Если во время обновления до Windows 10 2004 вы получаете ошибку 0x80073712, один или больше нужных файлов отсутствуют или повреждены.

Исправление ошибки 0x800F0922 при использовании Центра обновления

Ошибка 0x800F0922 появляется, когда Центр обновления Windows не может подключиться к серверу Microsoft или когда в разделе System Reserved не хватает свободного места.

Отключите VPN

Ошибка 0x800F0922 может означать, что включено соединение VPN.

Изменение размера раздела System Reserved

Если сторонние приложения безопасности, вроде антивирусов, хранят свои данные в разделе System Reserved, есть вероятность, что обновление Windows 10 не установится.

Когда такое происходит, нужно использовать сторонние приложения для изменение размера зарезервированного раздела. Он должен быть не меньше 500 Мб. Или можно выполнить чистую установку версии Windows 10 2004. Это решает данную проблему и позволяет решить все остальные, повысив производительность.

Media Creation Tool представляет собой утилиту, созданную главным образом для чистой установки и обновления Windows 10. В его работе тоже могут быть проблемы, особенно в начале распространения May 2020 Update.

Исправление проблемы с зависанием загрузки в Media Creation Tool

При обновлении Media Creation Tool скачивает установочные файлы Windows 10 и дополнительные обновления. Скачивание дополнительных обновлений может зависнуть, что не позволяет установить версию 2004.

Как исправить проблемы с установкой May 2020 Update с USB-носителя

Когда не удаётся установка при помощи носителя с интерфейсом USB, это может означать повреждение или отсутствие необходимых файлов. Проблему легко исправить, используя Media Creation Tool.

Если установка с этого носителя снова не получается, попробуйте выполнить эти шаги ещё раз, но на другом компьютере. Или используйте другое приложение, вроде Rufus, для создания установочного носителя.

Как устранить проблему установки обновления May 2020 Update

Если процесс обновления до Windows 10 May 2020 Update начался, в нём могут быть разнообразные ошибки, в зависимости от проблемы.

Устранение ошибок 0x8007042B 0x4000D и 0x800700B7 0x2000A

Эти ошибки показывают, что в фоновом режиме запущен другой процесс. Обычно это приложения и сервисы из автозагрузки, такие как системные процессы, сторонний антивирус, приложения рабочего стола.

Можно также выполнить чистую установку Windows 10 или временно удалить мешающие программы.

Устранение ошибки 0xC1900107

Ошибка 0xC1900107 означает, что устройство недавно обновлялось до новой версии. При этом установочные файлы не были удалены и мешают выполнять следующее обновление.

Устранение проблем с завершением установки Windows

Пытаетесь ли вы установить крупное обновление Windows 10 или накопительные обновления, могут появиться следующие две ошибки:

Ошибка: Невозможно завершить обновление. Отмена изменений. Не выключайте компьютер. (We couldn’t complete the updates. Undoing changes. Don’t turn off your computer)

Решение проблем с установкой Windows

Решение ошибки 0x80200056

Ошибка 0x80200056 не является критической. Она означает случайную перезагрузку во время обновления. Достаточно повторно запустить установку обновления.

Как исправить проблемы с Update Assistant при установке May 2020 Update

Кроме центра обновления Windows и Media Creation Tool, Microsoft предоставляет инструмент Update Assistant для принудительной установки обновления. Здесь также могут быть ошибки.

Как исправить проблемы с хранилищем при установке May 2020 Update

Хотя Windows 10 содержит функцию «Зарезервированное хранилище» для хранения временных файлов, могут возникнуть связанные с дисковым пространством ошибки:

• 0x80070070 – 0x50011
• 0x80070070 – 0x50012
• 0x80070070 – 0x60000

Как исправить проблемы с аппаратной и программной несовместимостью при установке May 2020 Update

Аппаратная и программная несовместимость могут блокировать процесс обновления. В таком случае вы должны найти источник несовместимости и устранить его.

Ошибка 0x80070002 0x20009

Если вы обновляетесь с более старой версии Windows 10 до May 2020 Update, может возникнуть ошибка 0x80070002 0x20009. Это означает, что не найдены определённые файлы.

Это ещё одна распространённая проблема с обновлением до новой версии Windows 10. Она решается отключением вспомогательных дисков, включая флешки. После отключения периферийных устройств повторно запустите процесс установки.

Ошибка 0xC1900101

Пытаясь установить версию 2004 или другую, вы можете столкнуться с ошибками 0xC1900101 и 0x80090011. Они означают неполадки с драйверами. Коды этих ошибок следующие:

Отключите периферийные устройства

Для сведения к минимуму возможных ошибок необходимо отключать все периферийные устройства, такие как внешние жёсткие диски, принтеры, устройства Bluetooth и USB, камеры и другие.

После установки можно подключить их снова.

Обновление драйверов

Обновление драйверов устройств до последних версий может устранить ошибки. Для проверки наличия обновлений драйверов в Windows 10 сделайте следующее.

Оптимизация хранилища

Если вы видите ошибку 0xC1900101, можно использовать настройки хранилища, удалить ненужные приложения и игры, перенести лишние файлы на другой раздел или на другое хранилище для освобождения свободного места.

Ремонт установки

Ошибка 0xC1900101 может указывать на проблемы с текущей установкой Windows и вы не сможете обновить систему.

Эту ошибку можно исправить при помощи утилит командной строки Deployment Servicing and Management (DISM), System File Checker (SFC) и System File Checker (SFC).

Чистая установка

Если ошибку исправить не удаётся, используйте Media Creation Tool для чистой установки Windows 10.

Устранение аппаратных ошибок 0xC1900200, 0xC1900202, 0x80300024

Если на вашем компьютере уже установлена Windows 10, вы скорее всего не увидите эти ошибки. Если появляются ошибки 0xC1900200 – 0x20008, 0xC1900202 – 0x20008 или 0x80300024, устройство не отвечает минимальным системным требованиям.

Эти требования следующие:

• Процессор: частота 1 ГГц;
• Память: 2 Гб для 32-разрядной версии и 64-разрядной;
• Жёсткий диск: 16 Гб дискового пространства для 32-разрядной версии и 20 Гб для 64-разрядной;
• Видеокарта: DirectX 9 или новее с WDDM 1.0;
• Экран: 800 x 600.

При наличии одной из этих ошибок вам скорее всего нужно обновить оперативную память.

Ошибка 0x800F0923

Ошибка 0x800F0923 означает проблемы с совместимостью драйвера или приложения на компьютере. При обновлении до новой версии Windows 10 данная ошибка обычно указывает на проблему с драйвером видеокарты, устаревшую программу или антивирус.

Одним из методов поиска проблемы является запуск Update Assistant или Media Creation Tool. Во время установки, если есть проблемы с совместимостью, эти инструменты показывают ошибку более подробно.

Если это проблема с драйвером, нужно установить более современную версию с сайта производителя устройства. Если есть, скачайте бета-версию драйвера. В первые дни существования новой версии Windows 10 производители тестируют новые драйверы на совместимость с программным обеспечением.

Удаление несовместимого драйвера

Если вы видите одну из этих ошибок, отключите проблемное устройство и попробуйте выполнить обновление снова.

Ошибка 0xC1900208

Во время обновления до версии 2004 можно столкнуться с ошибкой 0xC1900208 – 0x4000C. Это может означать, что установленное на компьютере приложение несовместимо. Обычно это старая программа для рабочего стола или сторонний антивирус.

Как исправить ошибки после установки May 2020 Update

Даже если установка Windows 10 2004 успешно завершилась, проблемы могут начаться после. Это может быть чёрный экран, проблемы со связью и активацией.

Устранение проблем с чёрным экраном после обновления

Чёрный экран во время и после установки встречается довольно часто. Обычно это указывает на проблему с графическим драйвером, аппаратными компонентами или на неправильную установку новой версии.

Исправление проблем с сетью после обновления

После установки Windows 10 May 2020 Update есть вероятность столкнуться с проблемами в работе сети, вроде медленного беспроводного подключения, разрывов связи, полного отсутствия связи или недоступного адаптера.

Решение проблем с сетью

Сброс сетевых адаптеров

Если проблема сохраняется, сброс сетевого стека удалит, переустановит и задаст настройки по умолчанию, которые могут решить проблему.

Если проблемы остались, причин может быть множество, включая проблемы с адаптером, драйверами, настройками, сигналом, кабелем, маршрутизатором, провайдером и самой Windows 10 2004.

Решение проблем с активацией после обновления

На Windows 10, когда вы активировали систему, повторная активация происходит автоматически после обновления или даже чистой установки без необходимости вводить лицензионный ключ. Иногда повторная активация не срабатывает и вы получаете сообщение «Windows не активирована» с ошибкой 0x803F7001 на странице настроек активации.

В таком случае необходимо просто подождать и позднее Windows 10 должна активироваться автоматически. Если прошло несколько дней и активация не произошла, можно использовать инструмент решения проблемы с активацией.

Как свести к минимуму проблемы при обновлении до Windows 10 May 2020 Update

Windows 10 установлена на тысячах аппаратных и программных конфигураций. Разработка такой системы является очень сложным процессом, поэтому всегда есть шанс столкнуться с неполадками во время или после обновления.

Если подготовиться к установке обновления, эти шансы можно свести к минимуму.

Резервное копирование

Создание резервной копии вашего компьютера является одним из лучших способов подготовиться к обновлению. Процесс установки Windows 10 содержит все механизмы безопасности для восстановления предыдущей установки в случае наличия проблем. Этот механизм не всегда срабатывает как задумано.

Прежде чем нажать на кнопку «Установить», создайте временную резервную копию. Для этого можно пользоваться сторонними приложениями или инструментом создания системных образов в Windows 10.

Кроме резервного копирования операционной системы рекомендуется копировать файлы на внешний жёсткий диск или в облачное хранилище.

Удаление ненужных приложений

Приложения для рабочего стола и сторонний антивирус и часто являются причиной невозможности установить обновление операционной системы. Рекомендуется удалить эти приложения, прежде чем устанавливать обновление. После вы сможете поставить их обратно.

Процесс удаления приложений на Windows 10 уже описывался выше.

Отключение приложений безопасности

Кроме удаления конфликтующих приложений можно удалить сторонний антивирус и прочие приложения безопасности. После обновления Windows 10 их можно установить обратно.

Если проблема в защитнике Windows, его нельзя удалить, но можно отключить.

Важно: временное удаление и отключение приложений безопасности не опасно. Однако, никогда не стоит оставлять устройство без защиты надолго.

Освобождение дискового пространства

Если объём свободного дискового пространства на устройстве небольшой, обновление не установится. Сначала нужно освободить дисковое пространство.

Удаление необязательных периферийных устройств

Зачастую источником проблем становятся периферийные устройства, без которых можно обойтись. Прежде чем продолжать установку May 2020 Update, отключите от компьютера все флешки, карты памяти, внешние жёсткие диски, принтеры, сканеры, Bluetooth-устройства и т. д. Отключите док-станцию от ноутбука.

Останутся только мышь, клавиатура, монитор и подключение к интернету. После установки обновления все периферийные устройства можно снова подключить.

Отключите брандмауэр

Брандмауэр может вызвать проблемы, если вы меняли его настройки по умолчанию или используете определённое приложение, которое несовместимо с Windows 10.

Отключение лимитных приключений

Если вы настроили сетевое подключение как лимитное, Windows 10 2004 не будет скачиваться. Нужен доступ в интернет с неограниченным объёмом трафика.

Чистая установка

Если вы хотите свести к минимуму вероятность проблем, проще всего выполнить чистую установку Windows 10. Чистая установка удалит все данные на этом разделе жёсткого диска и позволит установить систему без багов.

Если вы хотите выполнить чистую установку, нужно создать загрузочную флешку при помощи Media Creation Tool.

Заключение

Microsoft старается максимально улучшить систему и упростить процесс перехода на следующую версию Windows 10. Высокая сложность не позволяет полностью избавиться от ошибок.

Не рекомендуется устанавливать подобные крупные обновления сразу после их релиза. В них могут содержаться неизвестные баги и ошибки, которые могут внести проблемы в работу компьютера. Желательно подождать выпуска нескольких накопительных обновлений, чтобы система стала более стабильной.

Коды ошибок Windows 10 — что значат и как исправить

Windows 10 – это наиболее продуманная и быстрая операционная система от Майкрософт. Однако, несмотря на большое количество служб контроля и автоматического устранения неполадок, пользователи время от времени сталкиваются с появлением ошибок.

Рассмотрим, какие коды ошибок Windows 10 встречаются чаще всего и как их решить простому пользователю.

Все неполадки условно разделяют на несколько категорий:

Windows 10 является новой ОС, ошибки в которой еще недостаточно хорошо исследованы разработчиками, поэтому рассмотрим все причины и способы решения неполадок.

Базовые ошибки системы

С описанными в этом разделе неполадками пользователи сталкиваются еще до установки и начала использования Виндовс 10. Как правило, проблемы с переходом на новую ОС возникают у пользователей Windows 7. Это объясняется тем, что в Майкрософт отменили полную поддержку семерки и теперь установка новых компонентов десятой версии может привести к возникновению системных ошибок.

Коды ошибок, которые возникают при установке

Провялятся баг установки может одним из следующих образов:

Код ошибки 0xC19000101

Если на экране появился код ошибки при установке Windows 10 0xC19000101, отмените процесс инсталляции и освободите место на жестком диске. Для нормальной работы ОС требуется как минимум 20 ГБ свободного места на накопителе. Также, советуем открыть поле «Советы по устранению неполадок». В новом окне система предложит наиболее вероятные способы решения возникшего бага.

Кодs ошибки Windows 10 C1900101-20004 и C1900101-20017

В случае возникновения кода C1900101-20004 необходимо отключить кабель SATA, а при C1900101-20017 – зайдите в БИОС и отключите ядра, оставив рабочими только 1-2 из них. После успешной установки системы работу отключенных компонентов нужно вернуть.

Код 0x80072f76 0x20017

При возникновении в Windows 10 кода ошибки 0x80072f76 0x20017, необходимо создать загрузочную флешку или диск и уже с помощью носителя установить ОС. Таким образом, будет запущена «чистая установка» Виндовс. Также, вы можете попробовать повторно установить систему после выполнения указанных ниже действий.

0x80072f76 — исправляйте MediaCreationTool

В Windows 10 код ошибки 0x80072f76 означает, что возникли проблемы в работе утилиты MediaCreationTool, которая отвечает за скачивание и установку десятки с сервера Майкрософт. Следуйте инструкции:

Теперь повторно запустите утилиту MediaCreationTool и начните установку Виндовс 10. Все будет работать в нормальном режиме, и ошибка больше не появится.

Ошибки при активации Windows 10

Как известно, для установки Виндовс 10 достаточно скачать ISO-образ на сайте Майкрософт. Это бесплатно и запустить инсталляцию может любой пользователь. Главное, чтобы совпадали сборки старой и новой ОС и ваш компьютер имел минимальные технические характеристики.

Для начала нормальной работы с установленной десяткой её нужно активировать. Пользователи, купившие диск с системой, могут сделать это еще на этапе установки. В таких случаях ошибка активации возникает крайне редко и решается простым перезапуском инсталлятора.

Если же вы решили сначала инсталлировать ОС, а потом уже в настройках ввести ключ активации, есть большая вероятность столкнуться с неполадкой.

Распространенные коды ошибок активации Windows 10 и способы их решения:

Коды ошибок при обновлении Виндовс 10

Обновления системы Windows 10 приходят регулярно. Обычные пакеты безопасности устанавливаются через каждые несколько дней и часто их инсталляция происходит в фоновом режиме.

Примерно через каждые несколько месяцев разработчики Microsoft выпускают более серьёзные апдейты, которые требуют полной перезагрузки системы, а их установка может занимать даже несколько часов.

Коды ошибок при обновлении Windows 10 отображаются в окне Центра уведомлений. Так как система обновляется «по воздуху», для устранения неполадок достаточно проверить соединение с интернетом или перезагрузить компьютер и попытаться подключиться к Wi-Fi с быстрым поддержкой быстрого соединения.

0х800F0922

Этот код говорит о том, что в системе недостаточное количество памяти на жестком диске для установки обновления. Почистите память и только после этого повторно устанавливайте обновления.

Также, появление ошибок при обновлении может свидетельствовать о их несовместимости с техническим характеристиками вашего ПК.

0x80070002

Код ошибки 0x80070002 в Windows 10 означает, что на компьютере неправильно выставлена дата или Центр обновлений работает некорректно. Для начала убедитесь, что время выставлено верно. Затем следуйте инструкции:

Синий экран смерти (BSoD)

Синий экран смерти (или BSoD) – это самая серьёзная ошибка всех версий ОС Windows. Цвет экрана может быть как синим (в 95% случаев), так и красным.

Синий цвет указывает на программную причину неполадки. Система не смогла справиться с нагрузкой или не был найден способ устранения бага, поэтому появляется BSoD. Он блокирует сеанс, е сохраняет данные и автоматически перезапускает компьютер.

Распространенные причины появления BSoD:

Красный экран смерти

Красный экран смерти обозначает что нарушена работа аппаратных компонентов ПК. Если красный экран появляется через несколько минут после каждого включения ОС. Единственное, что вы можете сделать – обратиться в сервисный центр для проведения ремонта.

В десятой версии Виндовс стало гораздо удобнее взаимодействовать с BSoD. В окне появилось более-менее нормальное описание для возникшей ошибки, и пользователи могут просканировать QR-код, который перенаправит их на страничку с детальными указаниями для решения проблемы.

Универсальный способ устранения экрана смерти:

Другие ошибки в работе ОС

Рассмотрим распространенные типы неполадок, которые могу появляться при работе с ОС Windows 10.

Неполадки с USB

Часто при подключении любого устройства через USB (флешки или кабеля) появляется ошибка с кодом 43 Windows 10. Она указывает на то, что материнская плата не может подключиться к устройству.

Проблема имеет аппаратных характер и используемый разъем следует починить или заменить. Попробуйте подключить устройство к другому порту USB на вашем компьютере.

Не исключён и единовременный программный сбой. Для его устранения вы можете попробовать выполнить такие действия:

Код 0x8004005

Сразу после установки Виндовс 10 в системе может возникать ошибка с кодом 0х8004005. При этом, появляются проблемы в работе сетевого оборудования. Часто подключение к интернету пропадает, но появляется после перезагрузки ПК и снова исчезает через 5-10 минут.

Для устранения этой неполадки разработчики выпустили специальный пакет обновлений 0x80KB3081424. Если в данный момент на компьютере есть соединение с сетью, запустите работу Центра обновлений и пакет будет установлен автоматически.

В случае, если подключение не работает, загрузите нужный пакет с сайта Майкрософт на другой ПК и скиньте файл на свой компьютер. Выполните установку и перезапустите ОС.

Теперь вы знаете, как устранить распространенные коды ошибок в Windows 10. Делитесь в комментариях, с какими багами и неполадками сталкивались вы и как смогли их решить.

Источник

	Я
batmansoft 16.02.14 — 10:46	Добрый день. При попытке запустить под Win8 regsvr32 V7PLUS.DLL выдает, что Модуль V7PLUS.DLL загружен но не удается запустить DllRegisterServer код ошибки 0x80020009. подскажите пожалуйста, как лечить?
ДенисЧ 1 — 16.02.14 — 11:03	http://social.technet.microsoft.com/Forums/ru-RU/44c5ce9b-11cb-42b1-a94c-bee07b4e3844/dllregisterserver-0x80020009-v7plusdll?forum=xpru Gjcktlybq gjcn
KRV 2 — 16.02.14 — 11:03	Понять, простить..
aka AMIGO 3 — 16.02.14 — 11:11	для первого пуска 1с v7 нужен админ. всего-навсего — для регистрации библиотек а дальше — уже может радоваться любой бесправный юзер
batmansoft 4 — 16.02.14 — 11:50	(3) О, спасибо, это помогло. Запустил 1С от имени администартора и он сразу начал вэсемь плюс находить. А до этого даже батник с его регистрацией запускал от имени админа — ничего.
Magford 5 — 16.02.14 — 20:30	Для Windows 7 процедура следующая: Скопировать v7plus.dll в папку BIN, найти файл cmd.exe, запустить от имени администратора, в появившемся окне ввести команду regsvr32 <путь к 1С>BINV7Plus.dll Для Win2008R2-64 нужно скопировать dll в папку SysWoW64, запустить cmd из под администратора и ввести команду следующего вида: %systemroot%SysWoW64regsvr32.exe %systemroot%SysWoW64v7plus.dll
Magford 6 — 16.02.14 — 20:31	Для Windows 8 процедура следующая: Скопировать v7plus.dll в папку BIN, найти файл cmd.exe, запустить от имени администратора, в появившемся окне ввести команду regsvr32 <путь к 1С>BINV7Plus.dll Для Win2008R2-64 нужно скопировать dll в папку SysWoW64, запустить cmd из под администратора и ввести команду следующего вида: %systemroot%SysWoW64regsvr32.exe %systemroot%SysWoW64v7plus.dll

Ok. I’ve got a weird one. run the folowing it runs just fine on all computers

#include <IE.au3>
Dim $oIE
$oIE = _IECreate("http://ncat3420a/CatWeb/ImportCenter/ImportCenterPge.aspx", 0, 0, 1, 1)

Sleep(5000)

_IEQuit($oIE)

This simple test opens a web page waits 5 seconds and closes

When I run it in my main program it bombs on any computer I try it on.

The error I see is:

### COM Error ! Number: 80020009 ScriptLine: -1 Description:

I would post my whole script but it’s 5700 lines and only runable on our host system software. (That is it looks for a paticular program to be running and controls that program)

If need be I’ll post it.

Thanks for the help.

Here is the main routing that launches this code:

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..IconsIconshock_tiny_animals_vista_iconsicoparrot.ico
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Misc.au3>
#include <GUIConstants.au3>
#include <Date.au3>
#include <file.au3>
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiImageList.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <LibCsv2.au3>
#include <Process.au3>
#include <IE.au3>
#include <GuiButton.au3>
#include <GuiEdit.au3>
#include <Sound.au3>
#include <ScreenCapture.au3>
#include <_sql.au3>
Opt('MustDeclareVars', 1)
;
;make sure only one is running on local computer at a time!
;
If _Singleton("HACUXP2", 1) = 0 Then
    MsgBox(0, "Warning", "An occurence of HACUXP is already running. Exiting.")
    Exit
EndIf
Dim $oIE3, $oIE4

;
;
; Set windows to familar names
;
Const $winxpmain = "XP/Win Navigator"
Const $winDCCM = "XP/Win - Console Monitor"
Const $winRWDB = "XP/Win - RWDB - RW-Database Maint"
Const $winDV = "XP/Win - Document Viewer"
Const $winBatch = "XP/Win - Display Batch Ctl Files"
Const $winPrintQueue = "XP/Win - Print Queue Control"
Const $winPrintControl = "XP/Win - Print Control - Queues"
Const $winDCCO = "XP/Win - Current Operators"
Const $winDCAR = "XP/Win - Audio Response Status"
Const $winDCJC = "XP/Win - Journal COntrol"
Const $winDCPH = "XP/Win - Processing History"
Const $winDCBFPost = "XP/Win - DCBF - POST EFT FILES"
Const $winHACUXPUtility = "HACU XP Utility"
;
;other variables

;##################################
; EMAIL Variables
;##################################
Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
Dim $SmtpServer, $FromAddress, $FromName, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl, $HexNumber
$SmtpServer = "any.smtp.server" ; address for the smtp-server to use - REQUIRED
$FromName = "MIS" ; name from who the email was sent
$FromAddress = "info@uinfo.com" ; address from where the mail should come
$ToAddress = "info@uinfo.com" ; destination address of the email - REQUIRED
$Subject = "Notification" ; subject from the email - can be anything you want it to be
$Body = "" ; the messagebody from the mail - can be left blank but then you get a blank mail
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = "" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "info@uinfo.com" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "info@uinfo.com" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25 ; port used for sending the mail
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                          ; GMAIL port used for sending the mail
;~ $ssl=1                               ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

;
; Reference number = $ REF, Boolean test for success DCCM = $booDCCM
;
Dim $ref, $booDCCM, $booBCTL, $booDOCNumber, $userInput, $DOCNumber, $todayMMDD, $todayMMDDYY, $BCTL, $okAnswer, $1000step2boo, $CNTC, $DNTC, $firstline, $secondline, $counterFromBottom
Dim $CatFileList, $iecorrect, $iecorrect2, $scriptStatus, $muteAudio, $HACUXP, $inputRefNumber, $lblRefNumber, $Button1, $inputToday, $Graphic1, $label2, $lblTodayMMDD, $lblMMDD, $btnChangeDate, $lblLog, $lblDOCText
Dim $oReportPageResultHost, $oReportJobHost, $oFoundJobIDHost, $whilex, $ListViewDocs, $btnDocs, $lbLog, $btndocRefresh, $pbar, $nMsg, $currCtrl, $currVal, $aItem1, $sDir, $sFile, $FileList
Dim $errorboo, $errorboo2, $errorboo3, $fc, $oIE, $oForm, $oSelect, $oSelectedm, $FileList3, $ncatboo, $oText, $oCheckValue, $rc, $tTime, $element, $calc, $foundfirst, $foundlast, $oSelected
Dim $oIE2, $NCATCounter, $oReportViewStatusPage, $oReportTest, $oFindReportID, $fsize, $CatSwitchFile, $ftime, $NCATReportCounter, $CatEODFileList, $audioMutedBoo, $iMsgBoxResult, $MBPID1
Dim $1300File, $1300Boo, $1300count, $1300line, $1500count, $1500File, $1500logfile, $6050Filename, $6400Filename, $6400boo, $ProxyMasterPC, $sCommand, $startRefNumber, $finishRefNumber, $i
Dim $CatMNTHFileList, $MBRandom, $logtext, $5750MergeFile, $5750OpenFile, $5750fileout, $dccmcheck
Dim $5900array, $5900data, $5900FileList, $5900filename, $5900fileoutput, $5900filepath, $5900WinTitle, $5900sHTML, $5900link1, $5900oIE, $5900new
Dim $5050Backupdir, $5050LogDir, $5050aRecords, $ButtonRefresh, $driveg, $ButtonScreenCapture, $ButtonmoveNotices
Dim $1750filename, $OTGBackupFilename, $OTGrejectarray, $OTGtempFilename, $OTGOrigFile, $1750PrevDayFile, $1750CurrSeq, $1750PrevSeq, $OTGfilenameImport, $OTGlogarray, $OTGficheNumber, $1700ficheFileNumber
Dim $CS_filelocation, $CS_Description, $CS_ReferenceNumber, $CS_size, $CaptureCB, $btnCapture, $msg, $UpdateWinList_Array
Dim $DLL, $LAST, $1600AcquirerFileName, $1600AcquirerDeviceID, $1600IssuerFileName, $1600IssuerDeviceID, $whatref
Local $aiResult, $FNNresult
Dim $sleep1, $sleepingi, $sleepingj, $sleepprogress
Dim $iIndex, $5050boolean, $1350failed
Dim $upper, $FirstlineArray, $LastlineArray, $lineArray, $newArray[1], $FileList
$DLL = DllOpen('user32.dll')
;
;find os type 32 or 64 bit
;
Dim $OSType, $64bit
$OSType = @OSArch
If $OSType = "X64" Then
    $64bit = True
EndIf
;
;specific values (May change in script)
;
$iMsgBoxResult = 0
;
;Speech const
;
Const $SpeechDir = "G:AutoIT_ProductionSpeech"
$audioMutedBoo = True ; audio is turned off by default
;
;Dates
;
Dim $MyDate, $Today, $todayName, $MyTime, $dd, $yy, $mm, $yesterdaydd, $yesterdaydate, $dateyyyymmdd, $dateprevyyyymmdd, $NCATPrevDate, $dateThreeDaysAgo, $dateThreeDaysAgoDD, $dateThreeDaysAgoMM, $dateThreeDaysAgoYY
Dim $yesterdayMM, $yesterdayYY, $dateTwoDaysAgo, $dateTwoDaysAgoDD, $dateTwoDaysAgoMM, $dateTwoDaysAgoYY, $twoweeksago, $twoweeksagoYYYYMMDD, $dateFourDaysAgo, $dateFourDaysAgoDD, $dateFourDaysAgoMM, $dateFourDaysAgoYY
Dim $yesterdayMMDDYY, $dateThreeDaysAgoMMDDYY
$Today = _NowCalcDate()
_DateTimeSplit($Today, $MyDate, $MyTime)
$todayMMDDYY = StringFormat("%02i%02i%s", $MyDate[2], $MyDate[3], StringRight($MyDate[1], 2))
$todayMMDD = StringFormat("%02i%02i%s", $MyDate[2], $MyDate[3])
;
$dd = @MDAY
$yy = StringRight(@YEAR, 2)
$mm = @MON
$yesterdaydate = _DateAdd('d', -1, _NowCalcDate())
$yesterdaydd = StringRight($yesterdaydate, 2)
$yesterdayMM = StringMid($yesterdaydate, 6, 2)
$yesterdayYY = StringMid($yesterdaydate, 3, 2)
$yesterdayMMDDYY = $yesterdayMM & $yesterdaydd & $yesterdayYY
;
;Two days ago (Used for Monday where you need saturday's date)
;
$dateTwoDaysAgo = _DateAdd('d', -2, _NowCalcDate())
$dateTwoDaysAgoDD = StringRight($dateTwoDaysAgo, 2)
$dateTwoDaysAgoMM = StringMid($dateTwoDaysAgo, 6, 2)
$dateTwoDaysAgoYY = StringMid($dateTwoDaysAgo, 3, 2)
;
;Three days ago (Used for Monday where you need last business day of Friday)
;
$dateThreeDaysAgo = _DateAdd('d', -3, _NowCalcDate())
$dateThreeDaysAgoDD = StringRight($dateThreeDaysAgo, 2)
$dateThreeDaysAgoMM = StringMid($dateThreeDaysAgo, 6, 2)
$dateThreeDaysAgoYY = StringMid($dateThreeDaysAgo, 3, 2)
$dateThreeDaysAgoMMDDYY = $dateThreeDaysAgoMM & $dateThreeDaysAgoDD & $dateThreeDaysAgoYY
;
;Four days ago (Used for Monday Holidays where you need last business day of Friday)
;
$dateFourDaysAgo = _DateAdd('d', -4, _NowCalcDate())
$dateFourDaysAgoDD = StringRight($dateFourDaysAgo, 2)
$dateFourDaysAgoMM = StringMid($dateFourDaysAgo, 6, 2)
$dateFourDaysAgoYY = StringMid($dateFourDaysAgo, 3, 2)
;
$dateyyyymmdd = @YEAR & @MON & @MDAY
$dateprevyyyymmdd = StringLeft($yesterdaydate, 4) & StringMid($yesterdaydate, 6, 2) & StringRight($yesterdaydate, 2)
;
;two weeks ago
;
$twoweeksago = _DateAdd('d', -14, _NowCalcDate())
$twoweeksagoYYYYMMDD = StringLeft($twoweeksago, 4) & StringMid($twoweeksago, 6, 2) & StringRight($twoweeksago, 2)
;
; Setup holidays 2008
;
; #FUNCTION# ;=========================================================================================
; Name...........: _DateGetFloatingHoliday
; Description ...: Returns the date of a floating holiday for a given year/month/weekday/weeknumber.
; Syntax.........: _DateGetFloatingHoliday($iYear = @YEAR, $iMonth = @MON, $iWkDay = 0, $iNthWk = 0)
; Parameters ....: $iYear  - A valid year in format YYYY
;                  $iMonth - A valid month in format MM
;                  $iWkDay - A valid weekday in format: 1 to 7 (Sunday to Saturday)
;                  $iNthWk - A valid week of month number in format: 1 to 5
; Return values .: Success - Date of holiday
;                  Failure - Returns 0 and @error is set
;Holidays
;
Local $NewYearsDay = "0101" & $yy
Local $MLKbirthday = "01" & _DateGetFloatingHoliday(@YEAR, 1, 2, 3) & $yy
Local $PresidentsDay = "02" & _DateGetFloatingHoliday(@YEAR, 2, 2, 3) & $yy
Local $MemorialDay = "05" & _DateGetFloatingHoliday(@YEAR, 5, 2, 4) & $yy
Local $IndependenceDay = "0704" & $yy
Local $LaborDay = "090" & _DateGetFloatingHoliday(@YEAR, 9, 2, 1) & $yy
Local $ColumbusDay = "10" & _DateGetFloatingHoliday(@YEAR, 10, 2, 2) & $yy
Local $VeteransDay = "1111" & $yy
Local $ThanksgivingDay = "11" & _DateGetFloatingHoliday(@YEAR, 11, 5, 4) & $yy
Local $ChristmasDay = "1225" & $yy
Dim $HolidayYesterday, $Holidays[10]
$HolidayYesterday = False
$Holidays[0] = $NewYearsDay
$Holidays[1] = $MLKbirthday
$Holidays[2] = $PresidentsDay
$Holidays[3] = $MemorialDay
$Holidays[4] = $IndependenceDay
$Holidays[5] = $LaborDay
$Holidays[6] = $ColumbusDay
$Holidays[7] = $VeteransDay
$Holidays[8] = $ThanksgivingDay
$Holidays[9] = $ChristmasDay
;
; Test if yesterday was a holiday.
;
For $x = 0 To 9
    If $yesterdayMMDDYY = $Holidays[$x] Then
        $HolidayYesterday = True
    EndIf
Next
;
; If it's a monday we need to check to see if Friday was a holiday.
;
If @WDAY = 2 Then
    For $x = 0 To 9
        If $dateThreeDaysAgoMMDDYY = $Holidays[$x] Then
            $HolidayYesterday = True
        EndIf
    Next
EndIf
;

Select
    Case @WDAY = 1
        $todayName = "Sunday"
    Case @WDAY = 2
        $todayName = "Monday"
    Case @WDAY = 3
        $todayName = "Tuesday"
    Case @WDAY = 4
        $todayName = "Wednesday"
    Case @WDAY = 5
        $todayName = "Thursday"
    Case @WDAY = 6
        $todayName = "Friday"
    Case @WDAY = 7
        $todayName = "Saturday"
EndSelect
;
;CAPS LOCK
;

LED(1, 1, 0)

;
; ######  ########  ########    ###    ######## ########     ######   ##     ## ####
;##    ## ##     ## ##         ## ##      ##    ##          ##    ##  ##     ##  ##
;##       ##     ## ##        ##   ##     ##    ##          ##        ##     ##  ##
;##       ########  ######   ##     ##    ##    ######      ##   #### ##     ##  ##
;##       ##   ##   ##       #########    ##    ##          ##    ##  ##     ##  ##
;##    ## ##    ##  ##       ##     ##    ##    ##          ##    ##  ##     ##  ##
; ######  ##     ## ######## ##     ##    ##    ########     ######    #######  ####
;
;
;
;
;find size of current desktop
;
Opt("WinTitleMatchMode", 4)
Dim $pos[4]
$pos = WinGetPos("classname=Shell_TrayWnd")
$pos[3] = @DesktopHeight - ($pos[3] + 32)

;
;create gui
;
#Region ### START Koda GUI section ### Form=c:program filesautoit3guiformshacuxp.kxf
$HACUXP = GUICreate("HACU XP Utility", 971, 447, $pos[2] - 972, $pos[3] - 447)
$inputRefNumber = GUICtrlCreateInput("", 137, 13, 137, 21)
$lblRefNumber = GUICtrlCreateLabel("Enter Reference Number:", 7, 15, 125, 17)
$Button1 = GUICtrlCreateButton("Go", 280, 13, 85, 20, 0)
$Today = GUICtrlCreateLabel("Today (MMDDYY):", 7, 55, 94, 17)
$inputToday = GUICtrlCreateInput("", 108, 53, 144, 21)
$label2 = GUICtrlCreateLabel("Script Running:", 576, 14, 182, 33)
GUICtrlSetFont(-1, 18, 800, 0, "MS Sans Serif")
$lblTodayMMDD = GUICtrlCreateLabel("Today (MMDD):", 264, 55, 80, 17)
$lblMMDD = GUICtrlCreateLabel("mmdd", 352, 55, 32, 17)
$btnChangeDate = GUICtrlCreateButton("Change Date", 152, 80, 81, 25, 0)
$lbLog = GUICtrlCreateList("", 8, 120, 761, 318)
$lblLog = GUICtrlCreateLabel("Log:", 8, 88, 25, 17)
$lblDOCText = GUICtrlCreateLabel("Today's Documents", 808, 112, 98, 17)
$ListViewDocs = GUICtrlCreateListView("", 776, 165, 185, 273)
$btnDocs = GUICtrlCreateButton("Open", 896, 136, 65, 25, 0)
$ButtonRefresh = GUICtrlCreateButton("Refresh Log", 240, 80, 105, 25, 0)
$btndocRefresh = GUICtrlCreateButton("Refresh", 776, 136, 65, 25, 0)
;
;Capture screen button
;
$ButtonScreenCapture = GUICtrlCreateButton("Capture", 380, 13, 85, 20, 0)
;
;Multiple move notices button
;
$ButtonmoveNotices = GUICtrlCreateButton("Multi-Notices", 470, 13, 85, 20, 0)

$pbar = GUICtrlCreateProgress(520, 72, 433, 17, $WS_BORDER)

GUICtrlSetColor(-1, 0x00FF00)
$scriptStatus = GUICtrlCreateLabel(" NO", 776, 16, 45, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUICtrlSetBkColor(-1, 0xFF0000)
$muteAudio = GUICtrlCreateButton("Audio Off", 360, 80, 73, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

;
; set dates on GUI
;
GUICtrlSetData($lblMMDD, StringLeft($todayMMDDYY, 4))
;
; ######   ##     ## ####    ##        #######   ######      ######## #### ##       ##
;##    ##  ##     ##  ##     ##       ##     ## ##    ##     ##        ##  ##       ##
;##        ##     ##  ##     ##       ##     ## ##           ##        ##  ##       ##
;##   #### ##     ##  ##     ##       ##     ## ##   ####    ######    ##  ##       ##
;##    ##  ##     ##  ##     ##       ##     ## ##    ##     ##        ##  ##       ##
;##    ##  ##     ##  ##     ##       ##     ## ##    ##     ##        ##  ##       ##
; ######    #######  ####    ########  #######   ######      ##       #### ######## ########
;
Const $logfilelocation = "G:AutoIT_ProductionLogs" & _DateToMonth(@MON) & "-" & @YEAR & "" & $todayMMDDYY & "Log_" & $todayMMDDYY & ".log"
Dim $CS_filelocation = "G:AutoIT_ProductionLogs" & _DateToMonth(@MON) & "-" & @YEAR & "" & $todayMMDDYY & ""
Dim $logline
If Not FileExists($logfilelocation) Then
    FileOpen($logfilelocation, 9)
    FileClose($logfilelocation)
Else
    ;File found lets fill our log on the gui in reverse order! (Chronologically)
    FileOpen($logfilelocation, 0)
    Dim $logfilelinecount = _FileCountLines($logfilelocation)
    _GUICtrlListBox_BeginUpdate($lbLog)
    For $i = $logfilelinecount To 1 Step -1
        $logline = FileReadLine($logfilelocation, $i)
        _GUICtrlListBox_InsertString($lbLog, $logline, -1)
    Next
    _GUICtrlListBox_UpdateHScroll($lbLog)
    _GUICtrlListBox_EndUpdate($lbLog)
EndIf
;
; ######   ##     ## ####    ########   #######   ######     ######## #### ##       ##
;##    ##  ##     ##  ##     ##     ## ##     ## ##    ##    ##        ##  ##       ##
;##        ##     ##  ##     ##     ## ##     ## ##          ##        ##  ##       ##
;##   #### ##     ##  ##     ##     ## ##     ## ##          ######    ##  ##       ##
;##    ##  ##     ##  ##     ##     ## ##     ## ##          ##        ##  ##       ##
;##    ##  ##     ##  ##     ##     ## ##     ## ##    ##    ##        ##  ##       ##
; ######    #######  ####    ########   #######   ######     ##       #### ######## ########
;
;  Currently too many files int he L: drive. Way to slow to sort 13,000 files. Will think about this one.
;
;
GUICtrlSetBkColor($Graphic1, 0x00FF00)
GUICtrlSetData($pbar, "10")
Dim $filecount, $doctodayfile, $line, $lineArray, $linearray2
$doctodayfile = "G:AutoIT_ProductionDocScandoclisttoday.txt"
#Region --- CodeWizard generated code Start ---
_GUICtrlListView_InsertColumn($ListViewDocs, 0, "Name", 100)
_GUICtrlListView_InsertColumn($ListViewDocs, 1, "Time", 100)
GUICtrlSetBkColor($Graphic1, 0xC0C0C0)
GUICtrlSetData($pbar, "0")
;EndSelect
#EndRegion --- CodeWizard generated code Start ---

;
; check to make sure we are connected to G:
;
$driveg = DriveMapGet("G:")
If @error = 1 Then
    MsgBox(48, "No mapped drive!", "You need to have G: mapped to the MIS directory. Program will halt until fixed.")
    Exit
EndIf
If $driveg <> "\2003fs1sharedMIS" Then
    MsgBox(48, "Wrong mapped drive!", "G: is mapped to another location. You need to have G: mapped to the MIS directory (//2003fs1/shared/MIS). Program will halt until fixed.")
    ;MsgBox(0, "1", $driveg)
    Exit
EndIf
;
;Other misc:
;
xpload()
sleeping(200)

WinActivate($winHACUXPUtility)

GUICtrlSetData($pbar, "0")

;
;
;##     ##    ###    #### ##    ##    ##     ## ######## ##    ## ##     ##
;###   ###   ## ##    ##  ###   ##    ###   ### ##       ###   ## ##     ##
;#### ####  ##   ##   ##  ####  ##    #### #### ##       ####  ## ##     ##
;## ### ## ##     ##  ##  ## ## ##    ## ### ## ######   ## ## ## ##     ##
;##     ## #########  ##  ##  ####    ##     ## ##       ##  #### ##     ##
;##     ## ##     ##  ##  ##   ###    ##     ## ##       ##   ### ##     ##
;##     ## ##     ## #### ##    ##    ##     ## ######## ##    ##  #######
;
;
;

WinActive($winHACUXPUtility)
While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $HACUXP
        Case $inputRefNumber
        Case $lblRefNumber
        Case $Today
        Case $inputToday
        Case $Graphic1
        Case $label2
        Case $lblTodayMMDD
        Case $lblMMDD
        Case $muteAudio
            If $audioMutedBoo = False Then
                $audioMutedBoo = True
                _GUICtrlButton_SetText($muteAudio, "Audio Off")
            Else
                $audioMutedBoo = False
                _GUICtrlButton_SetText($muteAudio, "Audio On")
            EndIf
        Case $Button1
            cleanupWindows()
            $ref = GUICtrlRead($inputRefNumber, 1)
            GUICtrlSetData($inputRefNumber, "")
            Go()
        Case $ButtonScreenCapture
            CaptureScreenAsk()
        Case $ButtonmoveNotices

        Case $ButtonRefresh
            RefreshLogFile()
        Case $btnChangeDate
            ; date check - it only checks for six digit date not a valid date.
            $currCtrl = ControlGetFocus($HACUXP)
            $currVal = ControlGetText($HACUXP, "", $currCtrl)
            ; Check to make sure it's a six digit date
            If StringLen($todayMMDDYY) <> 6 Then
                MsgBox(0, "", "You need to use a six digit date. Try Again.")
            Else
                ;date is okay we will set it.
                $todayMMDDYY = GUICtrlRead($inputToday, 1)
                GUICtrlSetData($lblMMDD, StringLeft($todayMMDDYY, 4))
                MsgBox(64, "Information", "The new date was set.")
            EndIf
        Case $btnDocs
            $aItem1 = _GUICtrlListView_GetSelectedIndices($ListViewDocs, False)
            ;MsgBox(0,$linearray[$aItem1][0],$linearray[$aItem1][0])
            _RunDOS("C:Progra~1Crimso~1notepad.exe L:" & $lineArray[$aItem1][0])
        Case $btndocRefresh
            refreshDOCList()
            ;Case $btnCapture
            ;CaptureScreenAsk()
            ;UpdateWinList()
    EndSwitch

    If @HOUR = 01 Then
        Exit
    EndIf

WEnd
Exit
; ######    #######     ########  ##     ## ######## ########  #######  ##    ##
;##    ##  ##     ##    ##     ## ##     ##    ##       ##    ##     ## ###   ##
;##        ##     ##    ##     ## ##     ##    ##       ##    ##     ## ####  ##
;##   #### ##     ##    ########  ##     ##    ##       ##    ##     ## ## ## ##
;##    ##  ##     ##    ##     ## ##     ##    ##       ##    ##     ## ##  ####
;##    ##  ##     ##    ##     ## ##     ##    ##       ##    ##     ## ##   ###
; ######    #######     ########   #######     ##       ##     #######  ##    ##
;
;######## ##     ## ##    ##  ######  ######## ####  #######  ##    ##  ######
;##       ##     ## ###   ## ##    ##    ##     ##  ##     ## ###   ## ##    ##
;##       ##     ## ####  ## ##          ##     ##  ##     ## ####  ## ##
;######   ##     ## ## ## ## ##          ##     ##  ##     ## ## ## ##  ######
;##       ##     ## ##  #### ##          ##     ##  ##     ## ##  ####       ##
;##       ##     ## ##   ### ##    ##    ##     ##  ##     ## ##   ### ##    ##
;##        #######  ##    ##  ######     ##    ####  #######  ##    ##  ######
;
;
;

Func Go()
    GUICtrlSetBkColor($Graphic1, 0x00FF00)
    $booDCCM = False
    xpload()
    Switch $ref
        Case "1"
            startRef($ref, StringUpper("***** " & $ref & " Started Template"))
            ;test area:
            DCCM("B,S", False)
            ;CaptureScreen($ref, "CaptureScreen")
            finishRef($ref, StringUpper("***** " & $ref & " Completed Template"))
        Case "2"
            $oIE3 = _IECreate("http://ncat3420a/CatWeb/ImportCenter/ImportCenterPge.aspx", 0, 1, 1, 1)

            Sleep(5000)

            _IEQuit($oIE3)
            
                    Case Else
            GUICtrlSetBkColor($Graphic1, 0x00FF00)
            _MsgBox(4096, "Unkown Reference Number", "Reference number is not known. Try again.", 'OK', 'Cancel', '', 0, 1, 1)
    EndSwitch
EndFunc
    GUICtrlSetBkColor($Graphic1, 0xC0C0C0)