影视导航菜单
本帖最后由 747957181 于 2012-8-30 20:00 编辑请教高手
可否简化该程序源代码？
#NoTrayIcon
#include <GUIConstantsEx.au3>
Opt("TrayMenuMode",1)
$about = TrayCreateItem("关于")
TrayCreateItem("")
$mianban = TrayCreateItem("打开主面板")
TrayCreateItem("")
$exit = TrayCreateItem("退出")
TraySetState()
GUICreate("影视导航菜单",310,200)
GUISetBkColor(0xFFFFFF)
$pic1 = GUICtrlCreatepic("JPG\1.jpg",10,10,0,0)
$pic2 = GUICtrlCreatepic("JPG\2.jpg",110,10,0,0)
$pic3 = GUICtrlCreatepic("JPG\3.jpg",210,10,0,0)
$pic4 = GUICtrlCreatepic("JPG\4.jpg",10,42,0,0)
$pic5 = GUICtrlCreatepic("JPG\5.jpg",110,42,0,0)
$pic6 = GUICtrlCreatepic("JPG\6.jpg",210,42,0,0)
$pic7 = GUICtrlCreatepic("JPG\7.jpg",10,74,0,0)
$pic8 = GUICtrlCreatepic("JPG\8.jpg",110,74,0,0)
$pic9 = GUICtrlCreatepic("JPG\9.jpg",210,74,0,0)
$pic10 = GUICtrlCreatepic("JPG\10.jpg",10,106,0,0)
$pic11 = GUICtrlCreatepic("JPG\11.jpg",110,106,0,0)
$pic12 = GUICtrlCreatepic("JPG\12.jpg",210,106,0,0)
$pic13 = GUICtrlCreatepic("JPG\13.jpg",10,138,0,0)
$pic14 = GUICtrlCreatepic("JPG\14.jpg",110,138,0,0)
$pic15 = GUICtrlCreatepic("JPG\15.jpg",210,138,0,0)
$Label = GUICtrlCreateLabel("",10,170,250,20)
GUISetState()
While 1
$msg = GUIGetMsg()
$b = @HOUR & ':' & @MIN & ':' & @SEC
If GUICtrlRead($Label) <> $b then GUICtrlSetData($Label,$b)
Switch $msg
Case $pic1
ShellExecute("http://www.youku.com")
Case $pic2
ShellExecute("http://www.tudou.com")
Case $pic3
ShellExecute("http://tv.sohu.com/hdtv")
Case $pic4
ShellExecute("http://www.pps.tv")
Case $pic5
ShellExecute("http://www.juchang.com")
Case $pic6
ShellExecute("http://www.pptv.com")
Case $pic7
ShellExecute("http://www.kankan.com")
Case $pic8
ShellExecute("http://www.cntv.cn")
Case $pic9
ShellExecute("http://video.sina.com.cn")
Case $pic10
ShellExecute("http://www.56.com")
Case $pic11
ShellExecute("http://www.joy.cn")
Case $pic12
ShellExecute("http://www.uusee.com")
Case $pic13
ShellExecute("http://v.qq.com")
Case $pic14
ShellExecute("http://boke.qq.com")
Case $pic15
ShellExecute("http://www.qiyi.com")
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
EndSwitch
$Traymsg = TrayGetMsg()
Switch $Traymsg
Case 0
ContinueLoop
Case $mianban
GUISetState()
Case $about
Msgbox(64, "关于", "程序制作：张亚洲"&@CR&"QQ：747957181"&@CR&@CR&"本机操作系统版本:"&@CR&@OSVersion&" "&@OSServicePack)
Case $exit
ExitLoop
EndSwitch
WEnd所用到的图片：