gzh888666
发表于 2011-3-15 07:52:35
呵呵!人家本来就没说要钱吧?
骗子
发表于 2011-3-15 10:05:19
本帖最后由 骗子 于 2011-3-15 10:08 编辑
回复 12# haodd
再加个循环,播放两分钟后退出IE,再弹出输入框换歌,
只要是这个网站能搜索到的歌曲应该就能播放,问题就是如果有同名歌曲只能播放第一个
While 1 ;不停循环
$gequ = InputBox("想听什么歌?", "wwww.yymp3.com太慢了"& @CRLF& "还动不动无法打开", "荷塘月色")
$oIE = _IECreate ("http://wwww.yymp3.com/Play/5663.htm",0,0) ;随便打开一首歌的播放地址
$oIE.document.parentWindow.execscript("javascript:pu.DelPlayer(0);") ;删除临时播放列表
$oForm = _IEGetObjByName ($oIE, "key") ;通过名称找输入框,
$oForm.value = $gequ ;输入框输入歌曲名
$oForm = _IEGetObjByName ($oIE, "button") ; 找按钮
_IEAction ($oForm, "click") ;点按钮开始搜索歌曲
_IELoadWait($oIE,2000) ;给点延时,已确定搜索结果能出来
_IEImgClick ($oIE, "http://wwww.yymp3.com/images/play/add.gif");点击搜索结果后面的加号图片将歌曲添加到删除临时播放列表
$oIE.document.parentWindow.execscript("javascript:pu.utils(0,0,1);") ;点击播放歌曲
sleep (120000) ;播放歌曲的时间(应该办法判断歌曲是否播放完毕,我就不会了,直接用延时)
_IEQuit($oIE) ;关闭IE
WEnd
骗子
发表于 2011-3-15 10:20:33
抄袭11楼的republican中文转$UTF_8Code命令就更简单了
#include <IE.au3>
While 1
$gequ = InputBox("想听什么歌?", "wwww.yymp3.com太慢了"& @CRLF& "还动不动无法打开", "荷塘月色")
$UTF_8Code = StringRegExpReplace(StringTrimLeft(String(StringToBinary($gequ,4)),2),'([\w]{2})','%$1')
$oIE = _IECreate ("http://wwww.yymp3.com/Search.aspx?key="&$UTF_8Code&"&ksplay=&n=2&no=0",0,0)
_IELinkClickByText($oIE,"试听")
_IELoadWait($oIE,2000)
sleep (120000) ;播放歌曲的时间(应该办法判断歌曲是否播放完毕,我就不会了,直接用延时)
_IEQuit($oIE) ;关闭IE
WEnd
haodd
发表于 2011-3-15 11:00:53
呵呵 都是高手啊
aimeng1478
发表于 2011-3-17 07:38:47
好想法!看看
skysmm
发表于 2011-3-17 11:48:30
先回复看看隐藏内容
tankwu
发表于 2011-3-17 14:45:33
关于IE后台操作
bakefish
发表于 2011-3-17 21:23:25
我要看看啊
swnuf2011
发表于 2011-3-18 10:05:07
有关部门支持楼主!
http://www.99doudou.cn/sigline.gif
2011祛痘印产品排行榜怎么用珍珠粉祛痘
guang19831217
发表于 2011-3-19 12:52:05
看看,挺不错的。
zys25430515
发表于 2011-3-19 13:40:10
如看看内容先
CCTRV
发表于 2011-3-20 02:18:42
看源码看源码看源码看源码
hbwazxf
发表于 2011-3-20 12:52:51
建议让你的代码设成回复显示
djzero
发表于 2011-3-20 17:06:40
先回复看看隐藏内容
tsui
发表于 2011-3-20 23:14:14
学习下楼主经验