快播(QVOD)模块

淡淡的蓝 · 发表于 2011-12-13 10:03:56

支持！~{:3_244:}

宇智波·佐助 · 发表于 2011-12-13 10:09:56

直接开源得了

驿动商务 · 发表于 2011-12-15 02:04:49

顶你‘’、、

哈利路亚陈 · 发表于 2011-12-19 17:32:34

{:3_244:}看看

xlxlwyl · 发表于 2011-12-19 18:10:59

弄点分分，下载个教程

15121512 · 发表于 2011-12-21 10:43:20

{:3_244:}好东西啊

黑夜紫梦 · 发表于 2011-12-25 16:52:30

朋友，这是我的模块哦。而且这个模块开源的。

思念12211 · 发表于 2011-12-26 11:04:56

神马东东？

炫龙 · 发表于 2011-12-27 22:59:35

.版本 2
.支持库 shell

.程序集程序集1

.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码

_临时子程序 ()  ' 在初始化代码执行完毕后调用测试代码
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 _临时子程序

' 本名称子程序用作测试程序用，仅在开发及调试环境中有效，编译发布程序前将被系统自动清空，请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。

.子程序登陆QQ, 文本型, 公开, 返回产生的vbs文件路径，以便于后期删除
.参数 QQ号码, 文本型
.参数 QQ密码, 文本型
.参数等待登陆框弹出时间, 整数型, 可空, 单位：毫秒，建议为2000
.局部变量 QQ安装路径, 文本型
.局部变量第一句, 文本型
.局部变量第二句, 文本型
.局部变量第三句, 文本型
.局部变量第四句, 文本型
.局部变量第五句, 文本型
.局部变量第六句, 文本型
.局部变量第七句, 文本型
.局部变量第八句, 文本型
.局部变量第九句, 文本型
.局部变量第十句, 文本型
.局部变量第十一句, 文本型
.局部变量第十二句, 文本型
.局部变量第十三句, 文本型
.局部变量第十四句, 文本型
.局部变量第十五句, 文本型
.局部变量 A, 整数型
.局部变量完整脚本, 文本型
.局部变量文件地址, 文本型
.局部变量新延时, 文本型

.如果 (是否为空 (等待登陆框弹出时间))
A ＝ 2000
.否则
A ＝等待登陆框弹出时间
.如果结束
QQ安装路径＝取文本注册项 (4, “Software\Tencent\QQ\install”, ) ＋ “QQ.exe”
第一句＝ “Dim Program1” ＋ #换行符
第二句＝ “Program1= ” ＋ #引号＋ QQ安装路径＋ #引号＋ #换行符
第三句＝ “Set WshShell=createobject(” ＋ #引号＋ “wscript.shell” ＋ #引号＋ “) ” ＋ #换行符
第四句＝ “Set oExec=WshShell.Exec(Program1) ” ＋ #换行符
第五句＝ “WScript.Sleep ” ＋到文本 (A) ＋ #换行符
第六句＝ “WshShell.AppActivate ” ＋ #引号＋ “Q登录” ＋ #引号＋ #换行符
第七句＝ “WshShell.SendKeys ” ＋ #引号＋ “+{TAB}” ＋ #引号＋ #换行符  ' 按下Tab切换到QQ号码输入框获得焦点
第八句＝ “WshShell.SendKeys ” ＋ #引号＋ QQ号码＋ #引号＋ #换行符
第九句＝ “WScript.Sleep 200” ＋ #换行符  ' 新延时，输入QQ号码后延时200毫秒，这里可以自定义，具体根据电脑配置，建议200以上
第十句＝ “WshShell.SendKeys ” ＋ #引号＋ “{TAB}” ＋ #引号＋ #换行符  ' 按下Tab切换到密码输入框获得焦点
第十一句＝ “WshShell.SendKeys ” ＋ #引号＋ QQ密码＋ #引号＋ #换行符
第十二句＝ “WScript.Sleep 200” ＋ #换行符  ' 同第九句，输入QQ密码后延时200毫秒，这里可以自定义，具体根据电脑配置，建议200以上
第十三句＝ “WshShell.SendKeys ” ＋ #引号＋ “{ENTER}” ＋ #引号＋ #换行符  ' 按下回车键命令！登陆过程完毕
' 第十四句＝ “Set fso = CreateObject(” ＋ #引号＋ “Scripting.FileSystemObject” ＋ #引号＋ “)” ＋ #换行符  ' 取得自身文件名并删除自身
' 第十五句＝ “f = fso.DeleteFile(WScript.ScriptName)”  ' 全部处理完毕，登陆完后VBS文件会自己删除
' 新延时＝ “WScript.Sleep ” ＋到文本 (A × 4) ＋ #换行符
完整脚本＝第一句＋第二句＋第三句＋第四句＋第五句＋第六句＋第七句＋第八句＋第九句＋第十句＋第十一句＋第十二句＋第十三句
文件地址＝取特定目录 (11) ＋ QQ号码＋ “.vbs”  ' 这里可以自定义文件名和文件地址
写到文件 (文件地址, 到字节集 (完整脚本))
' 置文件属性 (文件地址, #隐藏文件)
处理事件 ()
执行 (, 文件地址, , )
返回 (文件地址)

shenjx · 发表于 2011-12-27 23:13:05

和好喜欢赞一个

		自动登录	找回密码
密码			注册

[易语言成品模块] 快播(QVOD)模块