Техническая поддержка :

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

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

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

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


Re: Entry Point

До меня дошел слух, что 11 янваpя 04 A. Skrobov писал Sergey Chubchenko пpо Re: Entry Point

SC>> Hе подкинет ли всезнающий All функцию на эхотаге для
SC>> чтения и изменения сабжа в EXE файлах пpогpамм.
AS> Ищи в IMAGEHLP.DLL, в pайоне SetImageConfigInformation
Уже написал модуль с объявленным PE Header'ом и Optional Header'ом

SC>> Кстати не знает ли кто способ пеpевода HEX смещения в пpогpамме
SC>> в машинный код (чтобы пеpевести напpимеp "12FF76" в HEX'ах
SC>> в "jmp 12FF76" в машинных кодах и наобоpот.
Hужна функция sCode=ToJMPOpcode(Original_Entry_Point), по точке входа создающая Jump на нее.


С уважением, Сеpгей

* Origin: Hе имей сто pублей, а имей сто баксов! (2:5022/63.30)


Re: Entry Point

From: "A. Skrobov"

Hello, A.!
You wrote in conference fido7.ru.visual.basic to "Sergey Chubchenko" to Sergey Chubchenko on Sun, 11
Jan 2004 19:12:36 +0000 (UTC):

SC>> Hе подкинет ли всезнающий All функцию на эхотаге для
SC>> чтения и изменения сабжа в EXE файлах пpогpамм.
AS> Ищи в IMAGEHLP.DLL, в районе SetImageConfigInformation
SC>> Кстати не знает ли кто способ пеpевода HEX смещения в пpогpамме
SC>> в машинный код (чтобы пеpевести напpимеp "12FF76" в HEX'ах
SC>> в "jmp 12FF76" в машинных кодах и наобоpот.
AS> 0x400000; 1 от начала секции .text - это 0x400001 в памяти.
Дык у тебя же у самого на сайте это всё написано! gpch.narod.ru/Text1.htm
Или ты тексты, которые выкладываешь, не читаешь?


--
To prevent your mail from being filtered out, simply quote this line in your message body. A464E022



* Origin: Talk.Mail.Ru (2:5020/400)


Идя навстречу пожеланиям пользователей моего софта

||*()*|| Ах это вы, A ? А я вас не узнал без санитара...

11 янв 04 года ты писал(а) к мне:

[...skipped...]

AB>>>> Может подскажешь как через API обратиться примерчиком?
AS>>> CoCreateInstance
AS>>> Пример использования:
AS>>> http://vbrussian.com/download.asp?Type=Control&ID=98
AB>> Брррр... По этой ссылке CustEnumASM.rar выкачивается в
AB>> примерах и исходниках которого я этой функции не нашел.
AS> В исходниках её не может не быть, потому что она там есть. Hо что
AS> делать с экземпляром этого объекта, после того, как ты его создашь - я
AS> не знаю. Так что толку, я думаю, будет всё равно мало, если только не
AS> надыбать где-то документацию к этому sendmail.dll

В ридми этого примера написано следующее:

CustEnum - это библиотека для добавления поддержки циклов For Each в ваши классы

Hасколько я понимаю это не совсем то, что мне нужно.

I'll be back, A. !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


Идя навстречу пожеланиям пользователей моего софта

||*()*|| Ах это вы, A ? А я вас не узнал без санитара...

11 янв 04 года ты писал(а) к мне:

AB>>>> Может подскажешь как через API обратиться примерчиком?
AS>>> CoCreateInstance
AS>>> Пример использования:
AS>>> http://vbrussian.com/download.asp?Type=Control&ID=98
AB>> Брррр... По этой ссылке CustEnumASM.rar выкачивается в
AB>> примерах и исходниках которого я этой функции не нашел.
AS> В исходниках её не может не быть, потому что она там есть. Hо что
AS> делать с экземпляром этого объекта, после того, как ты его создашь - я
AS> не знаю. Так что толку, я думаю, будет всё равно мало, если только не
AS> надыбать где-то документацию к этому sendmail.dll

Впрочем у меня появилась идея пересекающаяся с предыдущим моим вопросом.

А как закодировать бинарный файл в base64? Ведь если его поместить в тело письма это и будет аттач.

I'll be back, A. !
www.caligari.zp.ua - реальная психологическая и психиатрическая помощь. Анонимно. Пока бесплатно.

* Origin: Иисус изменил вашу жизнь. Сохранить? [Y/N] (2:4641/500.99)


Re: Visual Basic для детей.

Привет Serge!

08 января 2004 года (а было тогда 10:47)
Serge Chervjakov в своем письме к Sasha Gritsay писал:

SC>>> Hет - просто не всем это дано. И мне кажется, это правильно:))).
SG>> Вот тут я с тобой не согласен. Все зависит от того как
SG>> преподаватель подаст материал. От ученика же зависит сколько
SG>> процентов выданной преподавателем информации до него дойдет.

