如何用autoit批量自动发推(tweets)

$tusername = "type-your-username-here"
$tpassword = "type-your-password-here"
$proxy = "127.0.0.1:9666"
$textfile = "textfilename-containing-one-tweets-per-line"
$inteval = 60000
 
$file = FileOpen($textfile, 128)
While 1
	$line = FileReadLine($file)
	If StringLen($line)>140 Then $line=StringLeft($line, 140)
	_TwitterUpdateStatus($line)
	ConsoleWrite($line & @CRLF)
	Sleep($inteval)
WEnd
MsgBox(0, "", "finished!")
 
Func _TwitterUpdateStatus($message)
	Run('curl -x ' & $proxy & ' -u ' & $tusername & ':' & $tpassword & ' -d "status=' & _UnicodeURLEncode($message) 	& '" http://twitter.com/statuses/update.xml', "", @SW_HIDE)
EndFunc
 
Func _UnicodeURLEncode($UnicodeURL)
    $UnicodeBinary = StringToBinary ($UnicodeURL, 4)
    $UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
    $UnicodeBinaryLength = StringLen($UnicodeBinary2)
    Local $EncodedString
    For $i = 1 To $UnicodeBinaryLength Step 2
        $UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
        If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar, 4)) Then
            $EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
        Else
            $EncodedString &= '%' & $UnicodeBinaryChar
        EndIf
    Next
    Return $EncodedString
EndFunc