'vb'에 해당되는 글 1건

  1. 2009.07.09 url 호출하는 VB소스 by 잠수콩



    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
url 호출하는 VB소스  (0) 2009.07.09
Posted by 잠수콩
TAG ,