Доброй ночи, полуночкини.
Имеются 2 вопроса.
1. Как сделать что бы скрипт выдавал расширение текущего экрана?
Вот написал, но, может знаете что бы по проще было.
2. Не могу никак понять, как эту часть скрипта изменить на "покороче".
Это 2-я часть скрипта выше, так сказать продолжение:
Суть задания 2, что бы скрипт брал окно ( в данном случае WinMove ('Компьютер') ), и задавал ему координаты те, которые мне нужно. Можно что бы выбивало окошко с вводом координат, или ещё как то.
Имеются 2 вопроса.
1. Как сделать что бы скрипт выдавал расширение текущего экрана?
Вот написал, но, может знаете что бы по проще было.
Код:
BlockInput (1)
$pos1=MouseGetPos ()
MouseMove (10000, 10000, 0)
$pos=MouseGetPos ()
$pos[0]=$pos[0]+1
$pos[1]=$pos[1]+1
MouseMove ($pos1[0], $pos1[1], 0)
BlockInput (0)
MsgBox (16, 'Разширение экрана', " " & $pos[0] & ' x ' & $pos[1])
2. Не могу никак понять, как эту часть скрипта изменить на "покороче".
Это 2-я часть скрипта выше, так сказать продолжение:
Код:
$x=InputBox ('X', 'X = ', 800, '', 100, 100)
$y=InputBox ('Y', 'Y = ', 600, '', 100, 100)
$razmer_svernutogo_okna_x=110
$razmer_svernutogo_okna_y=145
$x_10=$razmer_svernutogo_okna_x
$y_10=$razmer_svernutogo_okna_y
$position_x=($pos[0]-$x)/2
$position_y=($pos[1]-$y)/2
If WinWaitActive ('Компьютер','',10) Then
WinMove ('Компьютер', '', $position_x, $position_y)
MouseMove ($position_x, $position_y, 0)
MouseDown ("left")
MouseMove ($pos[0], $pos[1], 0)
MouseUp ("left")
Sleep (100)
WinMove ('Компьютер', '', $position_x, $position_y)
MouseMove ($position_x+$x_10, $position_y+$y_10, 0)
$position_x=$position_x+$x
$position_y=$position_y+$y
MouseDown ("left")
MouseMove ($position_x, $position_y, 0)
MouseUp ("left")
EndIf
MouseMove ($pos1[0], $pos1[1], 0)
Суть задания 2, что бы скрипт брал окно ( в данном случае WinMove ('Компьютер') ), и задавал ему координаты те, которые мне нужно. Можно что бы выбивало окошко с вводом координат, или ещё как то.