【已解决】AU3能做出“鼠标划过水面”的动态效果么？（内详带图）

sanmoking

似乎是bmp格式的问题，我也弄不清楚

xiaoy

好像只能用bmp格式的图片

Duvet

回复 45# xiaoy
四樓的代碼還有網路上找到的都是 Bmp:HBITMAP，如果要實現只能將jpg轉成bmp在調用
回复 48# sanmoking
persits.jpeg只能輸出jpg、gif的格式

;_JPG2BMP($jpg,$bmp) 函數取自 顽固不化 改成的
;http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&ptid=11315&pid=115901&fromuid=7653106]
#include <GUIConstantsEx.au3>
#include <ScreenCapture.au3>
#Include <WinAPI.au3>
#include <GDIPlus.au3>

Local $a = 497
Local $b = 54

_ScreenCapture_Capture(@TempDir & "\GDIPlus_Image0.bmp",0,0,$a,$b)
_Photo_Flip(@TempDir & "\GDIPlus_Image0.bmp",1,@TempDir & "\GDIPlus_Image1.jpg")
_JPG2BMP(@TempDir & "\GDIPlus_Image1.jpg",@TempDir & "\GDIPlus_Image1.bmp")

$Form1 = GUICreate("",497,54)
$t = _WinAPI_LoadImage(0,@TempDir & "\GDIPlus_Image1.bmp",0,0,0,0x2010)
$d = DllOpen(@ScriptDir&"\waterctrl.dll")
$d = DllCall($d,"int","enablewater","HWND",$Form1,"int",0,"int",0,"ptr",$t,"int",3,"int",50)
GUISetState()
While GUIGetMsg() <> $GUI_EVENT_CLOSE
        Sleep(100)
WEnd


Func _Photo_Flip($Path,$Dire,$OutPath)
If Not FileExists($Path) Then Return -1        
        $Jpeg=_Photo_OpenCalss($Path)        
        With $Jpeg
                If $Dire=1 Then 
                        .FlipV
                Else
                        .FlipH
                EndIf
                .Save($OutPath)
        EndWith
        $Jpeg.Close
EndFunc;;;;;;;上下左右翻转 _Photo_Flip("7.jpg","","x.jpg")

Func _Photo_OpenCalss($Path) 
        If Not FileExists($Path) Then Return -1        
        $Jpeg = ObjCreate("Persits.Jpeg")
        If Not IsObj($Jpeg) Then
                FileCopy(@ScriptDir&"\aspjpeg.dll",@SystemDir,1)
                RunWait("Regsvr32 /s "& @SystemDir & "\aspjpeg.dll")
                RegWrite("HKLM\SOFTWARE\Persits Software\AspJpeg\RegKey","","REG_SZ","48958-77556-02411")
                $Jpeg = ObjCreate("Persits.Jpeg")
        EndIf
        If $Jpeg.Version = "1.9.0.0" Then $Jpeg.PreserveMetadata = True
        $Jpeg.Interpolation=2 ;;;图像加强(0-2)
        $Jpeg.Quality=100     ;;;;图片质量(0-100)
        $Jpeg.Open ($Path)
        Return $Jpeg
EndFunc

Func _JPG2BMP($jpg,$bmp)
        Local $hImage, $CLSID
        _GDIPlus_Startup()
        $hImage = _GDIPlus_ImageLoadFromFile($jpg)
        $CLSID = _GDIPlus_EncodersGetCLSID("BMP")
        _GDIPlus_ImageSaveToFileEx($hImage, $bmp, $CLSID)
        _GDIPlus_Shutdown()
EndFunc   ;==>_JPG2BMP

rolaka

回复  rolaka
Duvet 发表于 2010-8-17 14:44

    明白了 要用dllopen dllcall不行- -

afan

根据Duvet 大虾调用dll的例子修改，将dll文件写进了函数“waterctrl.dll.au3”，不再需要dll文件，方便调用，需要的可以下载测试~
有时间再完善~

xiaoy

afan:

zcx880517

回复 52# afan


A版就是牛X  效果很好哦。。

afan

回复 53# xiaoy

Au3Check 一直都对函数内申明的全局变量报错，完全可以无视~ 继续运行 或 直接运行
或者可以重现下载，我已修改了这个问题

afan

回复 53# xiaoy


    话说 If $___sDll___Filename[0] = -1 Then ...怎么在你那成了 If $___sDll___Filename[0] = __1 Then ...，真是怪异哦

已增加详细参数，更方便调用。http://www.autoitx.com/thread-17705-1-1.html

afan

另外发现出错很可能是Au3版本过旧原因，可更换高版本测试

xiaoy

感谢版主精心回复，支持！