13런타임
By은지
Dim WinHttp As New WinHttpRequestPrivate Sub LoadURLPicture(URL As String, PictureBox As PictureBox)Dim IE As Object, Bte() As Byte, TitleStr$Set IE = CreateObject(winhttp.winhttprequest.5.1)IE.Open GET, URLIE.SendBte = IE.ResponseBodyTitleStr = Replace(Split(URL, /)(UBound(Split(URL, /))), ?, )Open App.Path & \ & TitleStr For Binary As #1 Put 1, , BteClose #1PictureBox.Picture = LoadPicture(App.Path & \ & TitleStr)Kill App.Path & \ & TitleStrEnd SubPrivate Sub Form_Load()Me.Left = Screen.Width / 3Me.Top = Screen.Height / 3With WinHttp.Open GET, http://leagueoflegends.co.kr/.SendFor i = 1 To UBound(Split(.ResponseText, /p)) - 1List1.AddItem Split(Split(.ResponseText, /p)(i), /p)(0)NextFor i = 96 To UBound(Split(.ResponseText, img src=)) - 42List2.AddItem Split(Split(.ResponseText, img src=)(i), )(0)NextEnd WithEnd Sub
Private Sub jcbutton1_Click()On Error Resume NextWith WinHttpList3.ClearList4.Clear.Open GET, http://leagueoflegends.co.kr/GameInfo/info_champion_main.php?strTitle= & utf8(Text1).SendFor i = 1 To UBound(Split(.ResponseText, span))List3.AddItem Split(Split(.ResponseText, span)(i), /span)(0)NextFor i = 96 To UBound(Split(.ResponseText, img src=)) - 6List4.AddItem Split(Split(.ResponseText, img src=)(i), )(0)NextEnd WithEnd Sub
Private Sub List1_Click()List2.ListIndex = List1.ListIndexEnd Sub
Private Sub List2_Click()LoadURLPicture http://leagueoflegends.co.kr & List2.Text, Picture1End Sub
Private Sub List3_Click()List3.ListIndex = List4.List(9) - 1End Sub
Private Sub List4_Click()LoadURLPicture http://leagueoflegends.co.kr & List4.Text, Picture2End Sub
노란색에서 13런타임 오류가 납니다.
| 번호 | 제 목 | 글쓴이 | 날짜 |
|---|---|---|---|
| 2699445 | 파싱말인데요 잘 이해가 안가서요.. | 횃대비 | 2025-06-26 |
| 2699387 | 파싱프로그램으로 제꺼 사이트에있는 자료를 무단으로 긁어가는대 | 돌심보 | 2025-06-25 |
| 2699337 | 매서드나 데이터구성원을 찾을수없습니다 해결좀요 ㅠㅠ | 하예진 | 2025-06-25 |
| 2699305 | 비베6.0 을 이용해서 가가라이브채팅을 할수 있나요? (1) | 에녹 | 2025-06-24 |
| 2699273 | 숫자만 인식하고 싶어요 (6) | 간지포텐 | 2025-06-24 |
| 2699244 | Form에 노래를 넣을려구 하는데요 .. (4) | 초록이 | 2025-06-24 |
| 2699193 | 디자인 설정하면 | 두온 | 2025-06-23 |
| 2699136 | 수다님의 네이버 로그인 모듈을 사용하여 프로그램을 작성하고 있는데 텍스트박스 질문이 있습니다. | 얀새 | 2025-06-23 |
| 2699106 | 오류좀 봐주세요; (2) | 맞빨이 | 2025-06-23 |
| 2699079 | 파싱 질문입니다 (4) | 피네 | 2025-06-22 |
| 2699025 | 블루투스 시리얼통신으로 리스트뷰에 등록 | 목화 | 2025-06-22 |
| 2698995 | [사진有] 비밀번호 틀리면 다음 창으로 안넘어가지게 하는법없나요?? (3) | 슬현 | 2025-06-22 |
| 2698939 | 메세지박스 줄띄우는법 | 누리별 | 2025-06-21 |
| 2698910 | 런타임 424 질문 | 야미 | 2025-06-21 |
| 2698883 | 배열에 관련하여 (1) | 민트맛캔디 | 2025-06-21 |
| 2698856 | 빤짝거리는 내 툴의 재목 !? | 초롱꽃 | 2025-06-20 |
| 2698830 | 리스트 인덱스 질문 (2) | 말글 | 2025-06-20 |
| 2698803 | 리스트 뷰 질문이요. (2) | 딸기향 | 2025-06-20 |
| 2698750 | 헐 웹브앙대요 | 꺆잉 | 2025-06-19 |
| 2698694 | 모듈의 핸들 | 렁찬 | 2025-06-19 |