m_mail="ここに自分の携帯メアド" fl=0 UR_lsit="" id=getid("PIM") sckey(id,VK_ctrl,A) sckey(id,VK_ctrl,c) dt=getstr(0) sendstr(0,"") Ie = CreateOLEObj("InternetExplorer.Application") IE.Visible = true repeat if !(pos("/news.html",dt)) then break UR=betweenstr(copy(dt,1,pos("/news.html",dt)+11),"http://m.rakuten.co.jp/","/news.html",-1) dt=copy(dt,pos("/news.html",dt)+11,length(dt)) fukidasi(UR) if UR=EMPTY or LENGTH(UR)>50 then CONTINUE ifb !(pos(UR,UR_lsit)) URL="http://www.rakuten.co.jp/"+UR+"/news.html" IE.Navigate(URL) BusyWait(IE) doc=IE.document doc.forms(2).elements(0).value=m_mail doc.forms(2).elements(1).click() BusyWait(IE) n=0 UR_lsit=UR_lsit+URL+"<#CR>" endif until fl=1 sendstr(0,UR_lsit) //------ Procedure BusyWait(ie) Sleep(0.5) // Wait Const TIME_OUT = 90 tm = Gettime() repeat Sleep(0.2) ifb Gettime() - tm > TIME_OUT MsgBox("Time Out:BusyWait") ExitExit endif until (! ie.busy) and (ie.readyState=4) Sleep(0.5) Fend