今度はそのスクリプトをHSPに書き換えたいのですが、どのように変更すればよいでしょうか。
よろしくお願いします。
Set IEobj = CreateObject("InternetExplorer.Application") URL = ウェブページ With IEobj .Navigate URL .Visible = True End With Call IEwait Call Click Call IEwait Sub Click() LinkID = リンク For Each LinkObj In IEObj.Document.links 'HREFは投稿規約に引っかかるので全角にした 'If LinkObj.HREF = LinkID Then if instr(1,LinkObj.HREF,LinkID)>0 then LinkObj.Click Exit For End If Next End Sub Sub IEwait() Do While IEobj.Busy = True Or IEobj.readystate <> 4 WScript.Sleep 100 Loop WScript.Sleep 1000 End Sub