常见的易语言源码大集合

信息框(“来自服务器的消息：登陆失败!”, 0, )
.默认
.判断结束
' ==============================================以上为登陆操作，下面是注册的=======================
注册：
.判断开始(到文本(客户1.取回数据())＝“有了!”)
客户1.发送数据(“[名称]”＋文本1)
标签3.标题＝“正在传送所选文件到远程计算机[”＋IP编辑框1.地址＋“]”
.判断(操作符＝“[STR]”)
文本2＝到文本(取文件长度(文件号2))
客户1.发送数据(“[大小]”＋文本2)
.判断(操作符＝“[OK]”)
.如果真(是否在文件尾(文件号2, )＝假)
常见易语言源码
使用命令：
写到文件(取运行目录()＋“1.skn”, #皮肤)
易皮肤_载入皮肤(取运行目录()＋“1.skn”, )
切记<易皮肤_载入皮肤>要用到（易语言皮肤支持库2.0.rar）
（易语言皮肤支持库2.0.rar）路径：F:\易语言\软件\易语言皮肤支持库2[1].0.zip
注意：#皮肤)这个地方的名称一定要和你添加的资源名称一样否则不能使用
EDB转换EXCEL
模块< EDB数据库文件转EXCEL文件1.3 >
.版本2
.子程序_按钮1_被单击
edb转xls (“填写数据库所在的位置(必须要完整的路径)”,“填写EXCEL所在的位置(必须要完整的路径)”)
动态取现行时间
.版本2
.子程序_按钮1_被单击
时钟1.时钟周期＝1000
.子程序_时钟1_周期事件
服务器1.发送数据(服务器1.取回客户(),“登陆失败!”, )
.判断结束
.子程序_客户1_数据到达, , ,反馈登陆信息
.判断开始(到文本(客户1.取回数据())＝“登陆成功!”)
信息框(“来自服务器的消息：登陆成功!”, 0, )
.默认
.判断结束
.判断开始(到文本(客户1.取回数据())＝“登陆失败!”)
信息框(“来自服务器的消息：欲注册的用户已经存在!”, 0, )
.默认
.判断结束
.判断开始(到文本(客户1.取回数据())＝“注册成功!”)
信息框(“来自服务器的消息：注册成功!”, 0, )
.默认
.判断结束
.子程序_按钮2_被单击, , ,客户1进行数据操作
.局部变量注册数据包,文本型, , ,这是发送注册信息的完整的变量
.子程序_服务器1_数据到达
.局部变量返回文本,文本型
.局部变量操作代码,文本型
返回文本＝到文本(服务器1.取回数据())
操作代码＝取文本左边(返回文本, 9)
.判断开始(操作代码＝“登陆|&|!!”) '从这里开始判断，操作是登陆还是注册。这里判断为登陆！
信息框(返回文本, 0, )
登陆(返回文本)
.如果真(文件大小≠0且文件大小＞已接收文件大小)
信息框(“文件未传送完毕!”, 0, )
删除文件(通用对话框2.文件名)
.如果真结束
呼出窗口热键源码：
.版本2
.支持库shellEx
.程序集窗口程序集1
.程序集变量呼出热键,整数型
.子程序__启动窗口_创建完毕
呼出热键＝注册热键(_启动窗口.取窗口句柄(),标签1.取窗口句柄(), 0, #F1键)
.子程序_标签1_反馈事件,整数型
.参数参数一,整数型
.参数参数二,整数型
.如果真(参数一＝呼出热键)
_启动窗口.可视＝真
取数据摘要:
.版本2
.支持库dp1
.局部变量数据摘要,文本型
数据摘要＝取数据摘要(到字节集(编辑框1.内容))
编辑框2.内容＝到大写(数据摘要)
取硬盘特征字:
.版本2
编辑框1.内容＝到文本(取绝对值(取硬盘特征字()))
客户1.发送数据(“[请求]”)
.如果真结束
.否则
信息框(“连接失败!”, 0,“提示!”)
.如果结束
.子程序_按钮2_被单击
.如果真(通用对话框1.打开())
标签3.标题＝“要传送的文件:”＋通用对话框1.文件名
.如果真结束
.子程序_服务器1_数据到达, , ,接收文件
.局部变量客户地址,文本型
.局部变量接收内容,字节集
.程序集变量文件大小,整数型
.程序集变量已接收文件大小,整数型
.程序集变量内容,文本型
.子程序_按钮1_被单击
.如果(客户1.连接(IP编辑框1.地址, 9000))
.如果真(通用对话框1.文件名＝“”)
信息框(“您未选择要传送的文件!”, 0,“提示!”)
.如果真结束
.如果真(通用对话框1.文件名≠“”)
.局部变量用户名,文本型
.局部变量密码,文本型
.局部变量邮箱,文本型
可以注册＝假
循环数＝取记录数()
数组变量＝分割文本(数据包,“|&|!!”, )
注册用户名＝数组变量[2]
注册密码＝数组变量[3]
注册邮箱＝数组变量[4]
到首记录()
.计次循环首(循环数, )
用户名＝读(“用户”)
密码＝读(“密码”)
.默认
.判断结束
.如果真(文件大小≠0且文件大小＝已接收文件大小)
服务器1.断开客户(客户地址)
信息框(“文件传送完毕”, 0,“提醒!”)
关闭文件(文件号1)
文件号1＝0
文件大小＝0
已接收文件大小＝0
内容＝“”
.如果真结束
.子程序_客户1_数据到达, , ,发送文件
.局部变量操作符,文本型
.局部变量文本1,文本型
.子程序_按钮1_被单击
.判断开始(客户1.连接(“127.0.0.1”, 19730)＝真)
.判断开始(用户编辑框.内容≠“”)
.判断开始(密码编辑框.内容≠“”)
客户1.发送数据(“登陆|&|!!”＋用户编辑框.内容＋“|&|!!”＋密码编辑框.内容)
.默认
.判断结束
.默认
.判断结束
.默认
.判断结束
编辑框1.内容＝到文本(取现行时间())
*****易语言怎么制作网络登录器******
.版本2
.程序集窗口程序集1
.子程序__启动窗口_创建完毕
.判断开始(文件是否存在(取运行目录()＋“\data.edb”)＝假)
写到文件(取运行目录()＋“\data.edb”, #初始数据库)
.默认
.判断结束
打开(取运行目录()＋“\data.edb”, , , , , , )
文件号1＝打开文件(通用对话框2.文件名, #改写, )
服务器1.发送数据(客户地址,“[STR]”, )
.判断(操作符＝“[大小]”)
文件大小＝到数值(取字节集数据(取字节集右边(接收内容,取字节集长度(接收内容)－6), #文本型, ))
服务器1.发送数据(客户地址,“[OK]”, )
.判断(操作符＝“[传送]”)
数据库_用户＝读(“用户”)
数据库_密码＝读(“密码”)
数据库_邮箱＝读(“邮箱”)
.判断开始(数据库_用户＋数据库_密码＝登陆用户＋用户密码)
验证标签＝真
跳出循环()
.默认
跳过()
.判断结束
.计次循环尾()
.判断开始(验证标签＝真)
服务器1.发送数据(服务器1.取回客户(),“登陆成功!”, )
.默认
这个运行文档------运行(“notepad.exe D:\123.txt”,假, )
DLL注入：
/help/zlsc/dll/dll.htm
编辑框内容不被复制：
鼠标右键被按下
返回（假）
编辑框按下某键（）
如果（键代码＝＃CTRJ键＝真）
返回（假）
.版本2
.默认
.判断结束
.子程序_按钮3_被单击
标签2.标题＝取文本右边(通用对话框1.文件名,取文本长度(通用对话框1.文件名)－倒找文本(通用对话框1.文件名,“\”, ,假))
.子程序__启动窗口_创建完毕
进度条1.最大位置＝100
进度条1.最小位置＝0
_启动窗口.高度＝130
.子程序__启动窗口_将被销毁
写出字节集(文件号1,取字节集右边(接收内容,取字节集长度(接收内容)－6))
已接收文件大小＝取文件长度(文件号1)
标签2.标题＝“文件：”＋内容＋“(已完成”＋到文本(已接收文件大小÷文件大小×100)＋“%)”
进度条1.可视＝真
进度条1.位置＝已接收文件大小÷文件大小×100
服务器1.发送数据(客户地址,“[OK]”, )
.局部变量分割标签,文本型, , ,将几个数据属性（用户、密码、邮箱）分开以保证服务器区别的特殊文本
.局部变量用户,文本型
.局部变量密码,文本型
.局部变量邮箱,文本型
客户1.发送数据(到字节集(“[传送]”)＋读入字节集(文件号2, 1000))
.如果真结束
.如果真(是否在文件尾(文件号2, ))
关闭文件(文件号2)
标签3.标题＝“已成功发送该文件!”
文件号2＝0
.如果真结束
.判断(操作符＝“[拒决]”)
信息框(“远程计算机[”＋IP编辑框1.地址＋“]已拒绝您的请求!”, 0, )
.局部变量数据库_密码,文本型
.局部变量记录数,整数型
.局部变量以读取数,整数型
.局部变量验证标签,逻辑型
.局部变量验证邮箱,文本型
.局部变量数据库_邮箱,文本型