关于IE后台操作-『提问交流』-AUTOIT CN

haodd 发表于 2011-3-13 23:41:56

关于IE后台操作

本帖最后由 haodd 于 2011-3-14 20:59 编辑

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

实现的贴出源码。

**** Hidden Message *****

republican 发表于 2011-3-14 08:23:52

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

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

bob 发表于 2011-3-14 09:03:03

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

haodd 发表于 2011-3-14 11:51:27

回复 2# republican

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

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

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

骗子发表于 2011-3-14 12:39:17

本帖最后由骗子于 2011-3-14 12:48 编辑

菜鸟也来试试行不行， 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://wwww.yymp3.com/images/play/add.gif");点击搜索结果后面的加号图片将歌曲添加到删除临时播放列表
$oIE.document.parentWindow.execscript("javascript:pu.utils(0,0,1);") ;点击播放歌曲

shenrenba 发表于 2011-3-14 12:54:40

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

haodd 发表于 2011-3-14 16:26:51

是後臺操作！

newuser 发表于 2011-3-14 16:31:46

回复 1# haodd
看看!

骗子发表于 2011-3-14 16:54:29

是後臺操作！,把IE隐藏了不就是后台了？
haodd 发表于 2011-3-14 16:26 http://www.autoitx.com/images/common/back.gif

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

骗子发表于 2011-3-14 17:12:22

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

republican 发表于 2011-3-14 20:17:20

本帖最后由 republican 于 2011-3-14 20:21 编辑

其实我最讨厌的就是操作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),'"(Play/.*)"><.*>'&$KeyWord&'</font>',3)
If @error Or Not IsArray($PlayHtml) Then
MsgBox(48,'无法找到歌曲','错误代码' & @error)
Exit
EndIf
$PlayHtml =$PlayHtml

$rContext=_WinHTTP_GetRespond($MyOpen,"http://wwww.yymp3.com/"&$PlayHtml,2)
If @error Then
MsgBox(48,'错误代码' & @error,$rContext)
Exit
EndIf

$PlayURL = StringRegExp(BinaryToString($rContext),"song_data\='.*?\|.*?\|.*?\|.*?\|(.*?)\|\|",3)
If @error Or Not IsArray($PlayURL) Then
MsgBox(48,'无法找到链接','错误代码' & @error)
Exit
EndIf
$PlayURL = $PlayURL

$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 发表于 2011-3-14 20:51:59

回复 9# 骗子

是後臺打開

但是您這裡不能選歌啊

haodd 发表于 2011-3-14 20:57:53

回复 11# republican

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

haodd 发表于 2011-3-14 21:00:26

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

chenlu_ling 发表于 2011-3-14 21:16:28

先回复看看隐藏内容

页: [1] 2 3 4

AUTOIT CN's Archiver

关于IE后台操作