토렌트알지 검색받아오기!
2012.12.05
Dim winhttp As New winhttp.WinHttpRequest Private Sub Command1_Click() List1.Clear If Text1.Text = "" Then: Exit Sub With winhttp .Open "GET", "http://www.torrentrg.com/bbs/board.php?bo_table=torrent_ani&sca=&sfl=wr_subject&stx=" & Change(Text1) & "&sop=and&x=22&y=2" .Send Dim a, b, c, i, tmp tmp = StrConv(.ResponseBody, vbUnicode) If InStr(1, tmp, "게시물이 없습니다.") Then MsgBox "해당 파일은 존재하지 않습니다." T..