ChenYangHuan Posted February 22, 2013 Posted February 22, 2013 (edited) expandcollapse popup#Include $DLLFile = FileOpenDialog("Choose DLL file", @ScriptDir, "DLL files (*.*)", 3) if @error Then Exit $aNames = _DLLGetFunctionNames($DLLFile) If @error Then Exit ConsoleWrite($DLLFile &": Fault " & @error & @CR) ;~ $sNames = _DLLGetFunctionNames($DLLFile, 1) ;~ ConsoleWrite($sNames & @CRLF) _ArrayDisplay($aNames, StringTrimLeft($DLLFile, StringInStr($DLLFile, "\", 0, -1))) For $i=0 To 768 If StringInStr($aNames[$i],'Create')<>0 Then MsgBox(0,$i,$aNames[$i]) Next Func _DLLGetFunctionNames($sFileName, $ParamResult = 0) ;funkey Aug, 12th, 2010 ;$ParamOutput: 0 --> Result is array ; 1 --> Result is string Local $hFile = FileOpen($sFileName, 0) If $hFile = -1 Then Return SetError(1) ; file error Local $sFile = FileRead($hFile) FileClose($hFile) Local $iStartPos, $iEndPos, $sFunctionNames, $aFunctionNames Local $DLLName = StringTrimLeft($sFileName, StringInStr($sFileName, "\", 0, -1)) For $i = 1 To 99 $iStartPos = StringInStr($sFile, $DLLName & Chr(0), 0, -$i) If $iStartPos = 0 Then Return SetError(2) ;search error $sFunctionNames = StringTrimLeft($sFile, $iStartPos - 2) $sFunctionNames = StringTrimLeft($sFunctionNames, StringInStr($sFunctionNames, "dll") + 3) $iEndPos = StringInStr($sFunctionNames, Chr(0) & Chr(0)) $sFunctionNames = StringLeft($sFunctionNames, $iEndPos - 1) If StringInStr($sFunctionNames, Chr(0) & Chr(0x90)) Then $sFunctionNames = StringLeft($sFunctionNames, StringInStr($sFunctionNames, Chr(0) & Chr(0x90)) - 1) $aFunctionNames = StringSplit($sFunctionNames, Chr(0), 2) If UBound($aFunctionNames) > 0 And StringStripWS($aFunctionNames[0], 8) <> "" Then ExitLoop Next Switch $ParamResult Case 0 Return $aFunctionNames Case 1 Return StringReplace($sFunctionNames, Chr(0), @CRLF) EndSwitch EndFunc This show func but when use it show function not found, please help me! $dr=@ScriptDir&('\PDUConverter.dll') $a=DllCall($dr,'str','CreateConcatTextMessage','str','This is text','bool',True,'str','123456789') MsgBox(0,'',@error) MsgBox(0,'',$a)PDUConverter.zip Edited February 22, 2013 by ChenYangHuan
PhoenixXL Posted February 22, 2013 Posted February 22, 2013 (edited) Search the Forum for DLL Helper It was written by YashiedUsing that I found that there is not a single function in that DLLMaybe its a COM(ACTIVEX) DLL Edited February 22, 2013 by PhoenixXL My code: PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners. MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression.
funkey Posted February 28, 2013 Posted February 28, 2013 As far as I see this is a .NET Library. You can not use it directly in AutoIt. Programming today is a race between software engineers striving tobuild bigger and better idiot-proof programs, and the Universetrying to produce bigger and better idiots.So far, the Universe is winning.
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now