• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

переменная глобал?

  • Автор темы alexmix
  • Дата начала
Статус
Закрыто для дальнейших ответов.
A

alexmix

Плз,подскажите как сделать чтоб при открытии формы создавалось соединение :Set con=createobject("ХХХХХХ") и после эта переменная не пропадала?т.е. дальше пользователь получает отправляет данные по данному соединению.
Делаю: прописываю данное соединение в форме в PostOpen.при открытие формы соединение открывается и сразу же закрывается =(
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
В резделе Declarations формы объяви свою переменную con.
 
A

alexmix

пояснение : имею кнопку
Код:
Sub Click(Source As Button)
.......
Set con=createobject("V8.Application")
Call con.connect("File=""InfoBase"";Usr=""ххх"";Pwd=""ххх""")	 
.....
End Sub

как сделать чтобы в действие другой кнопки на этой же форме не требовалось снова инициализировать соединение (Call con.connect("File=""InfoBase"";Usr=""ххх"";Pwd=""ххх""")
)?
 
M

Mihal

Declarations в разделе Gloabal. На постопене - инициализайия объекта.
 

Medevic

Что это ? :)
Green Team
10.12.2004
3 334
1
BIT
4
<!--QuoteBegin-alexmix+8:11:2006, 14:53 -->
<span class="vbquote">(alexmix @ 8:11:2006, 14:53 )</span><!--QuoteEBegin-->как сделать чтобы в действие другой кнопки на этой же форме не требовалось снова инициализировать соединение (Call con.connect("File=""InfoBase"";Usr=""ххх"";Pwd=""ххх""")
[snapback]47427" rel="nofollow" target="_blank[/snapback]​
[/quote]
Сделай проверку.
Код:
If con is Nothing then 
Set con=createobject("V8.Application")
Call con.connect("File=""InfoBase"";Usr=""ххх"";Pwd=""ххх""")
end if
 
Статус
Закрыто для дальнейших ответов.
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!