Dim httpd
'显示flash.exe
Shell.Execute "ui.exe","+16"
Shell.Service.RunService "AyangMovieSystem", "亚阳软件服务器端", "亚阳影视系统后台服务程序"
'---------------------- Service Event ---------------------
Shell.Service.Desktop = True
Shell.Service.TrayIcon = True
Shell.Execute "ui.exe","+16"
Shell.Service.RunService "AyangMovieSystem", "亚阳软件服务器端", "亚阳影视系统后台服务程序"
'---------------------- Service Event ---------------------
Shell.Service.Desktop = True
Shell.Service.TrayIcon = True
Sub OnServiceStart()
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("",1982) = 0 Then
Set host = httpd.AddHost("", "/admin")
Set httpd = NetBox.CreateObject("NetBox.HttpServer")
If httpd.Create("",1982) = 0 Then
Set host = httpd.AddHost("", "/admin")
host.EnableScript = true
host.AddDefault "index.asp"
httpd.Start
Shell.Service.Icon "ok.ico"
else
Shell.MsgBox "后台服务运行失败,可能服务己运行 ","亚阳软件",16
Shell.Service.Icon "no.ico"
Shell.Quit 0
end if
host.AddDefault "index.asp"
httpd.Start
Shell.Service.Icon "ok.ico"
else
Shell.MsgBox "后台服务运行失败,可能服务己运行 ","亚阳软件",16
Shell.Service.Icon "no.ico"
Shell.Quit 0
end if
Shell.Service.AppendCommand "141","开启后台服务"
Shell.Service.AppendCommand "128","停止后台服务"
Shell.Service.AppendCommand "-1",""
Shell.Service.AppendCommand "130","官方网站"
Shell.Service.AppendCommand "140","关于软件"
End Sub
Shell.Service.AppendCommand "128","停止后台服务"
Shell.Service.AppendCommand "-1",""
Shell.Service.AppendCommand "130","官方网站"
Shell.Service.AppendCommand "140","关于软件"
End Sub
Sub OnServiceCommand(n)
Select Case n
Case 128
httpd.Stop
Shell.Service.Icon "no.ico"
Shell.MsgBox "后台服务己停止,用户将无法访问系统后台 ","亚阳软件",64
Case 129
'//弹出注册
Set ht = CreateObject("NetBox.HtmlWindow")
ht.Icon = "ico16.ico"
ht.MaximizeBox = false
ht.MinimizeBox = false
ht.scrollbar = false
ht.width = 500
ht.height = 320
ht.open " http://127.0.0.1:1982/reg_soft.asp"
ht.showDialog
set ht=nothing
Case 130
'//弹出亚阳的官方网站
Shell.Execute """C:/Program Files/Internet Explorer/IEXPLORE.EXE"" http://www.ayang.cn"
Case 140
'//关于
Set ht = CreateObject("NetBox.HtmlWindow")
ht.Icon = "ico16.ico"
ht.scrollbar = false
ht.MaximizeBox = false
ht.MinimizeBox = false
ht.height = 410
ht.width = 420
ht.open " http://127.0.0.1:1982/about.asp"
ht.showDialog
set ht=nothing
Case 141
httpd.Start
Shell.MsgBox "后台服务己启动 ","亚阳软件",64
Shell.Service.Icon "ok.ico"
Case Else
Exit Sub
End Select
End Sub
Select Case n
Case 128
httpd.Stop
Shell.Service.Icon "no.ico"
Shell.MsgBox "后台服务己停止,用户将无法访问系统后台 ","亚阳软件",64
Case 129
'//弹出注册
Set ht = CreateObject("NetBox.HtmlWindow")
ht.Icon = "ico16.ico"
ht.MaximizeBox = false
ht.MinimizeBox = false
ht.scrollbar = false
ht.width = 500
ht.height = 320
ht.open " http://127.0.0.1:1982/reg_soft.asp"
ht.showDialog
set ht=nothing
Case 130
'//弹出亚阳的官方网站
Shell.Execute """C:/Program Files/Internet Explorer/IEXPLORE.EXE"" http://www.ayang.cn"
Case 140
'//关于
Set ht = CreateObject("NetBox.HtmlWindow")
ht.Icon = "ico16.ico"
ht.scrollbar = false
ht.MaximizeBox = false
ht.MinimizeBox = false
ht.height = 410
ht.width = 420
ht.open " http://127.0.0.1:1982/about.asp"
ht.showDialog
set ht=nothing
Case 141
httpd.Start
Shell.MsgBox "后台服务己启动 ","亚阳软件",64
Shell.Service.Icon "ok.ico"
Case Else
Exit Sub
End Select
End Sub