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


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0313
forestランタイムエラーになってしまう。5解決


forest

リンク

2016/3/13(Sun) 21:45:33|NO.74905

以下のスプリクトを作ったのですが、WindowsVistaでは問題なく動くのですが、
Windows10ではランタイムエラーになってしまいます。どのように直せばよいでしょうか。

screen 0,350,210
notesel a
noteload "key.txt"
lis=a
pos 10,10 : objsize 200,100
listbox lis0,100,lis;オブジェクトID:0
pos 230,10 ;: objsize 96,20
input kazu,96,20,2 ;オブジェクトID:1
pos 230,40 : objsize 96,40
button gosub "IE起動",*startIE;オブジェクトID:2
pos 230,90 : objsize 96,40
button gosub "検索",*search;オブジェクトID:3

*startIE
;***** 検索キーを指定して自動検索*****

;▼IE(InternetExplorer.Application)オブジェクトを作成
newcom objIE, "InternetExplorer.Application"

objIE("Silent") = 1
objIE("Visible") = 1
onexit *owari
stop

*search
;▼開く
sURL = "http://websearch.rakuten.co.jp/Web?qt=hsp&col=OW&svx=101210&ref=top"
objIE->"Navigate" sURL
gosub *busywait

if kazu=0 : r = noteinfo(0) : else : r=kazu
repeat r,0
noteget b,cnt
o = objIE("Document")
o = o("SearchForm",0)
o = o("qt")
o("value") = b

o=objIE("Document")
o = o("SearchForm",0)
o -> "submit"
gosub *busywait
loop
return

*busywait
;▼ページの読み込みが終了するまで待つ
title "ページを読み込み中です。"
repeat
wait 10
if objIE("Busy")==0 : break
loop
objDoc=objIE("Document")
repeat
wait 10
if (objdoc("readyState") == "complete") : break
loop
title "ページが表示されました。"
return

*owari
delcom objIE
end



この記事に返信する


可憐

リンク

2016/3/14(Mon) 05:00:25|NO.74914

gosubで指定ラベルへ飛んでいるのにReturnで復帰していないのでエラーが出ているんだと思います。


button gosub "IE起動",*startIE



forest

リンク

2016/3/15(Tue) 18:08:59|NO.74926

返事が遅れてすいません。
可憐さんの言うとおりにやってみたところ、私の2台あるパソコンのうち、
片方は問題なく動いてくれたのですが、もう片方のWindows7からWindows10にアップグレードした
方のパソコンはなぜか数回検索を繰り返した後、以下の行で

if (objdoc("readyState") == "complete") : break
error37の「変数型の変換に失敗しました。」というエラーで止まってしまいます。
どうすれば治るでしょうか。よろしくお願いします。



可憐

リンク

2016/3/15(Tue) 21:39:43|NO.74927

59行目と60行目の間に
delcom objIE
を入れてみて下さい。
出先なので試してませんが、解決するかもしれません 解決しないかもしれません



forest

リンク

2016/3/18(Fri) 22:21:57|NO.74955

ご回答ありがとうございます。
59行目と60行目というと

title "ページが表示されました。" return と *owari delcom objIE
の間だと思うのですけど合っていますか。同じエラーが出ます。
どの位置に置けばよいでしょうか。



forest

リンク

2016/3/20(Sun) 18:19:18|NO.74990

ご返答ありがとうございます。



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