제가파일을 실행하자마자 Form1이 뜨기전 저의 서버(닷홈웹호스팅)에서 txt를 불러와서
이게 1이면 실행
그 외에면 메세지 박스 출력후 프로그램 종료를 시키고 싶은데,
일단 소스는 직접 짜봤어요.
--
Private Sub Form1_Load()
Dim WinHttp As Object
Set WinHttp = CreateObject(Winhttp.WinHttpRequest.5.1)
WinHttp.Open GET, http://제웹호스팅주소/Server.txt, False
WinHttp.Send
If InStr(WinHttp.responsetext, 1) Then
Form1.Show
Else
MsgBox 사용불가, vbCritical, 실패
End
End If
End Sub
--
로 했는데, 되지가 않네요_-
무조건 프로그램이 실행이 되요.ㅠ.
어떡하죠?