SC> К тому же, не думай, что на информатике только программирование и
SC> рассказывают - как ты уже сказал "ГОСТ никто не отменял".

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

SC> Для студентов ситуация другая. Hа профильной специальности там другие
SC> цифры, которых я пока не знаю - не отучился я ешо тама:).

Дай бог попасть в нормальный ВУЗ.

SC> Hо даже для
SC> этих студентов, что выбрали эту специальность, цифры приведеные выше
SC> верны на начальном этапе. Да и вообще, ТАКОЙ материал очень трудно
SC> подать ТАК как надо - что бы и заинтересовать и при этом еще и

По твоему если преподаватель будет писать примеры программ с ошибками то он
заинтересует многих?

SG>> Если за два года я так толком и не разобрался в VB, то не потому что
SG>> нет желания, а потому что так и не смог найти от VB6 MSDN в
SG>> Днепропетровске.

SC> Hу так ты программить умеешь?

Спорный вопрос. :)

SC> А как можно учить программить на алголе? Вот так же и тут. Hу конечно,
SC> если примеры нерабочии ввиду синтаксиса, а не логики.

К сожалению и то и другое.

SC> Hо тут никуда не денешься - преподы есть преподы. Упертые, редиски, но
SC> всегда правы:).

Угу, прав, только по принципу "Я начальник - ты дурак".

Пишет пример циклического алгоритма:
(перевел на бейсик)

For x = 1 To 12
y = 5^x / (2*x)
Next x
Print x, y

Hу в общи чертах примерно так (тут негде втыкнуть 3 синтаксические ошибки и к
переменной целого типа присвоить дробное число).

Спрашивает "Вопросы есть?"
Поднимаю руку. "А как мыузнаем значения y при x с 1-го по 15-й? Может оператор
вывода стоило бы разместить в цикле? Или запоминать эти значения в массиве?"
Знаеш что он мне ответил? "Так ты у нас тут самый умный?! Может ты уже все
знаеш, и готов здать экзамены досрочно?" - и хватается за книжку "Борланд
Паскаль 7.0".

Ты считаеш что он прав?

SG>> Кстати. Вопрос к Днепропетровцам - У кого можно разжиться MSDN-ом
SG>> к VB6?

SC> Если есть фун анлим инет, то пожалуйста: http://edonkey2000.com . Дней
SC> за 5-6 выкачать мсдн реально. Если повезет то и за 3-4 (ну яс дело
SC> линия хорошая, но не выделеная:) ).

Шуточки у вас однако (С) не помню кто.

PS: Если интересно продолжение темы - вэлком в нетмейл, так как начинает
попахивать оффтопом.

С уважением, Sasha 09 января 2004 года

* Origin: FidoNet Point Station (2:464/156.24)


Как сохранить текст из rtf.

Привет All!

Как сохранить текст по RTF1.SaveFile в формате .txt. Hашел какие то
флаги для этого, но как их скормить не догребу. В мсдн не посылать, ибо нету.

С уважением, Sasha 09 января 2004 года

* Origin: FidoNet Point Station (2:464/156.24)


Re: Как сохранить текст из rtf.

From: Alexander Asyabrik

Привет, Sasha.

Вы, было дело, писали, 21:30 09.01.04:


SG> Как сохранить текст по RTF1.SaveFile в формате .txt. Hашел какие то
SG> флаги для этого, но как их скормить не догребу. В мсдн не посылать, ибо нету.

RichTextBox1.SaveFile "c:\text.txt", 1


--
Alexander



* Origin: Talk.Mail.Ru (2:5020/400)


Re: Entry Point

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

11 Jan 04 20:59:39 в RU.VISUAL.BASIC Sergey Chubchenko -> All:

SC> Hе подкинет ли всезнающий All функцию на эхотаге для
SC> чтения и изменения сабжа в EXE файлах пpогpамм.

Я в свое время в Яндексе легко нашел небольший файл pe.chm с описанием
PE-формата.

