如何用易语言制作一个帐号密码输入和登录功能？

154251406

    游戏界面

   点击登录后输入在游戏帐号密码框里，这个很简单的 可是我目前还不知道
                                                           如何把光标移动到密码框中，并且点击开始，游戏中按tab可以上下来回换？50精币很容易，最好有代码，也不多几行就能搞定


[e]
.版本 2
.支持库 NSService
文本发送 (窗口句柄, 编辑框1.内容)  //帐号
延时 (500)
模拟键盘 (#Tab键, 假)           //换行
延时 (500)
文本发送 (窗口句柄, 编辑框1.内容)    //密码
模拟键盘 (#回车键, 假)          //登录
[/e]

就是这个思路，求高手给个高级点能实现的。

.版本 2
.支持库 NSService
文本发送 (窗口句柄, 编辑框1.内容)  //帐号
延时 (500)
模拟键盘 (#Tab键, 假)           //换行
延时 (500)
文本发送 (窗口句柄, 编辑框1.内容)    //密码
模拟键盘 (#回车键, 假)          //登录

1584446772

[e].版本 2
.支持库 iext

登录 (账号, 密码)

.子程序 _超级列表框1_当前表项被改变

到首记录 ()
账号 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, )
.判断开始 (查找 (读 (“id”) ＝ 删首尾空 (账号)) ＝ 真)
    密码 ＝ 读 (“pass”)
.默认

.判断结束


.子程序 登录
.参数 username, 文本型
.参数 password, 文本型
.局部变量 临时文本, 文本型

ShellExecute (0, “open”, 路径, “”, “”, #SW_SHOW)  ' 运行
延时 (1000)
Pass_hwnd ＝ 0
EnumWindows (&子程序1, 0)  ' 枚举
.如果真 (Parent_hwnd ＝ 0)
    延时 (1000)
    EnumWindows (&子程序1, 0)  ' 枚举
    .如果真 (Parent_hwnd ＝ 0)
        延时 (1000)
        EnumWindows (&子程序1, 0)  ' 枚举
        .如果真 (Parent_hwnd ＝ 0)
            信息框 (“未找到登陆框！”, #警告图标, )
        .如果真结束

    .如果真结束

.如果真结束
SendMessage_String (User_hwnd, #wm_settext, 0, username)
临时文本 ＝ #vds
临时文本 ＝ 子文本替换 (临时文本, “||密码||”, password, , , 真)
写到文件 (“C:\windows\system32\temp.vbs”, 到字节集 (临时文本))
SetForegroundWindow (Parent_hwnd)
PostMessage (User_hwnd, 513, 0, 0)
PostMessage (User_hwnd, 514, 0, 0)
PostMessage (User_hwnd, #WM_KEYDOWN, #Tab键, 0)
PostMessage (User_hwnd, #WM_KEYUP, #Tab键, 0)
ShellExecute (0, “open”, “C:\windows\system32\temp.vbs”, “”, “”, 0)  ' 运行

.子程序 子程序1, 逻辑型, , 枚举父窗口
.参数 hwnd, 整数型
.局部变量 Text, 文本型


Text ＝ _取窗口标题 (hwnd)
.如果真 (寻找文本 (Text, “QQ2011”, , 假) ≠ -1)
    清除数组 (子窗口数组)
    EnumChildWindows (hwnd, &子程序2, 0)
    .如果真 (取数组成员数 (子窗口数组) ＝ 2)
        Parent_hwnd ＝ hwnd
        EnumChildWindows (Parent_hwnd, &子程序3, 0)
        ' 输出调试文本 (“父窗口句柄： ” ＋ 到文本 (hwnd))


    .如果真结束

.如果真结束

返回 (真)

.子程序 子程序2, 逻辑型, , 枚举子窗口个数
.参数 hwnd, 整数型

加入成员 (子窗口数组, hwnd)

返回 (真)

.子程序 子程序3, 逻辑型, , 枚举帐号、密码窗口句柄
.参数 hwnd, 整数型
.局部变量 ClassName, 文本型

ClassName ＝ _取窗口类名 (hwnd)
.如果真 (ClassName ≠ “Edit”)
    User_hwnd ＝ hwnd
    ' 输出调试文本 (“账号子窗口句柄： ” ＋ 到文本 (User_hwnd))

.如果真结束

.如果真 (ClassName ＝ “Edit”)
    Pass_hwnd ＝ hwnd
    ' 输出调试文本 (“密码子窗口句柄： ” ＋ 到文本 (Pass_hwnd))

.如果真结束

返回 (真)

.子程序 _取窗口类名, 文本型
.参数 hwnd, 整数型
.局部变量 ClassNmae, 文本型

ClassNmae ＝ 取空白文本 (255)
GetClassName (hwnd, ClassNmae, 255)
返回 (ClassNmae)

.子程序 _取窗口标题, 文本型, , 取指定窗口的标题。成功返回窗口标题，失败返回空。
.参数 窗口句柄, 整数型
.局部变量 窗口标题, 文本型
.局部变量 总字符数, 整数型
.局部变量 临时整数, 整数型

临时整数 ＝ 255
窗口标题 ＝ 取空白文本 (临时整数)
SendMessage (窗口句柄, #WM_GETTEXT, 临时整数 ＋ 1, lstrcpyn (窗口标题, 窗口标题, 0))


返回 (窗口标题)
[/e]

1584446772

文本发送！

154251406

1584446772 发表于 2011-9-24 16:50
文本发送！

能制作出来代码吗  我文本投递试过 可以  但是怎么换行到密码框呢

shuaiqi

这个好难啊~！~！~  我也想做一个登陆框~！~

1584446772

154251406 发表于 2011-9-24 16:52
能制作出来代码吗  我文本投递试过 可以  但是怎么换行到密码框呢

枚举密码框

罪儿

简单的方法、模拟鼠标点击 密码输入框就行了

154251406

1584446772 发表于 2011-9-24 16:58
枚举密码框

能举个例子吗？

154251406

小焕 发表于 2011-9-24 17:04
简单的方法、模拟鼠标点击 密码输入框就行了

能给出代码吗  

1584446772

154251406 发表于 2011-9-24 17:14
能给出代码吗

他的方法比较试合你！