全套驱动级键盘模拟支持64位系统

鼠标_移动 (句柄, 792, 228)
按键.鼠标_左键单击 ()
.计次循环首 (10, )
安少_超级延时 (100, 0)
按键.键盘_按键2 (#删除线, 1)
按键.键盘_按键2 (#删除线, 2)
.计次循环尾 ()
按键.键盘_输入字符 (账号)
鼠标_移动 (句柄, 800, 256)
按键.鼠标_左键单击 ()
按键.键盘_模拟键盘输入密码 (密码)
鼠标_移动 (句柄, 742, 368)
按键.鼠标_左键单击 ()

.子程序 超级延时, , 公开, 不卡窗口，线程中请直接使用 延时() 或 sleep()
.参数 延时间隔, 整数型, 可空, 1000毫秒 = 1秒。留空或≤0则无限等待
.参数 延时单位, 整数型, 可空, 默认为毫秒 0=毫秒 1=秒 2=分钟 3=小时
.局部变量 a, 整数型
.局部变量 b, 结构_1

.判断开始 (延时间隔 ≤ 0)
延时间隔 ＝ 5000 × 60 × 60
延时单位 ＝ 5000 × 60 × 60
.判断 (延时单位 ＝ 0)
延时单位 ＝ 1
.判断 (延时单位 ＝ 1)
延时单位 ＝ 1000
.判断 (延时单位 ＝ 2)
延时单位 ＝ 1000 × 60
.判断 (延时单位 ＝ 3)
延时单位 ＝ 1000 × 60 × 60
.默认

.判断结束
b.i ＝ -10 × 延时间隔 × 1000 × 延时单位
a ＝ CreateWaitableTimerA (0, 假, 0)
SetWaitableTimer (a, b, 0, 0, 0, 假)
.判断循环首 (WaitForSingleObject (a, 1) ≠ 0)
安少_程序_处理事件 ()
.判断循环尾 ()
CloseHandle (a)

.子程序 安少_取特定目录, 文本型, 公开, 本命令返回指定的Windows系统特定目录，所返回目录名以“\”符号结束，如失败返回空文本。
.参数 欲获取目录类型, 整数型, , 本参数指定欲获取目录的类型，可以为以下常量值之一： 1=我的文档; 2=我的收藏夹; 3=系统桌面; 4=系统字体; 5=开始菜单组; 6=程序菜单组; 7=启动菜单组; 8=程序数据目录; 9=Windows安装目录; 10=Windows系统目录; 11=临时文件目录。
.参数 转换为长目录, 逻辑型, 可空, 默认为真
.局部变量 文本变量_1, 文本型
.局部变量 a, 整数型
.局部变量 b, 逻辑型
.局部变量 c, 整数型
.局部变量 文本变量_2, 文本型

文本变量_1 ＝ 取空白文本 (260)
a ＝ 欲获取目录类型
.判断开始 (a ≥ 1 且 a ≤ 8)
c ＝ 多项选择 (a, 5, 6, 16, 20, 11, 2, 7, 26)
.如果真 (SHGetSpecialFolderPathA (0, 文本变量_1, c, 假))
b ＝ 真
.如果真结束

.判断 (a ＝ 9)
b ＝ GetWindowsDirectoryA (文本变量_1, 260) ＞ 0
.判断 (a ＝ 10)
b ＝ GetSystemDirectoryA (文本变量_1, 260) ＞ 0
.判断 (a ＝ 11)
b ＝ GetTempPathA (260, 文本变量_1) ＞ 0
.默认
返回 (“”)
.判断结束
.如果真 (取文本右边 (文本变量_1, 1) ≠ “\”)
文本变量_1 ＝ 文本变量_1 ＋ “\”
.如果真结束
.如果真 (是否为空 (转换为长目录) 或 转换为长目录 ＝ 真)
文本变量_2 ＝ 目录_转换为长路径 (文本变量_1)
.如果真结束
.如果 (文本变量_2 ＝ “”)
返回 (文本变量_1)
.否则
返回 (文本变量_2)