送几种常用的按键精灵代码

Kuni7wa

1. 
   
2. ==============================
   
3. 
   
4. 字符串系列函数
   
5. 
   
6. 1.取出文本中某字符串的左边的所有文本
   
7. 
   
8. //函数代码
   
9. 
   
10. Function 取文本左边(源文本, 查找文本)
    
11. 位置 = InStr(源文本, 查找文本)
    
12. 取文本左边 = Left(源文本, 位置 - 1)   
    
13. End Function
    
14. 
    
15. //测试代码
    
16. 
    
17. TracePrint 取文本左边("按键你好|呵呵", "|")
    
18. 
    
19. 2.取出文本中某字符串的右边的所有文本
    
20. 
    
21. 
    
22. //函数代码
    
23. 
    
24. Function 取文本右边(源文本, 查找文本)
    
25. 位置 = InStr(源文本, 查找文本)
    
26. 取文本右边 = Right(源文本, Len(源文本)-位置)   
    
27. End Function
    
28. //测试代码
    
29. 
    
30. TracePrint 取文本右边("按键你好|呵呵", "|")
    
31. 
    
32. 
    
33. 3.取出文本中两个字符串中间的文本
    
34. 
    
35. 函数代码//
    
36. 
    
37. Function 取文本中间(源文本, 左边文本, 右边文本)
    
38. 左边位置 = InStr(源文本, 左边文本)
    
39. 右边位置 = InStrRev(源文本, 右边文本)
    
40. 宽度 = 右边位置 - 左边位置-1
    
41. 取文本中间 = MID(源文本, 左边位置+1, 宽度)
    
42. End Function
    
43. 
    
44. 测试代码//
    
45. 
    
46. TracePrint 取文本中间("你好A按键B精灵","A","B")
    
47. 
    
48. 
    
49. 4.判断文本是否重复
    
50. ////参数一： 所有文本。 参数二：待查询的文本
    
51. ////返回：重复返回1，不重复返回2
    
52. Function 文本_是否重复(参数_文本, 参数_查询字符)
    
53. If Instr(参数_文本, 参数_查询字符)>0 Then
    
54.     文本_是否重复 = 1
    
55. Else
    
56. 文本_是否重复 = 0
    
57. End If
    
58. End Function
    
59. /////////测试代码
    
60. TracePrint 文本_是否重复("你好", "你")
    
61. TracePrint 文本_是否重复("你好", "按键")
    
62. 
    
63. 5.分割出单个字符
    
64. /////////参数一：待分割的文本
    
65. /////////返回：含分隔符的文本
    
66. Function 文本_逐字分割(参数_待分割)
    
67. For i = 1 To len(参数_待分割)
    
68.     文本_逐字分割 = 文本_逐字分割 & mid(参数_待分割, i, 1) & "‰"
    
69. Next
    
70. End Function
    
71. /////////测试代码
    
72. 文本 = 文本_逐字分割("你好。+-2017aabbcc")
    
73. 数组 = split(文本, "‰")
    
74. For i = 0 To UBound(数组) - 1
    
75.     TracePrint "当前位置：" & i + 1 & "->" & 数组(i)
    
76. Next
    
77. ---------------------------------------------------------------
    
78. 密码输入类【前台】
    
79. str = "abcABC..！！@@#￥"
    
80. For i = 1 To len(str)
    
81. If asc(mid(str, i, 1)) >= 35 and asc(mid(str, i, 1)) <= 37 Then
    
82. KeyDown 16, 1
    
83. KeyPress asc(mid(str, i, 1)) + 16,1
    
84. KeyUp 16, 1
    
85. ElseIf asc(mid(str, i, 1)) >= 123 and asc(mid(str, i, 1)) <= 125 Then
    
86. KeyDown 16, 1
    
87. KeyPress asc(mid(str, i, 1)) + 96,1
    
88. KeyUp 16, 1
    
89. ElseIf asc(mid(str, i, 1)) >= 62 and asc(mid(str, i, 1)) <= 63 Then
    
90. KeyDown 16, 1
    
91. KeyPress asc(mid(str, i, 1)) + 128,1
    
92. KeyUp 16, 1
    
93. ElseIf asc(mid(str, i, 1)) >= 65 and asc(mid(str, i, 1)) <= 90 Then
    
94. KeyDown 16, 1
    
95. KeyPress asc(mid(str, i, 1)),1
    
96. KeyUp 16, 1
    
97. ElseIf asc(mid(str, i, 1)) = 33 Then
    
98. KeyDown 16, 1
    
99. KeyPress 49,1
    
100. KeyUp 16, 1
     
