수다닷컴

오류에 대하여 질문하신다면, 어느 부분에서 어떤 내용의 오류가 나는지를 써주세요.


Private Declare Function URLDownloadToFile Lib urlmon Alias URLDownloadToFileA (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Const ERROR_SUCCESS As Long = 0Private Const BINDF_GETNEWESTVERSION As Long = &H10Private Const INTERNET_FLAG_RELOAD As Long = &H80000000
Private Function DownloadFileFromWeb(sSourceUrl As String, sLocalFile As String) As Boolean DownloadFileFromWeb = URLDownloadToFile(0&, sSourceUrl, sLocalFile, BINDF_GETNEWESTVERSION, 0&) = ERROR_SUCCESSEnd Function
Private winhttp As New winhttp.WinHttpRequestPrivate Counter As Long
Private Sub ListParsing(ByVal fNum As Long)
Me.Caption = Working... & fNum winhttp.Open GET, http://file.naver.com/_common/view/httpDownload.html?fnum= & fNum & &ttype=0 winhttp.Send If winhttp.WaitForResponse(3000) = True Then Dim Source As String Dim FLink As String Dim FName As String Dim FLen As String
Source = winhttp.ResponseText If InStr(Source, 등록된) Then: Exit Sub Source = Mid$(Source, InStr(Source, a href=) + 9) FLink = Left$(Source, InStr(Source, Chr(34)) - 1) Source = Mid$(Source, InStr(Source, strong) + 8) FName = Left$(Source, InStr(Source, /) - 1) Source = Mid$(Source, InStr(Source, br) + 4) FLen = Replace(Left$(Source, InStr(Source, /div) - 1), , ) ListView1.ListItems.Add , , ( & fNum & ) & FName ListView1.ListItems(ListView1.ListItems.Count).SubItems(1) = FLen ListView1.ListItems(ListView1.ListItems.Count).SubItems(2) = FLink Counter = Counter + 1/er + 1 DoEvents Else MsgBox Time Out !, vbCritical, End If y = y + 1 DownloadFileFromWeb ListView1.ListItems(ListView1.ListItems.Count).SubItems(1), C:\naver\1\y.exe End Sub
Private Sub Form_Resize()On Error Resume Next ListView1.Left = 120 ListView1.Top = 120 ListView1.Width = Me.Width - 480 ListView1.Height = Me.Height - 1140 - 240 Label1.Width = Me.Width - 480 Label1.Top = Me.Height - 1200 ListView1.ColumnHeaders(1).Width = (ListView1.Width / 10) * 5 ListView1.ColumnHeaders(2).Width = (ListView1.Width / 10) * 3 ListView1.ColumnHeaders(3).Width = (ListView1.Width / 10) * 2 - 300End Sub
Private Sub Timer1_Timer() Label1.Caption = Counter & /s Counter = 0End Sub
Private Sub 멀티로드_Click() For i = 1 To 100000 Call ListParsing(i) Next iEnd Sub

--------------------------------------------------------------------------
어떤분이 만들어서 올려 주신거에 다운로드 소스를 추가하고 실행 했는데... 오류가 나면서 잘 안되네요.메서드나 구성원을 찾을 수 없다고 나오네요.아, 그리고DownloadFileFromWeb ListView1.ListItems(ListView1.ListItems.Count).SubItems(1), C:\naver\1\y.exe 여기 이부분이 맞는건가요?;;

신청하기