О том как MsgBox порушила Windows.

[Хакер]

В общем, сидел я писал свой I-Net Money Counter. И тут Вб подвис. Пошёл я в таск-менеджер и увидел там, что vb.exe кушает 99%. Со скрипом в сердце я убил vb вместе с несохранённым кодом. Теперь 99% процентов стал кушать explorer. Пришлось убить explorer. 99% стал кушать на RUNDLL32. Убил rundll – массовое групповое обжорство прекратилось. Запустил explorer – и он опять стал кушать 99%. Было принято решение перезагрузиться. После перезагрузки я начал дописывать свой проект. В проекте есть окно, где нужно вводить время. Так вот если пользователь вводит в два комбо-бокса одинаковое время, должно появиться сообщение с просьбой ввести время как надо. Когда я написал этот кусочек кода, я чтобы проверить запустил программу (ну, т.е. F5). Ввёл одинаковое время, но вместо положенного сообщения об ошибке, получил Run-Time 6-OverFlow. После нажатия на кнопку Debug, я очумел(*_*), ошибку вызвал следующая строчка

Код: Выделить всё

MsgBox "Пожалуйста, укажите временной интервал правильно. Начальное и конечное время должно отличаться!", vbCritical, "Анализ"

(Как вообще MsgBox может вызвать ошибку переполнения, кроме как если не переопределена константа vbCritical на значение превышающее м/з для типа Long)

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

Ну, думаю, глюк есть глюк, перезагрузка всё поправит. Ради интереса создал новый проект, написал всего одну строчку кода – вызов MsgBox. Запустил – Run-Time Error 6 Overflow. В общем, что-то непонятное творилось. Попробовал вызвать MsgBox из Immediate. Появилось пустое окошко с какой-то фигнёй в заголовке (что-то вроде йzЪ6 j%). Т.е. непонятно, было ли это сообщение об ошибке переполнения или результат работы функции MsgBox. Вообще то, если Run-Time ошибка произошла при вызове из Immediate – появляется окошечко со значком EXCLIMATION и копками OK + Help. Но в окошечке, которое появилось, ничего этого не было. Тогда я написал в коде формы ерунду, дабы вызвать окно с сообщением о «Syntax Error». Появилось такое же окошко без кнопок и значков…

Я решил посмотреть, как будет работать MsgBox в других средах разработки. VB.NET 2003. Вылетел сразу после запуска, оставив после себя стандартное окно «Отправить отчёт \ Не отправлять отчёт». А вот VC6 спокойно выдавал пустое окно, с фигнёй в заголовке (видимо «фигней в заголовке» был случайный кусок памяти). Перед перезагрузкой я решил все эти глюки заScreenShot’ить (для истории). Сделав скриншоты, я начал перезагрузку, перезагрузку, которая была для системы последней.

Скриншоты можете посмотреть, если не верите (я бы не поверил).

У кого какие мнения на произошедшее.

[DirectXManiac]

Не знаю!В голове не укладыветься как такое может быть? Может просто какие-то DLL в Windows-е глюкнули, которые относяться к VS .NET? ИМХО: Может быть когда ты через Диспетчер задач вырубил VS, его переглючило!
А потом такое ещё повторялось?

[Хакер]

Вообще то я думаю, что это либо работа вируса, либо кривонаписаный софт заменил какую-то DLL. Но скорее всего вирус, - ничего я не устанавливал. Видимо он перехватывал вызов API (MessageBoxA) и показывал своё сообщение, либо он переписал область памяти, в которой записана функция MessageBoxA. Что-то вроде

Код: Выделить всё


    Dim hUserLib            As Long
    Dim hMsgProcAdress As Long
    Dim BADFUNCTION  As String  'Скомпилированая функция-подделка
    hUserLib = LoadLibrary("User32")
    hMsgProcAdress = GetProcAddress(lbhUserLib "MessageBoxA")

    For i = 1 to Len(BADFUNCTION)
     FillMemory hMsgProcAdress + i, 1, CByte(Asc(mid$(BADFUNCTION, i, 1)))
    Next i


