微剋多資訊

 找回密碼
 註冊

Login

Login

搜索
回覆 0則 瀏覽 719篇

[碼源] 放大鏡 Dll 調用 演示

該用戶從未簽到

發表於 2012-9-4 10:49 | 顯示全部樓層 |閱讀模式
本帖最後由 rictirse 於 2014-12-5 16:32 編輯
  1. Global $SRCCOPY = 0x00CC0020
  2. Global $leave = 0

  3. HotKeySet ("","leave")
  4. HotKeySet ("{ESC}","_Exit")

  5. SplashTextOn ( "AU3MAG", "" , 100 , 100 , 0, 0, 1 )
  6. $MyhWnd = WinGetHandle("AU3MAG")

  7. While Not $leave
  8.   Sleep(25)
  9.    MAG()
  10. WEnd

  11. Func MAG()
  12.   $MyHDC = DLLCall("user32.dll","int","GetDC","hwnd",$MyhWnd)
  13.   If @error Then Return
  14.   $DeskHDC = DLLCall("user32.dll","int","GetDC","hwnd",0)
  15.   If Not @error Then
  16.      $xy = MouseGetPos()
  17.      If Not @error Then
  18.         $l = $xy[0]-10
  19.         $t = $xy[1]-10
  20.         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)
  21.      EndIf
  22.      DLLCall("user32.dll","int","ReleaseDC","int",$DeskHDC[0],"hwnd",0)
  23.   EndIf
  24.   DLLCall("user32.dll","int","ReleaseDC","int",$MyHDC[0],"hwnd",$MyhWnd)
  25. EndFunc

  26. Func leave()
  27.   $leave = 1
  28. EndFunc

  29. Func _Exit()
  30.         Exit
  31. EndFunc
複製代碼

本帖子中包含更多資源

您需要 登入 才可以下載或查看,沒有帳號?註冊

x
您需要登入後才可以回帖 登入 | 註冊

本版積分規則

小黑屋|Archiver|微剋多資訊(MicroDuo)

GMT+8, 2016-12-5 06:22

Discuz! X

© 2009-2016 Microduo

快速回覆 返回頂部 返回列表