Вверх ↑
Этот топик читают: Гость
Этот топик был перемещен из раздела "Помощь по среде"
Ответов: 35
Рейтинг: -1
#46: 2017-09-01 10:20:30 ЛС | профиль | цитата
И так после знакомства с IC и книгой о KOL мое мнение о кубиках поменялось в корне.. Как говорится век живи и век учись, а все равно дураком помрешь
Со вставками кода все явилось в другом свете, видимо если бы я перестал расти над собой и не попытался разобраться в данном вопросе зациклившись на готовых компонентах, не увидел бы всю прелесть инструмента. Можно сказать , что в копилку добавился еще один язык программирования. Причем лишенный недостатка обычного Delphi (его громоздкости).
Впечатлил размер программ на выходе...

Редактировалось 1 раз(а), последний 2017-09-01 10:27:29
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Ответов: 5227
Рейтинг: 585
#47: 2017-09-01 10:44:46 ЛС | профиль | цитата
Serfer78, меня больше всего впечатляет поддержка KOL
скриншот с оф сайта
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 1924
Рейтинг: 172
#48: 2017-09-01 16:34:06 ЛС | профиль | цитата
andrestudio, теперь http://kolmck.ru/rindex.htm

http://kolmck.ru/rindex.htm писал(а):
Данная страница ранее имела адрес kolmck.net. В настоящее время прежний адрес занят, и к содержимому страницы kolmck.net автор KOL не имеет никакого отношения.


--- Добавлено в 2017-09-01 16:39:22

Serfer78 писал(а):
И так после знакомства с IC и книгой о KOL мое мнение о кубиках поменялось в корне.. Как говорится век живи и век учись, а все равно дураком помрешь
Со вставками кода все явилось в другом свете, видимо если бы я перестал расти над собой и не попытался разобраться в данном вопросе зациклившись на готовых компонентах, не увидел бы всю прелесть инструмента. Можно сказать , что в копилку добавился еще один язык программирования. Причем лишенный недостатка обычного Delphi (его громоздкости).
Впечатлил размер программ на выходе...


http://hi-asm.blogspot.fr/2009/09/hiasm.html

Редактировалось 2 раз(а), последний 2017-09-01 16:39:22
карма: 9
1
Голосовали:andrestudio
Ответов: 5227
Рейтинг: 585
#49: 2017-09-01 17:32:44 ЛС | профиль | цитата
3042 писал(а):
Данная страница ранее имела адрес kolmck.net. В настоящее время прежний адрес занят, и к содержимому страницы kolmck.net автор KOL не имеет никакого отношения.

давай ссыль
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#50: 2017-09-01 18:23:42 ЛС | профиль | цитата
andrestudio писал(а):
давай ссыль

А в начале поста от 3042 разве не ссылка на оригинальный сайт KOL&MCK?
карма: 22

0
Ответов: 35
Рейтинг: -1
#51: 2017-09-01 20:31:45 ЛС | профиль | цитата
andrestudio писал(а):
Serfer78, меня больше всего впечатляет поддержка KOL
скриншот с оф сайта


Да) Я уже там побывал час назад. Успел выхватить пару ласковых от супруги

3042 писал(а):

http://hi-asm.blogspot.fr/2009/09/hiasm.html

Редактировалось 2 раз(а), последний 2017-09-01 16:39:22


Сегодня весь день штудирую, поблагодарил автора в коментах, отличный материал.
Дошел до этой http://hi-asm.blogspot.ru/2010/02/ic_25.html страницы, успел порыться в просторах инета в поисках справочника по KOL но пока нет результата, нашел хорошую справку по паскалю с примерами алгоритмов на русском языке вот тут http://www.drkb.ru/download.html Ребята потрудились на славу...
Если я правильно понял справку по стандартным функциям Hiasm можно найти тут? http://forum.hiasm.com/wiki/5115

Редактировалось 11 раз(а), последний 2017-09-01 22:11:00
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Ответов: 35
Рейтинг: -1
#52: 2017-09-02 00:12:54 ЛС | профиль | цитата
andrestudio писал(а):

давай ссыль


Тоже ищу но нашел пока только это http://www.kansoftware.ru/?did=42 Думаю тут можно много полезного найти)

Редактировалось 1 раз(а), последний 2017-09-02 00:20:04
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Разработчик
Ответов: 26061
Рейтинг: 2120
#53: 2017-09-02 00:40:21 ЛС | профиль | цитата
Serfer78 писал(а):
Тоже ищу но нашел пока только это

Народ! Вы чего пытаетесь найти? Вот же ссылка на оригинальный сайт, который был с мохнатых времен -- KOL&MCK

Редактировалось 4 раз(а), последний 2017-09-02 00:51:12
карма: 22

