ChenYangHuan Posted February 22, 2013 Share 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 Link to comment Share on other sites More sharing options...
PhoenixXL Posted February 22, 2013 Share 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. Link to comment Share on other sites More sharing options...
funkey Posted February 28, 2013 Share 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. Link to comment Share on other sites More sharing options...
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