Viktor1703
AutoIT Гуру
- Сообщения
- 1,535
- Репутация
- 413
Привет всем, делаю возможность для написания AutoIt скриптов в PureBasic`e
Вопрос: Нужно ли это кому нибудь, будут ли этим пользоваться?
Плюсы и минусы:
+ Возможность писать dll
+ Многопоточность
+ Декомпиляторы не возьмут - нужно дезасамблировать
+ Минимальный размер скомпилированного файла
+ Возможность ASM`овских вставок
- Переменные приняли вид из PureBasic'a
- Для обработки сообщений окна и контролов нужно создавать 2 условия (в примере)
- Бинарные числа выглядят не так 0x03FD10 а $03FD10
Пример написанного скрипта:
Для более лучшего понятия заключу в тэг AutoIt, уважаемые модераторы и
Администрация форума, понимаю что по правилам заключать в тег AutoIt'a
совершенно другой код - это нарушение, но это не для того чтобы нарушить,
а визуально показать различие.
Вопрос: Нужно ли это кому нибудь, будут ли этим пользоваться?
Плюсы и минусы:
+ Возможность писать dll
+ Многопоточность
+ Декомпиляторы не возьмут - нужно дезасамблировать
+ Минимальный размер скомпилированного файла
+ Возможность ASM`овских вставок
- Переменные приняли вид из PureBasic'a
- Для обработки сообщений окна и контролов нужно создавать 2 условия (в примере)
- Бинарные числа выглядят не так 0x03FD10 а $03FD10
Пример написанного скрипта:
Код:
IncludeFile "AutoItX.pb"
Declare Msg(id,Title.s, Text.s)
hForm = GUICreate("PureBasic + AutoIt", 500, 400)
hLink = GUICtrlCreateHyperLink("AutoIt Russian Community", 10, 10, 150, 20, $AD3428, 1)
hMsg = GUICtrlCreateButton("Message", 160, 10, 80, 20,WS_EX_CONTROLPARENT)
hCombo = GUICtrlCreateCombo("AutoIt", 250, 10, 120, 20)
GUICtrlSetData(hCombo, -1, "PureBasic")
hInput = GUICtrlCreateInput("Example", 380, 10, 100, 20)
;FileRecycleEmpty() ; Очистка корзины
;MsgBox(48, "Example", Str(InternetConnected())) ; Проверка интернет соединения
Msg(48,"Example","Функция Msg() работает")
While 1
nMsg = GUIGetMsg()
Select nMsg
Case GUI_EVENT_CLOSE
Exit
; Обработка событий контролов
Case GUI_EVENT_CTRL
Select GUIGetCtrl()
Case hMsg
MsgBox(48,"Example","Hello World!")
Case hLink
Sleep(1000)
ShellExecute("www.autoit-script.ru")
EndSelect
EndSelect
Wend
Func Msg(id, Title.s, Text.s)
Result = MsgBox(id, Title.s, Text.s)
EndFunc
Для более лучшего понятия заключу в тэг AutoIt, уважаемые модераторы и
Администрация форума, понимаю что по правилам заключать в тег AutoIt'a
совершенно другой код - это нарушение, но это не для того чтобы нарушить,
а визуально показать различие.
Код:
IncludeFile "AutoItX.pb"
Declare Msg(id,Title.s, Text.s)
hForm = GUICreate("PureBasic + AutoIt", 500, 400)
hLink = GUICtrlCreateHyperLink("AutoIt Russian Community", 10, 10, 150, 20, $AD3428, 1)
hMsg = GUICtrlCreateButton("Message", 160, 10, 80, 20,WS_EX_CONTROLPARENT)
hCombo = GUICtrlCreateCombo("AutoIt", 250, 10, 120, 20)
GUICtrlSetData(hCombo, -1, "PureBasic")
hInput = GUICtrlCreateInput("Example", 380, 10, 100, 20)
;FileRecycleEmpty() ; Очистка корзины
;MsgBox(48, "Example", Str(InternetConnected())) ; Проверка интернет соединения
Msg(48,"Example","Функция Msg() работает")
While 1
nMsg = GUIGetMsg()
Select nMsg
Case GUI_EVENT_CLOSE
Exit
; Обработка событий контролов
Case GUI_EVENT_CTRL
Select GUIGetCtrl()
Case hMsg
MsgBox(48,"Example","Hello World!")
Case hLink
Sleep(1000)
ShellExecute("www.autoit-script.ru")
EndSelect
EndSelect
Wend
Func Msg(id, Title.s, Text.s)
Result = MsgBox(id, Title.s, Text.s)
EndFunc