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

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

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

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

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

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

登录 注册
发新话题 回复该主题

小哥哥来帮帮我啊 [复制链接]

1#
word = Plugin.File.ReadFileEx("C:\666.txt")
//分割为行
Dim hang,key,str,zm
hang = split(word, "|")
//循环打出每一行
For i = 0 To UBound(hang)
key=0
While (key <>32774 )
Key = GetLastClick ()
Wend
//zm = 取随即字母()
TracePrint zm
c = len(hang(i))
d = len(zm)
TracePrint d
If d >= 1 Then
aa = 取随机位置(c)
Else
aa=0
End If
If d >=2 Then
bb = 取随机位置(c)
Else
bb=0
End If
If d >=3 Then
cc = 取随机位置(c)
Else
cc=0
End If
bb = 取随机位置(c)
If d >=4 Then
dd = 取随机位置(c)
Else
dd=0
End If
If d >=5 Then
ee = 取随机位置(c)
Else
ee=0
End If

str = ""
For j= 1 To c
If j = aa and aa >0 then
str=str&mid(hang(i), j, 1)&mid(zm, 1, 1)
ElseIf j = bb and bb >0 Then
str=str&mid(hang(i), j, 1)&mid(zm,2, 1)
ElseIf j = cc and cc >0 Then
str=str&mid(hang(i), j, 1)&mid(zm,3, 1)
ElseIf j = dd and dd >0 Then
str = str & mid(hang(i), j, 1)&mid(zm,4, 1)
ElseIf j = ee and ee >0 Then
str = str & mid(hang(i), j, 1)&mid(zm,5, 1)
Else
str=str&mid(hang(i), j, 1)
End If
Next
TracePrint str
SayString str
Delay 100
KeyPress "Tab", 1
//暂停,任意键继续
Next
Function 取随即字母()
Randomize
For Int((5 - 1 + 1) * Rnd + 1)
取随即字母 = LCase (取随即字母 & Chr(Int(26 * Rnd + 1) + 64))
Next
End Function
Function 取随机位置(长度)
Randomize
取随机位置= Int((长度 - 1 + 1) * Rnd + 1)
End Function

这把鼠标右键改成F1

发新话题 回复该主题