Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RFpro.ru: Программирование на Basic / VBA


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 10913
∙ повысить рейтинг »
Роман Селиверстов
Статус: Советник
Рейтинг: 5145
∙ повысить рейтинг »
Гуревич Александр Львович
Статус: Профессионал
Рейтинг: 4493
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1082
Дата выхода:25.11.2012, 12:00
Администратор рассылки:Кочетков Василий [Vasiliy83] (Профессионал)
Подписчиков / экспертов:85 / 44
Вопросов / ответов:3 / 6

Консультация # 86401: Добрый день, уважаемые Эксперты! Подскажите, пожалуйста, грамотею как и чем скомпилировать VBScript находящийся в txt-шнике в exe? Желательно, чтобы при дизассемблировании полученного exe-шника было проблематично докопаться до особонно некоторых параметров искодного кода. Помогите, буду очень признателен. :)...


Консультация # 152538: Здравствуйте! У меня вопрос: как в VB6 можно обратиться с КОНКРЕТНОМУ символу строки, т.е. изменить или считать КОНКРЕТНЫЙ символ строки? По крайней мере, в Паскале это выглядит так: S[i], где s - строка, а i - номер символа, как это сделать в VB6 не знаю, подскажите, пожалуйста. Спасибо!...
Консультация # 147044: Здравствуйте уважаемые эксперты. Мне нужно проверить, есть ли в указаном каталоге(c://) папка Клиенты, и если ее нет, то ее необходимо создать. Прошу обьяснить как это можно реализо вать?...

Консультация # 86401:

Добрый день, уважаемые Эксперты!
Подскажите, пожалуйста, грамотею как и чем скомпилировать VBScript находящийся в txt-шнике в exe? Желательно, чтобы при дизассемблировании полученного exe-шника было проблематично докопаться до особонно некоторых параметров искодного кода. Помогите, буду очень признателен. :)

Дата отправки: 11.05.2007, 10:56
Вопрос задал: Дрёма (5-й класс)
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Талипов А Н:

Здравствуйте, Дрёма!
Нашел программу:
VBX Compiler Pack 1.5 PRO

Компилятор Basic Кода.
В данном Pack есть:
VBX Source Editor, VBX DeCompiler, VBX Compiler, Russian Readme
Обновленный Source Editor подсветка синтаксиса, обновленный Compiler, язык прог. поддерживает формы, объекты... EXE файлы от 10 кб, поддержка ActiveX...

http://freesoft.ru/?id=669853

По её работе ничего сказать не могу.Может это совсем и не то, но попробуйте, хуже не будет.

Что касается шифрования exe, то тут уже нужен не компилятор, а архиватор илидругой специализированный soft, который вы найдёте на хакерских сайтах.

