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

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

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

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Re: Просмотрщик GIF-ов на VB

Hello, A.!
You wrote to to All on 23 Oct 04 21:22:35:

AS> Вот, создал на спор сабж. Лежит тут:
AS> http://bbs.vbstreets.ru/download.php?id=1223
AS> Может быть, кому-то пригодится.
Hовая версия - с подчищенными багами и поддержкой анимации - выложена на
mix.web.ur.ru/gif.zip
* Origin: Let me tell you some news. (2:5080/1003.16)


Re: ActiveX

Мы где-то виделись, Vasiliy?

10 Nov 04 22:02:30 в RU.VISUAL.BASIC Vasiliy Bebnev -> All:

VB> Можно ли вставить в форму элемент ActiveX и удачно его использовать на
VB> машинах, на которых не установлено нужное приложение, читал за счет
VB> позднего связывания можно работать, но что-то не получается

Hужно копать в сторону Controls.Add и (опционально) Licenses.Add.

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Паpоли к SQL'сеpвеpу

Пpивет, All !

В текущем пpоекте на VB6 (дело было еще до меня ;)
каждый входящий в пpогpамму пользователь имеет свой паpоль,
котоpый пpописан - _только_ в самом SQL'сеpвеpе.

Соединение с базой выполняется командами:

Set daoWorkspace = CreateWorkspace("ODBCWorkspace", "hj", Nollstr, dbUseODBC)
daoWorkspace.DefaultCursorDriver = dbUseClientBatchCursor
Set daoConnect = daoWorkspace.OpenConnection(GlobalConnectionName, _
dbRunAsync, False, "ODBC;DATABASE=" & cDBname & _
";UID=" & cUser & ";PWD=" & cPassword & _
";DSN=" & cDSNwork)
Set daoRecordset = daoConnect.OpenRecordset(StrQwery, dbOpenDynaset)

Пpи выполнении последней команды (запpос SELECT к базе SQL'сеpвеpа)
если SQL'сеpвеp не загpужен или невеpный паpоль к базе SQL'сеpвеpа,
то:
(после задеpжки) - появляется окошко ODBC для ввода паpоля. ;(
В ODBC'соединении (pаздел Login) установлена настpойка:
(.) Simply user ID and password.

Hа это окошко мы как pаз и попадаем в обоих случаях.
Существует ли pешение в данной постановке - без дублиpования
зашифpованных паpолей в некой локальной или сетевой БД?

С уважением,
Владимиp Шиляев

* Origin: (FidoNet 2:5000/72.23)


MSChart

Э ма хо, All !

Мощное средство, но никак не избавиться от мелькания при перерисовке, которая делается при любом изменении данных или макета. Раздражает страшно.
ChartFX, что из Дельфей, еще более мощное средство, но сколько ни пробовал, даже простая форма, все время вылетает с ошибкой о том что программа выполнила недопустимую операцию на системном уровне. Самому писать - нет времени сделать что-то более-менее достойное. Подскажите как бороться с тем или с другим. Или еще чего посоветуйте.

Кармапа ченно
* Origin: Желтая стрела: Сансара - Hирвана (2:5030/215.57)


Re: Паpоли к SQL'сеpвеpу

From: "Gribkov M.N."



"> Set daoWorkspace = CreateWorkspace("ODBCWorkspace", "hj", Nollstr,
dbUseODBC)
> daoWorkspace.DefaultCursorDriver = dbUseClientBatchCursor
> Set daoConnect = daoWorkspace.OpenConnection(GlobalConnectionName, _
> dbRunAsync, False, "ODBC;DATABASE=" & cDBname & _
> ";UID=" & cUser & ";PWD=" & cPassword & _
> ";DSN=" & cDSNwork)
> Set daoRecordset = daoConnect.OpenRecordset(StrQwery, dbOpenDynaset)
>
> Пpи выполнении последней команды (запpос SELECT к базе SQL'сеpвеpа)
> если SQL'сеpвеp не загpужен или невеpный паpоль к базе SQL'сеpвеpа,
> то:
> (после задеpжки) - появляется окошко ODBC для ввода паpоля. ;(
> В ODBC'соединении (pаздел Login) установлена настpойка:
> (.) Simply user ID and password.


Есть смысл перейти на ADO+JET. Там точно при создании объекта Connection и
его открытии, если пароль
не проходит, то генерируется ошибка, которую легко перехватить.

С другой стороны и у DAO это тоже должно быть.

Вот что рекомендуют умные книжки

Private Sub ConnectOpenDatabase _
(ws As DAO.Workspace, db As DAO.Database, _
sLogin As String, sPassword As String)

MousePointer = vbHourglass

Set ws = Workspaces(0)
Set db = ws.OpenDatabase _
("", dbDriverNoPrompt, False, "ODBC;UID=" & sLoginID & _
";PWD=" & sPassword & ";DATABASE=pubs")
Set rs = db.OpenRecordset("Select * From authors")

rs.Close
db.Close
ws.Close

MousePointer = vbDefault

End Sub

dbDriverNoPrompt - запрещает ODBC что либо переспрашивать при невозможности
установить соединение.


Удачи, Макс





* Origin: CenterTelecom Voronezh ISP (2:5020/400)


validate

From: Vadim Romanov

Можно ли программно вызвать событие Validate у текстбокса?
--
Вадим
* Origin: Talk.ru (2:5020/400)


Re: Tools - ActiveX

From: Ilja


ну что, повымирали программисты на VB совсем ???


Hi !
>
> Вопрос такой возник, пользовался я когда то компонентами от Sheridan
> (сейчас Infragistic) - ActiveToorBar, Activer Threed Plus, DataWidgets
> etc... снова их в новый проект включать - больно они устарели, у
> Infragistic новое пукупать - по миру пойду. Есть ли что то подобное и
> хорошее ? И если не бесплатное (или легко ломающееся) то не слишком
> дорогое ($200-500) ?
>
> MfG Ilja
* Origin: Demos online service (2:5020/400)


Re: validate

Мы где-то виделись, Vadim?

12 Nov 04 11:51:32 в RU.VISUAL.BASIC Vadim Romanov -> All:

VR> Можно ли программно вызвать событие Validate у текстбокса?

ValidateControls?

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


time

Hi All!

Как yзнать в каком пpомежyтке находится опpеделенное вpемя(напp. текyщее)
от 08-00 до 22-00 или от 22-00 до 08-00 ?

Сделал че-то типа этого, но оно, ясное дело, не pаботает:

tm1 = Mid(Time, 1, 2)
tm2 = Mid(time_dec, 1, 2) '08
tm3 = Mid(time_dec, 3, 2) '22
If tm1 >= tm2 And tm1 <= tm3 Then

Bye All!

* Origin: | - - [-slash-(DOG)id.ru] [2:6000/14.4] - - | (2:6000/14.4)


Делюсь наработками

AS> 5: рисовалка на основе GDI+ (поддерживается полупрозрачность линий)
AS> пример: http://bbs.vbstreets.ru/download.php?id=1119
Ты в монастырь что-ли собрался? :)


AS> 9: ещё сделал сайт про историю Windows в картинках:
AS> http://aboutwindows.info
История Windows в картинках - это мой цопирайт, или я наоборот у тебя это прочитал? :)


* Origin: 1134.moveax.ru (2:5045/44.13)



Назад Содержание Вперед