sashadeg
04-03-2010, 17:21
Возникла проблема с ClipGet.
Не хочет второй раз возвращать инфу из буфера. Будто пустой буфер. Но это не так =/
Вот код. Может ошибка какая...
Opt("MouseClickDelay", 700)
HotKeySet("{esc}","_1")
Func _1()
Exit
EndFunc
$down=0
While 1
MouseClick("left",960,140+$down,2)
Sleep(300)
Send("^{insert}")
$1=ClipGet ()
$2=StringReplace ( $1, "_", " ")
ClipPut ($2 )
MouseClickDrag( "left" ,356,560,50,473)
Send("{del}")
MouseClick('right',90,500)
MouseClick("left",140,590)
MouseClick("left",430,810)
Sleep(4000)
MouseClickDrag( "left" ,700,515,400,480)
MouseClick('right',460,500)
MouseClick("left",565,560)
$bak = ClipGet()
MsgBox(0, "Clipboard contains:", $bak)
$3=$bak&"("&$2&")"
MouseClick("left",960,140+$down)
Send($3)
$down=$down+21
WEnd
Не хочет второй раз возвращать инфу из буфера. Будто пустой буфер. Но это не так =/
Вот код. Может ошибка какая...
Opt("MouseClickDelay", 700)
HotKeySet("{esc}","_1")
Func _1()
Exit
EndFunc
$down=0
While 1
MouseClick("left",960,140+$down,2)
Sleep(300)
Send("^{insert}")
$1=ClipGet ()
$2=StringReplace ( $1, "_", " ")
ClipPut ($2 )
MouseClickDrag( "left" ,356,560,50,473)
Send("{del}")
MouseClick('right',90,500)
MouseClick("left",140,590)
MouseClick("left",430,810)
Sleep(4000)
MouseClickDrag( "left" ,700,515,400,480)
MouseClick('right',460,500)
MouseClick("left",565,560)
$bak = ClipGet()
MsgBox(0, "Clipboard contains:", $bak)
$3=$bak&"("&$2&")"
MouseClick("left",960,140+$down)
Send($3)
$down=$down+21
WEnd