<强> DLL命令表
.版本 2
. dll命令CoInitialize,整数型”,ole32。dll”,公开,初始化对象开始
。参数pvReserved,整数型,0
. dll命令CoUninitialize,整数型”,ole32。dll”,公开,初始化对象结束
. dll命令ShellExecute,整数型”,shell32。dll”、“ShellExecuteA”
。参数hwnd,整数型,指定一个窗口的句柄,有时候,windows程序有必要在创建自己的主窗口前显示一个消息框
。参数lpOperation,文本型,指定字串“开放”来打开lpFlie文档,或指定“打印”来打印它
。参数lpFile,文本型,想用关联程序打印或打开一个程序名或文件名
。参数lpParameters,文本型,如lpszFlie是可执行文件,则这个字串包含传递给执行程序的参数
。参数lpDirectory,文本型,想使用的完整路径
。参数nShowCmd,整数型、定义了如何显示启动程序的常数值。参考显示窗口函数的nCmdShow参数
<>强自定义数据类型表
.版本 2
。数据类型_kuwoSong,公开
。成员music_id,文本型
。成员的名字,文本型
。成员song_url,文本型
。成员歌手,文本型
。成员mp3size,文本型
。成员路径,文本型
。成员mp3path,文本型
。成员aacpath,文本型
。成员wmadl,文本型
。成员mp3dl,文本型
。成员aacdl,文本型
。成员抒情文,本型
。成员lyric_zz,文本型
<强>酷我音乐下载地址解析源码
.版本 2
互联网。支持库
。支持库EThread
。支持库iext
。程序集窗口程序集_窗口1
。程序集变量kuwoSong _kuwoSong
。程序集变量开始解析,逻辑型
,子程序__启动窗口_创建完毕
,子程序GetSongInfo,逻辑型
。参数music_id,文本型
。局部变量本,字节集
。局部变量str,文本型
本=HTTP读文件(" http://www.kuwo.cn/webmusic/st/getMuiseByRid& # 63;消除=MUSIC_”+ music_id +”,国旗=3,r=" +随机())
str=到文本(CCharset(本)
kuwoSong.name=GetStr (str,“& lt; name>”,“& lt;/name>”)
kuwoSong。路径=GetStr (str,“& lt; path>”,“& lt;/path>”)
kuwoSong。wmadl=GetStr (str,“& lt; wmadl>”,“& lt;/wmadl>”)
kuwoSong。mp3dl=GetStr (str,“& lt; mp3dl>”,“& lt;/mp3dl>”)
kuwoSong。aacdl=GetStr (str,“& lt; aacdl>”,“& lt;/aacdl>”)
kuwoSong。抒情=GetStr (str,“& lt; lyric>”,“& lt;/lyric>”)
kuwoSong。歌手=GetStr (str,“& lt; singer>”,“& lt;/singer>”)
kuwoSong。mp3size=GetStr (str,“& lt; mp3size>”,“& lt;/mp3size>”)
kuwoSong。mp3path=GetStr (str,“& lt; mp3path>”,“& lt;/mp3path>”)
kuwoSong。aacpath=GetStr (str,“& lt; aacpath>”,“& lt;/aacpath>”)
kuwoSong。music_id=GetStr (str,“& lt; music_id>”,“& lt;/music_id>”)
kuwoSong。song_url=GetStr (str,“& lt; song_url>”,“& lt;/song_url>”)
kuwoSong。lyric_zz=GetStr (str,“& lt; lyric_zz>”,“& lt;/lyric_zz>”)
(kuwoSong。如果。music_id=" ")
返回(假)
否,则
返回(真)
。如果结束
,子程序随机的,文本型,公开
。局部变量VBScript,对象
。局部变量值,双精度小数型
。局部变量文本值,文本型
VBScript。创建(“ScriptControl”)
VBScript。写属性(“语言”、“JScript”)
VBScript。数值方法(“ExecuteStatement”、“函数随机()返回math . random () {}”)
值=VBScript。通用方法(“运行”、“随机”)。取数值()
文本值=到文本(值)
返回(文本值)
,子程序CCharset,字节集,公开,改变编码
。参数待转换数据,字节集
。参数转换前编码,文本型,可空,默认utf - 8, utf - 8; unicode; GBK等
。参数转换后编码,文本型,可空,默认GBK, utf - 8; unicode; GBK等
。参数转换后数据开始位置,整数型,可空,位置从0开始.unicode编码标识占2个字节,utf - 8编码标识占3个字节
。局部变量文本,文本型
。局部变量变体型,变体型
。局部变量,对象
。局部变量返回值,字节集
。如果真(是否为空(转换前编码)=真)
转换前编码=" utf - 8 "
。如果真结束
。如果真(是否为空(转换后编码)=真)
转换后编码=" GBK "
。如果真结束
这一点。创建(“Adodb。流”,)
这一点。写属性(“类型”,1)
这一点。方法(“开放”)
变体型。创建数组(#字节型,取字节集长度(待转换数据))
变体型。赋值(待转换数据,)
这一点。方法(“写”,变体型)
这一点。写属性(“位置”,0)
这一点。写属性(“类型”,2)
这一点。写属性(“字符集”,转换前编码)
文本=Ｎ谋痉椒?“ReadText”, 1)
这一点。方法(“关闭”)
这一点。方法(“开放”)
这一点。写属性(“字符集”,转换后编码)
这一点。方法(“WriteText”,文本,)
这一点。写属性(“位置”,0)
这一点。写属性(“类型”,1)
。如果真(是否为空(转换后数据开始位置)=假)
这一点。写属性(“位置”,转换后数据开始位置)
。如果真结束
变体型=Ｍㄓ梅椒?“读”,1)
返回值=变体型。取字节集()
返回(返回值)
,子程序GetStr,文本型,公开
。参数内容,文本型
。参数头,文本型
。参数尾,文本型
。参数返回数组,文本型,可空数组
。局部变量开始,整数型
。局部变量结束,整数型
。局部变量长度,整数型
。局部变量结果内容,文本型,,“0”
,判断循环首(寻找文本(内容,头,开始,真)≠1)
开始=寻找文本(内容,头,开始,真)+取文本长度(头)
结束=寻找文本(内容,尾,开始,真)
。如果真(开始=1或结束=1)
到循环尾()
。如果真结束
长度=结束——开始
加入成员(结果内容,取文本中间(内容,开始,长度))
,判断循环尾()
返回数组=结果内容
。如果(取数组成员数(返回数组)> 0)
返回(返回数组[1])
否,则
返回(" ")
。如果结束
,子程序_按钮1 _被单击
。如果(开始解析)
信息框(“请稍等片,刻上次操作还在处理中……0,“提示”)
否,则
启动线程(和子程序2,)
。如果结束
,子程序子程序2
。局部变量music_id,文本型
CoInitialize (0)
开始解析=真
kuwoSong。music_id=" "
超级列表框1。置标题(0,1," ")
超级列表框1。置标题(1,- 1”、“)
超级列表框1。置标题(2,1," ")
超级列表框1。置标题(3 1 ")
超级列表框1。置标题(4 1 " ")
超级列表框1。置标题(5 1 " ")
music_id=GetStr(编辑框1。内容+“/?“yinyue/?“/?
。如果(GetSongInfo (music_id))
加入列表框()
否,则
信息框(“获取失败,请检查地址是否正确或工具已失效……0,“提示”)
。如果结束
开始解析=假
CoUninitialize ()
,子程序加入列表框
超级列表框1。置标题(0,1,kuwoSong.name)
超级列表框1。置标题(1,- 1,kuwoSong.singer)
超级列表框1。置标题(2,1,kuwoSong.mp3size)
超级列表框1。置标题(3、1 + kuwoSong“http://薄p3dl + kuwoSong.mp3path)
(kuwoSong。如果真。wmadl≠" ")
超级列表框1。置标题(4 1 + kuwoSong“http://薄madl + kuwoSong.path)
。如果真结束
(kuwoSong。如果真。aacdl≠" ")
超级列表框1。置标题(5 1 + kuwoSong“http://薄acdl + kuwoSong.aacpath)
。如果真结束
,子程序_超级列表框1 _被双击,逻辑型
。参数横向位置,整数型
。参数纵向位置,整数型
。参数功能键状态,整数型
。局部变量下载地址,文本型
。如果真(超级列表框1。现行选中项=3或超级列表框1。现行选中项=4或超级列表框1。现行选中项=5)
下载地址=超级列表框1。取标题(超级列表框1。现行选中项,1)
。如果真(取文本长度(下载地址)> 10)
ShellExecute(0,“开放”,下载地址,“”,“”,1)
返回()
。如果真结束
。如果真结束
