check if middle button is released

[TaxiDriver]

hi..i'm trying to write a script that let me easily paste texts from clipboard using the middle mouse button..here's what I've got so far..

#include <Misc.au3>

While 1
    if _IsPressed("04") Then MiddleClickPaste()
    Sleep(250)
WEnd

Func MiddleClickPaste()
    ClipGet()
    If @error <> 1 then
        send ("{CTRLDOWN}v")
        send("{CTRLUP}")
    EndIf
EndFunc

the script runs fine..except that when you press and *hold* the middle button, it keeps pasting texts until you release the button..I want to know if there's way to check if middle button is released..

Edited February 13, 2007 by TaxiDriver

[AU3Newbie]

#include <Misc.au3>
Dim $Mid=0
While 1
    if _IsPressed("04")&$Mid=0 Then MiddleClickPaste()
    Sleep(250)
WEnd

Func MiddleClickPaste()
    ClipGet()
    If @error <> 1 then
        send ("{CTRLDOWN}v")
        send("{CTRLUP}")
$mid=1
    EndIf
EndFunc

HAVEN't TESTed it!

[herewasplato]

tested

#include <Misc.au3>

While 1
    If _IsPressed("04") Then MiddleClickPaste()
    Sleep(250)
WEnd

Func MiddleClickPaste()
    ClipGet()
    If @error <> 1 Then
        Send("{CTRLDOWN}v")
        Send("{CTRLUP}")
    EndIf
    Do
        Sleep(10)
    Until Not _IsPressed("04")
EndFunc   ;==>MiddleClickPaste