PDA

Показать полную графическую версию : [решено] Не работает 2 раза подряд ClipGet


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

Creat0R
04-03-2010, 17:33
Вот код »
Я такое у себя запускать не рискую :)... приведи пример более дружелюбный, где видна проблема с ClipGet. Я попробовал на таком примере, не вижу никаких проблем:

InputBox (http://www.autoitscript.com/autoit3/docs/functions/InputBox.htm)("Copy", "Please copy some text...", "Text")

$sData1 = ClipGet (http://www.autoitscript.com/autoit3/docs/functions/ClipGet.htm)()
$sData2 = ClipGet (http://www.autoitscript.com/autoit3/docs/functions/ClipGet.htm)()

MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(64, 'ClipGet 1', $sData1)
MsgBox (http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm)(64, 'ClipGet 2', $sData2)

sashadeg
04-03-2010, 17:36
Я такое у себя запускать не рискую ... »
понимаю =)
Я попробовал на таком примере, не вижу никаких проблем: »
а может нужно делать какуюнибудь отчистку буфера? а то я вручную пробую вставить - работает.
Если другим скриптом через ClipGet - работает.
Тем же скриптом через ClipGet - не работает =(
Наверно какие то глюки в системе....

Sp01LeR
04-03-2010, 22:32
Func _cGet()
Local $cg
$cg=ClipGet()
return $cg
EndFunc
[...]
$1=_cGet()
$2=StringReplace ($1, "_", " ")
Sleep(125)
ClipPut ($2)

sashadeg
05-03-2010, 12:27
Переустановил Windows - всё заработало =)




© OSzone.net 2001-2012