0
Ответов: 35
Рейтинг: -1
#54: 2017-09-02 01:02:01 ЛС | профиль | цитата
nesco писал(а):
Serfer78 писал(а):
Тоже ищу но нашел пока только это

Народ! Вы чего пытаетесь найти? Вот же ссылка на оригинальный сайт, который был с мохнатых времен -- KOL&MCK


Вот это то что надо! Спасибо!
Дествительно 3042 выкладывал ссылку постом выше.. хм , просмотрел однако.

PS: Так вот от куда "Книга о KOL" на русском языке в формает MS Word )))!

Редактировалось 1 раз(а), последний 2017-09-02 01:10:44
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Ответов: 5227
Рейтинг: 585
#55: 2017-09-02 03:58:04 ЛС | профиль | цитата
3042, а вот это уже новость получше.
карма: 4
Мой форум - http://hiasm.bbtalk.me/ схемы, компоненты...
0
Ответов: 35
Рейтинг: -1
#56: 2018-03-03 03:06:24 ЛС | профиль | цитата
Всем ку! форумчане. И все таки могёт hiasm вещи делать, если с умом подойти... Много чего зараза умеет, довольно гибкий инструмент. И чем больше кодишь ручками, тем легче в hiasm свои хотелки заюзать)))) Стоит к нему dll присобачить нужную... и все летает. решил ответить на свой вопрос сам . Вдруг кому понадобится..
Вот фишка которая быстро ищет нужный цвет.. Запилено на IC в паре с dll. На днях вспомнил про старые заморочки с поиском нужного пикселя и буквально на коленке набросал 2 приложения. 1 - Жертва, 2 - Сам поисковик. Только dll желательно в системе регнуть. Делается это просто: Забрасываем в папку C:\Windows\System32 нашу dll. Жмакаем win+r, вводим cmd, жмем enter, копируем это
regsvr32.exe "C:\WINDOWS\system32\AutoItX3.dll"
правой кнопкой мыши в консоль, выбираем вставить и повторно жмем Enter. Все..
После можно тестить прогу и пользоваться всеми возможностями данной dll.
Все файлы в архиве. Если страшно регать эту деллку то качаем ее с офф сайта. Сайт программы (там её можно скачать): http://www.autoitscript.com/autoit3/.
Ссылка на архив https://cloud.mail.ru/public/FAeq/174BVLNhi
Запускаем тестовое окно и прогу для поиска , думаю разберетесь))
В окне размером 1024х768 находит в среднем за 0.002мс.
Исходник IC:
Адекватные табуретки приветствуются
...нашел ошибку внес поправку...
Add(VBJScript,2544746,273,294)
{
@Hint=#5:Поиск|36:Window-Заголовок окна в котором ищем|25:Color-Искомый цвет в Dec |11:(Ax-верх X)|11:(Ay-Верх Y)|10:(Bx-Низ X)|10:(By-Низ Y)|36:ColWalid-Допустимое отклонение цвета|28:Step-количество пропускаемых|9:пикселей.|15:onOUTx-выдает x|15:onOUTy-выдает y|16:если цвет найден|15:onOUT dвыдает 1|20:иначе onOUT выдает 0|
WorkPoints=#6:doWork|
EventPoints=#6:onOUTx|6:onOUTy|5:onOUT|
DataPoints=#6:Window|5:Color|2:Ax|2:Ay|2:Bx|2:By|8:ColWalid|4:Step|
Script=#11:Dim oAutoIt|24:Sub doWork (Data, Index)|46:Set oAutoIt = CreateObject("AutoItX3.Control")|0:|17:window=sys.Window|15:color=sys.Color|9:ax=sys.Ax|9:ay=sys.Ay|9:bx=sys.Bx|9:by=sys.By|18:walid=sys.ColWalid|11:st=sys.Step|0:|35: if oAutoIt.WinExists (window) Then|34: oAutoIt.WinActivate (window) |19: oAutoIt.sleep 500|32: oAutoIt.WinWaitActive (window)|36: xPos = oAutoIt.WinGetPosX (window)|36: yPos = oAutoIt.WinGetPosY (window)|19: sys.onOUT "poisk"|95: myResult = oAutoIt.PixelSearch(xPos + ax, yPos + ay, xPos + bx, yPos + by, color, walid, st)|26: If IsArray(myResult)Then|51: oAutoIt.MouseMove myResult(0), myResult(1), 5|60: 'oAutoIt.MouseClick "left", myResult(0), myResult(1), 3|29: sys.onOUTx myResult(0)|29: sys.onOUTy myResult(1)|20: sys.onOUT "0"|6: Else|21: 'MsgBox "Не нашли"|14: sys.onOUT 1|9: End If |5: else|13: sys.onOUT 2|31: MsgBox("Запустите клиент!!!")|7: End If|8:End Sub |
UseName=0
}


