Современные решения

для защиты Windows приложений

и восстановления исходного кода

Visual Basic 6.0 - HTML Autorization


Re: HTML Autorization

From: "Dmitry Viazowkin" <vde [@] ufanet.ru>


Hi!

> Hу а нафига было так писать, что переделка достаточно важной части (работа с

> инетом) "ломает все под корень"??? Можно ж было написать "временный" контрол,

> а потом, в случае если захочется, этот контрол дописать/переписать??


Hу во-первых так эээ... сложилось исторически, а во-вторых всегда выдергивание
фундамента ломает все под корень. Ты че сказать-то хотел?

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)

Очистка рекорсета

From: "Stas Lazarev" <crus [@] amm-group.ru>


Hello, Igor!
You wrote to Igor Kagitin on Tue, 2 Dec 2003 23:00:05 +0000 (UTC):

IK>> Можно как-нибудь быстро очистить рекордсет?

IK>> Без:

IK>> Do

IK>> If rs.RecordCount > 0 Then rs.MoveLast: rs.Delete

IK>> Loop Until rs.EOF


IE> Попробуй

IE> rs.Delete adAffectAll


В мсдн написано:
adAffectAll and adAffectAllChapters are not valid arguments to Delete

Правильно только так как Igor Kagitin написал, но вот так имхо будет быстрее:

If rs.RecordCount > 0 Then

rs.MoveFirst
Do
rs.Delete
rs.MoveNext
Loop Until rs.EOF
End If

Если нужно просто очисить рекордсет, без дальнейшего update в базу,
то иногда его быстрее создать заново (запросом без записей или вручную, пример ниже),
чем очищать при помощи .delete.

Dim rs As New ADODB.Recordset
rs.Fields.Append "ID", adCurrency
rs.CursorType = adOpenStatic
rs.CursorLocation = adUseClient
rs.Open

--
With best regards, Stas Lazarev.


* Origin: OOO BIS (2:5020/400)

Re: XP/98

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


> > 2. В VB6 не работает мышиное колесо. Что можете посоветовать?

>

> В IDE или в программе? С IDE проще смириться


Я часто встречаю упоминание проблемы "В VB6 не работает мышиное колесо"
и всегда недоумеваю. Может я что-то не так понимаю, но речь идет
именно о прокрутке колесом мыши кода в окне редактора VB6.0???
Странно, у меня всегда все крутилось без всяких проблем,
хотя я ничего не предпринимал для этого. Как же оно может не прокручиваться?!
WinXP + VB6(SP5) + Genius NetScroll+ Eye производства наших китайских братьев.
До этого была копеечная Genius NetScroll+. Hу и драйверы соответствующие
от Genius. Hикогда не сталкивался с проблемой прокрутки.
Или я не так понял и речь совсем о другом?
Кстати и в моих программах в RTF-контроле и в MSFlexGrid
все крутится без проблем. Само собой как-то...

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)

HTML Autorization

Hello Dmitry.

02 Dec 03 23:14, Dmitry Viazowkin wrote to me:

>> Я бы, честно говоря, использовал Internet API (см. MSDN) и не использовал

>> этот контрол. через API можно практически все.


DV> Я бы тоже - если б начал с АПИ. А сейчас слишком уж много переделывать, а

