$ZMWSDll = "ZazouMiniWebServer.dll" ; la fonction magique qui recoit un pointeur sur une chaine et qui renvoit cette chaine Func Ptr2Str( $ptr ) $chr = DllStructCreate("char[255]", $ptr); $result = DllStructGetData($chr, 1) Return $result EndFunc ; chargement de la DLL $dll = DllOpen($ZMWSDll) ; Lecture de la configuration DllCall($ZMWSDll, "int", "zmws_configure") ; création de la structure servant au stockage de la configuration $base_config = DllStructCreate("int;int;ptr;ptr;ptr;ptr;ptr;ptr;ptr;ptr;ptr;dword;byte;byte;byte;byte;byte;byte;byte;byte;byte;byte;byte") ; récupération de la configuration DllCall($dll, "none", "zmws_get_config", "ptr", DllStructGetPtr($base_config)) ; affichage des résultats MsgBox(0, "Résultat du serveur... ", "" & _ @CRLF & "port : " & DllStructGetData($base_config, 1) & _ @CRLF & "sport : " & DllStructGetData($base_config, 2) & _ @CRLF & "BindAddr : " & Ptr2Str(DllStructGetData($base_config, 3)) & _ @CRLF & "documentRoot : " & Ptr2Str(DllStructGetData($base_config, 4)) & _ @CRLF & "serverRoot : " & Ptr2Str(DllStructGetData($base_config, 5)) & _ @CRLF & "logsDir : " & Ptr2Str(DllStructGetData($base_config, 6)) & _ @CRLF & "pathToConfigFile : " & Ptr2Str(DllStructGetData($base_config, 7)) & _ @CRLF & "pathToPHP : " & Ptr2Str(DllStructGetData($base_config, 8)) & _ @CRLF & "defCharSet : " & Ptr2Str(DllStructGetData($base_config, 9)) & _ @CRLF & "startPages : " & Ptr2Str(DllStructGetData($base_config, 10)) & _ @CRLF & "allowFrom : " & Ptr2Str(DllStructGetData($base_config, 11)) & _ @CRLF & "maxClients : " & DllStructGetData($base_config, 12) & _ @CRLF & "hideConsole : " & DllStructGetData($base_config, 13) & _ @CRLF & "try808xPorts : " & DllStructGetData($base_config, 14) & _ @CRLF & "canIndex : " & DllStructGetData($base_config, 15) & _ @CRLF & "beQuiet : " & DllStructGetData($base_config, 16) & _ @CRLF & "canStop : " & DllStructGetData($base_config, 17) & _ @CRLF & "closeBrowser : " & DllStructGetData($base_config, 18) & _ @CRLF & "reverseDNS : " & DllStructGetData($base_config, 19) & _ @CRLF & "writeLogs : " & DllStructGetData($base_config, 20) & _ @CRLF & "browseNow : " & DllStructGetData($base_config, 21) & _ @CRLF & "dropClients : " & DllStructGetData($base_config, 22) _ @CRLF & "pbtoken : " & DllStructGetData($base_config, 23) & _ ) ; fermeture de la DLL DllClose($dll)