HSPTV!掲示板

ウェブページのリンクを自動的にクリックするスクリプトを下記のＶＢスクリプトで作ってみました。
今度はそのスクリプトをＨＳＰに書き換えたいのですが、どのように変更すればよいでしょうか。
よろしくお願いします。

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
'ＨＲＥＦは投稿規約に引っかかるので全角にした
    'If LinkObj.ＨＲＥＦ = LinkID Then
    if instr(1,LinkObj.ＨＲＥＦ,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

Q:書き換えたい→A:HSPを勉強して下さい。

>ウェブページのリンクを自動的にクリックするスクリプトを下記のＶＢスクリプトで作ってみました。
何故、VBｽｸﾘﾌﾟﾄで作るのかがわからない。
>今度はそのスクリプトをＨＳＰに書き換えたいのですが、どのように変更すればよいでしょうか。
一行ずつVBｽｸﾘﾌﾟﾄの命令に対応したHSPの命令に書き換える。

Aじゃないのかと考え中・・・。
動作フローを理解すればできるとしかいえない。

うちの理解で考えると With IEObj がメインで Sub がサブルーチンジャンプ先で Call が動作命令系かな？

まぁ、CreateObject 自体は、そのまま IEObj なんだから、HSP で Webコントロールを作ればいい。
instr はそのまま、instr だよね。
sleep は wait/await だよね。
Do While IEobj.Busy は、While で IEObj の戻り値が true か 4 になるまで監視しろかな。

VBスクリプトを実際に動かしてるわけではないので正確にわからないが、これだけは言っておく。
一人でがんばってみよう、VBスクリプトもHSPも命令と説明はある、それを同じように使えばできる。
自分でやってみてもしわからないようだったら、自分で変換してみたスクリプトを提示し、みんなにヘルプをしよう。
最初から「全部変換してください」じゃ、だれも答えてくれない。

下記のように書き換えてみたのですが、リンクをクリックしてもらえません。
どのように変更すればよいでしょうか。

	newcom IEobj, "InternetExplorer.Application"
	IEobj("Silent")  = 1
	IEobj("Visible") = 1
	URL = ウェブページ
	IEobj->"Navigate" URL

	gosub *IEwait
	gosub *act
	gosub *IEwait
	delcom IEobj
	stop

*act
	newcom objVBsc, "ScriptControl"
	objVBsc("Language")="VBScript"

	LinkID = リンク
	o = IEobj("Document")
	num=o("links") :num=int(num("length"))
  	Repeat num
    	link=o("links",cnt) :LinkObj=GetPath(link("ＨＲＥＦ"),16)
    	If(InStr(LinkObj,,LinkID)>0){
 			vbs = {"
					Sub vbcmd() : LinkObj.Click : End Sub
			"}
			objVBsc->"AddCode" vbs
			objVBsc->"Run" "vbcmd"
			delcom objVBsc
			break
    	}
	loop
return

*IEwait
	while IEobj("Busy")=true
		wait 10
	wend
	wait 10
return

.exeにしたいんだったらVBに移植したほうが…

VBSが出来るならVBSファイルをアプリケーションファイルに変換するソフトがある。

http://www.vector.co.jp/soft/winnt/prog/se389017.html

試してみたけど、onclick イベントは機能しないか・・・
(たぶん、java(onclck イベント)が機能しないと意味がないと思う。)

[テストに用いたURLとリンク]
URL : http://www.ocn.ne.jp/
リンク : スタートページに設定 :: http://www.ocn.ne.jp/sethome/
onclick : "javascript:sspage(this);return false;"
(ページ上部右側)

com はさっぱりわからんので、わかる方お願いします。

ご回答ありがとうございました