#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
[img][img][/img][/img]
|手机版|小黑屋|AUTOIT CN
( 鲁ICP备19019924号-1 )谷歌
百度
发表于 2014-4-10 10:40:11
.GIF)