Что нового

[Мышь, клавиатура] выполнить случайный выбор из предложенных вариантов

Safron9999

Новичок
Сообщения
42
Репутация
0
подскажите пожалуйста как сделать так, чтобы при соблюдении условия выполнялся случайный выбор из предложенных вариантов?
Код:
If "0x" & Hex(PixelGetColor(1087, 359),6) = 0x690000 Then
	   MouseClick("left",1087,359,1)
или
           MouseClick("left",1087,359,1)


заранее спасибо!
 

Arei

Скриптер
Сообщения
938
Репутация
115
Код:
If "0x" & Hex(PixelGetColor(1087, 359),6) = 0x690000 Then
       MouseClick("left",1087,359,1)
else
           MouseClick("left",1087,359,1)
endif

так?
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
623
Код:
If "0x" & Hex(PixelGetColor(1087, 359),6) = 0x690000 Then
    Call('Mouse' & Random(1, 2, 1))
EndIf

Func Mouse1()
    MouseClick("left",1087,359,1)
End

Func Mouse2()
    MouseClick("left",1087,359,1)
EndFunc
 

jilexandr

Знающий
Сообщения
129
Репутация
6
Код:
If "0x" & Hex(PixelGetColor(1087, 359),6) = 0x690000 Then
$rand = Random(1,2,1)
		If $rand = 1 Then
		MouseClick("left",1087,359,1)
		Else
		MouseClick("left",1087,359,1)
endif
endif


так будет? :laugh:
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,320
Safron9999,
Код:
$iColor = 10000

For $i = 1 To 10
	If $iColor Then
		_RandomClick()
	EndIf
Next

Func _RandomClick($i_Min = 0, $i_Max = 4)
	Local $iRandom, $i_X = 1087, $i_Y = 359
	If $i_Min < -4 Then $i_Min = 0
	If $i_Max > 4 Then $i_Max = 4
	If $i_Min >= $i_Max Then
		$i_Min = 0
		$i_Max = 4
	EndIf
	$iRandom = Random($i_Min, $i_Max, 1)
	If Mod($iRandom, 2) Then
		$i_X += $iRandom
		$i_Y -= $iRandom
	Else
		$i_X -= $iRandom
		$i_Y += $iRandom
	EndIf
	MsgBox(64, 'Info', 'iRandom = ' & $iRandom & @LF & 'X = ' & $i_X & @LF & 'Y = ' & $i_Y)
	;MouseClick('left', $i_X, $i_Y, 1)
EndFunc   ;==>_RandomClick
 
Автор
S

Safron9999

Новичок
Сообщения
42
Репутация
0
всем огромное спасибо. решение предложенное Kaster работает как часы ))
 
Верх