• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.0
软件大小:62.5M
更新时间:5-24

按键精灵iOS版
立即下载

软件版本:1.3.3
软件大小:29.2M
更新时间:06-14

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
返回列表 12345678» / 11
发新话题 回复该主题

[其他] 小技巧分享:读取字符串,用按键盘方式依次输出,源码分享 [复制链接]

1#
小技巧分享:依次读写每行文本内容,或者依次读取字符串内容,用按键盘方式依次输出,一个一个按你文本设置的内容,比如
"abcdef" 它会依次按下a,b,c,d,e,f
依次读取字符串方法:
==============================

Text = Plugin.File.ReadFileEx("C:\Users\Administrator\Desktop\新建文本文档.txt")'读取文本内容
TracePrint text
a = split(text, "|")
Dim MyVar
For i = 0 To UBound(a)-1
g = a(i)
For i = 1 To Len(g)
MyVar = Mid(g, i, 1)
TracePrint MyVar
TracePrint Asc(UCase(MyVar))
KeyPress Asc(UCase(MyVar)), 1
Next
Next

==============================

==============================

a = "sgfhdd"
Dim MyVar
For i = 1 To Len(a)
TracePrint Len(a)
MyVar = Mid(a, i, 1)
TracePrint MyVar
TracePrint Asc(UCase(MyVar))
KeyPress Asc(UCase(MyVar)), 1
Next

==============================

不懂的可以咨询

最后编辑qzh523 最后编辑于 2016-09-03 20:50:53
接单了,价格优惠,联系QQ:4930335
QQ学习交流群:163155366
2#

好好好好好

3#

求教求教

4#

{:5_133:}{:5_133:}

5#


6#


7#

22222222222

8#

看看

9#

學習

10#

有这个需求,学习一下!

11#

非官方公会好

12#

有这个需求,学习一下!

13#

請問版主
如果想要一組帳號執行一個腳本,結束之後換另一組帳號
有甚麼方法可以嗎?

感謝

14#

22222222222

15#

gaoji

16#

看看怎么使用的

17#

aaaaaa

18#
19#

fghfghfgh

20#

不懂的可以咨询

发新话题 回复该主题