按键脚本c语言,按键精灵脚本(示例代码)

1电脑版读取文件脚本Dim path

path = "C:/Users/Administrator/Desktop/accounts"

//直接读取文件到变量,文件的每一行在变量中以|分隔

Text = Plugin.File.ReadFileEx(path)

MessageBox "Text" & text

TracePrint Text   //只是调试状态才显示

//打开文件，循环读取每一行

Dim fileHandle

fileHandle = Plugin.File.OpenFile(path)

i=0

Dim arrays(9) ,fileline   //定义数组

Do While true

fileline = Plugin.File.ReadLine(fileHandle)

TracePrint  fileline

// MessageBox "fileline " & fileline

If ( fileline="" )then

Call Plugin.File.CloseFile(fileHandle)  //一定要关闭，不关闭无法读取文件

Exit Do

Else

arrays(i)=fileline

i=i+1

End If

Loop

TracePrint UBound(arrays)

Delay  8000

//遍历数组

For j=0 To UBound(arrays) step 1

TracePrint