关于IE后台操作

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://w")  ;点击搜索结果后面的加号图片将歌曲添加到删除临时播放列表
$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

有关部门支持楼主!

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

学习下楼主经验

		自动登录	找回密码
密码			加入

[IE类操作] 关于IE后台操作