刚刚出炉的-儿童计划免疫与学生健康管理系统

xsljs000

引用第0楼fh2096于2007-04-01 23:08发表的“刚刚出炉的-儿童计划免疫与学生健康管理系统”:
此处是被引用的出售贴

非常感谢如此高效率.我的意思是能否把文件从NETBOX中解出来，想学习学习.

fh2096

tangzhuhui

说话要负责任，我用最新的杀毒软件都没有查出木马，你用的什么软件，让我也试试
如果真是有木马也是原作者加进去的，我只是从netbox中解出了原文件。



xsljs000
全部解出需要几个小时，能用就行了，我现在正在学C++没时间做了，以后有机会吧 [s:2]

昨天顺便把[宏声]的几个软件全破了，有需要的留言吧

xsljs000

已经非常感激了,祝C++早日学成.

fh2096

xsljs000

你要的是这个文件吗？

main.box

Dim httpd

Shell.Service.RunService "通用远程管理服务器", "通用远程管理WEB服务器", "通用远程管理服务器"
Set NetBox("Shell") = Shell
'---------------------- Service Event ---------------------
Sub OnServiceStart()
    Set httpd = CreateObject("NetBox.HttpServer")
    If httpd.Create("",888) = 0 Then
        Set host = httpd.AddHost("", "wwwroot")
        host.EnableScript = true
        host.AddDefault "default.asp"
        host.AddDefault "index.asp"
        host.AddDefault "index.htm"
        host.sessionTimeout=120
        host.EnableDebug=true
        httpd.Start
        'httpd.Timeout=60
        'shell.MsgBox "远程访问服务已经启动", "系统提示", 64
        Set htWin= CreateObject("NetBox.HtmlWindow")
        htWin.Width = NetBox.SysInfo("Screen_Width")
        htWin.height = NetBox.SysInfo("Screen_height")-40
        htWin.left = 0
        htWin.top = 0
        htWin.Open "http://127.0.0.1:888/"
        htWin.ShowDialog
    else
        shell.MsgBox "程序已经运行或默认端口被占用", "程序错误", 48   
        Set htWin= CreateObject("NetBox.HtmlWindow")
        htWin.Width = NetBox.SysInfo("Screen_Width")
        htWin.height = NetBox.SysInfo("Screen_height")-40
        htWin.left = 0
        htWin.top = 0
        htWin.Open "http://127.0.0.1:888/"
        htWin.ShowDialog
        'Shell.Quit 0
    end if

End Sub

Sub OnServiceStop()
    httpd.Close
    shell.MsgBox "远程访问服务已经关闭", "系统提示", 64
End Sub

Sub OnServicePause()
    httpd.Stop
    shell.MsgBox "远程访问服务已经暂停", "系统提示", 64
End Sub

Sub OnServiceResume()
    httpd.Start
    shell.MsgBox "远程访问服务已经启动", "系统提示", 64
End Sub

xsljs000

引用第5楼fh2096于2007-04-02 19:50发表的“”:
xsljs000

你要的是这个文件吗？

main.box
.......

以后会向你讨教其他问题,希望不要嫌我烦!

xsljs000

引用第5楼fh2096于2007-04-02 19:50发表的“”:
xsljs000

你要的是这个文件吗？

main.box
.......

我只要他的  login.asp.

xsljs000

引用第5楼fh2096于2007-04-02 19:50发表的“”:
xsljs000

你要的是这个文件吗？

main.box
.......

看你的功力我应直接向你请教.
此系统main.box中请求打开对象是http://127.0.0.1:888,可打开首页时却能显示我的局域网IP,我不明白是怎么实现的.一般请求打开对象是http://127.0.0.1:888的话,在自己电脑上测试无论你的语句是显示本机IP,还是客户端IP,还是服务器IP,都显示127.0.0.1
如有时间请指教.

8055

谢谢分享！！！

renxuan

我买了，也下载了，怎么不能用啊