按键精灵 复制文本后如何输出文本
Delay200CallPlugin.Office.OpenXls("d:\账号.xls")Delay200For25Delay1000MoveTo84,192LeftC...
Delay 200
Call Plugin.Office.OpenXls("d:\账号.xls")
Delay 200
For 25
Delay 1000
MoveTo 84, 192
LeftClick 1
Delay 5000
'输入账号
Delay 100
Text = Plugin.Office.ReadXls(1, i, 1)
i=i+1
Delay 100
Call Plugin.Sys.SetCLB(Text)
Delay 100
Delay 100
KeyDown "Ctrl", 1
KeyPress "V", 1
KeyUp "Ctrl", 1
Delay 500
········································
复制文本之后我使用的ctrl+v来粘贴
有没有快捷语句
SayString不会使用 展开
Call Plugin.Office.OpenXls("d:\账号.xls")
Delay 200
For 25
Delay 1000
MoveTo 84, 192
LeftClick 1
Delay 5000
'输入账号
Delay 100
Text = Plugin.Office.ReadXls(1, i, 1)
i=i+1
Delay 100
Call Plugin.Sys.SetCLB(Text)
Delay 100
Delay 100
KeyDown "Ctrl", 1
KeyPress "V", 1
KeyUp "Ctrl", 1
Delay 500
········································
复制文本之后我使用的ctrl+v来粘贴
有没有快捷语句
SayString不会使用 展开
1个回答
展开全部
For j = 0 To len(TEXT)
dm.KeyPress Asc(mid(text, j, 1))
delay 50
Next
游戏屏蔽了粘贴功能可能。你的帐号应该是数字加字母吧,这个方法字母可能输出要加32,你改下看看。
哦,对了 我是用大漠插件的。。。
For j = 0 To len(TEXT)
KeyPress mid(text, j, 1),1
delay 50
Next
这样就行了。。。
dm.KeyPress Asc(mid(text, j, 1))
delay 50
Next
游戏屏蔽了粘贴功能可能。你的帐号应该是数字加字母吧,这个方法字母可能输出要加32,你改下看看。
哦,对了 我是用大漠插件的。。。
For j = 0 To len(TEXT)
KeyPress mid(text, j, 1),1
delay 50
Next
这样就行了。。。
追问
或许我问的繁琐了
骑士我想知道:在黏贴板已经有内容时如何不使用CTRL+V进行粘贴
你写的这些脚本我看不明白
还有太多内容需要学习
谢谢你的回答
追答
我这个就是直接把你的帐号用模拟手动输入的方式写出来的,有些游戏是会不让复制粘贴。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询