HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2014
0330
forestVBSを書き換えたい8解決


forest

リンク

2014/3/30(Sun) 20:40:57|NO.61082

ウェブページのリンクを自動的にクリックするスクリプトを下記のVBスクリプトで作ってみました。
今度はそのスクリプトを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



この記事に返信する


(’’

リンク

2014/3/31(Mon) 07:46:16|NO.61096

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



GOMEKIT!

リンク

2014/3/31(Mon) 08:57:20|NO.61099

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



MillkeyStars

リンク

2014/3/31(Mon) 09:15:44|NO.61100

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も命令と説明はある、それを同じように使えばできる。
自分でやってみてもしわからないようだったら、自分で変換してみたスクリプトを提示し、みんなにヘルプをしよう。
最初から「全部変換してください」じゃ、だれも答えてくれない。



forest

リンク

2014/3/31(Mon) 16:25:52|NO.61120

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

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("HREF"),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



T.T

リンク

2014/3/31(Mon) 20:02:36|NO.61130

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



GOMEKIT!

リンク

2014/3/31(Mon) 20:22:25|NO.61132

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

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



MillkeyStars

リンク

2014/4/1(Tue) 21:58:50|NO.61202

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

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

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



forest

リンク

2014/4/11(Fri) 19:37:45|NO.61515

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



ONION software Copyright 1997-2021(c) All rights reserved.