Помогите перевести ImageSearch.au3 AutoIt на PureBasic

[filautdinov]

Приветствую уважаемые гуру, помогите перевести ImageSearch.au3 на PureBasic, сижу уже несколько часов курю форумы и примеры но пока без результатно.

то что пробывал код PureBasic

Procedure hImageSearch()
    If OpenLibrary(1, GetCurrentDirectory() + "ImageSearch.dll")=0
        MessageRequester("", "Отсутствует файл dll")
        End 
    EndIf
    
    Debug CallFunction(1, "ImageSearch", 0, 0, 1280, 1024, @"*60 D:\test.bmp")
    
    Debug PeekS(CallFunction(1, "ImageSearch", 0, 0, 1280, 1024, @"*60 D:\test.bmp"))
     
EndProcedure
 
Delay(3000)
hImageSearch()

 

[filautdinov]

Проблему решил кодировкой так как длл-ка возвращает ответ в ASCII