DV> готовые примеры что-то не находятся :( Я уже нашел всю обработку HTTP

DV> протокола через ВинСок на VB - только очень уж не хочется все ломать под

DV> корень...


Я имел в виду именно internet api - функции InternetXXX и, в твоем случае,
HttpXXX

>> ну и у контрола есть проперти для

>> прокси, или прокси с авторизацией?


DV> Hету. И, самое главное, он не умеет работать с keep-alive сессиями

DV> (жизненно необходимыми для любой диалоговой авторизации), а тупо реализует

DV> HTTP 1.0


keep-alive тут не причем. механизм поддержания сессии зависит от реализации
web-приложения и чаще всего реализуется на куках или session-id в url, а уж
никак не на уровне ip-соединений, которые в случае проксей не всегда возможны.

Anton

* Origin: -== Sibkot Mail Station ==- (2:5000/130.84)

XP/98

From: "Stas Lazarev" <crus [@] amm-group.ru>


Hello, Sergei!
You wrote to Sergey Merzlikin on Wed, 3 Dec 2003 07:49:42 +0000 (UTC):

SH> Я часто встречаю упоминание проблемы "В VB6 не работает мышиное колесо"

SH> и всегда недоумеваю. Может я что-то не так понимаю, но речь идет

SH> именно о прокрутке колесом мыши кода в окне редактора VB6.0???

[Погрызено злобными скипперами..]
SH> все крутится без проблем. Само собой как-то...


Это потому что у тебя стоит genius'овская прога gnetmouse. Она сама
скроллит даже там, где не поддерживается скроллинг. А вот без этой проги у тебя
скроллилось бы не везде и в vb6 не скроллилось бы в частности.

--
With best regards, Stas Lazarev.


* Origin: OOO BIS (2:5020/400)

Re: Создание объекта по имени класса

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Vadim!
You wrote in conference fido7.ru.visual.basic to "All" <fido7.ru.visual.basic [@] talk.ru>to All on Wed, 03 Dec 2003 00:12:47 +0300:


VN> Что скажете?

CreateObject?


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

Re: XP/98

From: "Sergei Ho" <calendarman [@] mtu-net.ru>


"Stas Lazarev" wrote in message news:bqk6oo$2stl$1 [@] www.ufanet.ru...
> Hello, Sergei!

> You wrote to Sergey Merzlikin on Wed, 3 Dec 2003 07:49:42 +0000 (UTC):

>

> SH> Я часто встречаю упоминание проблемы "В VB6 не работает мышиное колесо"

> SH> и всегда недоумеваю. Может я что-то не так понимаю, но речь идет

> SH> именно о прокрутке колесом мыши кода в окне редактора VB6.0???

> [Погрызено злобными скипперами..]

> SH> все крутится без проблем. Само собой как-то...

>

> Это потому что у тебя стоит genius'овская прога gnetmouse. Она сама

> скроллит даже там, где не поддерживается скроллинг. А вот без этой проги у тебя

> скроллилось бы не везде и в vb6 не скроллилось бы в частности.

> --

> With best regards, Stas Lazarev.


Это такая мышиная мордочка в трее?
Да, действительно, закрыл я её и счастье прокрутки кончилось...
А ведь прокручивала, собака, даже в неактивных окнах!
Так может это и есть решение? Хотя бы для разработчика.
NetScroll+ стоит что-то около 150 руб.
А может драйвер её с этим gnetmouse подойдёт и для других мышей?

Сергей.


* Origin: MTU-Intel ISP (2:5020/400)

Re: HTML Autorization

From: "Serge Chervjakov" <serg [@] enseza.elcom.ru>


Wed Dec 03 2003 08:27, Dmitry Viazowkin wrote to Serge Chervjakov:


>> Hу а нафига было так писать, что переделка достаточно важной части (работа

>> с инетом) "ломает все под корень"??? Можно ж было написать "временный"

>> контрол, а потом, в случае если захочется, этот контрол

>> дописать/переписать??


DV> Hу во-первых так эээ... сложилось исторически, а во-вторых всегда

DV> выдергивание фундамента ломает все под корень. Ты че сказать-то хотел?


Да это я что-то после бодуна сегодня утром - ляпнул явно не по делу:). Так то
я не особо разговорчивый - читать читаю, а сам редко пишу:). Hу а имелось
ввиду видимо, что работу с инетом надо вынести в отдельный класс, везде где
прога использует какой-то там левый контрол (не хороший) заменить на твой
класс (там это уже будет объект:) ). А класс этот написать самому используя
winsock. По крайней мере никакой путаницы не будет. А по идее, так надо было
делать с самого начала, только вот твой класс должен был "наследовать" (тут не
совсем в прямом смысле слова) от того контрола, что бы в случае чего можно
было безнапряжно переписать этот класс в случае надобности.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)

Re: Создание объекта по имени класса

From: "Serge Chervjakov" <serg [@] enseza.elcom.ru>


Wed Dec 03 2003 11:45, A. Skrobov wrote to Vadim Nikiforov:

VN>> Что скажете?


AS> CreateObject?


Оно ж вроде: Creates and returns a reference to an ActiveX object.
^^^^^^^
Или оно может экземпляр любого класса создавать?

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/400)

Re: Создание объекта по имени класса

From: "A. Skrobov" <tyomitch [@] r66.ru>


Hello, Serge!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" <fido7.ru.visual.basic [@] talk.ru>to A. Skrobov on Wed, 3 Dec 2003

09:17:18 +0000 (UTC):

VN>>> Что скажете?

AS>> CreateObject?

SC> Оно ж вроде: Creates and returns a reference to an ActiveX object.

SC> ^^^^^^^

SC> Или оно может экземпляр любого класса создавать?

Да, любого (не-ActiveX классов не бывает)


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