If My.Computer.Network.IsAvailable Then
目前创新互联已为1000+的企业提供了网站建设、域名、网络空间、网站托管、服务器租用、企业网站设计、孟村网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
'如果可用
Else
'不可用
End If
病情分析：
宫颈糜烂是女性常见多发的慢性炎症，主要是由于长期的生殖道炎症刺激引起的，轻中度的宫颈糜烂是可以用药物来治疗一下的，重度的宫颈糜烂如果没有生育要求的话 ，是可以用手术来治疗的。
指导意见：
根据你的描述，宫颈糜烂是中度的，并不是很严重，是不会影响怀孕的，如果有白带异常的表现的话，可以用栓剂治疗几天，但是只有周期用药才会有效果的，急着怀孕的话 ，可以不用治疗，生育完毕之后在治疗就可以了，不用过于担心。
美国莎顿120宫颈修复工作站
治疗优势：核心技术是莎顿120芯片技术，是LEEP刀技术的升级版，利用莎顿120高频电波在接触病灶的瞬间，产生阻抗从而产生高热，在不伤害正常组织的前提下，切除宫颈糜烂组织，达到治愈的目的，具有安全、微创，恢复快，无痛苦、治疗彻底，治愈后的宫颈光滑如初。
病情分析：
您好，您现在的情况应该考虑先进行治疗，在考虑要宝宝。中度宫颈糜烂单纯药物治疗效果不明显，不能达到治愈的效果。
指导意见：
根据您对今后生育的要求，建议您选择瑞士仿生术治疗。一次性治愈宫颈糜烂。只除糜烂，不伤宫颈，保持宫颈弹性，不影响今后生育。建议您早期治疗，预防宫颈癌的发生。祝您早日康复！W
您好，轻度宫糜可以考虑药物治疗，针对中度以上宫颈糜烂患者我院有特色疗法 “LEEP刀”技术，术后无疤痕，只是经过阴道做的门诊微创小手术，不切除子宫，不影响生育，5-10分钟完成治疗，一次性治愈，无需住院，费用低。建议您可以详细咨询一下您当地医院，感谢您对杭州仁德医院的支持。
病情分析：
一般情况下不做物理治疗的话就是上药治疗。
指导意见：
你可以试试消糜栓，像你这种情况是可以做一下红外线等治疗的。
您好！一般轻度的宫颈糜烂是建议药物治疗的，中度以上的宫颈糜烂是建议采用微创手术治疗的，药物治疗的话效果很慢而且容易反复感染。微创手术有leep刀和射频消融术，2个方法治愈后对生育都是没有什么影响的。但是没有生育过的建议可以选择射频。这个设和对生育要求较高的女性。希望我的建议可以帮到您，祝您早日康复！
你这段代码可以获得该主机名下的所有ip，每个ip地址都是有类型簇的，可以区别本地地址和网络地址、ip6地址。
你获取索引为0的ip，不一定是正确的网络地址，它有时顺序在中间，在后面。
应该获取所有ip，再通过ip地址簇类型区分
判断连接本身有一个函数，不过有时没联网也是真。
可以用ping，ping百度、ping访问速度快、不经常维护断线的网络主机。
新建模块
Function IsHearOK(ByVal URL As String) As Boolean '判断网页是否存在函数
Dim XMLObject As Object, ReturnType As String
XMLObject = CreateObject("Microsoft.XMLHTTP")
XMLObject.Open("GET", URL, False)
XMLObject.setRequestHeader("CONTENT-TYPE", "application/x-www-form-urlencoded")
XMLObject.setRequestHeader("Range", "bytes=1-255")
Try
XMLObject.Send()
If XMLObject.Status = 200 Or XMLObject.Status = 206 Then
ReturnType = XMLObject.getResponseHeader("CONTENT-TYPE")
If UCase(ReturnType) "TEXT/HTML" Then
IsHearOK = True
Else
IsHearOK = False
End If
Else
IsHearOK = False
End If
Catch
MsgBox("连接异常，请检查网络！", , "提醒")
XMLObject = Nothing
End Try
End Function
调用 ishearok（url）=true 正常
GetHostbyName API可获取域名对应的IP地址,当没有联网状态将会返回一个错误值。所以可利用它来判断是否联网。
Private Sub Form_Load()
If IsConnectedState Then
MsgBox "连接网络"
Else
MsgBox "没有联网"
End If
End Sub
VBScript code复制代码
Option Explicit
Private Type WSADATA
wversion As Integer
wHighVersion As Integer
szDescription(0 To 256) As Byte
szSystemStatus(0 To 128) As Byte
iMaxSockets As Integer
iMaxUdpDg As Integer
lpszVendorInfo As Long
End Type
Private Declare Function WSAStartup Lib "WSOCK32.DLL" (ByVal wVersionRequired As Integer, lpWSAData As WSADATA) As Long
Private Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long
Private Declare Function gethostbyname Lib "WSOCK32.DLL" (ByVal szHostname As String) As Long
Private Const WS_VERSION_REQD = H101
Public Function IsConnectedState() As Boolean
Dim udtWSAD As WSADATA
Call WSAStartup(WS_VERSION_REQD, udtWSAD)
IsConnectedState = CBool(gethostbyname(""))
Call WSACleanup
End Function