AutoIt Français

Code : Tout sélectionner

$dll = DllOpen("mydllgcc.dll")

if($dll = -1) then
    msgbox(4096,"ret","dll open - ERROR="&@ERROR&@CRLF)
    exit
Else
    ConsoleWrite("DLL open succesfully"&@CRLF)
EndIf

$var = DllCall($dll,"int","square","int",$var)

if(@ERROR <> 0) then msgbox(4096,"ret","dll exe error="&@ERROR&@CRLF)
 

Code : Tout sélectionner

int function1(int a)
{
return a*a;
}

int square(int a)
{
return a*a;
}
 

Code : Tout sélectionner

EXPORTS function1
EXPORTS square
 

Code : Tout sélectionner

gcc -mno-cygwin -c mydll.c
gcc -shared -mno-cygwin -o mydllgcc.dll mydll.o mydll.def -Wl,--export-all-symbols -Wl,--out-implib=mygccdll.dll.a
Creating library file: mygccdll.dll.a
 

Code : Tout sélectionner

$var = DllCall($dll,"int","square","int",$var)

Code : Tout sélectionner

$var = 18

$result = DllCall("dev_cpp\projet1.dll","none","HelloWorld")
$result = DllCall("dev_cpp\projet1.dll","int","MySquare","int",$var)

if @error <> 0 then
    msgbox(4096,"","error in excuting square("&@ERROR&")")
else
    msgbox(4096,"square","square of "&$var&"="&$result[0])
EndIf
 

Code : Tout sélectionner

/* Replace "dll.h" with the name of your header */
#include "dll.h"
#include <windows.h>
#include <stdio.h>
#include <stdlib.h>

DLLIMPORT void HelloWorld (void)
{
    MessageBox (0, "Hello World from the DLL!!", "Hi", MB_ICONINFORMATION);

}

DLLIMPORT int MySquare (int b)
{

          char str[100];
          sprintf(str,"p= %d ",b);
    MessageBox (0, str, "MySquare", MB_ICONINFORMATION);
    return (b*b);
}

BOOL APIENTRY DllMain (HINSTANCE hInst     /* Library instance handle. */ ,
                       DWORD reason        /* Reason this function is being called. */ ,
                       LPVOID reserved     /* Not used. */ )
{
    switch (reason)
    {
      case DLL_PROCESS_ATTACH:
        break;

      case DLL_PROCESS_DETACH:
        break;

      case DLL_THREAD_ATTACH:
        break;

      case DLL_THREAD_DETACH:
        break;
    }

    /* Returns TRUE on success, FALSE on failure */
    return TRUE;
}
 

Code : Tout sélectionner

$result=DllCall("dev_cpp/dll/projet1.dll","int:cdecl","MySquare","int",$var)

Code : Tout sélectionner

$result=DllCall("dev_cpp/dll/projet1.dll","int","MySquare","int",$var)

Code : Tout sélectionner

$dll = DllOpen("Projet1.dll")


if($dll = -1) then
    msgbox(4096,"ret","dll open - ERROR="&@ERROR&@CRLF)
    exit
Else
    ConsoleWrite("DLL open succesfully"&@CRLF)
EndIf

$var=3
$varcarre = DllCall($dll,"int:cdecl","MySquare","int",$var)

if(@ERROR <> 0) then 
    msgbox(4096,"ret","dll exe error="&@ERROR&@CRLF)
Else
    MsgBox(0,"OK","carré de "&$var&" = "&$varcarre[0])
EndIf

 

Code : Tout sélectionner

STRINGTABLE
BEGIN
1    "StringString premier texte"
2    "StringString deuxième texte"
END

Code : Tout sélectionner

#include <WinAPI.au3>
$hinstance = _WinAPI_LoadLibraryEx(".\Madll.dll", $LOAD_LIBRARY_AS_DATAFILE)
$LoadString_ID1 = _WINAPI_LoadString($hinstance,1)
msgbox(0,"test",$LoadString_ID1)
_WinAPI_FreeLibrary($hinstance)

Code : Tout sélectionner

#include <WinAPI.au3>
$hinstance = _WinAPI_LoadLibrary("Madll.dll")
$LoadString_ID1 = _WINAPI_LoadString($hinstance,1)
msgbox(0,"test",$LoadString_ID1,4)
_WinAPI_FreeLibrary($hinstance)

Code : Tout sélectionner

#include <WinAPI.au3>
$hinstance = _WinAPI_LoadLibraryEx(@SystemDir & "\shell32.dll", $LOAD_LIBRARY_AS_DATAFILE)
$LoadString_ID1 = _WINAPI_LoadString($hinstance,60)
msgbox(0,"test",$LoadString_ID1,2)
_WinAPI_FreeLibrary($hinstance)

#include <WinAPI.au3>
$hinstance = _WinAPI_LoadLibrary(@SystemDir & "\shell32.dll")
$LoadString_ID1 = _WINAPI_LoadString($hinstance,62)
msgbox(0,"test",$LoadString_ID1,2)
_WinAPI_FreeLibrary($hinstance)

Code : Tout sélectionner

#include <WinAPI.au3>
Global $hinstance = _WinAPI_LoadLibrary("shell32.dll")
for $x = 0 to 99999
Global $LoadString_ID1 = _WINAPI_LoadString($hinstance,$x)
If $LoadString_ID1 = "" then ContinueLoop
ConsoleWrite($x & "=" & $LoadString_ID1 & @CR)
Next
_WinAPI_FreeLibrary($hinstance)

Code : Tout sélectionner

1=StringString premier texte
2=StringString deuxième texte
65537=StringString premier texte
65538=StringString deuxième texte

Code : Tout sélectionner

for $x = 0 to 99999

Code : Tout sélectionner

for $x = 0 to 99 ; ou le chiffre correspondant aux lignes a lire dans ta dll[code]