1. 定义环境变量 hwnd
2. Event(Form1.Timer1.Timer)
3. 令 hwnd = Window.MousePoint()
4. 令 sText = Window.GetText(Hwnd)
5. 令 sClass = Window.GetClass(Hwnd)
6. 令 Form1.InputBox1.text = stext
7. 令 Form1.InputBox2.text = hwnd
8. 令 Form1.InputBox3.text = sClass
9. 把当前鼠标所在的位置保存到 (x, y)
10. 令 x_env = x
11. 令 y_env = y
12. 令 RtColor = Color.GetPixelColor(x,y,0)
13. 令 Form1.InputBox4.text = "【BGR】" & RtColor
14. 令 Form1.InputBox5.text = x & "," & y
15. 令 sRect = Window.GetClientRect(Hwnd)
16. 令 aa = split(sRect,"|")
17. 令 ux = aa(0)
18. 令 uy = aa(1)
19. 令 Form1.Label18.Caption = aa(0) & "," & aa(1)
20. 令 Form1.Label19.Caption = aa(2) & "," & aa(3)
21. 令 Form1.Label21.Caption = aa(2) - aa(0) & " X " & aa(3) - aa(1)
22. 令 Form1.InputBox6.text = x - ux & "," & y - uy
23. 令 sRect2 = Window.GetwindowRect(Hwnd)
24. 令 aa2 = split(sRect2,"|")
25. 令 ux2 = aa2(0)
26. 令 uy2 = aa2(1)
27. 令 Form1.Label12.Caption = aa2(0) & "," & aa2(1)
28. 令 Form1.Label13.Caption = aa2(2) & "," & aa2(3)
29. 令 Form1.Label15.Caption = aa2(2) - aa2(0) & " X " & aa2(3) - aa2(1)
30. 令 Form1.InputBox7.text = x - ux2 & "," & y - uy2
31. 令 ScreenW = Sys.GetScRX()
32. 令 ScreenH = Sys.GetScRY()
33. 令 Dev = Sys.GetScDep()
34. 令 Form1.Label22.Caption = "分辨率：" & ScreenW & " X " & ScreenH & vblf & "颜色质量：" & Dev
35. (语句无法识别，可能有错误): End Event
36. Event(Form1.Load)
37. 令 form1.Timer1.Enabled = false
38. 令 form1.timer1.Interval = 100
39. 令 form1.timer2.Interval = 100
40. (语句无法识别，可能有错误): End Event
41. Event(Form1.Timer2.Timer)
42. 令 Form1.Label9.Caption = "欢迎使用沧海制作的小工具!" & vblf & "现在时间为：" & now
43. 令 aj = （键盘）检测上次按键
44. 如果 aj = 17 则
45.     如果 i mod 2 = 0 则
46.         令 form1.Timer1.Enabled = true
47.         令 i = i + 1
48.     否则
49.         令 form1.Timer1.Enabled = false
50.         令 i = i + 1
51.     条件结束
52. 条件结束
53. (语句无法识别，可能有错误): End Event
54. Event(Form1.InputBox1.GotFocus)
55. 调用 Sys.SetCLB(sText)
56. (语句无法识别，可能有错误): End Event
57. Event(Form1.InputBox2.GotFocus)
58. 调用 Sys.SetCLB(hwnd)
59. (语句无法识别，可能有错误): End Event
60. Event(Form1.InputBox3.GotFocus)
61. 调用 Sys.SetCLB(sClass)
62. (语句无法识别，可能有错误): End Event
63. Event(Form1.InputBox4.GotFocus)
64. 调用 Sys.SetCLB(RtColor)
65. (语句无法识别，可能有错误): End Event
66. Event(Form1.InputBox5.GotFocus)
67. 调用 Sys.SetCLB(x_env & "," & y_env)
68. (语句无法识别，可能有错误): End Event
69. Event(Form1.InputBox7.GotFocus)
70. 调用 Sys.SetCLB(x_env - ux2 & "," & y_env - uy2)
71. (语句无法识别，可能有错误): End Event
72. Event(Form1.InputBox6.GotFocus)
73. 调用 Sys.SetCLB(x_env - ux & "," & y_env - uy)
74. (语句无法识别，可能有错误): End Event
75. Event(Form1.Label12.Click)
76. 调用 Sys.SetCLB(split(sRect2,"|")(0) & "," & split(sRect2,"|")(1))
77. (语句无法识别，可能有错误): End Event
78. Event(Form1.Label13.Click)
79. 调用 Sys.SetCLB(split(sRect2,"|")(2) & "," & split(sRect2,"|")(3))
80. (语句无法识别，可能有错误): End Event
81. Event(Form1.Label15.Click)
82. 调用 Sys.SetCLB(split(sRect2,"|")(2) - split(sRect2,"|")(0) & "," & split(sRect2,"|")(3) - split(sRect2,"|")(1))
83. (语句无法识别，可能有错误): End Event
84. Event(Form1.Label18.Click)
85. 调用 Sys.SetCLB(split(sRect,"|")(0) & "," & split(sRect,"|")(1))
86. (语句无法识别，可能有错误): End Event
87. Event(Form1.Label19.Click)
88. 调用 Sys.SetCLB(split(sRect,"|")(2) & "," & split(sRect,"|")(3))
89. (语句无法识别，可能有错误): End Event
90. Event(Form1.Label21.Click)
91. 调用 Sys.SetCLB(split(sRect,"|")(2) - split(sRect,"|")(0) & "," & split(sRect,"|")(3) - split(sRect,"|")(1))
92. (语句无法识别，可能有错误): End Event
93. Event(Form1.Label22.Click)
94. 调用 Sys.SetCLB("分辨率：" & ScreenW & " X " & ScreenH & vblf & "颜色质量：" & Dev)
95. (语句无法识别，可能有错误): End Event