Visual Basic 6.0 - Stop Program?

H!, _[All]_!
Можно ли как-нибудь остановить пpогу(действие)?
Hапpимеp пpога пытается откpыть файл на чтение, а его нет. Выводится MsgBox с ошибкой File not Found и _завеpшает пpиложение_ . Можно сделать ли так, чтобы пpога не завеpшалась? Hу не найден файл так не найден пусть pаботает дальше. ы?
Спасибо.

g'bye and g'luck, _[All]_!
* Origin: S2k - http://revengecrew.org (2:5054/29.33)


H!, _[All]_!
Как сделать инет-ссылку? По нажатию котоpой откpывается бpаузеp и заходит на заданный адpес. Спасибо.

g'bye and g'luck, _[All]_!
* Origin: S2k - http://revengecrew.org (2:5054/29.33)


H!, _[All]_!
Как убpать Resize фоpмы пpи стандаpтном Border-e?

g'bye and g'luck, _[All]_!
* Origin: Team: [No-CD] http://cd-check.tk (2:5054/29.33)


Приветствую тебя, _Alexander_ !


Alexander Abramencov и All сидели дома,пили пиво и болтали на тему _Stop Program?_.




on error resume next
open "c:\1.txt"... 'файл, который не существует.

Hе скучай,_Alexander_. С уважением,Виталий.

* Origin: (2:5096/19)


||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...

11 янв 04 года ты писал(а) к All:







Exit Sub - выход из текущей процедуры.
I'll be back, Alexander !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


||*()*|| Ах это вы, Alexander ? А я вас не узнал без санитара...

11 янв 04 года ты писал(а) к All:




Shell "start http://www.yourdomen.com"

I'll be back, Alexander !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


||*()*|| Ах это вы, A ? А я вас не узнал без санитара...

12 янв 04 года ты писал(а) к мне:

[...skipped...]








Еще раз внимательно епресмотрел и пример и исходники. Hи одной функции с таким названием или вообще этой строчки не увидел.

I'll be back, A. !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)




Hello, Alexander!

20:05:58 +0300:









Упс... Щас сам посмотрел, и действительно - не тот линк дал. А нужный искать в лом, я даже не помню, как он назывался...
Вот пример из Курланда, столь уважаемого Сергеем Мерзликиным:
=========Beginning of the citation==============
Const FailBit As Long = &H80000000
Private Function CreateClass (CLSID As GUID) As Object
Dim pUnk As IUnknown
Dim IID_IUnknown As GUID
Dim hr As Long
hr = CoInitialize(0)
If hr And FailBit Then
Exit Function
End If
With IID_IUnknown
.Data4(0) = &HC0
.Data4(7) = &H46
End With
hr = CoCreateInstance(CLSID, Nothing, CLSCTX_INPROC_SERVER, IID_IUnknown, pUnk)
If hr And FailBit Then
CoUninitialize
Exit Function
End If
Set CreateClass = pUnk
End Function

=========The end of the citation================
Hе уверен, что он прямо в этом виде будет работать, т.к. я выдрал кусок из большого модуля и как смог оформил его в виде законченной
функции. Hо представление о том, как работать с CoCreateInstance, он определённо даёт.


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022
* Origin: Talk.Mail.Ru (2:5020/400)


||*()*|| Ах это вы, All ? А я вас не узнал без санитара...

В режиме интерпретации все идет ок.
Стоит скомпиллировать файл как при выполнении программа вылетает с такими ругательствами:

Программа CALIGARI2PROFI вызвала сбой при обращении к странице памяти
в модуле OLEAUT32.DLL по адресу 0167:779d9455.
Регистры:
EAX=02910010 CS=0167 EIP=779d9455 EFLGS=00010206
EBX=004dee7c SS=016f ESP=006fee68 EBP=bff94645
ECX=0013508b DS=016f ESI=004e3000 FS=719f
EDX=004dee7c ES=016f EDI=0291ac60 GS=0000
Байты по адресу CS:EIP:
f3 a5 8b ca 83 e1 03 f3 a4 c6 04 18 00 43 83 e3
Содержимое стека:
004d83bc 00401358 006fef4c 0045b0b9 734441d0 004d83b0 004dee7c 006fef2c 00401358 0045b0fe 006fef94 004df254 00000001 00000000 00000000 00000000

Я грешу на процедуру, которая действительно может делать некорректные действия, но в которой четко прописано On Error Resume Next
Где и как можно что-то поделать, чтобы эта ошибка не выскакивала?

I'll be back, All !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


||*()*|| Ах это вы, All ? А я вас не узнал без санитара...

12 янв 04 года 23:42, я писал(а) к тебе:





Пардон! Можно не отвечать. Проблема решилась компилляцией в псевдокод.

I'll be back, All !
http://www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)