服务端未响应，网页访问不了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 服务端未响应，网页访问不了

共有1993人关注过本帖树形打印复制链接主题：服务端未响应，网页访问不了

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/11 17:46:00 [显示全部帖子]

这个没有的，程序既然死掉，任何代码都不会执行了

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/16 11:22:00 [显示全部帖子]

Dim ps As System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("foxtable")
For Each p As System.Diagnostics.Process In ps

If p.MainWindowTitle.Contains("管理项目1") Then

p.kill

End If

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/12/16 16:05:00 [显示全部帖子]

项目a，定义一个网页，如：

case "test.htm"

e.writestring("正常")

项目b，写个计划任务，定期访问这个网页：

try

Dim req = CType(System.Net.WebRequest.CreateDefault(New Uri("http://127.0.0.1/test.htm")), System.Net.HttpWebRequest)

req.Method = "HEAD"

req.Timeout = 1000

Dim res As System.Net.HttpWebResponse = req.GetResponse()

msgbox("OK")

catch ex As System.Net.WebException

msgbox("无法访问")

End try

主题：服务端 未响应，网页访问不了