Доброго времени суток!
У меня такая проблема, на работе стоит комп, но я не хочу что бы кто попало лазал в нём без моего разрешения, я написал скрипт но он работает не совсем корректно
Помогите разобраться в чём дело:
Вообщем вот так, если я вырубаю блокировку мыши то и Мой компьютер тоже закрываться не будет, как я только не пробовал, не получается, я новичок, и мне самому интересно, вообще можно это реализовать, пробовал делать отдельные функции, мышь зацикливал отдельно, а комп одельно, но пока не завершится цикл мыши комп не работает, я зашёл в тупик
Кто что подскажет?
Заранее благодарен!
Вот попробовал так
В цикл вложить ещё цикл но как то не совсм корректно
У меня такая проблема, на работе стоит комп, но я не хочу что бы кто попало лазал в нём без моего разрешения, я написал скрипт но он работает не совсем корректно
Помогите разобраться в чём дело:
Код:
#include <GUIConstants.au3>
GUICreate ("mygui")
$ch1 = Guictrlcreatecheckbox ("Блокировать мышь", 5, 5, 120, 20)
$ch2 = Guictrlcreatecheckbox ("Блокировать Photoshop", 5, 25, 150, 20)
$ch3 = Guictrlcreatecheckbox ("Блокировать Мой компьютер", 5, 45, 150, 20)
$button = GUICtrlCreateButton ("Принять", 5, 65, 70, 20)
guisetstate(@SW_HIDE)
guictrlsetstate(3, $gui_checked)
guictrlsetstate(5, $gui_checked)
hotkeyset ("^!s", "ggg")
hotkeyset ("+m", "mos")
hotkeyset("^e", "exits")
$m = 1
$m1 = 1
$m3 = 1
$win = winactive("Мой компьютер")
mos()
func mos()
While ($m = 1) Or ($m = 3)
if $m <> 1 Then ExitLoop
$m = guictrlread($ch1)
$mousex = mousegetpos()
$mousey = mousegetpos()
sleep(500)
$2mousex = mousegetpos()
$2mousey = mousegetpos()
if $2mousex[0] <> $mousex[0] and $2mousey[1] <> $mousey[1] Then
mousemove ($mousex[0], $mousey[1], 3)
EndIf
$win = winactive ("Мой компьютер")
$m3 = guictrlread ($ch3)
if $win and $m3 = 1 Then
sleep (500)
winclose ($win)
EndIf
wend
EndFunc
While 1
$msg = guigetmsg()
Switch $msg
Case $GUI_EVENT_MINIMIZE
GUISetState(@SW_HIDE)
$m = 1
$m3 = 1
mos()
Case $GUI_EVENT_CLOSE
Exit
Case $ch1
$m = guictrlread($ch1)
Case $ch2
$m1 = guictrlread($ch2)
Case $ch3
$m3 = guictrlread($ch3)
Case $button
guisetstate(@SW_HIDE)
$m = 1
$m3 = 1
mos()
EndSwitch
WEnd
func exits()
Exit
EndFunc
func ggg()
GUISetState (@SW_SHOW)
$m = 0
$m3 = 0
EndFunc
Вообщем вот так, если я вырубаю блокировку мыши то и Мой компьютер тоже закрываться не будет, как я только не пробовал, не получается, я новичок, и мне самому интересно, вообще можно это реализовать, пробовал делать отдельные функции, мышь зацикливал отдельно, а комп одельно, но пока не завершится цикл мыши комп не работает, я зашёл в тупик
Кто что подскажет?
Заранее благодарен!
Вот попробовал так
В цикл вложить ещё цикл но как то не совсм корректно
Код:
func mos()
While $m = 1
if $m <> 1 Then ExitLoop
$m = guictrlread($ch1)
$mousex = mousegetpos()
$mousey = mousegetpos()
sleep(500)
$2mousex = mousegetpos()
$2mousey = mousegetpos()
if $2mousex[0] <> $mousex[0] and $2mousey[1] <> $mousey[1] Then
mousemove ($mousex[0], $mousey[1], 3)
EndIf
While $m3 = 1
$win = winactive ("Мой компьютер")
$m3 = guictrlread ($ch3)
if $win and $m3 = 1 Then
sleep (500)
winclose ($win)
EndIf
WEnd
wend
EndFunc