수다닷컴

Option Explicit
Const scUserAgent As String = API-Guide test program
Private Const INTERNET_OPEN_TYPE_PRECONFIG As Long = 0
Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Const INTERNET_FLAG_KEEP_CONNECTION As Long = &H400000
Private Const INTERNET_FLAG_NO_CACHE_WRITE As Long = &H4000000
Private Declare Function InternetOpen Lib wininet Alias InternetOpenA (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib wininet (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib wininet (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib wininet Alias InternetOpenUrlA (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Function OpenURL(sURL As String, Optional bufSize As Long = 1000) As String

Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long

sBuffer = Space$(bufSize)

hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0): DoEvents
hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD Or INTERNET_FLAG_KEEP_CONNECTION Or INTERNET_FLAG_NO_CACHE_WRITE, ByVal 0&): DoEvents

InternetReadFile hFile, sBuffer, bufSize, Ret: DoEvents

InternetCloseHandle hFile
InternetCloseHandle hOpen

OpenURL = Trim(Replace(Left$(sBuffer, Ret), Chr(10), vbCrLf))

End Function
Private Sub Command1_Click()
Dim Strurl As String, stt() As String
Dim i As Integer, j As IntegerStrurl = OpenURL(http://dpswls2011.dothome.co.kr/passwd.txt)
stt = Split(Strurl, vbCrLf)
For i = 0 To UBound(stt) Step 4
If Trim$(Replace(stt(i), 아이디:, )) = Text1 Then
For j = 2 To UBound(stt) Step 4
If Trim$(Replace(stt(j), 비밀번호:, )) = Text2 Then
MsgBox 로그인성공 & vbCrLf & 다음 폼으로 넘어갑니다, , 로그인
Form2.Show
Exit For
End If
Next j
End If
Next iEnd Sub

신청하기