搬运英文论坛上某大大的帖子!关于au3写dll的!
刚刚在研究用au3写dll的问题,在官网上看到一牛人的帖子,想法很新颖,给大家转下帖子,开阔下思路。。。。不过实际上他的这个所谓的dll功能极其有限,速度慢,限制极多,下面回帖的人也说毫无意义。。。。。但总算是有个不错的想法。原帖地址:
http://www.autoitscript.com/forum/index.php?showtopic=116700&st=0&p=814117&hl=dll&fromsearch=1&#entry814117
他的思路就是把要调用的函数编译成可执行文件mydll.exe,然后函数名和参数作为程序的参数传给那个程序。。。。。。
第一个是dll.au3头文件,必须被mydll.au3和要调用函数的文件引用。
#include-once
#include <Process.au3>
#include <Array.au3>
#include <File.au3>
Func _DLL_StartUp()
Opt("TrayIconHide",1)
If Not(@Compiled) Then
$vGetDLL = "1234.tmp;_ToolTip;www.team-sl4.com;wow a tooltip :O"
Else
$vGetDLL = $CmdLine
EndIf
If Not($vGetDLL= "") Then
$vStringSplit = StringSplit($vGetDLL,";")
Global $DLL_ID = $vStringSplit
;_ArrayDisplay($vStringSplit) ; could be very helpful :P
If $vStringSplit = 2 Then
Call($vStringSplit)
ElseIf $vStringSplit = 3 Then
Call($vStringSplit,$vStringSplit)
ElseIf $vStringSplit = 4 Then
Call($vStringSplit,$vStringSplit,$vStringSplit)
ElseIf $vStringSplit = 5 Then
Call($vStringSplit,$vStringSplit,$vStringSplit,$vStringSplit)
EndIf
Else
Exit
EndIf
EndFunc
Func _DLL_Return($vReturn)
Dim $DLL_ID
$vFileOpen = FileOpen(@TempDir & "\" & $DLL_ID,2)
FileWrite($vFileOpen,$vReturn)
FileClose($vFileOpen)
Exit
EndFunc
Func _DLL_Call($vFile,$vFunction)
$vTempFile = Random(1000,9999,1) & ".tmp"
_RunDOS($vFile & " " & $vTempFile & ";" & $vFunction)
$vFileOpen = FileOpen(@TempDir & "\" & $vTempFile,0)
$vFileRead = FileRead($vFileOpen)
FileClose($vFileOpen)
FileDelete(@TempDir & "\" & $vTempFile)
Return $vFileRead
EndFunc
第二个是mydll.au3,编译成mydll.exe,其中包含需要被其他程序调用的函数.....
#include <DLL.au3>
;you can not run this file
;this is a fake dll!
_DLL_StartUp()
Func _MsgBox($vID,$vTitle,$vText)
Dim $iMsgBox
$iMsgBox = MsgBox($vID,$vTitle,$vText)
_DLL_Return($iMsgBox)
EndFunc
Func _ToolTip($vTitle,$vText)
Dim $iToolTip
ToolTip($vText,1,1,$vTitle)
Sleep(1000*5)
_DLL_Return($iToolTip)
EndFunc
Func _Calculate($Var1,$Var2)
_DLL_Return($Var1+$Var2)
EndFunc
然后是他给的一个例子,调用了mydll.au3之中的函数:
#include <DLL.au3>
$MsgBox1 = _DLL_Call("mydll.exe","_MsgBox;64;www.team-sl4.com;text goes here...")
MsgBox(1,"Return",$MsgBox1)
$MsgBox2 = _DLL_Call("mydll.exe","_MsgBox;1;www.team-sl4.com;another msgbox :P")
MsgBox(1,"Return",$MsgBox2)
_DLL_Call("mydll.exe","_ToolTip;www.team-sl4.com;wow a tooltip :O")
MsgBox(1,"","As you see... everything works fine... now lets calculate with a fake dll call ;)" & @CRLF & "5+3=?")
MsgBox(1,"","5+3=" & @CRLF & _DLL_Call("mydll.exe","_Calculate;5;3"))
说真的,这东西都是骗人的。。。。。连他自己也说这个是fake dll。。。。。
几个人的回帖就不那么客气了,
第一个人说,真他妈的慢(因为要用文件和命令行),而且毫无意义。。。。。
第二个人问,这是干嘛的。。。。。
直到12楼才有人说,想法不错。。。。。 真能写个dll就好了
页:
[1]