cccheck webserviceisrunning vb.net chk web service is running or not

 Public ssCON As New WEBSERVICE_RMW.Service1 

chk web service is running or not

ssCON = New WEBSERVICE_RMW.Service1
        ssCON.EnableDecompression = True
        ssCON.Timeout = 1000000
        ssCON.Url = "http://192.168.101.56/WEBSERVICE_RMW/"
        If WebServiceRunning("http://192.168.101.56/WEBSERVICE_RMW/") = True Then
            ssCON.Url = "http://192.168.101.56/WEBSERVICE_RMW/"
            ssCON.Credentials = System.Net.CredentialCache.DefaultCredentials
        ElseIf WebServiceRunning("http://192.168.101.155/ORAADMIN2/") = True Then
            ssCON.Url = "http://192.168.101.155/ORAADMIN2/"
            ssCON.Credentials = System.Net.CredentialCache.DefaultCredentials
        ElseIf WebServiceRunning("http://192.168.101.154/ORAADMIN1") = True Then
            ssCON.Url = "http://192.168.101.154/ORAADMIN1/"
            ssCON.Credentials = System.Net.CredentialCache.DefaultCredentials
        End If



 Public Function WebServiceRunning(ByVal Url As String) As Boolean
        Try
            Dim requestUrl As String = Url
            Dim request As HttpWebRequest = TryCast(WebRequest.Create(requestUrl), HttpWebRequest)
            Dim response As HttpWebResponse = TryCast(request.GetResponse(), HttpWebResponse)
            Dim dataStream As Stream = response.GetResponseStream()
            Dim reader As New StreamReader(dataStream)
            Dim responseFromServer As String = reader.ReadToEnd()
            Dim result = responseFromServer
            If IsNothing(result) Then
                WebServiceRunning = False
                Exit Try
            Else
                WebServiceRunning = True
                Exit Try
            End If

            reader.Close()
            response.Close()
        Catch ex As System.Net.WebException
            WebServiceRunning = False
            Exit Try
        End Try
    End Function




cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net
cccheck webserviceisrunning vb.net 
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ โคราช, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์, ล้างแอร์ โชคชัย, ล้างแอร์ ปักธงชัย
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์
ล้างแอร์ ซ่อมแอร์ ติดตั้งแอร์