Leaderboard

With this code, Windows functions can be called without using types of Data ... Only need distinguish the int data type and the FLOAT data type This code calls functions that include data types of no more than 32 bit ... function that includes 64-bit parameters cannot be called through this code ... Thank you. The functions are called in three languages, assembly language, C ++, and autoit Call_without_data_types.zip Call_without_data_types.au3 ;With this code, Windows functions can be called without using types ;of Data ... Only need distinguish the int data type and the FLOAT data type ;This code calls functions that include data types of no more than ;32 bit ... function that includes 64-bit parameters cannot be called ;through this code ... Thank you. ; FCall($Address,$PmCount,$ParmA = 0, $ParmB = 0 ; Address : Address Of Function /// $PmCount : parameters Count /// ($ParmA = 0, $ParmB = 0 ....) parameters ;P() Get String From String Ptr ;S() Get String Ptr From String ;F() Get Float Number In Dword Data Type ;D() Get Dword Number In FLOAT Data Type ;RfS() Create Struct Of Ref ;RfP() Get Ref Ptr ;RfD() Get Ref Data with original data type Or with DWORD Data Type ;RtD() conveort Data Type of Return Data Global $MaxGlobal = 40 , $GlobalStNum = 1 , $GlobalStArray[$MaxGlobal][2] Global $RfSA = RfS(),$RfSB = RfS(),$RfSC = RfS(),$RfSD = RfS(),$RfSE = RfS(),$RfSF = RfS() Global $RfPA = RfP($RfSA) , $RfPB = RfP($RfSB) , $RfPC = RfP($RfSC) , $RfPD = RfP($RfSD) Global $RfPE = RfP($RfSE),$RfPF = RfP($RfSF) Global _ $tagCallstruct = "DWORD ParameA;DWORD ParameB;DWORD ParameC;DWORD ParameD;" & _ "DWORD ParameE;DWORD ParameF;DWORD ParameG;DWORD ParameH;DWORD ParameI;" & _ "DWORD ParameJ;DWORD ParameK;DWORD ParameL;DWORD ParameM;DWORD ParameN;" & _ "DWORD ParameO;DWORD ParameP;DWORD nReturn;DWORD PmCount;DWORD IsCallg;" & _ "DWORD ClosThd;DWORD TheadId;PTR Address;PTR hThread" Global $CLB = LoadLibrary("callWithoutDataTypes.dll") Global $Call_LB = DllOpen("callWithoutDataTypes.dll") Global $wkernel32 = GetModuleHandle( "kernel32.dll") Global $GAdd = GtAdd($wkernel32 ,"GetProcAddress") Global $GMhn = GtAdd($wkernel32,"GetModuleHandleW") Global $LoLb = GtAdd($wkernel32,"LoadLibraryW") Global $ClHd = GtAdd($wkernel32 ,"CloseHandle") Global $Free = GtAdd($wkernel32 ,"FreeLibrary") Global $Wstr = GAdd("msvcrt.dll","wcslen") Global $Astr = GAdd("msvcrt.dll","strlen") Global $iCStruct = CallStartUp() Func CallStartUp() $CStruct = DllStructCreate($tagCallstruct) $Return = DllCall($Call_LB,"BOOL","StartUp","STRUCT*",$CStruct) if ($Return[0]) Then Return $CStruct Return 0 EndFunc Func CallShutdown($CStruct) DllStructSetData($CStruct,20,1) While DllStructGetData($CStruct,20) WEnd Return CloseHandle(DllStructGetData($CStruct,23)) EndFunc Func FCall($Address,$PmCount,$ParmA = 0, $ParmB = 0,$ParmC = 0 ,$ParmD = 0, _ $ParmE = 0,$ParmF = 0,$ParmG = 0,$ParmH = 0,$ParmI = 0,$ParmJ = 0,$ParmK = 0,$ParmL = 0 _ ,$ParmM = 0,$ParmN = 0,$ParmO = 0,$ParmP = 0) ; FCall($Address,$PmCount,$ParmA = 0, $ParmB = 0 ; Address : Address Of Function /// $PmCount : parameters Count /// ($ParmA = 0, $ParmB = 0 ....) parameters Switch $PmCount Case 01 DllStructSetData($iCStruct,1,$ParmA) Case 02 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) Case 03 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) Case 04 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) Case 05 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) DllStructSetData($iCStruct,5,$ParmE) Case 06 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) DllStructSetData($iCStruct,5,$ParmE) DllStructSetData($iCStruct,6,$ParmF) Case 07 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) DllStructSetData($iCStruct,5,$ParmE) DllStructSetData($iCStruct,6,$ParmF) DllStructSetData($iCStruct,7,$ParmG) Case 08 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) DllStructSetData($iCStruct,5,$ParmE) DllStructSetData($iCStruct,6,$ParmF) DllStructSetData($iCStruct,7,$ParmG) DllStructSetData($iCStruct,8,$ParmH) Case 09 DllStructSetData($iCStruct,1,$ParmA) DllStructSetData($iCStruct,2,$ParmB) DllStructSetData($iCStruct,3,$ParmC) DllStructSetData($iCStruct,4,$ParmD) DllStructSetData($iCStruct,5,$ParmE) DllStructSetData($iCStruct,6,$ParmF) DllStructSetData($iCStruct,7,$ParmG) DllStructSetData($iCStruct,8,$ParmH) DllStructSetData($iCStruct,9,$ParmI) Case 10 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) Case 11 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) Case 12 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) DllStructSetData($iCStruct,12,$ParmL) Case 13 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) DllStructSetData($iCStruct,12,$ParmL) DllStructSetData($iCStruct,13,$ParmM) Case 14 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) DllStructSetData($iCStruct,12,$ParmL) DllStructSetData($iCStruct,13,$ParmM) DllStructSetData($iCStruct,14,$ParmN) Case 15 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) DllStructSetData($iCStruct,12,$ParmL) DllStructSetData($iCStruct,13,$ParmM) DllStructSetData($iCStruct,14,$ParmN) DllStructSetData($iCStruct,15,$ParmO) Case 16 DllStructSetData($iCStruct,1, $ParmA) DllStructSetData($iCStruct,2, $ParmB) DllStructSetData($iCStruct,3, $ParmC) DllStructSetData($iCStruct,4, $ParmD) DllStructSetData($iCStruct,5, $ParmE) DllStructSetData($iCStruct,6, $ParmF) DllStructSetData($iCStruct,7, $ParmG) DllStructSetData($iCStruct,8, $ParmH) DllStructSetData($iCStruct,9, $ParmI) DllStructSetData($iCStruct,10,$ParmJ) DllStructSetData($iCStruct,11,$ParmK) DllStructSetData($iCStruct,12,$ParmL) DllStructSetData($iCStruct,13,$ParmM) DllStructSetData($iCStruct,14,$ParmN) DllStructSetData($iCStruct,15,$ParmO) DllStructSetData($iCStruct,16,$ParmP) EndSwitch DllStructSetData($iCStruct,22,$Address) DllStructSetData($iCStruct,18,$PmCount) DllStructSetData($iCStruct,19,1) While DllStructGetData($iCStruct,19) WEnd Return DllStructGetData($iCStruct,17) EndFunc Func RfS() ; Create Struct Of Ref Return DllStructCreate("Byte[8]") ; 8 Bytes 64 bit ;8 or 4 bytes will be copied while calling functions or less than ;two bytes and one byte. EndFunc Func RfP($RfStu) ; Get Ref Ptr Return DllStructGetPtr($RfStu) EndFunc Func RtD($RfPtr,$DType) ; conveort Data Type of Return Data ;Just if you want to return it to its original data type, it is ;possible to use it without returning it via the API functions Return DllStructGetData(DllStructCreate($DType,$RfPtr),1) EndFunc Func RfD($RfPtr,$DType = "DWORD") ; Get Ref Data with original data type Or with DWORD Data Type ;Just if you want to return it to its original data type, use $DType parameter .... it is ;possible to use it without returning it .... via the API functions ;This information, except for 64 bit data types, where this type of data must be returned ;to its origin, it is more than the size Of DWORD Return DllStructGetData(DllStructCreate($DType,$RfPtr),1) EndFunc Func F($Parm) ; Get Float Number In Dword Data Type $sParmA = DllStructCreate("FLOAT") DllStructSetData($sParmA,1,$Parm) Return DllStructGetData(DllStructCreate("DWORD",DllStructGetPtr($sParmA)),1) EndFunc Func D($Parm) ; Get Dword Number In FLOAT Data Type $sParmA = DllStructCreate("DWORD") DllStructSetData($sParmA,1,$Parm) Return DllStructGetData(DllStructCreate("FLOAT",DllStructGetPtr($sParmA)),1) EndFunc Func S($Parm,$UNICODE = False) ; Get String Ptr From String $Len = StringLen($Parm) + 1 Select Case $UNICODE = False $sParm = DllStructCreate("char[" & $Len & "]") DllStructSetData($sParm,1,$Parm) Return StructSetGlobal($sParm) Case $UNICODE = True $sParm = DllStructCreate("wchar[" & $Len & "]") DllStructSetData($sParm,1,$Parm) Return StructSetGlobal($sParm) EndSelect EndFunc Func P($Parm,$UNICODE = False) ; Get String From String Ptr Select Case $UNICODE = False $Len = FCall($Astr,1,$Parm) ;Call strlen Return DllStructGetData(DllStructCreate("char[" & $Len + 1 & "]",$Parm),1) Case $UNICODE = True $Len = FCall($Wstr,1,$Parm) ; Call wcslen Return DllStructGetData(DllStructCreate("wchar[" & $Len + 1 & "]",$Parm),1) EndSelect EndFunc Func StructSetGlobal($Struct) ; StructSetGlobal ;You can Set 40 Structs before deleting the first Struct /// $MaxGlobal = 40 Switch $GlobalStNum Case $MaxGlobal $StPtr = DllStructGetPtr($Struct) $GlobalStArray[$GlobalStNum - 1][0] = $Struct $GlobalStArray[$GlobalStNum - 1][1] = $StPtr $GlobalStNum = 1 Return $StPtr Case Else $StPtr = DllStructGetPtr($Struct) $GlobalStArray[$GlobalStNum - 1][0] = $Struct $GlobalStArray[$GlobalStNum - 1][1] = $StPtr $GlobalStNum += 1 Return $StPtr EndSwitch EndFunc Func FreeSetG($StPtr) ; Free StructSetGlobal($Struct) For $cNum = 0 To 39 if $GlobalStArray[$cNum][1] = $StPtr Then $GlobalStArray[$cNum][0] = "" Return True EndIf Next Return False EndFunc Func GAdd($ModuleName,$FuncName) ;Quick call Return GetAddress(GetModuleH($ModuleName),$FuncName) EndFunc Func GetAddress($hModule,$lpProcName) ;Quick call $FARPROC = DllCallAddress("ptr",$GAdd,"ptr",$hModule,"str",$lpProcName) Return $FARPROC[0] EndFunc Func GetModuleH($lpModuleName) ;Quick call $HMODULE = DllCallAddress("ptr",$GMhn,"wstr",$lpModuleName) Return $HMODULE[0] EndFunc Func GetModuleHandle($lpModuleName) ; Slow call $DType = "wstr" if IsInt($lpModuleName) Then $DType = "int" $HMODULE = DllCall("kernel32.dll","ptr","GetModuleHandleW",$DType,$lpModuleName) Return $HMODULE[0] EndFunc Func GtAdd($hModule,$lpProcName) ;Slow call $FARPROC = DllCall("kernel32.dll","ptr","GetProcAddress","ptr",$hModule,"str",$lpProcName) Return $FARPROC[0] EndFunc Func Load_Library($lpLibFileName) ;Quick call $HMODULE = DllCallAddress("ptr",$LoLb,"wstr",$lpLibFileName) Return $HMODULE[0] EndFunc Func LoadLibrary($lpLibFileName) ;Slow call $HMODULE = DllCall("kernel32.dll","ptr","LoadLibraryW","wstr",$lpLibFileName) Return $HMODULE[0] EndFunc Func FreeLibrary($hLibModule) $Return = DllCall("kernel32.dll","BOOL","FreeLibrary","ptr",$hLibModule) Return $Return[0] EndFunc Func CloseHandle($hObject) ;Quick call $Return = DllCallAddress("BOOL",$ClHd,"ptr",$hObject) Return $Return[0] EndFunc Example.au3 #include "Call_without_data_types.au3" ;With this code, Windows functions can be called without using types ;of Data ... Only need distinguish the int data type and the FLOAT data type ;This code calls functions that include data types of no more than ;32 bit ... function that includes 64-bit parameters cannot be called ;through this code ... Thank you. ; FCall($Address,$PmCount,$ParmA = 0, $ParmB = 0 ; Address : Address Of Function /// $PmCount : parameters Count /// ($ParmA = 0, $ParmB = 0 ....) parameters ;P() Get String From String Ptr ;S() Get String Ptr From String ;F() Get Float Number In Dword Data Type ;D() Get Dword Number In FLOAT Data Type ;RfS() Create Struct Of Ref ;RfP() Get Ref Ptr ;RfD() Get Ref Data with original data type Or with DWORD Data Type ;RtD() conveort Data Type of Return Data $Usr32 = FCall($GMhn , 1 , S("User32.dll",True)) ; LoadLibraryW(User32.dll) S("User32.dll",True)) UNICODE string $cMsgB = FCall($GAdd ,2 , $Usr32,S("MessageBoxA")) ; GetProcAddress(MessageBoxA) // S("MessageBoxA") ANSI string $Gewrt = FCall($GAdd,2 ,$Usr32,S("GetWindowRect")) ; GetProcAddress(GetWindowRect) $GPlus = FCall($LoLb,1,S("gdiplus.dll",True)) ; LoadLibraryW(gdiplus.dll) $StaUp = FCall($GAdd,2,$GPlus,S("GdiplusStartup")) ; GetProcAddress(GdiplusStartup) $CFotF = FCall($GAdd,2,$GPlus,S("GdipCreateFontFamilyFromName")) ; GetProcAddress(GdipCreateFontFamilyFromName) $CFont = FCall($GAdd,2 ,$GPlus,S("GdipCreateFont")) ; GetProcAddress(GdipCreateFont) $FSize = FCall($GAdd,2,$GPlus,S("GdipGetFontSize")) ; GetProcAddress(GdipGetFontSize) $Gdpsh = FCall($GAdd,2,$GPlus,S("GdiplusShutdown")) ; GetProcAddress(GdiplusShutdown) $FDelt = FCall($GAdd,2,$GPlus,S("GdipDeleteFont")) ; GetProcAddress(GdipDeleteFont) $FFDlt = FCall($GAdd,2,$GPlus,S("GdipDeleteFontFamily")) ; GetProcAddress(GdipDeleteFontFamily) $toupr = GAdd("msvcrt.dll","toupper") ; GetProcAddress For toupper Example() Func Example() $Return = FCall($cMsgB,4,0,S("Autoit"),S("Msg"),0x00000001) ; Call MessageBoxA $Return = "Return Of MessageBoxA Is " & $Return FCall($cMsgB,4,0,S($Return),S("Msg"),0) ; Call MessageBoxA $toupper = FCall($toupr,1,97) ; Asc("a") = 97 $toupper = "a = 97 toupper A = " & $toupper FCall($cMsgB,4,0,S($toupper),S("Msg"),0) ; Call MessageBoxA $Gui = GUICreate("Gui",200,200,100,100) GUISetState(@SW_SHOW) Sleep(100) $tagRECT = "LONG left;LONG top;LONG right;LONG bottom" $Rect = DllStructCreate($tagRECT) $BOOL = FCall($Gewrt,2,$Gui,DllStructGetPtr($Rect)) ;Call GetWindowRect Local $L = DllStructGetData($Rect,1) Local $T = DllStructGetData($Rect,2) Local $W = DllStructGetData($Rect,3) - $L Local $H = DllStructGetData($Rect,4) - $T FCall($cMsgB,4,0,S("L " & $L & " T " & $T & " W " & $W & " H " & $H),S("Msg"),0) ; Call MessageBoxA GUIDelete($Gui) $tegGpsInput = _ "UINT GdiplusVersion;" & _ "PTR DebugEventCallback;" & _ "BOOL SuppressBackgroundThread;" & _ "BOOL SuppressExternalCodecs;" $IpSt = DllStructCreate($tegGpsInput) DllStructSetData($IpSt,"GdiplusVersion",1) DllStructSetData($IpSt,"DebugEventCallback",0) DllStructSetData($IpSt,"SuppressBackgroundThread",0) DllStructSetData($IpSt,"SuppressExternalCodecs",0) $IpPtr = DllStructGetPtr($IpSt) $Stats = FCall($StaUp,3,$RfPA,$IpPtr,0) ; Call GdiplusStartup $Stats = FCall($CFotF,3,S("Arial",True),0,$RfPB) ; Call GdipCreateFontFamilyFromName $Stats = FCall($CFont,5,RfD($RfPB),F(5.5),0,3,$RfPC) ; Call GdipCreateFont Create Font Size Is 5.5 ;F(5.5) FLOAT values must be converted to DWORD equivalent because the call is made to a DWORD value $Stats = FCall($FSize,2,RfD($RfPC),$RfPD) ; Call GdipGetFontSize FCall($cMsgB,4,0,S("Get Font Size Is " & RfD($RfPD,"FLOAT")),S("Msg"),0) ; Call MessageBoxA ;RfD($RfPC,"FLOAT") Get Ref Data with original FLOAT Data Type $Stats = FCall($FDelt,1,RfD($RfPC)) ; call GdipDeleteFont $Stats = FCall($FFDlt,1,RfD($RfPB)) ; call GdipDeleteFontFamily $Stats = FCall($Gdpsh,1,$RfPA) ; Call GdiplusShutdown $yBOOL = FCall($Free,1,$Usr32) ; Call FreeLibrary $nBOOL = FCall($Free,1,$GPlus) ; Call FreeLibrary EndFunc compilers.au3 Free C++ Compiler https://www.autoitscript.com/forum/topic/202283-free-c-compiler/?tab=comments#comment-1451481 ;https://www.embarcadero.com/free-tools/ccompiler ;Free C++ Compiler ;The BCC32C/BCC32X Compiler is the high performance foundation and core technology of Embarcadero's ;award-winning C++Builder product line. ;This free download of the C++ Compiler for C++Builder includes C11 language support, the Dinkumware STL ;(Standard Template Library) framework, and the complete Embarcadero C/C++ Runtime Library (RTL). In this ;free version, you’ll also find a number of C/C++ command line tools—such as the high-performance linker ;and resource compiler. ;The Free C++ Compiler download includes: ;Embarcadero C++ Compiler (bcc32c/bcc32x) ;Turbo Incremental Linker (tlink32) ;C++ Win32 Preprocessor (cpp32) ;Import Library utility—for creating import libraries from DLLs (implib) ;Librarian for symbol case-conversion, creating extended libraries and modifying page size (tlib) ;Other useful command-line utilities such as make, grep, and touch ;Includes the Embarcadero C/C++ Runtime Library, and the DinkumwareANSI/ISO Standard Template Library (STL) ;bcc32c-101-Berlin-screenshot ;C++Builder includes compilers for Win64, macOS, iOS, and Android. And, C++Builder also features a modern, ;high-productivity RAD Studio IDE, debugger tools, and enterprise connectivity for to accelerate cross-platform ;UI development. Learn more about RAD Studio on its product page. ;C++ is avilable in three editions - Free, Community or Pro/Enterprise/Architect. Global $VisualStyles = True , $BCC102 = "D:\BCC102", $compExe = "bcc32c.exe" ; $compExe compiled Exe File Name Global $PFile = $BCC102 & "\yProject.cpp" ; C++ File Global $NewFile = "callWithoutDataTypes" ; New Out File Global $Exe_Dll = 2 ; /// 1 Exe File /// 2 Dll File // Else Numbers Choose One Switch $Exe_Dll Case 1 $FType = ".exe " $TCod = " -tW " ; Exe File Command Case 2 $FType = ".dll " $TCod = " -tWD " ; Dll File Command Case Else $Gui = GUICreate("compiled", 210 + 150, 80) GUICtrlCreateLabel("Please Choose One!", 10, 10) $Exe = GUICtrlCreateButton("Exe File", 10, 50, 100, 23) $DLL = GUICtrlCreateButton("Dll File", 80 + 50, 50, 100, 23) $Ext = GUICtrlCreateButton("Exit", 150 + 100, 50, 100, 23) GUISetState() While 1 $iMsg = GUIGetMsg() Select Case $iMsg = $Exe $FType = ".exe " $TCod = " -tW " ; Exe File Command ExitLoop Case $iMsg = $DLL $FType = ".dll " $TCod = " -tWD " ; Dll File Command ExitLoop Case $iMsg = -3 Or $iMsg = $Ext ; $GUI_EVENT_CLOSE = -3 Exit EndSelect WEnd GUIDelete($Gui) EndSwitch $Dir = @ScriptDir $yCompiled_File = $BCC102 & "\Bin\" & $compExe if Not FileExists($yCompiled_File) Then $BCC102 = FileSelectFolder("Choose BCC102","C:\") if @error Then Exit if Not FileExists($PFile) Then $PFile = FileOpenDialog("Choose C++ File",$Dir,"(*.cpp)",5) if @error Then Exit $NewFile &= $FType FileChangeDir($BCC102) $PFile = FileGetShortName($PFile) $Command = "Bin\" & $compExe & $TCod & "-IInclude -LLib -e" & $NewFile & $PFile & @CRLF & "Pause" if FileExists("Batch.bat") And Not FileDelete("Batch.bat") Then Exit FileWrite("Batch.bat",$Command) RunWait("Batch.bat") if $VisualStyles Then ;Enabling Visual Styles ;https://docs.microsoft.com/en-us/windows/win32/controls/cookbook-overview $ManiText = _ '<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">' & @CRLF & _ '<trustInfo xmlns="urn:schemas-microsoft-com:asm.v3">' & @CRLF & _ ' <security>' & @CRLF & _ ' <requestedPrivileges>' & @CRLF & _ ' <requestedExecutionLevel level="asInvoker" uiAccess="false">'& @CRLF & _ ' </requestedExecutionLevel>' & @CRLF & _ ' </requestedPrivileges>' & @CRLF & _ ' </security>' & @CRLF & _ ' </trustInfo>' & @CRLF & _ ' <dependency>' & @CRLF & _ ' <dependentAssembly>' & @CRLF & _ ' <assemblyIdentity type="win32" name="Microsoft.Windows.Common-Controls" version="6.0.0.0" language="*" processorArchitecture="*" publicKeyToken="6595b64144ccf1df"></assemblyIdentity>' & @CRLF & _ ' </dependentAssembly>' & @CRLF & _ ' </dependency>' & @CRLF & _ '</assembly>' $RT_MANIFEST = 24 $vDataStruct = StringToDataStruct($ManiText) $vlpData = DllStructGetPtr($vDataStruct) $vcbData = DllStructGetSize($vDataStruct) UpdateResource($NewFile,$RT_MANIFEST,1,$vlpData,$vcbData) EndIf FileDelete(@ScriptDir & "\callWithoutDataTypes.dll") FileCopy($NewFile,@ScriptDir & "\callWithoutDataTypes.dll") Func StringToDataStruct($Text) $Len = StringLen($Text) if $Len = 0 Then $Len = 1 $DataStruct = DllStructCreate("char[" & $Len & "]") DllStructSetData($DataStruct,1,$Text) Return $DataStruct EndFunc Func UpdateResource($Dll_Exe_File,$lpType,$lpName,$lpData,$cbData) $Handle = DllCall("kernel32.dll","HANDLE","BeginUpdateResourceW","wstr",$Dll_Exe_File,"BOOL",False) if @error Or $Handle[0] = 0 Then Return SetError(1,0,False) $Handle = $Handle[0] Select Case IsString($lpType) $DTypeA = "wstr" $lpType = StringUpper($lpType) Case Else $DTypeA = "long" $lpType = $lpType EndSelect Select Case IsString($lpName) $DTypeB = "wstr" $lpName = StringUpper($lpName) Case Else $DTypeB = "long" $lpName = $lpName EndSelect $BOOL = DllCall("kernel32.dll","BOOL","UpdateResourceW","HANDLE",$Handle,$DTypeA _ ,$lpType,$DTypeB,$lpName,"WORD",0,"ptr",$lpData,"DWORD",$cbData) if @error Or $BOOL[0] = 0 Then DllCall("kernel32.dll","BOOL","EndUpdateResourceW","HANDLE",$Handle,"BOOL",False) Return SetError(2,0,False) EndIf $BOOL = DllCall("kernel32.dll","BOOL","EndUpdateResourceW","HANDLE",$Handle,"BOOL",False) if @error Or $BOOL[0] = 0 Then Return SetError(3,0,False) Return SetError(0,0,True) EndFunc Call_without_data_types.cpp #include <stdio.h> #include <shlobj.h> DWORD WINAPI CallThread(LPVOID nCallPtr); typedef struct { DWORD ParameA; DWORD ParameB; DWORD ParameC; DWORD ParameD; DWORD ParameE; DWORD ParameF; DWORD ParameG; DWORD ParameH; DWORD ParameI; DWORD ParameJ; DWORD ParameK; DWORD ParameL; DWORD ParameM; DWORD ParameN; DWORD ParameO; DWORD ParameP; DWORD nReturn; DWORD PmCount; DWORD IsCallg; DWORD ClosThd; DWORD TheadId; LPVOID Address; LPVOID hThread; }CallSt,*CallPtr; #ifdef __cplusplus extern "C" { #endif __declspec(dllexport) BOOL WINAPI StartUp(LPVOID nCallPtr); #ifdef __cplusplus } #endif BOOL APIENTRY DllMain( HANDLE hModule, DWORD ul_reason_for_call, LPVOID lpReserved ) { switch (ul_reason_for_call) { case DLL_PROCESS_ATTACH: case DLL_THREAD_ATTACH: case DLL_THREAD_DETACH: case DLL_PROCESS_DETACH: break; } return TRUE; } BOOL WINAPI StartUp(LPVOID nCallPtr) { CallSt* cCallPtr = (CallSt*)nCallPtr; cCallPtr->hThread = CreateThread(NULL,0,CallThread,nCallPtr,0,&cCallPtr->TheadId); Sleep(300); return (cCallPtr->hThread != NULL); } DWORD WINAPI CallThread(LPVOID nCallPtr) { __asm { Start: mov ebx,nCallPtr CMP [ebx + 76],1 JZ Out CMP [ebx + 72],0 JZ Start CMP [ebx + 68],0 JZ TA CMP [ebx + 68],1 JZ TB CMP [ebx + 68],2 JZ TC CMP [ebx + 68],3 JZ TD CMP [ebx + 68],4 JZ TE CMP [ebx + 68],5 JZ TF CMP [ebx + 68],6 JZ TG CMP [ebx + 68],7 JZ TH CMP [ebx + 68],8 JZ TI CMP [ebx + 68],9 JZ TJ CMP [ebx + 68],10 JZ TK CMP [ebx + 68],11 JZ TL CMP [ebx + 68],12 JZ TM CMP [ebx + 68],13 JZ TN CMP [ebx + 68],14 JZ TO CMP [ebx + 68],15 JZ TP CMP [ebx + 68],16 JZ TQ mov [ebx + 72],0 JMP Start TA: call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TB: push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TC: push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TD: push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TE: push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TF: push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TG: push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TH: push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TI: push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TJ: push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TK: push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TL: push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TM: push DWORD PTR[ebx + 44] push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TN: push DWORD PTR[ebx + 48] push DWORD PTR[ebx + 44] push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TO: push DWORD PTR[ebx + 52] push DWORD PTR[ebx + 48] push DWORD PTR[ebx + 44] push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TP: push DWORD PTR[ebx + 56] push DWORD PTR[ebx + 52] push DWORD PTR[ebx + 48] push DWORD PTR[ebx + 44] push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start TQ: push DWORD PTR[ebx + 60] push DWORD PTR[ebx + 56] push DWORD PTR[ebx + 52] push DWORD PTR[ebx + 48] push DWORD PTR[ebx + 44] push DWORD PTR[ebx + 40] push DWORD PTR[ebx + 36] push DWORD PTR[ebx + 32] push DWORD PTR[ebx + 28] push DWORD PTR[ebx + 24] push DWORD PTR[ebx + 20] push DWORD PTR[ebx + 16] push DWORD PTR[ebx + 12] push DWORD PTR[ebx + 8] push DWORD PTR[ebx + 4] push DWORD PTR[ebx] call [ebx + 84] mov [ebx + 64],eax mov [ebx + 72],0 JMP Start Out: mov [ebx + 76],0 }; return 1; }

So I have an issue where _GUICtrlListBox_GetCaretIndex, which returns a zero-based index, is returning an unexpected value. When expecting a value of anything greater than 0, it actually returns -1 the expected value. So if I selected index 3, it would report index 2 being deleted. Strangely enough, the GUI end still works correctly. For your convenience, I have included some code to serve as a visual aid. #include <ButtonConstants.au3> #include <GUIConstantsEx.au3> #include <GUIListBox.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $hGUI = GUICreate("Test", 172, 292, 192, 125) $list_data_sample = GUICtrlCreateList("", 0, 0, 170, 253,0) GUICtrlSetData(-1, "Sample|Data|Is|Awesome") $button_Remove = GUICtrlCreateButton("Remove", 0, 253, 170, 20) $results = GUICtrlCreateLabel("Select from list, then click remove", 0, 272, 170, 17, $SS_CENTER) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit Case $button_Remove _GUICtrlListBox_DeleteString($list_data_sample, _GUICtrlListBox_GetCaretIndex($list_data_sample)) GUICtrlSetData($results,"zero-based index "&_GUICtrlListBox_GetCaretIndex($list_data_sample) & " deleted!") EndSwitch WEnd

Nice chat ... No problem, you can use whatever object you want ... The structure or the structure's functions on the Autoit language reference have usage information that you can read ... Thank you for your attention.

Edit your thread title to mark it as solved. Glad it is working for you,

@Deye Thank you for that suggestion. I see now what was the intent of your previous post. But the goal of the script is not to find specific files. Its goal is to search for specific content inside files. For example, I was also thinking of using RegExp. However, the RegExp would be applied to text in files not to file names. It is also important for me that the filter field can support multiple extensions. When I search for FreeBasic content, I need to search for both .bas and .bi. Of course I could merge all your features and mine into a single tool, but I need to think about. Thanks again for taking time to adapt your idea to the script. Maybe others can share their thoughts ?

Btw, this method faster: Global _ $tagCallstruct = "DWORD ParameA;DWORD ParameB;DWORD ParameC;DWORD ParameD;" & _ "DWORD ParameE;DWORD ParameF;DWORD ParameG;DWORD ParameH;DWORD ParameI;" & _ "DWORD ParameJ;DWORD ParameK;DWORD ParameL;DWORD ParameM;DWORD ParameN;" & _ "DWORD ParameO;DWORD ParameP;DWORD nReturn;DWORD PmCount;DWORD IsCallg;" & _ "DWORD ClosThd;DWORD TheadId;PTR Address;PTR hThread" $iCStruct = DllStructCreate($tagCallstruct) MsgBox(0, "Msg", "OK") $hTimerA = TimerInit() For $i = 0 To 100000 aFCall(0x0000, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) Next $fDiffA = TimerDiff($hTimerA) $iCStruct = DllStructCreate($tagCallstruct) MsgBox(0, "Msg", "OK") $hTimerB = TimerInit() For $i = 0 To 100000 bFCall(0x0000, 16, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0) Next $fDiffB = TimerDiff($hTimerB) MsgBox(0, "", $fDiffA & @CRLF & $fDiffB) Func aFCall($Address, $PmCount, $ParmA = 0, $ParmB = 0, $ParmC = 0, $ParmD = 0, _ $ParmE = 0, $ParmF = 0, $ParmG = 0, $ParmH = 0, $ParmI = 0, $ParmJ = 0, $ParmK = 0, $ParmL = 0 _ , $ParmM = 0, $ParmN = 0, $ParmO = 0, $ParmP = 0) ; FCall($Address,$PmCount,$ParmA = 0, $ParmB = 0 ; Address : Address Of Function /// $PmCount : parameters Count /// ($ParmA = 0, $ParmB = 0 ....) parameters Switch $PmCount Case 01 DllStructSetData($iCStruct, 1, $ParmA) Case 02 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) Case 03 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) Case 04 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) Case 05 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) Case 06 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) Case 07 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) Case 08 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) Case 09 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) Case 10 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) Case 11 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) Case 12 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) DllStructSetData($iCStruct, 12, $ParmL) Case 13 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) DllStructSetData($iCStruct, 12, $ParmL) DllStructSetData($iCStruct, 13, $ParmM) Case 14 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) DllStructSetData($iCStruct, 12, $ParmL) DllStructSetData($iCStruct, 13, $ParmM) DllStructSetData($iCStruct, 14, $ParmN) Case 15 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) DllStructSetData($iCStruct, 12, $ParmL) DllStructSetData($iCStruct, 13, $ParmM) DllStructSetData($iCStruct, 14, $ParmN) DllStructSetData($iCStruct, 15, $ParmO) Case 16 DllStructSetData($iCStruct, 1, $ParmA) DllStructSetData($iCStruct, 2, $ParmB) DllStructSetData($iCStruct, 3, $ParmC) DllStructSetData($iCStruct, 4, $ParmD) DllStructSetData($iCStruct, 5, $ParmE) DllStructSetData($iCStruct, 6, $ParmF) DllStructSetData($iCStruct, 7, $ParmG) DllStructSetData($iCStruct, 8, $ParmH) DllStructSetData($iCStruct, 9, $ParmI) DllStructSetData($iCStruct, 10, $ParmJ) DllStructSetData($iCStruct, 11, $ParmK) DllStructSetData($iCStruct, 12, $ParmL) DllStructSetData($iCStruct, 13, $ParmM) DllStructSetData($iCStruct, 14, $ParmN) DllStructSetData($iCStruct, 15, $ParmO) DllStructSetData($iCStruct, 16, $ParmP) EndSwitch EndFunc Func bFCall($Address, $PmCount, $ParmA = 0, $ParmB = 0, $ParmC = 0, $ParmD = 0, _ $ParmE = 0, $ParmF = 0, $ParmG = 0, $ParmH = 0, $ParmI = 0, $ParmJ = 0, $ParmK = 0, $ParmL = 0 _ , $ParmM = 0, $ParmN = 0, $ParmO = 0, $ParmP = 0) Switch $PmCount Case 01 $iCStruct.ParameA = $ParmA Case 02 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB Case 03 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC Case 04 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD Case 05 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE Case 06 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF Case 07 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG Case 08 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH Case 09 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI Case 10 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ Case 11 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK Case 12 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK $iCStruct.ParameL = $ParmL Case 13 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK $iCStruct.ParameL = $ParmL $iCStruct.ParameM = $ParmM Case 14 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK $iCStruct.ParameL = $ParmL $iCStruct.ParameM = $ParmM $iCStruct.ParameN = $ParmN Case 15 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK $iCStruct.ParameL = $ParmL $iCStruct.ParameM = $ParmM $iCStruct.ParameN = $ParmN $iCStruct.ParameO = $ParmO Case 16 $iCStruct.ParameA = $ParmA $iCStruct.ParameB = $ParmB $iCStruct.ParameC = $ParmC $iCStruct.ParameD = $ParmD $iCStruct.ParameE = $ParmE $iCStruct.ParameF = $ParmF $iCStruct.ParameG = $ParmG $iCStruct.ParameH = $ParmH $iCStruct.ParameI = $ParmI $iCStruct.ParameJ = $ParmJ $iCStruct.ParameK = $ParmK $iCStruct.ParameL = $ParmL $iCStruct.ParameM = $ParmM $iCStruct.ParameN = $ParmN $iCStruct.ParameO = $ParmO $iCStruct.ParameP = $ParmP EndSwitch EndFunc We need Assign to be able to set values for COM methods .

You actually do when I ask you to as stipulated in the forum rules. I think it is as this isn't a AU3 made game so it is against our rules. Jos *click*

I believe what you want can be accomplished by GUIRegisterMsg(). Check out _GUICtrlListView_Create the example is exactly what I'm talking about. You can catch single and double click on items...etc.