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

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

для защиты Windows программ

и восстановления исходного кода
Автор: Maxon3D. Дата публикации: 21.11.2004

Использование текста в качестве кода программы

Мало кто из программистов на VB знает, что можно создавать динамический код,
который можно потом выполнять при помощи Vba6.dll (или Vba5.dll).

В данном примере вам понадобятся следующие элементы: ComboBox, TextBox, Label, CommandButton.
В ComboBox программа добавляет так называемые шаблоны, Label отображает текущее состояние
выполнения кода, в TextBox’е содержится непосредственно текст, являющийся кодом программы,
ну а CommandButton запускает код на выполнение.

К сожалению, но всех возможностей функции EbExecuteLine я не знаю. Как говорится, вам и
карты в руки. Вам понадобится дополнительный модуль в вашей программе.

’КОД МОДУЛЯ

Public Function secret() As String
secret = "this is a secret subroutine"
End Function

Public Sub secret2()
MsgBox "this is a secret subroutine 2"
End Sub

’КОД ФОРМЫ

Option Compare Text
Option Explicit

Private Declare Function EbExecuteLine Lib "vba6.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

’ Для тех, у кого стоит VB5
’Private Declare Function EbExecuteLine Lib "vba5.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

’ Для клиентов Access 97/VBE.dll. Например, Word 97 and Excel 97
’Declare Function EbExecuteLine Lib "vba332.dll" (ByVal pStringToExec As Long, ByVal Foo1 As Long, ByVal Foo2 As Long, ByVal fCheckOnly As Long) As Long

Function FExecuteCode(stCode As String, Optional fCheckOnly As Boolean) As Boolean
FExecuteCode = EbExecuteLine(StrPtr(stCode), 0&, 0&, Abs(fCheckOnly)) = 0
End Function

Private Sub Combo1_Click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub

Private Sub Command1_Click()
Dim res As Boolean
res = FExecuteCode(Text1.Text)
Label1.Caption = "Status = " & res
End Sub

Private Sub Form_Load()
Combo1.AddItem "?secret"
Combo1.AddItem "msgbox secret"
Combo1.AddItem "secret2"
Combo1.AddItem "For x=0 to 5:?" & Chr$(34) & "hello " & Chr$(34) & "&x:next:beep"
Combo1.AddItem "sendkeys " & Chr$(34) & "{TAB}" & Chr$(34) & ":sendkeys " & Chr$(34) & "{up}" & Chr$(34)
Combo1.AddItem "shell " & Chr$(34) & "calc.exe" & Chr$(34) & ",vbNormalFocus"
Combo1.AddItem "shell " & Chr$(34) & "c:\windows\explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
& Chr$(34) & ",vbNormalFocus"
Combo1.AddItem "form1.text1.visible=false"
Combo1.AddItem "form1.text1.visible=true"
Combo1.AddItem "form1.combo1.listindex=1"
Combo1.AddItem "msgbox app.Title"
Combo1.AddItem "form1.combo1.listindex=1:form1.command1.value=true"
Combo1.ListIndex = 0
Show
End Sub

Спасибо за внимание!

Комментарии

Добавил: GPcH Дата: 21.11.2004

Ну, что сказать... статья интересная для новичков, но я это давно знал :) Но я думаю, что на меня ориентироваться не стоит :)

Добавил: programmist Дата: 30.01.2008

Вот ошибочка выходит. Когда я это приложение скомпилирую в EXE файл и нажимаю на кнопку то появляется сообщение: инструкция по адресу (забыл адрес) обратилась к памяти по адресу (тоже забыл адрес), память не может быть read. Что делать?


Добавление комментария


Ваше имя (на форуме):

Ваш пароль (на форуме):

Комментарии могут добавлять только пользователи,
зарегистрированные на форуме данного сайта. Если Вы не
зарегистрированы, то сначала зарегистрируйтесь тут

Комментарий:





Главная     Программы     Статьи     Разное     Форум     Контакты