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


HSPTV!掲示板


未解決 解決 停止 削除要請

2009
0315
jホームページへの書き込み2解決


j

リンク

2009/3/15(Sun) 00:58:30|NO.23890

こんにちは
題名のそのままなのですがホームページへの書き込み(例えば2ch)
などをHSPで書き込むことは可能でしょうか?
自分で考えた方法は
hspextでinputを探すそして書き込む→うまくいきませんでした
HSPで書き込むことのできる方法をどなたかご教授お願いします(書き込めるなら)



この記事に返信する


hspail

リンク

2009/3/15(Sun) 09:29:13|NO.23898

はい、これは意外に簡単にできます。
ただ少々面倒ですが、一つずつ理解していけば簡単にできるようになると思います。
1.IEコンポーネントを作成する
2.IEのDocumentオブジェクトを取得
3.コンボボックスや入力ボックスなどのオブジェクトの値を設定
4.送信

以下のサンプルはこの掲示板に新規スレッドを書き込むものです。
書き込むフォームがあるページのソースを見てみてください。
その中のname = "---"となっているところに着目です。

がんばって、他の掲示板にも応用してみてください。

ttl = "題名" name = "名前" email = "メールアドレス" hp = "ホームページ" pass = "1234" buf = "本文" objsize 640 combox type, 200, "(選んでください)\n募集\nひとりごと\n報告\n仲間に入れて!\n質問・教えて!\nお知らせ\n宣伝\n要望・提案\n雑談\nその他" input ttl, , 20 combox mct, 200, "熊\n猫\n犬\n狐\n雛\n兎\n羊\n蛇\nへんなの" input name, , 20 input email, , 20 input hp, , 20 input pass, , 20 mesbox buf, , 100 button "書き込み", *write axobj ie, "Shell.Explorer.2", 640, 220 stop *write // HSP掲示板新規投稿ページにアクセス ie -> "Navigate" "http://hsp.tv/play/pforum.php?mode=write" // 読み込み終わるまで待つ repeat : wait 10 : if ie("Busy") = 0 { break } : loop // フォームを取得 pDoc = ie("Document") pForms = pDoc("forms",0) // 質問の種類 p = pForms("kind") p("value") = type // 題名 p = pForms("title_cts") p("value") = ttl // マスコット p = pForms("mascot", mct) p("checked") = "check" // 名前 p = pForms("name") p("value") = ttl // e-mail p = pForms("email") p("value") = email // HP p = pForms("url") p("value") = hp // 削除用パスワード p = pForms("change_key") p("value") = pass // 本文 p = pForms("contents") p("value") = buf // 「送信」ボタンを自動で押す場合は↓のコメントを解除してください ;wait 10 ;pForms -> "submit" stop



j

リンク

2009/3/15(Sun) 16:17:16|NO.23910

ありがとうございます!!



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