应一朋友的要求所做的一个小东东.

固定几个在线听音乐的网页到一起.

```#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_icon=C:\WINDOWS\system32\SHELL32.dll|-119
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#NoTrayIcon
#include<ie.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

 Dim  $url[5][2] = [["about","http://www.jianyiit.com/"] ,  _
                    ["酷狗音乐","http://web.kugou.com/"] ,  _
                    ["酷我音乐","http://player.kuwo.cn/webmusic/play?src=www_nav"] , _
                    ["百度音乐盒","http://play.baidu.com/"] , _
                    ["百度FM音乐","http://fm.baidu.com/"] ]

$oIE = _IECreateEmbedded()
$Form1 = GUICreate("[F1]关于 [F2]酷狗音乐 [F3]酷我音乐 [F4]百度音乐盒 [F5]百度FM音乐", 1010, 610, -1, -1,BitOR($WS_MINIMIZEBOX, $WS_MAXIMIZEBOX,$WS_CAPTION, $WS_POPUP, $WS_SYSMENU,$WS_THICKFRAME,$WS_SIZEBOX))
 $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 1010, 610)
GUICtrlSetResizing(-1,1)
GUISetState()
Dim $id = IniRead(@TempDir&"\Au3Music.ini","cfg","auto",4)
_IENavigate($oIE, $url[$id][1],0)

 HotKeySet("{F1}","_F1")
 HotKeySet("{F2}","_F2")
 HotKeySet("{F3}","_F3")
 HotKeySet("{F4}","_F4")
 HotKeySet("{F5}","_F5")
While 1
        $msg = GUIGetMsg()
        Select
                Case $msg = $GUI_EVENT_CLOSE
                        Exit
        EndSelect
    WEnd

 Func _F1()
     IniWrite(@TempDir&"\Au3Music.ini","cfg","auto",0)
     _IENavigate($oIE,$url[0][1],0)
 EndFunc
  Func _F2()
      IniWrite(@TempDir&"\Au3Music.ini","cfg","auto",1)
     _IENavigate($oIE,$url[1][1],0)
 EndFunc
  Func _F3()
      IniWrite(@TempDir&"\Au3Music.ini","cfg","auto",2)
     _IENavigate($oIE,$url[2][1],0)
 EndFunc
  Func _F4()
      IniWrite(@TempDir&"\Au3Music.ini","cfg","auto",3)
     _IENavigate($oIE,$url[3][1],0)
 EndFunc
  Func _F5()
      IniWrite(@TempDir&"\Au3Music.ini","cfg","auto",4)
     _IENavigate($oIE,$url[4][1],0)
 EndFunc
```




```

		 

		 
	 
		

本文固定链接: http://jianyiit.com/post-100.html