А вообще то я не суперспец в этой области (Асм, ProcessMemory). Надо спросить у кого нибудь из наших гуру (например у tyomitch'а или ANDLL'а)

[Amed]

Что за ос стоит? Версия, сервис паки, обновления?..

[Хакер]

Стояла XP-Professional 5.1 SP2, поставил ту же.

Кстати у меня тут недавно были глюки с памятью (в разделе железо даже тема есть). Может быть память начала опять шалить, что в первом случае привело к 100%-загрузке процессора всеми процессами по очереди, во втором - к клюкам с MsgBox, а в третьем к тому, что накрылась ОС. Но всё таки я думаю вирус...

[Хакер]

Вирус! возможно. По всему коду в if-блоках перед условием поставлено Not, хотя абсолютно не надо. Хотя часть кода писалась в 5 утра, поэтому возможно это я шизую.

[Хакер]

В общем, сидел я писал свой I-Net Money Counter. И тут Вб подвис. Пошёл я в таск-менеджер и увидел там, что vb.exe кушает 99%. Со скрипом в сердце я убил vb вместе с несохранённым кодом. Теперь 99% процентов стал кушать explorer. Пришлось убить explorer. 99% стал кушать на RUNDLL32. Убил rundll – массовое групповое обжорство прекратилось. Запустил explorer – и он опять стал кушать 99%. Было принято решение перезагрузиться.

Блин, уже 6-ой раз виснет. И это после переустановки системы!

[BV]

Хм... похоже на результат ошибок в RAM.

[Хакер]

Я тоже так думал. Пока не обнаружил, что в коде I-Net Money Counter в условии каждого второго if-блока Not, а все числа были увеличены на один.

А вообще возможно вирус+RAM

[Alexanbar]

chkdsk c: /f

[Хакер]

выбрось глючащий кусок своей рам и купи новый

Перефразирую

Выбрось 25000 теньге и потрать 25000 теньге на новую раму.

1 РУБ. = 4~5 теньге.

[Хакер]

А может глючет мамочка? Может это не только грязь в тот раз была виной негрузиловки. Да и где столько бабла взять.

Ответ: Написать хороший софт и продать

А что же тогда RAM'а Not'ы всюда понаставила. Как ты думаешь я бы такое написал

Код: Выделить всё


If Not Not SomeCollection.Count Then
List1.Clear
For Each ic in SomeCollection
List1.Add ic.Name
Next ic
else
MsgBox "Коллекция пуста"
End if


Код с циклом должен по идее выполняться если коллекция содержит элементы.

А такое

Код: Выделить всё


For i = 0 To List1.ListCount - 1 + 1

Next i


я про -1 +1.

Я только не могу понять если я переустановил систему, почему эта фигня (я про постоянные висаки, не про Not'ы) продолжается.

[GM]

Я только не могу понять если я переустановил систему,

Полностью с нуля или поверх существующей?

Кстати подсветка кода на форуме почему то не выделила второй Not в коде.

[Хакер]

Удалил windows, переимен Program Files в PF_OLD и Documents and setting в DAS_OLD. А потом i386\winnt.exe.

А в подстветке ещё наверное много глюков найдётся , если поискать. Интересно а с переносом коммента глюк исправлен. Щяс проверим:

Код: Выделить всё


' Comment commant _
it is comment too, it must be green

LSet, RSet, AddressOf, _NewEnum

Rem вообще такой не знает

Implements

Friend
WithEvents ParamArray
Option Base Explicit Compare Binary Text ( DataBase)


DefDate
DefStr
DefBool
DefCur
DefSng
DefByte
DefInt
DefLng
DefDbl
DefObj
DefVar




[Хакер]

Мдя, подсветку в школу бы надо
Самое смешное что Compare в ВБ моддерживается но здесь не светится.
А вот DataBase не поддерживается, но здесь светится

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?p=135422#135422

[Хакер]

Ну так я про другое. То ли список keywords то ли операция перенос "_" (смайлик получился). А вообще мне больше всего интересно не как NOT-ы добавились и не как системка рухнула (ибо всё это легко сделать), а вот как надо извратится, чтобы так MessageBoxA испортить.