수다닷컴

Imports System.IO
Imports System.NetPublic Class Form3 Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
If My.Computer.Network.IsAvailable = True Then
Dim client As New WebClient()
Dim winhttp As New WinHttp.WinHttpRequest()
Dim Checkup As String
winhttp.Open(GET, https://www.주소.com/파일.txt)
winhttp.Send()
Checkup = (winhttp.ResponseText)
If Checkup = False Then
Timer1.Enabled = True
If ProgressBar1.Value = 100 Then
Me.Hide()
Form4.Show()
Else
ProgressBar1.Value = ProgressBar1.Value + 25
End If
Else
MsgBox(프로그램 사용 불가., vbCritical, 실행 불가)
Me.Close()
Form1.Close()
Form2.Close()
End If
Else
Timer1.Enabled = False
MsgBox(인터넷 연결 안됨., vbCritical, 인터넷 연결 안됨)
End If
End Sub
End Class

파일.txt 안에는 false라고 적혀있고요.
이렇게 했는데.. MsgBox(프로그램 사용 불가., vbCritical, 실행 불가) 있는 곳으로 가버립니다.. 뭐가 문제인지....ㅠㅠ

신청하기