想用新版的QQ2009可需要激活就写了下面这个:
dim $i
$i = inputbox("QQ激活","请输入你的QQ号码" &@cr &@cr &"如果以前激活过请按'取消'")
if @error=1 Then
Exit
EndIf
shellexecute("http://im.qq.com/qq/2009/preview3/download.shtml")
winwaitactive("QQ2009 | im.qq.com - Microsoft Internet Explorer")
send($i)