Что нового

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

SyDr

Сидра
Сообщения
651
Репутация
158
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

Продвинутый
Сообщения
390
Репутация
57
Прикольно, хоть и видел уже...
:smile:
 

TicTac

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

Vlasssov

Осваивающий
Сообщения
428
Репутация
25
А у меня при использовании MouseMove в приложении, почему-то курсор мыши не двигается.... Вроде дополнительных флагов не надо никаких...
 
Автор
SyDr

SyDr

Сидра
Сообщения
651
Репутация
158
TicTac сказал(а):
это не "пьяная" мышка, а рандомная. для "пьяной" нужно что бе она "качалась", например ведеш вверх и она болтается влево вправо
Написал "почти пьяную"... Теперь при перемещении курсора он будет скакать в разные стороны))) Попробуйте в Paint прямую линию нарисовать. :smile:
Поделитесь ещё какими-ибудь идеями. Мне интересно, каким ещё образом курсор может "беситься" :smile:

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

Vlasssov

Осваивающий
Сообщения
428
Репутация
25
SyDr сказал(а):
Vlasssov сказал(а):
А у меня при использовании MouseMove в приложении, почему-то курсор мыши не двигается.... Вроде дополнительных флагов не надо никаких...
В каком приложении? В полноэкранном?
Да нет в обыкновенном Windows приложении
 

FlatX007

Tattoo!
Сообщения
174
Репутация
33
Код:
#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

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