dabaiyun 发表于 2014-4-10 10:40:11

怎么获取IE中的音乐控件

本帖最后由 dabaiyun 于 2014-4-10 10:44 编辑

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

Opt('MustDeclareVars', 1)

#Region
Global $oIE = ObjCreate("Shell.Explorer.2")
Global $She
; 创建一个简单的 GUI
Global $Form1=GUICreate("嵌入式 Web 控件测试", 760, 680, (@DesktopWidth - 640) / 2, (@DesktopHeight - 680) / 2, BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS, $WS_CLIPCHILDREN))
GUICtrlCreateObj($oIE, 10, 40, 680, 560)
Global $Radio1 = GUICtrlCreateRadio('百度电台', 10, 620, 100, 30)
Global $Radio2 = GUICtrlCreateRadio('酷狗电台', 120, 620, 100, 30)
Global $Radio3 = GUICtrlCreateRadio("虾米电台", 230, 620, 100, 30)
Global $Radio4 = GUICtrlCreateRadio("多米电台", 330, 620, 100, 30)
Global $Radio5 = GUICtrlCreateRadio("酷我电台", 430, 620, 100, 30)
Global $Radio6 = GUICtrlCreateRadio("豆瓣电台", 530, 620, 100, 30)
GUISetState(@SW_SHOW) ;显示 GUI

$oIE.navigate('http://app.baidu.com/app/enter?appid=122846')
#EndRegion



_Main()
Exit


Func _Main()
        Local $msg
        While 1
                $msg = GUIGetMsg()
                Select
                        Case $msg = $GUI_EVENT_CLOSE
                                If MsgBox(32 + 1, "提示", "确定要退出?", -1, $Form1) = 1 Then
                                        ClipPut("");清空剪切板
                                        _HideWin($Form1)
                                        Exit
                                EndIf
                        Case $msg = $Radio1
                                $oIE.navigate("http:http://app.baidu.com/app/enter?appid=122846")
                        Case $msg = $Radio2
                                $oIE.navigate('')
                        Case $msg = $Radio3
                                $oIE.navigate('http://app.baidu.com/xiamiradio/xiamiradio')
                        Case $msg = $Radio4
                                $oIE.navigate('http://app.baidu.com/duomiwebradio')
                        Case $msg = $Radio5
                                $oIE.navigate('http://yinyue.kuwo.cn/yy/webDiantai/index.jsp')
                        Case $msg = $Radio6
                                $oIE.navigate('http://douban.fm/radio')
                EndSelect
        WEnd
        GUIDelete()
EndFunc   ;==>_Main


Func _HideWin($WinHand)
        WinMove($WinHand, "", @DesktopWidth + 10, Default, Default, Default, 2)
        Exit
EndFunc   ;==>_HideWin

dabaiyun 发表于 2014-4-10 10:55:12

想要最下面图片的效果，怎么调节着，嘿嘿

wlb 发表于 2014-4-10 19:56:46

束手无策{:face (270):}

1361739590 发表于 2014-4-11 12:36:21

笨办法如图

1361739590 发表于 2014-4-11 12:41:19

直接进去http://kuang.xiami.com/res/kuang/xiamikuang0709.swf看看行不行

dabaiyun 发表于 2014-4-11 18:19:35

回复 5# 1361739590


    谢谢，的努力的看嘿嘿

lvchuang 发表于 2014-5-25 05:18:30

牛B啊 我简直是一点也看不懂
页: [1]
查看完整版本: 怎么获取IE中的音乐控件