[Приколы] MouseDrink (Пьяная >_< мышка)

[SyDr]

AutoIt: 3.3.0.0
Версия: 1.0
Категория: Разное
Описание: 1) С заданным интервалом перемещает курсор в случайную точку на экране. Для выхода из скрипта следует нажать Escape.
2) При перемещении курсора перемещает его в случайную точку, отстояющую от текущей точки не более, чем на заданное расстояние, заданное число раз.

;~ TrayTip("MouseDrink", "Для выхода следует нажать Esc" & @CRLF & "Время отображения данной подсказки - 20 секунд", 20)
HotKeySet("{Esc}", "ExitFunc")

$nMaxX = @DesktopHeight
$nMaxY = @DesktopWidth
$nTime = 5
$nSpeed = 0

While 1
	$nNextX = Random(0, $nMaxX)
	$nNextY = Random(0, $nMaxY)

	MouseMove($nNextX, $nNextY, $nSpeed)

	Sleep($nTime)
Wend


Func ExitFunc()
;~ 	TrayTip("", "", 0)
	Exit
EndFunc

;~ TrayTip("MouseDrink", "Для выхода следует нажать Esc" & @CRLF & "Время отображения данной подсказки - 20 секунд", 20)
HotKeySet("{Esc}", "ExitFunc")

Global $anCurrPos[2], $anPrevPos[2]
Global Const $nSpeed = 0
Global Const $nSc = 10 ;разброс перемещения мыши
Global Const $nN = 10 ;число скачков

$anCurrPos = MouseGetPos()
$anPrevPos = $anCurrPos

While 1
	$anCurrPos = MouseGetPos()

	If ($anCurrPos[1] <> $anPrevPos[1]) Or ($anCurrPos[0] <> $anPrevPos[0]) Then
		$anPrevPos = $anCurrPos
		For $nI = 1 To $nN
			MouseMove(Random($anCurrPos[0] - $nSc, $anCurrPos[0] + $nSc, 1), Random($anCurrPos[1] - $nSc, $anCurrPos[1] + $nSc, 1), $nSpeed)
		Next
	EndIf

	$anCurrPos = MouseGetPos() ;если заккоментировать -> мышка будет дольше "отходить" от алкоголя (пока не вернётся в нужную точку)
	$anPrevPos = $anCurrPos
	Sleep(5)
Wend

Func ExitFunc()
;~ 	TrayTip("", "", 0)
	Exit
EndFunc

Источник: SyDr

 

[SECTOR]

Прикольно, хоть и видел уже...

 

[TicTac]

это не "пьяная" мышка, а рандомная. для "пьяной" нужно что бе она "качалась", например ведеш вверх и она болтается влево вправо

 

[vcomp71]

А у меня при использовании MouseMove в приложении, почему-то курсор мыши не двигается.... Вроде дополнительных флагов не надо никаких...

 

[SyDr]

это не "пьяная" мышка, а рандомная. для "пьяной" нужно что бе она "качалась", например ведеш вверх и она болтается влево вправо

Написал "почти пьяную"... Теперь при перемещении курсора он будет скакать в разные стороны))) Попробуйте в Paint прямую линию нарисовать.
Поделитесь ещё какими-ибудь идеями. Мне интересно, каким ещё образом курсор может "беситься"

А у меня при использовании MouseMove в приложении, почему-то курсор мыши не двигается.... Вроде дополнительных флагов не надо никаких...

В каком приложении? В полноэкранном?

 

[vcomp71]

А у меня при использовании MouseMove в приложении, почему-то курсор мыши не двигается.... Вроде дополнительных флагов не надо никаких...

В каком приложении? В полноэкранном?

Да нет в обыкновенном Windows приложении

 

[FlatX007]

#NoTrayIcon

Global $iMouse_Pos_1, $iMouse_Pos_2

If WinExists(@ScriptName) Then Exit
AutoItWinSetTitle(@ScriptName)

Dim $aParam[2]
	$aParam[0] = "+-+-+-+-+-+"
	$aParam[1] = "-+-+-+-+-+-"

While 1
	
	Sleep(100)
	$aMousePos = MouseGetPos()

	For $i = 0 To UBound($aParam) - 1
		$iRandomSimbol =  StringMid($aParam[$i], Round (Random(1, StringLen($aParam[$i]))), 1)
		$iMousePos = $aMousePos[0]
		$iMousePos1 = $aMousePos[1]
		$iRandomNumber = Round(Random(1, 50))

		ConsoleWrite(Execute("$iMousePos & $iRandomSimbol & $iRandomNumber") & @CRLF)

		If $iMouse_Pos_1 <> $aMousePos[0] And $iMouse_Pos_2 <> $aMousePos[1] Then
			MouseMove($iMousePos + $iRandomSimbol + $iRandomNumber, $iMousePos1 + $iRandomSimbol + $iRandomNumber)
		EndIf
	Next

	$aMousePos_1 = MouseGetPos()
	$iMouse_Pos_1 = $aMousePos_1[0]
	$iMouse_Pos_2 = $aMousePos_1[1]

WEnd

 

[zlo-kazan]

Блин... почему раньше в голову не приходило с помощью AutoIt создовать кисти для Paint!!! :IL_AutoIt_1:
Получилась прикольная кисть напоминающая колючую проволоку..