Консультировал: Талипов А Н
Дата отправки: 11.05.2007, 11:50
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Залетин Виталий Викторович (мь:

Здравствуйте, Дрёма!
А что за "VBScript находящийся в txt-шнике в exe"? Если это текстовый ресурс, то надо просто использовать Microsoft Script Control (\Windows\system32\msscript.ocx) и подключить его в свой проект через Project->References и пользоваться, предварительно загрузив VBScript-код из ресурса. Например, так:

\'=-=-=-=-=-=-= Секция "General Declarations" -=-=-=-=-=-=
Dim WithEvents objScript As MSScriptControl.ScriptControl

\'=-=-=-=-=-=-= Код -=-=-=-=-=-=
Sub RunVBScript()
Dim txtScript As String

Set objScript = New MSScriptControl.ScriptControl

\'Мой пример VBScript-кода, но здесь должен быть Ваш
txtScript = "MsgBox " & Chr$(34) & "Hi From VBScript!!!!" & Chr$(34) & ",64"
With objScript
.Language = "VBSCRIPT"
.ExecuteStatement txtScript
End With
End Sub

\'Бдет вызвана, если произойдет ошибка парсера
Private Sub objScript_Error()
Dim e As MSScriptControl.Error

Set e = objScript.Error
With e
MsgBox "Error #" & CStr(.Number) & vbCrLf & _
"Error Description: [" & .Description & "]" & vbCrLf & _
"Error Text: [" & .Text & "]" & vbCrLf & _
"Line: " & CStr(.Line) & vbCrLf & _
"Column: " & CStr(.Column)
End With
End Sub

А теперь о шифровке: VB-программы неблагодарное дело дизассемблировать. Хотя для упаковки есть, например, UPX и т. д. Зайдите на www.wasm.ru - там в разделе "Инструменты" много чего есть. Если же надо шифровать сам VBScript-код, то тут все в Ваших руках: придумывайте алгоритм и шифруйте, после чего в ресурсы запихиваете уже зашифрованный код (можно отдельную программку написать для шифрования VBScript-кода) и при извлечении перед выполнением VBScript-кода расшифровывайте его. Примеров шифровки в сети полно - надо только поискать.

Консультировал: Залетин Виталий Викторович (мь
Дата отправки: 12.05.2007, 15:49
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 152538:

Здравствуйте!
У меня вопрос: как в VB6 можно обратиться с КОНКРЕТНОМУ символу строки, т.е. изменить или считать КОНКРЕТНЫЙ символ строки?
По крайней мере, в Паскале это выглядит так: S[i], где s - строка, а i - номер символа, как это сделать в VB6 не знаю, подскажите, пожалуйста.
Спасибо!

Дата отправки: 01.12.2008, 19:28
Вопрос задал: AkaProc
Всего ответов: 2
Страница онлайн-консультации »


Консультирует AlexanderZh:

Здравствуйте, AkaProc!
Воспользоватся функцей или командой MID()!
Mid( Target As String, Start As Integer[, Length As Integer] ) = StringExpression
или
StringExpression = Mid( str As String, Start As Integer[, Length As Integer])

пример:

A="BASIC"
mid(A,2)="x"
Debug.print A
Debug.print mid (A,3,1)

----------
BxSIC
S

Консультировал: AlexanderZh
Дата отправки: 01.12.2008, 19:54
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует Иноземцева Ольга Степановна:

Здравствуйте, AkaProc!
Получить i-й символ:
ch1 = mid(s,i,1)

Изменить i-й символ на сh2:
s = left(s,i-1) & ch2 & mid(s,i+1)

изменить все символы ch1 на ch2 в строке s:
s=replace(s,ch1,ch2)


Консультировал: Иноземцева Ольга Степановна
Дата отправки: 02.12.2008, 16:00
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 147044:

Здравствуйте уважаемые эксперты. Мне нужно проверить, есть ли в указаном каталоге(c://) папка Клиенты, и если ее нет, то ее необходимо создать. Прошу обьяснить как это можно реализовать?

Дата отправки: 13.10.2008, 12:16
Вопрос задал: Горбунов Алексей Николаевич
Всего ответов: 2
Страница онлайн-консультации »


Консультирует Шичко Игорь (Профессионал):

Здравствуйте, Горбунов Алексей Николаевич!
Для определения наличия файла или каталога в VBA используется функция DIR.
Подробное описание можно отыскать в HELP VBA. (Там хоть по английски, но более-менее понятно).
Создание нового каталога: функция MkDir("путь")
Пример использования для определения наличия папки:
If Not UCase(Dir(UCase("C:\Клиенты"), vbDirectory)) = UCase("Клиенты") Then
MkDir ("C:\Клиенты")
End If
примечание: UCase используем для приведения регистра к единой позиции.

Консультировал: Шичко Игорь (Профессионал)
Дата отправки: 13.10.2008, 12:45
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Консультирует M@gi$†e® (Студент):

Здравствуйте, Горбунов Алексей Николаевич!
Примерно вот так:
Sub MakeMyDir()

Dim DirName As String

DirName = "C:\Клиенты"

If Dir(DirName, vbDirectory) <> "" Then
MsgBox "Есть такая папка"
Else
MsgBox "Нет такой папки"
MkDir (DirName)
End If

End Sub

Приложение:

Консультировал: M@gi$†e® (Студент)
Дата отправки: 13.10.2008, 13:39
Рейтинг ответа:

НЕ одобряю 0 одобряю!


Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!



В избранное