mwbr.net
当前位置:首页 >> 按键精灵 文档 >>

按键精灵 文档

A1=5+5 Call Plugin.File.WriteFileEx("C:\Log.txt", a1) Delay 1000 RunApp "C:\Log.txt"//打开TXT看看

Text = Plugin.File.ReadFileEx("d:\我的文档\桌面\新建 文本文档.txt")//文档位置你自己改 dim MyArray MyArray = Split(Text, "|") If UBound(MyArray)>=0 Then i=0 For UBound(MyArray) //下面这句是得到文本内容 SayString Cstr(MyArray(i))...

帮你写好啦,直接copy上去运行即可,表太谢我~ ======================================= //读取txt word = Plugin.File.ReadFileEx("C:\1.txt") //分割为行 Dim hang hang = split(hang, "|") //循环打出每一行 For i = 0 To UBound(hang) SayS...

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

假设d:\001.txt 红记录格式为 帐号1 密码1 .... text = Plugin.File.ReadFileEx("d:\001.txt") arrZM = Split(text, "|") For i = 0 To UBound(arrZM) -1 Step 2 zhanghao = arrzm(i) mima = arrzm(i + 1) TracePrint "帐号是" & zhanghao & "密...

“”部分用ascii码代替“是chr34 SayString "band"&Chr(34)&"1"& Chr(34) //band“1”

你的问题非常模糊 下面提供一些例子代码你自己研究看看 Text = Plugin.File.ReadFileEx("C:\Log.txt") //获取C:\Log.TXT里面的所有内容,返回给text MessageBox text Text = Lib.文件.读取指定行文本内容("C:\Log.txt", 1) //获取C:\Log.TXT里...

text=Plugin.File.ReadFileEx("C:\网通一区.txt") Marry = split(text, "|") For n0 = 0 To UBound(Marry)-1 Next n0 = 0 Do Rem 登录 Delay 800 //------------------- hwnd = Plugin.Window.find(0, "开学的诱惑-剑灵官方网站-腾讯游戏") Trac...

由于换行符与账号密码分隔符一样,都是"|",所以这里我把":"当做账号密码分隔符。 代码: Dim Path, Text, i, zm Path="C:\Documents and Settings\Administrator\桌面\新建 文本文档.txt" '填入文件路径 Text = Plugin.File.ReadFileEx(Path) '...

FilePath="F:\" //这里写文件夹的目录 MyFile = AllFileName(FilePath) For i = 0 To UBound(MyFile) - 1 Call Plugin.File.DeleteFile(FilePath & "\" & MyFile(i)) Next Function AllFileName(FilePath) Dim FileName,fso,folder,f,files File...

网站首页 | 网站地图
All rights reserved Powered by www.mwbr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com