记事本txt混排去重复工具netbox+asp源码（main.box）

Dim httpd
Set httpd = CreateObject(“NetBox.HttpServer”)
dk=7807
if httpd.Create("",dk) = 0 Then
Set host = httpd.AddHost("", “\dat”)
host.EnableScript = true
host.AddDefault “default3.asp”
host.ErrorMessage=“ERR”
httpd.Start

args=Shell.Arguments

Set ht = CreateObject(“NetBox.HtmlWindow”)
ht.ToolWindow = false’托盘，false 显示
ht.Icon=“ico.ico”
ht.title=“软件正在开启…(S)”
ht.SetTransparentMask “netbox:/dat/images/t1.gif”'给定的透明模版文件名，必须为一个透明 gif
ht.open “netbox:/dat/index_zz.htm?dk=”&dk,args
ht.resizable=false
ht.MinimizeBox=true
ht.scrollbar=false
ht.center
ht.DropShadow = False’阴影true
ht.showDialog

httpd.Stop
httpd.Close

Shell.Quit 0
else
Shell.Quit 0
end if

注：netbox不支持win8及以后系统，可尝试安装虚拟机。本代码只做交流、参考。交流信箱 1908272382@qq.com