https://menyukko.ifdef.jp/cauldron/hmtreeview.html
//HSPINET.DLLの初期化 netinit netagent "Monazilla/1.00 (NekomimiMona/"+NekomimiMona+")" neturl "https://menu.5ch.net/" netrequest_get "bbsmenu.html" ; 結果待ちのためのループ repeat netexec res if res : break await 0 loop netgetv bbsmenu strrep bbsmenu, strf("%c", 10), "\n" notesel bbsmenu nowcat = 0 threads = 0 _catcon = 0 _cnt = 0 repeat notemax noteget _bbs,cnt matches _cat,_bbs,"<BR><BR><B>(.*)</B><BR>" if length2(_cat) != 0{ _catcon = 0 if _cat(0,1)=="チャット" or _cat(0,1)=="ツール類" or _cat(0,1)=="他のサイト" or _cat(0,1)=="運営案内" or _cat(0,1)=="おすすめ":_catcon=1:continue TreeView_InsertItem _cat(0,1),1,0,8 nowcat=nowcat+threads threads=0 logmes _cat(0,1)+"(category)->"+nowcat _cnt++ continue } if nowcat != 0{ if _catcon=1:continue matches _board,_bbs,"<A HREF=(.*)>(.*)</A><br>" if length2(_board) != 0{ split _board(0,1),"/",_split if length(_split)<=3:continue TreeView_InsertItem _board(0,2),1,nowcat,0 threads++ logmes _board(0,2)+"(bbs)->"+threads+"("+str(_cnt+threads)+")" _cnt++ continue //TreeView_InsertItem "b",2,1,0 } } loop