首页 分类 游戏单 论坛 投稿
历史
点击修改头像 u77_90118
快来个人中心设置签名哟~
投稿:0 收录:0
评测:0 认同:0
文章:0 赞次:0
我的动态 投稿游戏 评测 文章 游戏单
0
0
黑客放置 发表了评论 2018-01-30 20:22
//D盘根目录下建立1.txt  第一行里有全部需要输入的文字即可 Dim String1  //文字串Dim word     //字母数组Dim keyPDim Lpath = "d:\1.txt"     ... 显示全部

//D盘根目录下建立1.txt  第一行里有全部需要输入的文字即可 

Dim String1  //文字串

Dim word     //字母数组

Dim keyP

Dim L


path = "d:\1.txt"    

fileHandle=Plugin.File.OpenFile(path)

String1=Plugin.File.ReadLine(fileHandle)

Call Plugin.File.CloseFile(fileHandle)


String1 = UCase(String1)

word = Array(0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)

L=Len(string1)-1

For i = 0 To L


word(i) = right(Left(String1, i + 1), 1)

Next

Delay 500

For i = 0 To L

KeyP = Asc(word(i))

If word(i) = "'" Then 

KeyP = 222

ElseIf word(i) = "_" Then

KeyP = 95

End If

    KeyDown KeyP, 1

    Delay 10

    KeyUp KeyP, 1

Next


收起
立即评论 投诉 回复(0)
1 跳转