放大鏡 Dll 調用 演示

rictirse

1. Global $SRCCOPY = 0x00CC0020
   
2. Global $leave = 0
   
3. 
   
4. HotKeySet ("","leave")
   
5. HotKeySet ("{ESC}","_Exit")
   
6. 
   
7. SplashTextOn ( "AU3MAG", "" , 100 , 100 , 0, 0, 1 )
   
8. $MyhWnd = WinGetHandle("AU3MAG")
   
9. 
   
10. While Not $leave
    
11.   Sleep(25)
    
12.    MAG()
    
13. WEnd
    
14. 
    
15. Func MAG()
    
16.   $MyHDC = DLLCall("user32.dll","int","GetDC","hwnd",$MyhWnd)
    
17.   If @error Then Return
    
18.   $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0)
    
19.   If Not @error Then
    
20.      $xy = MouseGetPos()
    
21.      If Not @error Then
    
22.         $l = $xy[0]-10
    
23.         $t = $xy[1]-10
    
24.         DLLCall("gdi32.dll","int","StretchBlt","int",$MyHDC[0],"int",0,"int",0,"int",100,"int",100,"int",$DeskHDC[0],"int",  $l,"int",$t,"int",20,"int",20,"long",$SRCCOPY)
    
25.      EndIf
    
26.      DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0)
    
27.   EndIf
    
28.   DLLCall("user32.dll","int","ReleaseDC","int",$MyHDC[0],"hwnd",$MyhWnd)
    
29. EndFunc
    
30. 
    
31. Func leave()
    
32.   $leave = 1
    
33. EndFunc
    
34. 
    
35. Func _Exit()
    
36.         Exit
    
37. EndFunc

複製代碼