|
本帖最后由 ilvjyw 于 2015-4-3 16:56 编辑
ToolTip("启动中...")
$Form1 = GUICreate("倾听网络电台 Creat by ilv", 470, 410, 193, 127)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Mini")
TraySetClick("8");8 = 按下鼠标右键(显示托盘菜单)
TraySetOnEvent("-7", "MenuItem2Click");鼠标左键在托盘图标上按下 产生事件
TraySetToolTip("倾听网络电台 Creat by ilv")
$MenuItem3 = TrayCreateItem("隐藏")
TrayItemSetOnEvent(-1, "MenuItem3Click")
$MenuItem2 = TrayCreateItem("显示")
TrayItemSetOnEvent(-1, "MenuItem2Click")
$MenuItem1 = TrayCreateItem("关于")
TrayItemSetOnEvent(-1, "MenuItem1Click")
$MenuItem4 = TrayCreateItem("退出")
TrayItemSetOnEvent(-1, "MenuItem4Click")
$oIE =_IECreateEmbedded()
GUICtrlCreateObj($oIE, -1, -1, 471, 411)
;~ $html = _INetGetSource("http://www.qingtin.com/app/")
;~ $html = StringReplace($html, "http://cpro.baidu.com/cpro/ui/c.js", "")
;~ _IEDocWriteHTML($oIE, $html)
;_IEAction($oIE, "refresh")
ToolTip("")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_IENavigate($oIE,'http://www.qingtin.com/app/') |
|