101. ElseIf asc(mid(str, i, 1)) = 64 Then
     
102. KeyDown 16, 1
     
103. KeyPress 50,1
     
104. KeyUp 16, 1
     
105. ElseIf asc(mid(str, i, 1)) = 94 Then
     
106. KeyDown 16, 1
     
107. KeyPress 54,1
     
108. KeyUp 16, 1
     
109. ElseIf asc(mid(str, i, 1)) = 38 Then
     
110. KeyDown 16, 1
     
111. KeyPress 55,1
     
112. KeyUp 16, 1
     
113. ElseIf asc(mid(str, i, 1)) = 42 Then
     
114. KeyDown 16, 1
     
115. KeyPress 56,1
     
116. KeyUp 16, 1
     
117. ElseIf asc(mid(str, i, 1)) = 41 Then
     
118. KeyDown 16, 1
     
119. KeyPress 48,1
     
120. KeyUp 16, 1
     
121. ElseIf asc(mid(str, i, 1)) = 40 Then
     
122. KeyDown 16, 1
     
123. KeyPress 57,1
     
124. KeyUp 16, 1
     
125. ElseIf asc(mid(str, i, 1)) = 95 Then
     
126. KeyDown 16, 1
     
127. KeyPress 189,1
     
128. KeyUp 16, 1
     
129. ElseIf asc(mid(str, i, 1)) = 43 Then
     
130. KeyDown 16, 1
     
131. KeyPress 187,1
     
132. KeyUp 16, 1
     
133. ElseIf asc(mid(str, i, 1)) = 60 Then
     
134. KeyDown 16, 1
     
135. KeyPress 188,1
     
136. KeyUp 16, 1
     
137. ElseIf asc(mid(str, i, 1)) = 126 Then
     
138. KeyDown 16, 1
     
139. KeyPress 192,1
     
140. KeyUp 16, 1
     
141. 
     
142. 
     
143. ElseIf asc(mid(str, i, 1)) = -23644 or asc(mid(str, i, 1)) = -24089 Then ///￥ ＄
     
144. KeyDown 16, 1
     
145. KeyPress 52,1
     
146. KeyUp 16, 1
     
147. ElseIf asc(mid(str, i, 1)) >= 97 and asc(mid(str, i, 1)) <= 122 Then
     
148. KeyPress asc(mid(str, i, 1)) - 32,1
     
149. ElseIf asc(mid(str, i, 1)) >= 44 and asc(mid(str, i, 1)) <= 47 Then
     
150. KeyPress asc(mid(str, i, 1)) + 144,1
     
151. ElseIf asc(mid(str, i, 1)) >= 91 and asc(mid(str, i, 1)) <= 93 Then
     
152. KeyPress asc(mid(str, i, 1)) + 128,1
     
153. ElseIf asc(mid(str, i, 1)) = 96 Then
     
154. KeyPress 192,1
     
155. ElseIf asc(mid(str, i, 1)) = 61 Then
     
156. KeyPress 187,1
     
157. ElseIf asc(mid(str, i, 1)) = 59 Then
     
158. KeyPress 186,1
     
159. ElseIf asc(mid(str, i, 1)) = 39 Then
     
160. KeyPress 222,1
     
161. Else
     
162. KeyPress asc(mid(str, i, 1)),1
     
163. End If
     
164. Delay 10
     
165. Next
     
166. -------------------------------------------------------------------------------------------
     
167. 计时的信息框
     
168. Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
     
169. hwnd = Plugin.Window.MousePoint()
     
170. ////////1000表示1s
     
171. MessageBoxTimeout 0, "你好，欢迎使用", "提示", 0, 1, 1000
     
172. -------------------------------------------------------------------------------------------
     
173. 复制Word中的图片
     
174. lsFileName = "C:\1.doc"'请将此处替换为word文档地址
     
175. Set wordObj = CreateObject("Word.Application")'调用word应用类
     
176. wordObj.Visible = False'设置为不可见
     
177. wordObj.Documents.Open (lsFileName)'打开word文档
     
178. wordobj.Selection.WholeStory
     
179. wordobj.Selection.Copy
     
180. wordObj.Quit '退出word应用类
     
181. Set wordObj = Nothing'销毁word应用类
     
182. 
     
183. ==============================
     

复制代码

Cute

啥玩意了

QAQ

常回帖看看

璁哄潧

小萌 发表于 2017-9-19 20:48
啥玩意了

你也看不懂，那我也应该看不懂的。

520

我也看看呢

愿望

这么多回复可见

222

这是什么梗了回复可见

1心1亿

不知道什么梗