影视导航菜单

747957181

请教高手
可否简化该程序源代码？

#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

所用到的图片：