Конференция VBStreets

**Vovik** » 15.12.2004 (Ср) 0:10

У меня такой вопрос, вот есть две ф-ции:
timeGetTime
GetTickCount - взаимозаменяемые(относительно). Можно ли написать какое-нть условие при вызове ф-ции, что если ошибка, то брать другую ф-цию, но просто с тем же именем? :roll:

Казалось, где-то видел, но может и перепутал.... :roll:

**tyomitch** » 15.12.2004 (Ср) 0:30

On Error Goto поможет.

**codemaster** » 15.12.2004 (Ср) 0:32

Вообщем то странно ....
'
GetTickCount возвращает некое количество мсек. ну и анализируй его.

**Vovik** » 15.12.2004 (Ср) 23:30

codemaster писал(а):Вообщем то странно ....
'
GetTickCount возвращает некое количество мсек. ну и анализируй его.

Причем здесь анализировать??? Мне мое приложение при вызове GetTickCount - выдает kernel32.dll - не найдена!!! Как сделать, чтоб ошибки не вылазило и подменить функции? :roll:

**codemaster** » 15.12.2004 (Ср) 23:37

Vovik писал(а):Мне мое приложение при вызове GetTickCount - выдает kernel32.dll - не найдена!!! Как сделать, чтоб ошибки не вылазило и подменить функции?

Круто! 5+++! Код в студию!

**tyomitch** » 16.12.2004 (Чт) 4:32

Да уж

Цитата дня отдыхает...

**Vovik** » 16.12.2004 (Чт) 14:24

codemaster писал(а):
Vovik писал(а):Мне мое приложение при вызове GetTickCount - выдает kernel32.dll - не найдена!!! Как сделать, чтоб ошибки не вылазило и подменить функции?

Круто! 5+++! Код в студию!

Я наверно чего-то не понимаю.. Объясни!!!

**alibek** » 16.12.2004 (Чт) 14:27

Он очень удивился, что у тебя вообще ХОТЬ ЧТО-ТО работает без kernel32.dll

**Konst_One** » 16.12.2004 (Чт) 14:47

у него вместо ОС вирус работает наверное

**Vovik** » 16.12.2004 (Чт) 22:12

alibek писал(а):Он очень удивился, что у тебя вообще ХОТЬ ЧТО-ТО работает без kernel32.dll

Ребята, вы че, попутали? Это я для примера.... Вообще это связано с моими dll... Вот и вопрос. :roll:

**codemaster** » 17.12.2004 (Пт) 1:34

Vovik писал(а):
alibek писал(а):Он очень удивился, что у тебя вообще ХОТЬ ЧТО-ТО работает без kernel32.dll
Ребята, вы че, попутали? Это я для примера.... Вообще это связано с моими dll... Вот и вопрос.

Чем дальше в лес тем толще партизаны ...

итак сморим начало

Vovik писал(а): У меня такой вопрос, вот есть две ф-ции:
timeGetTime
GetTickCount - взаимозаменяемые(относительно).
......

дальше больше

Vovik писал(а): мое приложение при вызове GetTickCount - выдает kernel32.dll - не найдена!!! Как сделать, чтоб ошибки не вылазило и подменить функции
......

и уже совсем хорошо

Vovik писал(а): Вообще это связано с моими dll... Вот и вопрос.

есть идея на чем нибудь остановиться :wink:

и определится
мы пишем свою kernel32.dll :wink:

или чтото другое

P.S. лучше кусок кода в студию

**Vovik** » 17.12.2004 (Пт) 14:55

Я уже не знаю, как объяснить!!! Ща....
Итак:

Public Declare Function MF1 Lib "MyLib1.dll" () As Long
Public Declare Function MF2 Lib "MyLib2.dll" () As Long

И, вдруг, оказывается, что у меня нет MyLib1.dll. (Функции MF1 и MF2 выполняют одну и ту же операцию, просто находятся в разных библиотеках). Отсюда вопрос:
как узнать при объявлении, что нет этой библ и объявить:

Public Declare Function MF1 Lib "MyLib2.dll" Alias "MF2" () As Long

:roll:

**GSerg** » 17.12.2004 (Пт) 15:42

Гы-гы-гы

Ещё один чел в мою пользу

Ыдынственный способ:
http://www.vbstreets.ru/VB/Articles/66035.aspx

**tyomitch** » 17.12.2004 (Пт) 17:49

А разве On Error Goto не поможет? Имхо должно помочь.

**GSerg** » 17.12.2004 (Пт) 18:14

Некоторые ошибки не перехватываются обработчиком

Переполнение стека, к примеру...

**tyomitch** » 17.12.2004 (Пт) 18:21

Конкретно эта - обрабатывается. Вот код:

Код: Выделить всё: Option Explicit Private Declare Sub NonExistentFunction Lib "kernel32" () Private Declare Sub NonExistentLibrary Lib "bogus" () Sub Main() On Error GoTo Handler NonExistentFunction NonExistentLibrary Exit Sub Handler: MsgBox Err.Description, , Err.Number Resume Next End Sub

Скомпилируй и запусти.
Так что не Ыдынственный твой способ...

**GSerg** » 17.12.2004 (Пт) 18:25

Прикольно

**Amed** » 17.12.2004 (Пт) 18:28

Качаем tyomitch'а!

Супер!

**xolod** » 17.12.2004 (Пт) 18:58

Даешь награду за просвещение по использованию On Error Goto :lol:

зы: непонятно, если люди не знают этого мега простого, от чего бы книжки не почитать какие-нить? :scratch:

Конференция VBStreets

А что делать, если dll - нет?

А что делать, если dll - нет?

Кто сейчас на конференции