下面是代码：

Dim 姓名 = ""

Dim iRet = ""

Dim value = ""

Dim arrayRet = ""

Dim objExcelWorkBook = ""

objExcelWorkBook = Excel.OpenExcel(@res"QQ群发目标.xls",True,"WPS","","")

姓名 = Excel.ReadColumn(objExcelWorkBook,"Sheet1","A1")

Excel.CloseExcel(objExcelWorkBook,True)

TracePrint(姓名)

For Each value In 姓名

TracePrint(value)

#icon("@res:aepmbcv4-10oq-0348-q8bc-6ou0rskn3oma.png")

Keyboard.InputText({"wnd":[{"app":"QQ","cls":"TXGuiFoundation","title":"QQ"}],"ctrl":[{"role":"ROLE_SYSTEM_TEXT","name":"搜索：联系人、群聊、企业"}]},value,True,20,10000,{"bContinueOnError":False,"iDelayAfter":3000,"iDelayBefore":1000,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})

#icon("@res:1bsmk4ie-ih84-9cdi-84o7-ms3p0mm53mjb.png")

Keyboard.PressKey({"wnd":[{"app":"QQ","cls":"TXGuiFoundation","title":"QQ"}],"ctrl":[{"role":"ROLE_SYSTEM_TEXT","name":"搜索：联系人、群聊、企业"}]},"Enter",20,10000,{"bContinueOnError":False,"iDelayAfter":3000,"iDelayBefore":200,"bSetForeground":True,"sKeyModifiers":[],"sSimulate":"simulate","bClickBeforeInput":False})

#icon("@res:r4ktv48a-met3-4eue-oeku-81eqvb0n4ho5.png")

Keyboard.InputText({"wnd":[{"app":"QQ","cls":"TXGuiFoundation","title":"清辉"}],"ctrl":[{"role":"ROLE_SYSTEM_TEXT","name":"输入"}]},"这是测试，请勿回！",True,20,10000,{"bContinueOnError":False,"iDelayAfter":1000,"iDelayBefore":500,"bSetForeground":True,"sSimulate":"message","bValidate":False,"bClickBeforeInput":False})

#icon("@res:brs9kpfc-pm0o-6507-s1bi-c7trm980qsd6.png")

Keyboard.PressKey({"wnd":[{"app":"QQ","cls":"TXGuiFoundation","title":value}],"ctrl":[{"role":"ROLE_SYSTEM_TEXT","name":"输入"}]},"Enter",20,10000,{"bContinueOnError":False,"iDelayAfter":1000,"iDelayBefore":200,"bSetForeground":True,"sKeyModifiers":[],"sSimulate":"simulate","bClickBeforeInput":False})

Next