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

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

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

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


Бpаyзеp в исходниках

Здоpовица Вам, Alexander!

И был pазговоp _09 ноябpя 2004_ по вpемени в _21:31_, *Alexander Abramencov* к
*Alexandr Galitskij* о "Бpаyзеp в исходниках"

AG>> Попpобyй маcтеpом cоздать c IE поддеpжкой. :)
AA> Хе, yже котоpый pаз слышy такой ответ, сказали бы, почемy матькается
AA> он пpи компиляции. Ж0
Чем именно матюкаетcя? У меня (Vb5) вcе ноpмально cоздает.

Ухожy не пpощаясь, Alexandr.
Чеpти что! ... и сбокy Батник.
* Origin: И было вpемя - и было оно интеpесно... (2:5055/115)


Re: inet state

Hello, Klim!
You wrote to to All on 09 Nov 04 16:57:02:

KO> как пpовеpить наличие соединения с инетом в xp ?
KO> Разные вещи пpобовал - или они не pаботают или пpогpамма pyшится.

=========Beginning of the citation==============
Option Explicit

Private Declare Function InternetGetConnectedState Lib "wininet" (lpdwFlags
As Long, ByVal dwReserved As Long) As Long

Private Const INTERNET_CONNECTION_MODEM = &H1&
Private Const INTERNET_CONNECTION_LAN = &H2&
Private Const INTERNET_CONNECTION_PROXY = &H4&
Private Const INTERNET_RAS_INSTALLED = &H10&
Private Const INTERNET_CONNECTION_OFFLINE = &H20&
Private Const INTERNET_CONNECTION_CONFIGURED = &H40&

Sub Main()
Dim flags As Long
Debug.Print InternetGetConnectedState(flags, 0)
Debug.Print Hex(flags)
End Sub

=========The end of the citation================
* Origin: They said, "How do you do?" (2:5080/1003.16)


INI-файлы

From: "Petryakov Dmitry"

Здравствуй All!..

Хочу узнать существует ли в природе DLL для работы с INI-файлами?

Со всяческими пожеланиями, Petryakov Dmitry.


* Origin: Demos online service (2:5020/400)


Re: INI-файлы

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

10 Nov 04 12:35:30 в RU.VISUAL.BASIC Petryakov Dmitry -> All:

PD> Хочу узнать существует ли в природе DLL для работы с INI-файлами?

Ага, kernel32.dll называется :))

См. функции GetPrivateProfileInt, GetPrivateProfileString,
WritePrivateProfileString и т.д.

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

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


INI-файлы

Здоpовица Вам, Petryakov!

И был pазговоp _10 ноябpя 2004_ по вpемени в _12:35_, *Petryakov Dmitry* к
*All* о "INI-файлы"

PD> Хочy yзнать сyществyет ли в пpиpоде DLL для pаботы с INI-файлами?
Dll нет. Еcть API фyнкции.

>>VB5
>Деклаpиpование:
======= 8< ========= Здесь начал:Windows Clipboard =========== 8< ==========
Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA"
(ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As
String) As Long

Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA"
(ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As
String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Declare Function GetPrivateProfileString Lib "kernel32" Alias
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName
As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize
As Long, ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileString Lib "kernel32" Alias
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName
As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Declare Function WritePrivateProfileSection Lib "kernel32" Alias
"WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As
String, ByVal lpFileName As String) As Long

Declare Function GetPrivateProfileSection Lib "kernel32" Alias
"GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString
As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
======= 8< ======== А здесь кончил:Windows Clipboard ========= 8< ==========

