수다닷컴

Private Sub LoadURLPicture(URL As String, PictureBox As PictureBox)
WinHttp.Open GET, http://www.leagueoflegends.co.kr/main.php
WinHttp.Send
Bte = WinHttp.ResponseBody
TitleStr = Replace(Split(http://www.leagueoflegends.co.kr/main.php, /)(UBound(Split(http://www.leagueoflegends.co.kr/main.php, /))), ?, )

Open App.Path & \ & TitleStr For Binary As #1
Put 1, , Bte
Close #1
PictureBox.Picture = LoadPicture(App.Path & \ & TitleStr)
Kill App.Path & \ & TitleStr
End Sub

Public Function Champion()
On Error Resume Next
WinHttp.Open Get, http://www.leagueoflegends.co.kr/main.php
WinHttp.Send
Data = WinHttp.ResponseText
Champ1 = Split(Split(Split(Data, _sub.php?idx=)(1), p)(1), /p)(0)
Champ2 = Split(Split(Split(Data, _sub.php?idx=)(2), p)(1), /p)(0)
Champ3 = Split(Split(Split(Data, _sub.php?idx=)(3), p)(1), /p)(0)
Champ4 = Split(Split(Split(Data, _sub.php?idx=)(4), p)(1), /p)(0)
Champ5 = Split(Split(Split(Data, _sub.php?idx=)(5), p)(1), /p)(0)
Champ6 = Split(Split(Split(Data, _sub.php?idx=)(6), p)(1), /p)(0)
Champ7 = Split(Split(Split(Data, _sub.php?idx=)(7), p)(1), /p)(0)
Champ8 = Split(Split(Split(Data, _sub.php?idx=)(8), p)(1), /p)(0)
Champ9 = Split(Split(Split(Data, _sub.php?idx=)(9), p)(1), /p)(0)
Label1.Caption = Champ1
Label2.Caption = Champ2
Label3.Caption = Champ3
Label4.Caption = Champ4
Label5.Caption = Champ5
Label6.Caption = Champ6
Label7.Caption = Champ7
Label8.Caption = Champ8
Label9.Caption = Champ9
LoadURLPicture (http://www.leagueoflegends.co.kr & Split(Split(Split(Data, _sub.php?idx=)(1), src=)(1), )(0)), Picture1.Picture
End Function

Private Sub Form_load()
Call Champion
End Sub

왜그럴까요?

신청하기