3초기억력

url 호출하는 VB소스 본문

플밍_VB

url 호출하는 VB소스

잠수콩 2009. 7. 9. 10:04
336x280(권장), 300x250(권장), 250x250, 200x200 크기의 광고 코드만 넣을 수 있습니다.



    Dim i As Integer


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        LoadASP()
        TextBox1.Text = Now() ' & " 호출건수 : " & i
        AddHandler Timer1.Elapsed, AddressOf OnTimedEvent
    End Sub

    Public Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs)

        'If i > 19800 Then
        '   Dispose()
        'Else
        LoadASP()
        'End If
        TextBox1.Text = Now() ' & " 호출건수 : " & i
    End Sub


    Public Sub LoadASP()
        Dim URL As String, TTTWebClient As Object, myDatabuffer As Object

        URL = "http://www.naver.com/"
        TTTWebClient = New WebClient
        myDatabuffer = TTTWebClient.DownloadData(URL)
        TTTWebClient.Dispose()

        i = i + 1

    End Sub

'플밍_VB' 카테고리의 다른 글

인스톨팩토리사용법  (0) 2011.02.24
Comments