------------------------------------------------------------------- vbKeyNum0 96 0 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum1 97 1 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum2 98 2 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum3 99 3 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum4 100 4 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum5 101 5 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum6 102 6 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum7 103 7 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum8 104 8 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyNum9 105 9 键 (在数字小键盘上)
------------------------------------------------------------------- vbKeyMultiply 106 乘号(*) 键
------------------------------------------------------------------- vbKeyAdd 107 加号(+) 键
------------------------------------------------------------------- vbKeySeparator 108 Enter键(在数字小键盘上)
------------------------------------------------------------------- vbKeySubtract 109 减号(-) 键
------------------------------------------------------------------- vbKeyDecimal 110 小数点(.) 键
------------------------------------------------------------------- vbKeyDivide 111 除号(/) 键
------------------------------------------------------------------- vbKeyF1 112 F1 键
------------------------------------------------------------------- vbKeyF2 113 F2 键
------------------------------------------------------------------- vbKeyF3 114 F3 键
------------------------------------------------------------------- vbKeyF4 115 F4 键
------------------------------------------------------------------- vbKeyF5 116 F5 键
------------------------------------------------------------------- vbKeyF6 117 F6 键
------------------------------------------------------------------- vbKeyF7 118 F7 键
------------------------------------------------------------------- vbKeyF8 119 F8 键
------------------------------------------------------------------- vbKeyF9 120 F9 键
------------------------------------------------------------------- vbKeyF10 121 F10 键
------------------------------------------------------------------- vbKeyF11 122 F11 键
------------------------------------------------------------------- vbKeyF12 123 F12 键
------------------------------------------------------------------- vbKeyF13 124 F13 键
------------------------------------------------------------------- vbKeyF14 125 F14 键
------------------------------------------------------------------- vbKeyF15 126 F15 键
------------------------------------------------------------------- vbKeyF16 127 F16 键
------------------------------------------------------------------- vbKeyNumlock 144 NUM LOCK 键
-------------------------------------------------------------------
【制作】一只鱼♂『ONEFISH-BOY』 网上教程 - 用按键脚本读写TXT文件的教程
--------------------------------------------------------------------------------
来源: 兄弟工作组按键精灵讨论区(欢迎大家来讨论) 作者: 酒心
标题: 用按键脚本读写TXT文件的教程 读写TXT文件的教程: 定义一个变量fso VBS Dim fso
创建并返回对对象Scripting.FileSystemObject的引用。这句我也不知道是不是这个意思~反正要读写TXT必须调用Scripting.FileSystemObject~所以这句你记着写就行了 VBS set fso=CreateObject(\
下面定义三个常量是在打开TXT文件时用于说明打开方式的~后面还会说到 VBS const forreading=1 VBS const forwriting=2 VBS const forappending=8 判断文件是否存在,=0就表示不存在 If fso.FileExists(\
endif
文件不存在的话可以建立一个新TXT文件,变量F中存放文件路径和文件名 vbs set myfile=fso.createtextfile(f) 刚创建的文件默认是以写操作方式打开的 文件存在的话可以打开
以读操作方式打开文件,forreading常量前面设了=1表示读方式 vbs set myfile=fso.opentextfile(f,forreading)
以写操作方式打开文件,forwriting常量前面设了=2表示写方式,此方式打开的文件不敢以前有没有内容打开时都变成空TXT文件~写的时候从第一行开始写,覆盖掉以前所有内容 vbs set myfile=fso.opentextfile(f,forwriting)
以追加写操作方式打开文件,forappending常量前面设了=8表示追加写方式,此方式打开文件时保留以前的内容~写的时候接在以前内容的后面一行开始写。 vbs set myfile=fso.opentextfile(f,forappending)
只有以读操作方式打开文件后可以读TXT文件的内容,刚打开的文件第一次读为第一行~再读一次为第二行
vbs a=myfile.readline
判断是否到达最后一行,如果到了就是-1如果没到就是0 myfile.atendofstream=-1
以写操作方式打开的文件可以进行写操作,一条写语句可以写入一行,第二次写为写入第二行,b是一个变量~里面是要写入的内容 vbs myfile.writeline(b )
如果a是一个数值变量则应转换成字符串再写 vbs myfile.writeline(cstr(b ))
关闭文件,若文件已用某种方式打开,需要以另一方式打开时需要先关闭 vbs myfile.close
以上内容是凌鹤羽老师教我的~我整理了一下~希望大家看得懂~在此也感谢凌鹤羽老师~谢谢 OnScriptExit、OnScriptLoad子程序
-------------------------------------------------------------------------------- 说明
OnScriptExit子程序可以在脚本正常结束或者按下热键结束时执行。脚本作者可以在这里写一些鼠标位置恢复或者释放文件句柄之类的脚本内容。
OnScriptLoad子程序可以在脚本加载时自动执行。脚本作者可以在这里做一些脚本运行初始化的工作,例如释放一些配置文件供OCX界面读取。 使用方法
在脚本中自定义一个OnScriptExit或OnScriptLoad的子程序即可,按键精灵会自动识别并且执行这个过程。例如: Sub OnScriptLoad
MessageBox \脚本已加载!可以在这里释放一些配置文件供OCX界面读取\Return
Sub OnScriptExit
MessageBox \脚本已经停止!\RestoreMousePos
Return 注意
您也可以像调用其他过程一样随时调用这两个子程序。