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

sanmoking

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

xiaoy

好像只能用bmp格式的图片

Duvet

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

1. ;_JPG2BMP($jpg,$bmp) 函數取自 顽固不化 改成的
   
2. ;http://www.autoitx.com/forum.php?mod=redirect&goto=findpost&ptid=11315&pid=115901&fromuid=7653106]
   
3. #include <GUIConstantsEx.au3>
   
4. #include <ScreenCapture.au3>
   
5. #Include <WinAPI.au3>
   
6. #include <GDIPlus.au3>
   
7. 
   
8. Local $a = 497
   
9. Local $b = 54
   
10. 
    
11. _ScreenCapture_Capture(@TempDir & "\GDIPlus_Image0.bmp",0,0,$a,$b)
    
12. _Photo_Flip(@TempDir & "\GDIPlus_Image0.bmp",1,@TempDir & "\GDIPlus_Image1.jpg")
    
13. _JPG2BMP(@TempDir & "\GDIPlus_Image1.jpg",@TempDir & "\GDIPlus_Image1.bmp")
    
14. 
    
15. $Form1 = GUICreate("",497,54)
    
16. $t = _WinAPI_LoadImage(0,@TempDir & "\GDIPlus_Image1.bmp",0,0,0,0x2010)
    
17. $d = DllOpen(@ScriptDir&"\waterctrl.dll")
    
18. $d = DllCall($d,"int","enablewater","HWND",$Form1,"int",0,"int",0,"ptr",$t,"int",3,"int",50)
    
19. GUISetState()
    
20. While GUIGetMsg() <> $GUI_EVENT_CLOSE
    
21.         Sleep(100)
    
22. WEnd
    
23. 
    
24. 
    
25. Func _Photo_Flip($Path,$Dire,$OutPath)
    
26. If Not FileExists($Path) Then Return -1       
    
27.         $Jpeg=_Photo_OpenCalss($Path)       
    
28.         With $Jpeg
    
29.                 If $Dire=1 Then
    
30.                         .FlipV
    
31.                 Else
    
32.                         .FlipH
    
33.                 EndIf
    
34.                 .Save($OutPath)
    
35.         EndWith
    
36.         $Jpeg.Close
    
37. EndFunc;;;;;;;上下左右翻转 _Photo_Flip("7.jpg","","x.jpg")
    
38. 
    
39. Func _Photo_OpenCalss($Path)
    
40.         If Not FileExists($Path) Then Return -1       
    
41.         $Jpeg = ObjCreate("Persits.Jpeg")
    
42.         If Not IsObj($Jpeg) Then
    
43.                 FileCopy(@ScriptDir&"\aspjpeg.dll",@SystemDir,1)
    
44.                 RunWait("Regsvr32 /s "& @SystemDir & "\aspjpeg.dll")
    
45.                 RegWrite("HKLM\SOFTWARE\Persits Software\AspJpeg\RegKey","","REG_SZ","48958-77556-02411")
    
46.                 $Jpeg = ObjCreate("Persits.Jpeg")
    
47.         EndIf
    
48.         If $Jpeg.Version = "1.9.0.0" Then $Jpeg.PreserveMetadata = True
    
49.         $Jpeg.Interpolation=2 ;;;图像加强(0-2)
    
50.         $Jpeg.Quality=100     ;;;;图片质量(0-100)
    
51.         $Jpeg.Open ($Path)
    
52.         Return $Jpeg
    
53. EndFunc
    
54. 
    
55. Func _JPG2BMP($jpg,$bmp)
    
56.         Local $hImage, $CLSID
    
57.         _GDIPlus_Startup()
    
58.         $hImage = _GDIPlus_ImageLoadFromFile($jpg)
    
59.         $CLSID = _GDIPlus_EncodersGetCLSID("BMP")
    
60.         _GDIPlus_ImageSaveToFileEx($hImage, $bmp, $CLSID)
    
61.         _GDIPlus_Shutdown()
    
62. 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

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