function main
	# 在此添加由向导创建或录制的代码
	obj = COMCreateObject("QQQDaTi.reply")
	TID = "-1"
	while Len(TID) > 10
		TID = COMInvoke(obj, "SendFile", "str", "上传密码串", "int", 2000, "str", "C:\pic.bmp", "int",50)
		Print(tid)
	wend
	Answer = "-99"
	While Answer = "-99"
		Answer = COMInvoke(obj, "GetAnswer", "str", TID)
		Print(answer)
		Wait(1000)
	Wend
	if Answer=1 then
		Print("答案为1")
	elseif Answer=2 then
		Print("答案为2")
	elseif Answer=3 then
		Print("答案为3")
	elseif Answer=4 then
		Print("答案为4")
	end if
end function
