[решено] Не работает 2 раза подряд ClipGet - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

- - [решено] Не работает 2 раза подряд ClipGet (http://forum.oszone.net/showthread.php?t=169178)

sashadeg

04-03-2010 17:21 1361264

Не работает 2 раза подряд ClipGet

Возникла проблема с 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 1361271

Цитата:

Цитата sashadeg

Вот код »

Я такое у себя запускать не рискую :)... приведи пример более дружелюбный, где видна проблема с ClipGet. Я попробовал на таком примере, не вижу никаких проблем:

Код:

InputBox("Copy", "Please copy some text...", "Text")



$sData1 = ClipGet()

$sData2 = ClipGet()



MsgBox(64, 'ClipGet 1', $sData1)

MsgBox(64, 'ClipGet 2', $sData2)

sashadeg

04-03-2010 17:36 1361274

Цитата:

Цитата Creat0R

Я такое у себя запускать не рискую ... »

понимаю =)

Цитата:

Цитата Creat0R

Я попробовал на таком примере, не вижу никаких проблем: »

а может нужно делать какуюнибудь отчистку буфера? а то я вручную пробую вставить - работает.
Если другим скриптом через ClipGet - работает.
Тем же скриптом через ClipGet - не работает =(
Наверно какие то глюки в системе....

Sp01LeR

04-03-2010 22:32 1361436

Func _cGet()
Local $cg
$cg=ClipGet()
return $cg
EndFunc
[...]
$1=_cGet()
$2=StringReplace ($1, "_", " ")
Sleep(125)
ClipPut ($2)

sashadeg

05-03-2010 12:27 1361676

Переустановил Windows - всё заработало =)

Время: 07:03.