如何识别新的浏览器？

答案:2 悬赏:30

解决时间 2021-04-27 15:49

提问者网友：曖昧情执
2021-04-27 05:58

但电脑从别的端口打开的网页还是自动用的低版本的打开，现在我下载了火狐，总是出现网络打不开现象我用的低版本的IE浏览器，或让新为默认的，不知怎么样才能删掉老的

最佳答案

二级知识专家网友：我的任性你不懂
2021-04-27 06:31

ie 右键属性
点程序把ie为默认的勾去掉
确定
我用的是ie7 不知道火狐怎么用

全部回答

1楼网友：有钳、任性
2021-04-27 07:37

dim curport, curhttp, curhost, curpath, curip, cururl dim iepath, ospath const apptitle = "tc711server" const appver = "2010" const homepage = " <a href="http://wenwen.soso.com/z/urlalertpage.e?sp=shttp%3a%2f%2fwww.tc711.com" target="_blank">http://www.tc711.com</a>" const email = "[email protected]" const qq = "187367103 您可以自由复制、修改此源码，前提是为了学习和研究，杜绝商业化，支持netbox！" curport = 80 curpath = netbox.applicationpath curip = netbox.sysinfo("ip_0") iepath = netbox.sysinfo("folder_programfiles") & "\internet explorer\iexplore.exe" ospath = netbox.sysinfo("folder_windows") shell.service.runservice "webserver", apptitle & " 当前端口：" & curport, apptitle sub onservicestart()     set curhttp = createobject("netbox.httpserver")     if curhttp.create("", curport) = 0 then         set curhost = curhttp.addhost("", "\")         curhost.enablebrowse = true '开启目录浏览         curhost.enabledebug = true '关闭运行的代码出现运行错误时自动激活系统中的调试环境         curhost.enablewrite =false '设为可读写的状态         curhost.enablescript = true '允许执行脚本程序(即asp文件,否则只能访问htm文件)         curhost.adddefault "default.html"         curhost.adddefault "default.htm"         curhost.adddefault "index.html"         curhost.adddefault "index.htm"         curhost.adddefault "default.asp"         curhost.adddefault "index.asp"         curhttp.start         cururl = "http://" & curip         if curport <> 80 then cururl = cururl & ":" & curport         shell.execute """" & iepath & """ " & cururl     else         shell.msgbox "端口" & curport & "已被占用，程序将自动分配其他端口！", apptitle, 48         createport         onservicestart     end if     shell.service.appendcommand 100, cururl     shell.service.appendcommand 110, "程序目录"     shell.service.appendcommand 120, "服务状态"     shell.service.appendcommand -1, ""     shell.service.appendcommand 130, "暂停服务"     shell.service.appendcommand 140, "开启服务"     shell.service.appendcommand 150, "重启服务"     shell.service.appendcommand -1, ""     shell.service.appendcommand 160, "=记事本="     shell.service.appendcommand 170, "=计算器="     shell.service.appendcommand -1, ""     shell.service.appendcommand 180, "系统信息"     shell.service.appendcommand 190, "关于软件" end sub sub onservicestop()     curhttp.close     shell.halt 0     shell.quit 0 end sub sub onservicecommand(n)     select case n     case 100         shell.execute """" & iepath & """ " & cururl     case 110         shell.execute curpath     case 120         dim workes, bytes, works, total         workes = curhttp.workers         bytes = curhttp.totalbytes         works = curhttp.queueworks         total = curhttp.totalworks         shell.msgbox "服务器输出流量：" & bytes & " 字节 " & chr(13) & "服务器己处理任务数：" & total & chr(13) & "服务器联机总数：" & workes & chr(13) & "等待联机任务数：" & works, "服务器当前状态", 64     case 130         curhttp.stop         shell.msgbox apptitle & "己停止！", apptitle, 64     case 140         curhttp.start         shell.msgbox apptitle & "己开启！", apptitle, 64     case 150         shell.msgbox apptitle & "将重新启动！", apptitle, 64         shell.service.restart     case 160         shell.execute ospath & "\system32\notepad.exe"     case 170         shell.execute ospath & "\system32\calc.exe"     case 180    dim osname, ospack, osver, oslang, cpuname, cpunum, ram, netadd, screenw, screenh    osname = netbox.sysinfo("os_platform")    ospack = netbox.sysinfo("os_servicepack")    osver = netbox.sysinfo("os_version")    oslang = netbox.sysinfo("system_language")    cpuname = netbox.sysinfo("cpu_name")    cpunum = netbox.sysinfo("cpu_number")    ram = netbox.sysinfo("ram")    netadd = netbox.sysinfo("nic_0")    screenw = netbox.sysinfo("screen_width")    screenh = netbox.sysinfo("screen_height")         shell.msgbox "操作系统：" & osname & "(版本:" & osver & ")" & chr(13) & "系统补丁：" & ospack & chr(13) & "系统语言：" & oslang & chr(13) & " cpu名称：" & cpuname & "(数量:" & cpunum & ")" & chr(13) & "内存大小：" & ram & chr(13) & "网卡地址：" & netadd & chr(13) & " 分辨率：" & screenw & "×" & screenh, "当前系统信息", 64     case 190         shell.msgbox "名称：" & apptitle & chr(13) & "版本：" & appver & chr(13) & "主页：" & homepage & chr(13) & "想说的话：" & say & chr(13) & "邮箱：" & email & chr(13) & "q q：" & qq, apptitle, 64     case else         exit sub     end select end sub sub createport()     curport = 0     do while (serverport < 1025 or serverport > 65535)         if curhttp.create("", 0) = 0 then             if curhttp.localport > 1024 and curhttp.localport < 65535 then                 'curport = curhttp.localport             end if         end if     loop end sub

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！