したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

■■■20レス以内で済むF-BASICの質問はこちらへ■■■

275F-BASIC愛好者:2005/09/01(木) 14:19:31
再度、お世話になります。
webをタグにできるサンプルがありましたので一部手を加えました。
-------------------------------------------------------------------
Private Sub Command1_Click()
Dim ObjIE As Object
Dim myHTML As String
Dim iFileNo As Integer
Label1 = "なし"

Set ObjIE = CreateObject("InternetExplorer.Application")
With ObjIE
.Visible = False
.navigate "http://www3.nhk.or.jp/hensei/fm/20050901/frame_12-18.html"
While .Busy Or .ReadyState <> 4
DoEvents
Wend
myHTML = .Document.body.innerHTML
End With

Text1 = myHTML
If InStr(Text1, "FRAMESET") <> 0 Then Label1 = "あり"
End Sub
--------------------------------------------------------------------
vbにつきましてはDim→Ver変換及びvb、F-BASIC共通についての知識しかない初心者です。
上記のvbサンプルをF-BASICに置き換えれればと思っていますが可能でしょうか。
ご存知の方がおりましたらご指導して頂ければと思います。宜しくお願い致します。


新着レスの表示


名前: E-mail(省略可)

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

(画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります)

掲示板管理者へ連絡 無料レンタル掲示板