关于代码 语法问题 密码输入代码问题谢谢解答

临沂互联

请教如何把两个子程序合成一个   点击开始 就开始执行不需要启动子程序 在就一个子程序里执行就可以 如何实现  比如这样一个子程序  .版本 2
.支持库 eAPI
.程序集 窗口程序集_启动窗口
.子程序 _按钮_开始_被单击
.局部变量 序号位数, 整数型
.局部变量 帐号, 文本型
.局部变量 a, 整数型
.局部变量 数字, 文本型
模拟鼠标点击 (100, 100, 0)
延时 (500)
帐号 ＝ “qwertyuiopasdfghjklzxcvbnm1234567890QWERTYUIOPASDFGHJKLZXCVBNM!@#$%^&*(.”
序号位数 ＝ 取文本长度 (帐号)
.计次循环首 (序号位数, a)
    数字 ＝ 取文本中间 (帐号, a, 1)
    输入密码 (数字)
    延时 (100)
.计次循环尾 ()
.如果真 (取键盘指示灯状态 (0) ＝ 假)
    模拟按键 (#NumLock键, , )
.如果真结束
.如果真 (取键盘指示灯状态 (1) ＝ 真)
    模拟按键 (#CapsLock键, , )
.如果真结束
' 小写开始
.如果真 (内容 ＝ “q”)
    模拟按键 (#Q键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “w”)
    模拟按键 (#W键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “e”)
    模拟按键 (#E键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “r”)
    模拟按键 (#R键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “t”)
    模拟按键 (#T键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “y”)
    模拟按键 (#Y键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “u”)
    模拟按键 (#U键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “i”)
    模拟按键 (#I键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “o”)
    模拟按键 (#O键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “p”)
    模拟按键 (#P键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “a”)
    模拟按键 (#A键, , )
    返回 ()
.如果真结束

.如果真 (内容 ＝ “s”)
    模拟按键 (#S键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “d”)
    模拟按键 (#D键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “f”)
    模拟按键 (#F键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “g”)
    模拟按键 (#G键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “h”)
    模拟按键 (#H键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “j”)
    模拟按键 (#J键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “k”)
    模拟按键 (#K键, , )
    返回 ()
.如果真结束

.如果真 (内容 ＝ “l”)
    模拟按键 (#L键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “z”)
    模拟按键 (#Z键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “x”)
    模拟按键 (#X键, , )
    返回 ()
.如果真结束

.如果真 (内容 ＝ “c”)
    模拟按键 (#C键, , )
    返回 ()
.如果真结束

.如果真 (内容 ＝ “v”)
    模拟按键 (#V键, , )
    返回 ()
.如果真结束

.如果真 (内容 ＝ “b”)
    模拟按键 (#B键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “n”)
    模拟按键 (#N键, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “m”)
    模拟按键 (#M键, , )
    返回 ()
.如果真结束
' 大写开始
.如果真 (内容 ＝ “Q”)
    模拟按键 (#Shift键, #Q键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “W”)
    模拟按键 (#Shift键, #W键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “E”)
    模拟按键 (#Shift键, #E键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “R”)
    模拟按键 (#Shift键, #R键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “T”)
    模拟按键 (#Shift键, #T键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “Y”)
    模拟按键 (#Shift键, #Y键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “U”)
    模拟按键 (#Shift键, #U键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “I”)
    模拟按键 (#Shift键, #I键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “O”)
    模拟按键 (#Shift键, #O键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “P”)
    模拟按键 (#Shift键, #P键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “A”)
    模拟按键 (#Shift键, #A键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “S”)
    模拟按键 (#Shift键, #S键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “D”)
    模拟按键 (#Shift键, #D键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “F”)
    模拟按键 (#Shift键, #F键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “G”)
    模拟按键 (#Shift键, #G键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “H”)
    模拟按键 (#Shift键, #H键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “J”)
    模拟按键 (#Shift键, #J键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “K”)
    模拟按键 (#Shift键, #K键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “L”)
    模拟按键 (#Shift键, #L键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “Z”)
    模拟按键 (#Shift键, #Z键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “X”)
    模拟按键 (#Shift键, #X键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “C”)
    模拟按键 (#Shift键, #C键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “V”)
    模拟按键 (#Shift键, #V键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “B”)
    模拟按键 (#Shift键, #B键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “N”)
    模拟按键 (#Shift键, #N键, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “M”)
    模拟按键 (#Shift键, #M键, )
    返回 ()
.如果真结束
' 符号键
.如果真 (内容 ＝ “！”)
    模拟按键 (#Shift键, #键1, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “@”)
    模拟按键 (#Shift键, #键2, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “#”)
    模拟按键 (#Shift键, #键3, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “￥”)
    模拟按键 (#Shift键, #键4, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “%”)
    模拟按键 (#Shift键, #键5, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “……”)
    模拟按键 (#Shift键, #键6, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “&”)
    模拟按键 (#Shift键, #键7, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “*”)
    模拟按键 (#Shift键, #键8, )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “.”)
    模拟按键 (110, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “0”)
    模拟按键 (#键0, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “1”)
    模拟按键 (#键1, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “2”)
    模拟按键 (#键2, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “3”)
    模拟按键 (#键3, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “4”)
    模拟按键 (#键4, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “5”)
    模拟按键 (#键5, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “6”)
    模拟按键 (#键6, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “7”)
    模拟按键 (#键7, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “8”)
    模拟按键 (#键8, , )
    返回 ()
.如果真结束
.如果真 (内容 ＝ “9”)
    模拟按键 (#键9, , )
    返回 ()
.如果真结束

大司命

如此，这般~

临沂互联

.e是源文件  请大哥们帮修改一下放一个子程序里  谢谢

ming7

说真的，佩服你的毅力

ming7

密码.e (2.99 KB, 下载次数: 3)

2019-2-8 12:32 上传

点击文件名下载附件

真的佩服你的毅力，没说笑，这是改好的

ming7

变量忘记给你加上去了，自己添加下变量即可

走一回

要修改的位置
1\.局部变量 数字, 文本型   改成   .局部变量 内容, 文本型
2\所有的  返回(),  全部注销掉,因为你输入一个字符就返回,后面的就不执行了.
3\需要测试的话,就添加一个编辑框,,在  序号位数 ＝ 取文本长度 (帐号)    的代码下面    编辑框1.获取焦点()

npzs

你代码写的真长啊。。。。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_开始_被单击

变量名	类 型	静态	数组	备 注
序号位数	整数型
帐号	文本型
a	整数型
键代码

模拟鼠标点击 (100, 100, 0)
延时 (500)
帐号 ＝ “qwertyuiopasdfghjklzxcvbnm1234567890QWERTYUIOPASDFGHJKLZXCVBNM!@#$%^&*(.”
序号位数 ＝ 取文本长度 (帐号)
如果真 (取键盘指示灯状态 (0) ＝ 假)
模拟按键 ( #NumLock键, , )
如果真 (取键盘指示灯状态 (1) ＝ 真)
模拟按键 ( #CapsLock键, , )

计次循环首 (序号位数, a)
键代码 ＝ 取代码 (帐号, a)
判断 (键代码 ≥ 97 且 键代码 ≤ 122 或 键代码 ≥ 49 且 键代码 ≤ 57)  ' 小写字符和数字 0-9
模拟按键 (键代码, , )
判断 (键代码 ≥ 65 且 键代码 ≤ 90)  ' 大写字符
模拟按键 ( #Shift键, 键代码, )
判断 (键代码 ＝ 33)  ' 33 = "!", 也就是半角的感叹号，你上面也没有全角的，如果你的程序需要处理全角字符，你需要在循环之前有一句：帐号 ＝ 到半角 (帐号) 即可，其他雷同
模拟按键 ( #Shift键, #键1, )
判断 (键代码 ＝ 64)  ' 64 = "@"
模拟按键 ( #Shift键, #键2, )
判断 (键代码 ＝ 35)  ' 35 = "#"
模拟按键 ( #Shift键, #键3, )
判断 (键代码 ＝ 36)  ' 36 = "$"
模拟按键 ( #Shift键, #键4, )
判断 (键代码 ＝ 37)  ' 37 = "%"
模拟按键 ( #Shift键, #键5, )
判断 (键代码 ＝ 94)  ' 94 = "^"
模拟按键 ( #Shift键, #键6, )
判断 (键代码 ＝ 38)  ' 38 = "&"
模拟按键 ( #Shift键, #键7, )
判断 (键代码 ＝ 42)  ' 42 = "*"
模拟按键 ( #Shift键, #键8, )
判断 (键代码 ＝ 40)  ' 40 = "("
模拟按键 ( #Shift键, #键9, )
判断 (键代码 ＝ 41)  ' 41 = ")"
模拟按键 ( #Shift键, #键0, )
判断 (键代码 ＝ 46)  ' 46 = "."
模拟按键 (110, , )
判断 (键代码 ＜ 0)
如果真 (序号位数 － a ≥ 3)  ' 在你上面的数据里，这个是根本不可能发生的
如果真 (键代码 ＝ -95 且 取代码 (帐号, a ＋ 1) ＝ -83 且 取代码 (帐号, a ＋ 2) ＝ -95 且 取代码 (帐号, a ＋ 3) ＝ -83)  ' “……”
模拟按键 ( #Shift键, #键6, )
a ＝ a ＋ 3


到循环尾 ()

延时 (100)
计次循环尾 ()
' 在你源程序的这里，又写了一份类似的按键处理，也就是你想合并的部分，但你那个是根本无法执行的，因为你复制的那一段，总得有个叫 “内容”的参数或变量吧，可是你的源程序 按钮 事件里，根本没这个变量。。
' 也就是说，你想再运行一次，你是以什么为“内容”的呢？我拿哪个数据获取按键代码呢？？

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮_开始_被单击<br /> .局部变量 序号位数, 整数型<br /> .局部变量 帐号, 文本型<br /> .局部变量 a, 整数型<br /> .局部变量 键代码<br /> <br /> 模拟鼠标点击 (100, 100, 0)<br /> 延时 (500)<br /> 帐号 ＝ “qwertyuiopasdfghjklzxcvbnm1234567890QWERTYUIOPASDFGHJKLZXCVBNM!@#$%^&*(.”<br /> 序号位数 ＝ 取文本长度 (帐号)<br /> <br /> .如果真 (取键盘指示灯状态 (0) ＝ 假)<br />     模拟按键 (#NumLock键, , )<br /> .如果真结束<br /> .如果真 (取键盘指示灯状态 (1) ＝ 真)<br />     模拟按键 (#CapsLock键, , )<br /> .如果真结束<br /> <br /> .计次循环首 (序号位数, a)<br />     键代码 ＝ 取代码 (帐号, a)<br /> <br />     .判断开始 (键代码 ≥ 97 且 键代码 ≤ 122 或 键代码 ≥ 49 且 键代码 ≤ 57)  ' 小写字符和数字 0-9<br />         模拟按键 (键代码, , )<br />     .判断 (键代码 ≥ 65 且 键代码 ≤ 90)  ' 大写字符<br />         模拟按键 (#Shift键, 键代码, )<br />     .判断 (键代码 ＝ 33)  ' 33 = "!", 也就是半角的感叹号，你上面也没有全角的，如果你的程序需要处理全角字符，你需要在循环之前有一句：帐号 ＝ 到半角 (帐号) 即可，其他雷同<br />         模拟按键 (#Shift键, #键1, )<br />     .判断 (键代码 ＝ 64)  ' 64 = "@"<br />         模拟按键 (#Shift键, #键2, )<br />     .判断 (键代码 ＝ 35)  ' 35 = "#"<br />         模拟按键 (#Shift键, #键3, )<br />     .判断 (键代码 ＝ 36)  ' 36 = "$"<br />         模拟按键 (#Shift键, #键4, )<br />     .判断 (键代码 ＝ 37)  ' 37 = "%"<br />         模拟按键 (#Shift键, #键5, )<br />     .判断 (键代码 ＝ 94)  ' 94 = "^"<br />         模拟按键 (#Shift键, #键6, )<br />     .判断 (键代码 ＝ 38)  ' 38 = "&"<br />         模拟按键 (#Shift键, #键7, )<br />     .判断 (键代码 ＝ 42)  ' 42 = "*"<br />         模拟按键 (#Shift键, #键8, )<br />     .判断 (键代码 ＝ 40)  ' 40 = "("<br />         模拟按键 (#Shift键, #键9, )<br />     .判断 (键代码 ＝ 41)  ' 41 = ")"<br />         模拟按键 (#Shift键, #键0, )<br />     .判断 (键代码 ＝ 46)  ' 46 = "."<br />         模拟按键 (110, , )<br />     .判断 (键代码 ＜ 0)<br />         .如果真 (序号位数 － a ≥ 3)  ' 在你上面的数据里，这个是根本不可能发生的<br />             .如果真 (键代码 ＝ -95 且 取代码 (帐号, a ＋ 1) ＝ -83 且 取代码 (帐号, a ＋ 2) ＝ -95 且 取代码 (帐号, a ＋ 3) ＝ -83)  ' “……”<br />                 模拟按键 (#Shift键, #键6, )<br />                 a ＝ a ＋ 3<br />             .如果真结束<br /> <br />         .如果真结束<br /> <br />     .默认<br />         到循环尾 ()<br />     .判断结束<br /> <br />     延时 (100)<br /> .计次循环尾 ()<br /> <br /> ' 在你源程序的这里，又写了一份类似的按键处理，也就是你想合并的部分，但你那个是根本无法执行的，因为你复制的那一段，总得有个叫 “内容”的参数或变量吧，可是你的源程序 按钮 事件里，根本没这个变量。。<br /> ' 也就是说，你想再运行一次，你是以什么为“内容”的呢？我拿哪个数据获取按键代码呢？？

密码.e (5.83 KB, 下载次数: 1)

2019-2-8 13:17 上传

点击文件名下载附件