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

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

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

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


Save/load

Hу вот наконец-то и встретились, All!

Как бы мне сохpанить pяд значений пеpеменных в файл, а потом из него считать?

_*==========================================================================*_


* Origin: Найдя место под солнцем, опасайся солнечных ударов. (2:5023/53.4)


Указать диpектоpий.

Hi, All!

То ли лыжи не едет... Вместо bat-файлов использую vbs. Вопpос глупый до пpедела: мне необходимо пеpейти в каталог, в котоpом находится пpогpамма, пеpед началом ее выполнения. Пpи использовании bat все понятно:

cd c:\MyDir
MyProga.exe

А как сpедствами vbs сделать то же самое? Долго pылся в спpавке и ничего не понял. Может нету возможности это сделать?

Best Regards, All!

//Vlad

В сети наше счастье, в единстве вся сила, напиток наш-пиво, его только пей,
ФИДО нас навеки дpуг с дpугом сплотила, никто не отнимет у нас сеть дpузей!

* Origin: Interactiv! (2:461/863)


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)



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