Обсуждение программирования на 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" 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" 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) |