1. 定义变量 MyArray
2. 注释：--------------选择照片-------------------
3. 令 PicPath = 取照片路径()
4. 如果 PicPath = "" 则
5.     MsgBox("请选择图片格式[jpg,bmp,gif,png]",64)
6.     脚本停止运行
7. 条件结束
8. 注释：----------打开我的资料----------------
9. 令 Hwnd1 = Window.Find("TXGuiFoundation","QQ2011")
10. 如果 Hwnd1 = 0 则
11.     MsgBox("QQ没有运行或QQ版本不是2011",64)
12.     脚本停止运行
13. 条件结束
14. 调用 Bkgnd.LeftClick(Hwnd1,27,53)
15. 延时 500 毫秒
16. 注释：-----------打开更换头像---------------
17. 令 Hwnd2 = Window.Find("TXGuiFoundation","我的资料")
18. 调用 Bkgnd.LeftClick(Hwnd2,65,65)
19. 延时 500 毫秒
20. 注释：----------打开本地照片对话框----------------
21. 令 Hwnd3 = Window.Find("TXGuiFoundation","更换头像")
22. 调用 Bkgnd.LeftClick(Hwnd3,65,75)
23. 延时 500 毫秒
24. 注释：----------------------------------------
25. 输入文本 PicPath
26. 延时 500 毫秒
27. （键盘）按 Enter 键, 1次
28. 延时 500 毫秒
29. 调用 Bkgnd.LeftClick(Hwnd3,443,430)
30. 延时 500 毫秒
31. 循环开始
32.     令 Hwnd3 = Window.Find("TXGuiFoundation","更换头像")
33.     如果 Hwnd3 = 0 则
34.         跳出循环
35.     条件结束
36.     延时 500 毫秒
37. 循环结束
38. 调用 Bkgnd.LeftClick(Hwnd2,565,9)
39. 延时 500 毫秒
40. 注释：-----------------函数---------------------
41. 函数 取照片路径()
42.     令 图片格式 = Array("jpg","bmp","gif","png")
43.     注释：----------打开对话框----------------
44.     令 Path = File.SelectFile()
45.     如果 Path = "" 则
46.         脚本停止运行
47.     条件结束
48.     令 suffix = LCase(取后缀(Path))
49.     注释：--------------判断是不是图片------------------
50.     循环 i 从 0 到 UBound(图片格式)
51.         注释：TracePrint 图片格式(i)
52.         如果 suffix <> 图片格式(i) 则
53.             令 j = j + 1
54.         条件结束
55.     循环结束
56.     如果 j <> 3 则
57.         注释： MsgBox "请选择图片文件！", 64
58.         令 取照片路径 = ""
59.     否则
60.         令 取照片路径 = Path
61.     条件结束
62. 函数结束
63. 函数 取后缀(Path)
64.     令 MyPos = InStrRev(Path,".")
65.     如果 MyPos = 0 则
66.         令 取后缀 = ""
67.     否则
68.         令 取后缀 = Right(Path,Len(Path) - MyPos)
69.     条件结束
70. 函数结束