关于IE后台操作

haodd

出个IE题目，嘿嘿！
如图，在后台完成全部操作
能听到歌曲为准





实现的贴出源码。

游客，如果您要查看本帖隐藏内容请回复

republican

回复 1# haodd
一定要是IE麽？

建议让你的代码设成回复显示

bob

此音乐网站太难登陆了，放弃！

haodd

回复 2# republican


    如果其他瀏覽器您能後臺操作的話 當然也可以

已經按您的要求設置了設置

但沒有帖源碼……（並非不願意分享，望諒解）

骗子

菜鸟也来试试行不行， xp + ie8测试通过,如果有问题加点延时

#include <IE.au3>
$gequ = InputBox("想听什么歌？", "wwww.yymp3.com太慢了"& @CRLF& "还动不动无法打开", "荷塘月色")
$oIE = _IECreate ("http://wwww.yymp3.com/Play/5663.htm")   ;随便打开一首歌的播放地址
$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://w")  ;点击搜索结果后面的加号图片将歌曲添加到删除临时播放列表
$oIE.document.parentWindow.execscript("javascript:pu.utils(0,0,1);") ;点击播放歌曲

shenrenba

其实找歌曲用这个地址就行了
http://wwww.yymp3.com/Search.aspx?key=荷塘月色&ksplay=&n=2&no=0

haodd

是後臺操作！

newuser

回复 1# haodd
看看!

骗子

是後臺操作！,把IE隐藏了不就是后台了？
haodd 发表于 2011-3-14 16:26

#include <IE.au3>

$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://w")  ;点击搜索结果后面的加号图片将歌曲添加到删除临时播放列表
$oIE.document.parentWindow.execscript("javascript:pu.utils(0,0,1);") ;点击播放歌曲

骗子

觉得楼主有点儿过分，不但是回复可见，而且收费5，更可恨的竟然是程序而不是源代码
强烈要求看源码

republican

其实我最讨厌的就是操作IE。

这是后台播放代码(现在只支持一个结果的歌曲). 修正码至少现在是9996(加解密算法暂时不清楚，就这样吧),大家看着改吧，貌似是1个个递增的.

        #include <WinHttp_GetRespond.au3>


        $KeyWord = InputBox("请输入关键字","歌曲名称")
        $UTF_8Code = StringRegExpReplace(StringTrimLeft(String(StringToBinary($KeyWord,4)),2),'([\w]{2})','%$1')

        $MyOpen=_WinHttpOpen()
        
        $rContext=_WinHTTP_GetRespond($MyOpen,"http://wwww.yymp3.com/Search.aspx?key="&$UTF_8Code&"&ksplay=&n=2&no=0",2)
        If @error Then 
                MsgBox(48,'错误代码' & @error,$rContext)
                Exit
        EndIf
                
        $PlayHtml = StringRegExp(BinaryToString($rContext[0]),'"(Play/.*)"><.*>'&$KeyWord&'</font>',3)
        If @error Or Not IsArray($PlayHtml) Then 
                MsgBox(48,'无法找到歌曲','错误代码' & @error)
                Exit
        EndIf
        $PlayHtml =$PlayHtml[0]
        
        $rContext=_WinHTTP_GetRespond($MyOpen,"http://wwww.yymp3.com/"&$PlayHtml,2)
        If @error Then 
                MsgBox(48,'错误代码' & @error,$rContext)
                Exit
        EndIf
        
        $PlayURL = StringRegExp(BinaryToString($rContext[0]),"song_data\[0\]='.*?\|.*?\|.*?\|.*?\|(.*?)\|\|",3)
        If @error Or Not IsArray($PlayURL) Then 
                MsgBox(48,'无法找到链接','错误代码' & @error)
                Exit
        EndIf
        $PlayURL = $PlayURL[0]
        
        $FixedURL = InputBox("请进行人工修正","请输入二级链接地址，默认地址将为http://wma.09yx.com/(你输入的地址)/相对路径","9996")
        $FinalURL = 'http://wma.09yx.com/' & $FixedURL &'/'& $PlayURL

;~         FileWrite(@ScriptDir & '\txt.txt',$FinalURL)
        
        _WinHttpCloseHandle($MyOpen) 

        $WMP=ObjCreate("WMPlayer.OCX")
        $WMP.url=$FinalURL
        $WMP.Controls.play

        While 1
                Sleep(10)
        WEnd

编译好的文件:

haodd

回复 9# 骗子


    是後臺打開

但是您這裡不能選歌啊

haodd

回复 11# republican


    這個強悍了，但是輸入非 荷塘月色 時 提示錯誤了！ 無法找到歌曲

haodd

這裡的內容是編譯後的 點歌的名字必須是首頁的

chenlu_ling

先回复看看隐藏内容