PS: Отдельное спасибо "andrestudio" за помощь.
Если ломает регать dll-ку руками вот схема..
Не забудьте предварительно закинуть AutoItX3.dll в C:\WINDOWS\system32\
Add(MainForm,2953706,21,105)
{
Width=270
Height=190
Caption="Reg DLL"
}
Add(Button,11548175,21,210)
{
Left=5
Top=120
Width=110
Caption="Регистрация dll"
link(onClick,3169127:doWork,[])
}
Add(VBJScript,3169127,84,210)
{
@Hint=#34:Регистрация AutoItX3_dll в системе|
WorkPoints=#6:doWork|
EventPoints=#5:onOUT|
Script=#20:On Error Resume Next|24:Sub doWork (Data, Index)|0:|42:Set oShell = CreateObject("WScript.Shell")|52:Set oFS = CreateObject("Scripting.FileSystemObject")|46:Set oAutoIt = CreateObject("AutoItX3.Control")|1: |29:If Not IsObject(oAutoIt) Then|35: AutoItX3_dll = ".\AutoItX3.dll"|3: |44: If Not oFS.FileExists(AutoItX3_dll) Then|87: MsgBox "AutoItX3.dll Not found." & vbCRLF & vbCRLF & "OK ==> EXIT", 16, "Error"|16: exit Sub|10: End If|3: |67: oShell.Exec "regsvr32.exe /S " & oFS.GetFile(AutoItX3_dll).Path|3: |50: Set oAutoIt = CreateObject("AutoItX3.Control")|3: |33: If Not IsObject(oAutoIt) Then|109: MsgBox "Can not register the AutoItX3.Control object." & vbCRLF & vbCRLF & "OK ==> EXIT", 16, "Error"|16: exit Sub|10: End If|0:|6:End If|79:'================== AutoItX3.Control Object Check & Register ==================|1: |1: |35:'....Script content starts here....|0:|39: if oAutoIt.WinExists("WoT Client")Then|59: MsgBox("AutoItX3 успешно зарегистрирована в системе!")|16: sys.onOUT 1 |5: else|13: sys.onOUT 0|7: End If|8:End Sub |
UseName=0
}
Add(Label,5056016,21,154)
{
Left=15
Top=50
Width=210
Height=17
Caption="Информация"
}


Редактировалось 14 раз(а), последний 2018-03-03 19:25:41
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Ответов: 43
Рейтинг: -2
#57: 2018-03-03 12:26:54 ЛС | профиль | цитата
Serfer78, день добрый.
1) Если видел мой вариант ActiveXEx и VBJScript то зря недооценил (работает без активации в системе ищи на форуме)
2) Я рассчитывал давая тебе пример что сможешь хоть разобраться с указателями и с PBitmap

Ну что, хоть какой то результат который тебя устраивает и то пользу несёт.

з.ы пока бан не снят помогать кому то и чем то нет никакого желания.
карма: -2

0
Ответов: 35
Рейтинг: -1
#58: 2018-03-03 12:35:58 ЛС | профиль | цитата
andrestudioEX писал(а):
Serfer78, день добрый.
1) Если видел мой вариант ActiveXEx и VBJScript то зря недооценил (работает без активации в системе ищи на форуме)
2) Я рассчитывал давая тебе пример что сможешь хоть разобраться с указателями и с PBitmap

Ну что, хоть какой то результат который тебя устраивает и то пользу несёт.

з.ы пока бан не снят помогать кому то и чем то нет никакого желания.


Доброго времени суток andrestudio! Спасибо за совет, забыл уже про ActiveXEx. Сегодня обязательно ознакомлюсь , что за зверь такой))
Надеюсь не на долго в бане?

Редактировалось 1 раз(а), последний 2018-03-03 12:36:11
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Ответов: 43
Рейтинг: -2
#59: 2018-03-03 15:38:10 ЛС | профиль | цитата
Serfer78 писал(а):
Надеюсь не на долго в бане?

Ага, уже бы как две недели назад откинулся бы если бы не глючный форум или воля его создателя
Вот что умеет vbs http://forum.hiasm.com/getfile/38296 (не ниже win7) и это тоже Media Foundation, поверь
карма: -2

0
Ответов: 35
Рейтинг: -1
#60: 2018-03-03 19:39:23 ЛС | профиль | цитата
andrestudioEX писал(а):
Serfer78 писал(а):

Вот что умеет vbs http://forum.hiasm.com/getfile/38296 (не ниже win7) и это тоже Media Foundation, поверь


Интересная реализация))

Редактировалось 2 раз(а), последний 2018-03-03 19:40:05
карма: -4
Нечего сказать по делу? Просто проходим на natribu.org
0
Сообщение
...
Прикрепленные файлы
(файлы не залиты)