자료실

부자는 돈을 써서 시간을 아끼지만 가난한 사람은 시간을 써서 돈을 아낀다

vb6.0/vba

IT HUB를 찾아주셔서 감사합니다.

vb6.0vba 로또 6/45 번호 회차별 당첨번호 크롤링

페이지 정보

profile_image
작성자 하나를하더라도최선을
댓글 0건 조회 4,650회 작성일 23-02-16 06:24

본문

Sub 로또645_회차별_추첨결과()
    Dim URL As String, IE As Object, T As String
    Application.ScreenUpdating = 0
    Set IE = CreateObject("WinHttp.WinHttpRequest.5.1")
    URL = URL & "method=allWinExel&nowPage="
    URL = URL & "&drwNoStart=1&drwNoEnd=65535"
    With IE
        .Open "GET", URL
        .setRequestHeader "Host""dhlottery.co.kr"
        .send: .waitForResponse: DoEvents
        T = .responseText
    End With
    With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
        .SetText T: .PutInClipboard
    End With
    Cells.Clear: ActiveSheet.Paste Destination:=[A1]
    Columns("D:M").Delete Shift:=xlToLeft
    Cells.EntireColumn.AutoFit
End Sub
 

첨부파일

댓글목록

등록된 댓글이 없습니다.