Try
Dim request As WebRequest = WebRequest.Create("http://url/1.exe")
request.Credentials = CredentialCache.DefaultCredentials
Dim response As WebResponse = request.GetResponse()
MsgBox("ok")
Catch ex As Exception
MsgBox("err")
End Try