일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | 2 | 3 | ||||
4 | 5 | 6 | 7 | 8 | 9 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 | 31 |
- 이미지세로길이
- SPLIT
- VarType
- sql랭킹
- inner join
- 이미지가로길이
- FileSystemObject
- javascript 한글입력체크
- array
- 자바기초
- WML
- sql순위
- XML
- xmldom
- 한글입력체크
- ERD
- sql업데이트
- instr
- 인젝션
- wap
- JavaScript
- asp함수
- VARIABLE
- 정규식
- update
- join
- jdbc driver
- tempDB
- injection
- MSSQL보안
- Today
- Total
3초기억력
url 호출하는 VB소스 본문
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