webclient file exists
*
Imports System.Net
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim url As New System.Uri("http://localhost/1.txt")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
resp.Close()
req = Nothing
MsgBox("Website Found!")
Catch ex As Exception
req = Nothing
End Try
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim url As New System.Uri("http://localhost/1.txt")
Dim req As System.Net.WebRequest
req = System.Net.WebRequest.Create(url)
Dim resp As System.Net.WebResponse
Try
resp = req.GetResponse()
resp.Close()
req = Nothing
MsgBox("Website Found!")
Catch ex As Exception
req = Nothing
End Try
End Sub
End Class
Imports System.Net
Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim request = DirectCast(WebRequest.Create("http://localhost/11.txt"), WebRequest)
Try
Dim response As WebResponse = DirectCast(request.GetResponse(), WebResponse)
MsgBox("exist")
Catch ex As WebException
Dim response As WebResponse = DirectCast(ex.Response, WebResponse)
MsgBox("no exist")
End Try
End Sub
End Class
이 게시물을
번호
제목
217
213
211
207
202
201
200
198