안녕하세요 ' 지지베 ' 입니다.
특정 사용자를 확인 후, 사용을 원하는 사용자는 패스 그리고 사용을 원하지 않는 사용자는 프로그램을 종료시키는 소스입니다.
겜방에서 할 일 없이 놀다가 질문을 해서 소스 자체가 100% 맞는지는 모르겠네요.
FTP에 올려논 txt를 읽어와서 코딩하시겠다면,
.txt 의 내용은 "1" 혹은 "0" 으로 하겠습니다. ' 1일때 사용 0일때 종료
Inet 컨트롤을 추가 합니다.
'Ctrl+T 를 누르시거나 컨트롤상자에서 마우스 우클릭 > 구성요소로 들어가셔셔 , Microsofit internet Transfer Control 6.0 을 추가 하시면 됩니다.
Inet 컨트롤을 폼 위에 올리세요 '컴파일 시 보이지 않는 디자인임으로 아무곳에나 배치하셔도 됩니다
그리고 이렇게 코딩을 해보시고 컴파일 해보세요
Private Sub Form_Load() ' 폼 로드시 발생하는 이벤트
Dim URL As String ' .txt 가 있는 주소를 담아둘 함수
Dim check As Long ' .txt 의 숫자를 담아두고 비교할 함수
URL = "확인할 주소" 'URL 경로를 입력하세요
check = inet1.OpenURL(URL) ' Inet 컨트롤로 .txt의 내용을 받아옵니다.
If check = 1 Then ' .txt의 내용이 1일때
Else ' .txt의 내용이 1이 아닐때
End ' 1이 아닐때는 프로그램을 종료합니다
End Sub
다음검색