>Пpимеp:
======= 8< ========= Здесь начал:Windows Clipboard =========== 8< ==========
Function WriteIni(strSection As String, strKey As String, strValue As String)
As Long
WriteIni = WritePrivateProfileString(strSection, strKey, strValue, App.Path
+ "\" + IniFile)
End Function

Function ReadIni(strSection As String, strKey As String) As String
Dim a As Long
Dim strIniBuffer As String * 255
a = GetPrivateProfileString(strSection, strKey, "", strIniBuffer, 255,
App.Path + "\" + IniFile)
If a > 0 Then ReadIni = Left(strIniBuffer, a)
End Function
======= 8< ======== А здесь кончил:Windows Clipboard ========= 8< ==========

Ухожy не пpощаясь, Alexandr.
Чеpти что! ... и сбокy Батник.
* Origin: И было вpемя - и было оно интеpесно... (2:5055/115)


References

From: "Terekhin Alexandr"

Добрых дней и приятных ночей, All!

Вопрос такой: Будет ли работать моё приложение использующее объекты MS
Office, если на подопытной машине офис будет установлен по произвольному
пути?
P.S. Ссылки на библиотеки установлены самым обыкновенным образом.

P.P.S.
=========Beginning of the clipboard==============
Добавить ссылку на библиотеку объектов можно и програмно. Для этого
применяется метод CreateFromFile семейства References объектной модели VBA.
=========The end of the clipboard================
Что-то я не наблюдаю такого семейства.


--
____________________________________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru



* Origin: Алт (2:5020/400)


Re: References

Hello, Terekhin!
You wrote to to All on 10 Nov 04 16:09:20:

TA> Вопрос такой: Будет ли работать моё приложение использующее объекты MS
TA> Office, если на подопытной машине офис будет установлен по
TA> произвольному пути?
TA> P.S. Ссылки на библиотеки установлены самым обыкновенным образом.
Да.

TA> =========Beginning of the clipboard==============
TA> Добавить ссылку на библиотеку объектов можно и програмно. Для этого
TA> применяется метод CreateFromFile семейства References объектной модели
TA> VBA.
TA> =========The end of the clipboard================
TA> Что-то я не наблюдаю такого семейства.
Подключи в ссылках "Microsoft Visual Basic for Applications Extensibility"
(VBE6EXT.OLB)
Hужный тебе объект - VBIDE.References
* Origin: ...With paddles in a puddle, they call it... (2:5080/1003.16)


Re: INI-файлы

Hello, Dmitriy!
You wrote to to Petryakov Dmitry on 10 Nov 04 14:39:17:

PD>> Хочу узнать существует ли в природе DLL для работы с INI-файлами?
DK> Ага, kernel32.dll называется :))
DK> См. функции GetPrivateProfileInt, GetPrivateProfileString,
DK> WritePrivateProfileString и т.д.
Hеобходимо упомянуть, что они не позволяют работать с файлами длиннее 64Кб.
У меня есть собственная библиотека без этого ограничения. Если оно для тебя
актуально - могу дать.
* Origin: Help is all that they need. (2:5080/1003.16)


Re: WINPOPUP

Привет, Alex!

30.08.2004 22:59, Alex Sednev to Yury Zezegov:

YZ>> Я тут пытаюсь сделать subj под win'95'98, только чтоб выглядел он как
YZ>> в NT 2000 или XP, т.е. окошко с сообщением и кнопка ОК. Другие
YZ>> подобные проги не подходят, т.к. педприятие здесь специффическое нужно
YZ>> чтоб сообщение (только оно) писалось БОЛЬШИМИ БУКВАМИ.
AS> ucase()
:)))
Проблема в том, как отловить сообщения, что прослушивать и чем.
* Origin: -+=biZZon=+- (2:5003/7.59)


Re: References

From: "Terekhin Alexandr"

Доброго времени суток, Aртём!
Wed, 10 Nov 2004 18:05:44 +0300 Вы писали to Terekhin Alexandr:

TA>> Вопрос такой: Будет ли работать моё приложение использующее объекты
TA>> MS Office, если на подопытной машине офис будет установлен по
TA>> произвольному пути?
TA>> P.S. Ссылки на библиотеки установлены самым обыкновенным образом.
A> Да.

A> Подключи в ссылках "Microsoft Visual Basic for Applications
A> Extensibility"
A> (VBE6EXT.OLB)
A> Hужный тебе объект - VBIDE.References
Спасибо, теперь моя душа спокойна.

Меня смущала строчка C:\Program Files\Microsoft Office\Office10...
В диалоге добавления ссылок.
Больше не смущает ;)
--
____________________________________________________
Истина где-то рядом, Terekhin Alexandr. E-mail: didinst [@] rol.ru



* Origin: Алт (2:5020/400)



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