Отключить мышь и клавиатуру.
BlockInput ( flag )
flag:
1 = отключить ввод пользователя
0 = включить ввод пользователя
BlockInput не работает на всех платформах, что показано в следующей таблице.
Кроме этого, пользователь всегда может инициировать ввод нажатием комбинации
CTRL-ALT-DEL - опция Windows API.
Windows 95 Не работает.
Windows 98 Ввод блокируется, причем AutoIt не может симулировать ввод данных.
Windows NT 4 (Without ServicePack 6) Не работает.
Windows NT 4 (With ServicePack 6) Ввод блокируется, причем AutoIt может симулировать ввод данных.
Windows 2000/XP Ввод блокируется, причем AutoIt может симулировать ввод данных.
Трудности с пониманием написанного?как быть?
#include <String.au3>
BlockInput(1)
Opt('WinTitleMatchMode', 2)
$sTitle = 'Google Chrome'
If WinExists($sTitle) Then
If Not WinActive($sTitle) Then WinActivate($sTitle)
EndIf
Sleep (100)
$Text = FileRead("mustaste.txt")
$Text = _StringBetween($Text, "NEXTPOST", "NEXTPOST")
For $i = 0 To UBound($Text) -1
MouseClick("left", 15, 0, 1, 0)
Sleep(500)
MouseMove(71, 41, 0)
Do
Sleep (100)
$var = PixelGetColor( 71 , 41 )
Until $var = 0xF4F4F4
Sleep(100)
Send ("{HOME}")
Sleep(50)
MouseClick("left", 800, 465, 1, 0)
Sleep(50)
ClipPut($Text[$i])
Send("+{INSERT}")
MouseClick("left", 315, 675, 1, 0)
Sleep(500)
MouseClick("left", 315, 640, 1, 0)
Sleep(100)
Send("^+{TAB}") ;вместо MouseClick("left", 234, 0, 1, 0)
BlockInput(0)
Sleep(2 * 59.27 * 1000)
Next
Наверное, так корректнее.что выводит?
$iBI = BlockInput(1)
ConsoleWrite($iBI & @LF)
Sleep(2000)
$iBI = BlockInput(0)
ConsoleWrite($iBI & @LF)
На форуме есть ещё Администратор, который сейчас даст тебе единственное и последнее предупреждение.Тема создана после совещания с глобальным модератором.
{LangWarn.Admin}Лол, у меня уже 2 минусика в карму.
...
"за тупость", окей, интеллектуалы в треде, все в машину.
#include <String.au3>
Opt('WinTitleMatchMode', 2)
$sTitle = 'Google Chrome'
BlockInput(1)
If WinExists($sTitle) Then
If Not WinActive($sTitle) Then WinActivate($sTitle)
EndIf
Sleep (100)
$Text = FileRead("mustaste.txt")
$Text = _StringBetween($Text, "NEXTPOST", "NEXTPOST")
BlockInput(0)
For $i = 0 To UBound($Text) -1
BlockInput(1)
MouseClick("left", 15, 0, 1, 0)
Sleep(500)
MouseMove(71, 41, 0)
Do
Sleep (100)
$var = PixelGetColor( 71 , 41 )
Until $var = 0xF4F4F4
Sleep(100)
Send ("{HOME}")
Sleep(50)
MouseClick("left", 800, 465, 1, 0)
Sleep(50)
ClipPut($Text[$i])
Send("+{INSERT}")
MouseClick("left", 315, 675, 1, 0)
Sleep(500)
MouseClick("left", 315, 640, 1, 0)
Sleep(100)
Send("^+{TAB}") ;вместо MouseClick("left", 234, 0, 1, 0)
BlockInput(0)
Sleep(2 * 59.27 * 1000)
Next