Untitled

SUBMITTED BY: Guest

DATE: May 24, 2014, 2:58 p.m.

FORMAT: Text only

SIZE: 3.0 kB

Raw Download

HITS: 64538

Report
  1. #include <Misc.au3>
  2. #include <WinAPI.au3>
  3. #include <WindowsConstants.au3>
  5. Global $iX1, $iY1, $iX2, $iY2
  6. Mark_Rect()
  8. $aCount = InputBox("PTCircle", "Ile razy kliknąć?");ile razy
  9. $intSleep = 30000 ;odstepy (milisekundy)
  11. For $i = 1 To $aCount
  12. MouseClick("left",Random($iX1, $iX2, 1), Random($iY1, $iY2, 1))
  13. Sleep($intSleep)
  14. Send("^w")
  15. Next
  17. Func Mark_Rect()
  18. Local $aMouse_Pos, $hMask, $hMaster_Mask, $iTemp
  19. Local $UserDLL = DllOpen("user32.dll")
  20. Global $hRectangle_GUI = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP, $WS_EX_TOOLWINDOW + $WS_EX_TOPMOST)
  21. _GUICreateInvRect($hRectangle_GUI, 0, 0, 1, 1)
  22. GUISetBkColor(0)
  23. WinSetTrans($hRectangle_GUI, "", 50)
  24. GUISetState(@SW_SHOW, $hRectangle_GUI)
  25. GUISetCursor(3, 1, $hRectangle_GUI)
  26. While Not _IsPressed("01", $UserDLL)
  27. Sleep(10)
  28. WEnd
  29. $aMouse_Pos = MouseGetPos()
  30. $iX1 = $aMouse_Pos[0]
  31. $iY1 = $aMouse_Pos[1]
  32. While _IsPressed("01", $UserDLL)
  33. $aMouse_Pos = MouseGetPos()
  34. If $aMouse_Pos[0] < $iX1 Then
  35. $iX_Pos = $aMouse_Pos[0]
  36. $iWidth = $iX1 - $aMouse_Pos[0]
  37. Else
  38. $iX_Pos = $iX1
  39. $iWidth = $aMouse_Pos[0] - $iX1
  40. EndIf
  41. If $aMouse_Pos[1] < $iY1 Then
  42. $iY_Pos = $aMouse_Pos[1]
  43. $iHeight = $iY1 - $aMouse_Pos[1]
  44. Else
  45. $iY_Pos = $iY1
  46. $iHeight = $aMouse_Pos[1] - $iY1
  47. EndIf
  48. _GUICreateInvRect($hRectangle_GUI, $iX_Pos, $iY_Pos, $iWidth, $iHeight)
  49. Sleep(10)
  50. WEnd
  51. $iX2 = $aMouse_Pos[0]
  52. $iY2 = $aMouse_Pos[1]
  53. If $iX2 < $iX1 Then
  54. $iTemp = $iX1
  55. $iX1 = $iX2
  56. $iX2 = $iTemp
  57. EndIf
  58. If $iY2 < $iY1 Then
  59. $iTemp = $iY1
  60. $iY1 = $iY2
  61. $iY2 = $iTemp
  62. EndIf
  63. GUIDelete($hRectangle_GUI)
  64. DllClose($UserDLL)
  65. EndFunc ;==>Mark_Rect
  67. Func _GUICreateInvRect($hWnd, $iX, $iY, $iW, $iH)
  68. $hMask_1 = _WinAPI_CreateRectRgn(0, 0, @DesktopWidth, $iY)
  69. $hMask_2 = _WinAPI_CreateRectRgn(0, 0, $iX, @DesktopHeight)
  70. $hMask_3 = _WinAPI_CreateRectRgn($iX + $iW, 0, @DesktopWidth, @DesktopHeight)
  71. $hMask_4 = _WinAPI_CreateRectRgn(0, $iY + $iH, @DesktopWidth, @DesktopHeight)
  72. _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_2, 2)
  73. _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_3, 2)
  74. _WinAPI_CombineRgn($hMask_1, $hMask_1, $hMask_4, 2)
  75. _WinAPI_DeleteObject($hMask_2)
  76. _WinAPI_DeleteObject($hMask_3)
  77. _WinAPI_DeleteObject($hMask_4)
  78. _WinAPI_SetWindowRgn($hWnd, $hMask_1, 1)
  79. EndFunc ;==>_GUICreateInvRect
comments powered by Disqus