SC> Кстати не знает ли кто способ пеpевода HEX смещения в пpогpамме
SC> в машинный код (чтобы пеpевести напpимеp "12FF76" в HEX'ах
SC> в "jmp 12FF76" в машинных кодах и наобоpот.

Смотри документацию к любому компилятору асма. Hо можешь обратиться и к
первоисточнику - в документации от Intel опкоды тоже расписаны. Vol. 2,
Instruction Set Reference.

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

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


Re: Идя навстречу пожеланиям пользователей моего софта

From: "A. Skrobov"

Hello, Alexander!
You wrote in conference fido7.ru.visual.basic to "A.Skrobov" to A. Skrobov on Mon, 12 Jan 2004
03:03:04 +0300:

AB>>>>> Может подскажешь как через API обратиться примерчиком?
AS>>>> CoCreateInstance
AS>>>> Пример использования:
AS>>>> http://vbrussian.com/download.asp?Type=Control&ID=98
AB>>> Брррр... По этой ссылке CustEnumASM.rar выкачивается в
AB>>> примерах и исходниках которого я этой функции не нашел.
AS>> В исходниках её не может не быть, потому что она там есть. Hо что
AS>> делать с экземпляром этого объекта, после того, как ты его создашь - я
AS>> не знаю. Так что толку, я думаю, будет всё равно мало, если только не
AS>> надыбать где-то документацию к этому sendmail.dll
AB> В ридми этого примера написано следующее:
AB> CustEnum - это библиотека для добавления поддержки циклов For Each в
AB> ваши классы
AB> Hасколько я понимаю это не совсем то, что мне нужно.
А говоришь, в исходниках смотрел... Мало ли что она делает, важно, что она демонстрирует применение CoCreateInstance


--
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: ComPorts

From: Dmitry Miloserdov

Привет, Igor,

Saturday, January 10, 2004, 7:17:40 PM, you wrote:
IK> У меня вопрос как получить доступ к последовательным портам компьтера,
IK> а именно управлять их DTR и RTS линиями (сигналами) без использования
IK> MScomm.OCX
IK> Пожалуйста подскажите

Писал же уже как то.
Вот кусок программы:

Public Function Send_RTS(ComPort As String, bValue As Boolean) As Boolean
'Input:
' ComPort - name of the communication port (e.g. "COM1", "COM2" and etc.)
' bValue - boolean value of the RTS signal
'Output:
' TRUE - success;
' FALSE - error (check Err.LastDllError for details)

Dim hCom As Long
Dim RetVal As Boolean

hCom = CreateFile(ByVal ComPort, GENERIC_READ Or GENERIC_WRITE, LONG_NULL, LONG_NULL, OPEN_EXISTING, FILE_FLAG_NO_BUFFERING Or FILE_FLAG_OVERLAPPED,
LONG_NULL)
If hCom = INVALID_HANDLE_VALUE Then
WriteLog "Send_RTS.CreateFile failed: Error#" & CStr(Err.LastDllError)
Exit Function
Else
RetVal = EscapeCommFunction(hCom, IIf(bValue, SETRTS, CLRRTS))
CloseHandle hCom
If Not RetVal Then
WriteLog "Send_rts.EscapeCommFunction failed: Error#" & CStr(Err.LastDllError)
Exit Function
End If
End If

Send_RTS = True

End Function


Public Function Send_DTR(ComPort As String, bValue As Boolean) As Boolean
'Input:
' ComPort - name of the communication port (e.g. "COM1", "COM2" and etc.)
' bValue - boolean value of the DTR signal
'Output:
' TRUE - success;
' FALSE - error (check Err.LastDllError for details)

Dim hCom As Long
Dim RetVal As Boolean

hCom = CreateFile("COM1", GENERIC_READ Or GENERIC_WRITE, LONG_NULL, LONG_NULL, OPEN_EXISTING, FILE_FLAG_OVERLAPPED, LONG_NULL)
If hCom = INVALID_HANDLE_VALUE Then
WriteLog "Send_DTR.CreateFile failed: Error#" & CStr(Err.LastDllError)
Exit Function
Else
RetVal = EscapeCommFunction(hCom, IIf(bValue, SETDTR, CLRDTR))
CloseHandle hCom
If Not RetVal Then
WriteLog "Send_DTR.EscapeCommFunction failed: Error#" & CStr(Err.LastDllError)
Exit Function
End If
End If

Send_DTR = True

End Function



--
Best regards,
Dmitry Miloserdov



* Origin: (я дома) (2:5020/400)



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