按键精灵如何转码输出txt文档
For8RemaaaaRandomizeVBSm=Int((99*Rnd)+1)Ifm>64andm<91KeyPressM,1ElseGotoaaaaCallPlugi...
For 8
Rem aaaa
Randomize
VBS m = Int((99 * Rnd) + 1)
If m>64 and m<91
KeyPress M,1
Else
Goto aaaa
Call Plugin.File.WriteFileEx("D:\帐号.txt",m)
End If
EndFor
输出文档里如何成为字母? 展开
Rem aaaa
Randomize
VBS m = Int((99 * Rnd) + 1)
If m>64 and m<91
KeyPress M,1
Else
Goto aaaa
Call Plugin.File.WriteFileEx("D:\帐号.txt",m)
End If
EndFor
输出文档里如何成为字母? 展开
1个回答
展开全部
a = "sdsakch1456fgg"
s = len(a)
For n = 1 To s
MyVar = Mid(a, n, 1)
TracePrint MyVar
Next
追问
在我的式子的基础上如何完美插入?我需要在输出8位字母的同时输入相同的8位字母到txt文档!
追答
zz = ""
For 8
Randomize
m = Int(((91 - 64) * Rnd) + 64)
KeyPress M, 1
zz = zz & chr(M)
Next
Call Plugin.File.WriteFileEx("D:\帐号.txt", zz)
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询