易语言Ex_Dui例程,最近学习自绘的源码

祁辛

最近无聊学习自绘搞了个易语言登录器自绘，如果对Ex_Dui自绘感兴趣的可以拿去学习下，新手学习交流帖子，老鸟可以灰过~~·
调用了精易模块3.45
精易模块大家都有的吧 ~~

  

窗口程序集名	保 留	保 留	备 注
程序集1
变量名	类 型	数组	备 注
挂载窗口	Ex_DirectUI
hwnd	整数型
编辑框_用户名	编辑框_Ex
编辑框_密码	编辑框_Ex
标签_用户名	标签_Ex
标签_密码	标签_Ex
按钮_登录	按钮_Ex
图片框_验证码	图片框_Ex
编辑框_验证码	编辑框_Ex
分组框	分组框_Ex
标签_铜币	标签_Ex
标签_威望	标签_Ex
标签_身份	标签_Ex

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

创建窗口组件 ()
返回 (0) ' 可以根据您的需要返回任意数值

子程序名	返回值类型	公开	备 注
创建窗口组件

hwnd ＝ 窗口_创建 (, “易语言论坛登陆器”, 50, 50, 464, 259)
挂载窗口.挂接窗口 (, hwnd, , , #图片1 )
标签_用户名.创建 (hwnd, 8, 40, 40, 24, “用户名”, RGB2ARGB ( #黑色, 255))
标签_密码.创建 (hwnd, 8, 88, 40, 24, “密 码”, RGB2ARGB ( #黑色, 255))
编辑框_用户名.创建 (hwnd, 64, 40, 192, 32, , RGB2ARGB ( #黑色 ))
编辑框_密码.创建 (hwnd, 64, 80, 192, 32, , RGB2ARGB ( #黑色, 255), , , , , , , , , , #输入方式_密码方式 )
图片框_验证码.创建 (hwnd, 64, 120, 96, 32, HTTP读文件 (“http://bbs.eyuyan.com/ck.php?nowtime=” ＋ 时间_取现行时间戳 ()), 真, , , , , #边框_单线式, 真)
图片框_验证码.事件_被单击 (&图片框_验证码_被单击)
编辑框_验证码.创建 (hwnd, 176, 120, 80, 32, , , , , , , , , 4)
分组框.创建 (hwnd, 264, 24, 192, 128, “个人信息”)
标签_铜币.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 32, 128, 24, “铜币:”, RGB2ARGB ( #黑色, 255), , , , , , , , , , , , , #边框_单线式 )
标签_威望.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 64, 128, 24, “威望:”, RGB2ARGB ( #黑色, 255), , , , , , , , , , , , , #边框_单线式 )
标签_身份.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 96, 128, 24, “身份:”, RGB2ARGB ( #黑色, 255), , , , , , , , , , , , , #边框_单线式 )
按钮_登录.创建 (hwnd, 120, 176, 64, 32, “登录”, RGB2ARGB ( #黑色, 255))
按钮_登录.事件_被单击 (&按钮_登录_被单击)
' -----------------------------------------------------
挂载窗口.置进入特效 ( #特效_进入_渐显 )
窗口_消息循环 (hwnd)

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

变量名	类 型	静态	数组	备 注
地址	文本型
提交的数据	文本型
返回的结果	文本型
正则	正则表达式类

地址 ＝ “http://bbs.eyuyan.com/login.php”
提交的数据 ＝ “jumpurl=http%3A%2F%2Fbbs.eyuyan.com%2Findex.php&step=2&pwuser=” ＋ 编辑框_用户名.内容 () ＋ “&question=0&customquest=&answer=&pwpwd=” ＋ 编辑框_密码.内容 () ＋ “&head_login=&lgt=0”
返回的结果 ＝ 到文本 (网页_访问 (地址, 1, 提交的数据))
正则.创建 ( #个人信息, 返回的结果)
标签_铜币.标题 (“铜币: ” ＋ 正则.取子匹配文本 (1, 1))
标签_威望.标题 (“威望: ” ＋ 正则.取子匹配文本 (1, 2))
标签_身份.标题 (“身份: ” ＋ 正则.取子匹配文本 (1, 3))
输出调试文本 (返回的结果)
判断 (寻找文本 (返回的结果, “用户名或密码错误”, , 假) ≠ -1)
信息框_Ex (hwnd, “用户名或密码错误,登录失败”, #确认钮, “登录提示:”, #错误图标 )
判断 (寻找文本 (返回的结果, 编辑框_用户名.内容 (), , 假) ≠ -1)
信息框_Ex (hwnd, “登录成功!” ＋ 编辑框_用户名.内容 (), #确认钮, “登录提示:”, #信息图标 )

子程序名	返回值类型	公开	备 注
图片框_验证码_被单击

图片框_验证码.图片 (HTTP读文件 (“http://bbs.eyuyan.com/ck.php?nowtime=” ＋ 时间_取现行时间戳 ()))

i支持库列表	支持库注释
internet	互联网支持库

.版本 2<br /> .支持库 internet<br /> <br /> .程序集 程序集1<br /> .程序集变量 挂载窗口, Ex_DirectUI<br /> .程序集变量 hwnd, 整数型<br /> .程序集变量 编辑框_用户名, 编辑框_Ex<br /> .程序集变量 编辑框_密码, 编辑框_Ex<br /> .程序集变量 标签_用户名, 标签_Ex<br /> .程序集变量 标签_密码, 标签_Ex<br /> .程序集变量 按钮_登录, 按钮_Ex<br /> .程序集变量 图片框_验证码, 图片框_Ex<br /> .程序集变量 编辑框_验证码, 编辑框_Ex<br /> .程序集变量 分组框, 分组框_Ex<br /> .程序集变量 标签_铜币, 标签_Ex<br /> .程序集变量 标签_威望, 标签_Ex<br /> .程序集变量 标签_身份, 标签_Ex<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> <br /> 创建窗口组件 ()<br /> 返回 (0) ' 可以根据您的需要返回任意数值<br /> <br /> .子程序 创建窗口组件<br /> <br /> hwnd ＝ 窗口_创建 (, “易语言论坛登陆器”, 50, 50, 464, 259)<br /> 挂载窗口.挂接窗口 (, hwnd, , , #图片1)<br /> 标签_用户名.创建 (hwnd, 8, 40, 40, 24, “用户名”, RGB2ARGB (#黑色, 255))<br /> 标签_密码.创建 (hwnd, 8, 88, 40, 24, “密 码”, RGB2ARGB (#黑色, 255))<br /> 编辑框_用户名.创建 (hwnd, 64, 40, 192, 32, , RGB2ARGB (#黑色))<br /> 编辑框_密码.创建 (hwnd, 64, 80, 192, 32, , RGB2ARGB (#黑色, 255), , , , , , , , , , #输入方式_密码方式)<br /> 图片框_验证码.创建 (hwnd, 64, 120, 96, 32, HTTP读文件 (“http://bbs.eyuyan.com/ck.php?nowtime=” ＋ 时间_取现行时间戳 ()), 真, , , , , #边框_单线式, 真)<br /> 图片框_验证码.事件_被单击 (&图片框_验证码_被单击)<br /> <br /> 编辑框_验证码.创建 (hwnd, 176, 120, 80, 32, , , , , , , , , 4)<br /> 分组框.创建 (hwnd, 264, 24, 192, 128, “个人信息”)<br /> 标签_铜币.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 32, 128, 24, “铜币:”, RGB2ARGB (#黑色, 255), , , , , , , , , , , , , #边框_单线式)<br /> 标签_威望.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 64, 128, 24, “威望:”, RGB2ARGB (#黑色, 255), , , , , , , , , , , , , #边框_单线式)<br /> 标签_身份.创建 (分组框.取窗口句柄 (), 分组框.左边 () ＋ 16, 分组框.顶边 () ＋ 96, 128, 24, “身份:”, RGB2ARGB (#黑色, 255), , , , , , , , , , , , , #边框_单线式)<br /> 按钮_登录.创建 (hwnd, 120, 176, 64, 32, “登录”, RGB2ARGB (#黑色, 255))<br /> 按钮_登录.事件_被单击 (&按钮_登录_被单击)<br /> ' -----------------------------------------------------<br /> 挂载窗口.置进入特效 (#特效_进入_渐显)<br /> 窗口_消息循环 (hwnd)<br /> <br /> <br /> .子程序 按钮_登录_被单击<br /> .局部变量 地址, 文本型<br /> .局部变量 提交的数据, 文本型<br /> .局部变量 返回的结果, 文本型<br /> .局部变量 正则, 正则表达式类<br /> <br /> 地址 ＝ “http://bbs.eyuyan.com/login.php”<br /> 提交的数据 ＝ “jumpurl=http%3A%2F%2Fbbs.eyuyan.com%2Findex.php&step=2&pwuser=” ＋ 编辑框_用户名.内容 () ＋ “&question=0&customquest=&answer=&pwpwd=” ＋ 编辑框_密码.内容 () ＋ “&head_login=&lgt=0”<br /> 返回的结果 ＝ 到文本 (网页_访问 (地址, 1, 提交的数据))<br /> 正则.创建 (#个人信息, 返回的结果)<br /> 标签_铜币.标题 (“铜币: ” ＋ 正则.取子匹配文本 (1, 1))<br /> 标签_威望.标题 (“威望: ” ＋ 正则.取子匹配文本 (1, 2))<br /> 标签_身份.标题 (“身份: ” ＋ 正则.取子匹配文本 (1, 3))<br /> 输出调试文本 (返回的结果)<br /> .判断开始 (寻找文本 (返回的结果, “用户名或密码错误”, , 假) ≠ -1)<br /> 信息框_Ex (hwnd, “用户名或密码错误,登录失败”, #确认钮, “登录提示:”, #错误图标)<br /> .判断 (寻找文本 (返回的结果, 编辑框_用户名.内容 (), , 假) ≠ -1)<br /> 信息框_Ex (hwnd, “登录成功!” ＋ 编辑框_用户名.内容 (), #确认钮, “登录提示:”, #信息图标)<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 图片框_验证码_被单击<br /> <br /> 图片框_验证码.图片 (HTTP读文件 (“http://bbs.eyuyan.com/ck.php?nowtime=” ＋ 时间_取现行时间戳 ()))

易语言Ex_Dui例程.zip (1.33 MB, 下载次数: 704)

2015-7-29 16:31 上传

点击文件名下载附件

dulang

感谢发布原创作品，精易因你更精彩！

duanyijun

看着B格很不错

576003133

好东西，下载看看！

576003133

下载看看，好东西

xiaoshumiao1136

谢谢分享

ahy5835132

        支持开源~！感谢分享

x3325426

来看一下····

wzx17520394175

谢谢分享!!

lance898

留言保币留言保币留言保币