VBプログラマ質問スレ（Ver.6.0 まで） part57

1 名前：デフォルトの名無しさん mailto:sage [2011/04/30(土) 01:50:27.76 ] ここは Visual Basic 〜6.0 の質問スレです。 質問者は使用しているOS、VBのバージョン、サービスパックのバージョン、 「何がしたくて、どうしたけど、どう困っているのか」を明確に書きましょう。 VB.NETは別物なので専門スレで、VBA、APIの質問もそれぞれのスレで。 ○ 質問者の心得 　一．質問する前にMSDNやGoogle、過去ログにも目を通してみる。 　二．VBScript、インストーラーなどはこのスレでＯＫ。 　三．質問は第三者にもわかりやすいよう簡潔かつ具体的に。 　四．荒らしは相手しない。 ○ 回答者の心得 　一．答えられない質問は無駄に罵倒せずスルー。無理するな。 　二．代用法を強制しない。 　三．回答する上で必須ではない情報をむやみに聞き返さない。 　四．荒らしは相手しない。 　五．VB情報募集中。 　六．回答は質問者が理解できるよう具体的に。 MSDN Online Japan ホーム 　www.microsoft.com/japan/msdn/default.asp Visual Studio 6.0 Service Pack 6 　msdn.microsoft.com/vstudio/downloads/updates/sp/vs6/sp6/default.aspx Google 　www.google.co.jp/ ※「まず自分で調べる」クセを身につけよう。 411 名前：デフォルトの名無しさん mailto:sage [2011/08/08(月) 01:19:35.41 ] 一応、言っておくか.... .NETで作ってあるのもある。 自宅ではVB6だからそれを移行するのが面倒っていう話で。 というか、本題は。 >というわけで、Windows7x64にVB6入れて使っている人いますか？ >（XPモードじゃなくて） 412 名前：デフォルトの名無しさん mailto:sage [2011/08/08(月) 09:43:57.90 ] >>406 単に Pascal に倣っただけでしょ。 「戻り値設定に関数名使ってる」のも同じ。 なんで Pascal は？ って聞かれたら Wirth に聞いてくれというしかないが...。 413 名前：デフォルトの名無しさん mailto:sage [2011/08/09(火) 00:55:54.03 ] >>409 MSにガイドが有るだろ 基本はプロテクトかかってないフォルダ、つまりProgram Filesとか以外にインストールでほぼ動くよ。 やってないとは思うがシステムフォルダのパス取得は直書きしないで全部関数使う 基本32bitで動くからその辺は気にしないで大丈夫だが、 COMとかDLLとかは実際に動かしてチェックしないと解らん。 あとはVirtualStoreとかの隠しフォルダに気をつけるぐらいかな 良く解らなければUAC切れ こいつがファイルからレジストリまでユーザー単位で仮想化してるのがおかしくなる原因だ 後は互換モードを活用する これは過去Ver.と7のAPI対応表を持ってて裏で変換してくれる あ、プリンタAPIとか使ってるならそいつも確認 セッション0問題とかその辺が引っかかる可能性が有る。 ドライバ関係はメーカ対応無かったりで結構泣けた 移行やったの去年だから今はもうちょっと改善されてるかも？ 414 名前：デフォルトの名無しさん mailto:sage [2011/08/09(火) 01:15:13.51 ] >>413 移行できない、ではなくて、移行が面倒なんでは？ VB6製アプリが動くか、ではなくて、VB6IDE環境が動くかが知りたいたいのでは？ それに、単純にVB6のコードをVB.NETで動くようにしても、 クラス構造や例外やDBの扱いなんかが悲しいことに。 >>409 Win7(x64)で動くのかどうか知らないけど、VB6環境はXPモードでメンテのみに留めて、 メインの環境を変えちゃったほうがいいんじゃない？ 415 名前：デフォルトの名無しさん mailto:sage [2011/08/09(火) 18:00:56.19 ] InputManのimTextというコントロールについて知っている人が いたら教えてください。 imTextをマルチラインで使った場合、半角ｶﾅの単語が行末に来る場合 単語が分割されないように自動的に改行されてしまいます。 これを分割されるようにする方法はないでしょうか？ それらしいプロパティが無く困っております。 よろしくお願いします。 416 名前：デフォルトの名無しさん mailto:sage [2011/08/09(火) 21:11:56.79 ] >>415 スレ違い あれは汎用コントロールであって､「VB6でも使える」だけで VB6の付随品でもなければ､VB6用というわけでもない そんな､VB6とは関係ないものの質問はNGです お引き取り下さい そもそも､正規に購入しているなら､サポートに問い合わせれば良いだけだ 417 名前：デフォルトの名無しさん mailto:sage [2011/08/09(火) 21:17:07.41 ] 書き忘れましたが自己解決しました。 418 名前：デフォルトの名無しさん mailto:sage [2011/08/10(水) 00:51:19.04 ] >>414 あ、>>411か、これは恥ずかしい･･･ え〜と入れてたし動いてたけど>>414が正解だと思う 細かいとこで引っかかっていちいち対応するのがめんどかった 419 名前：デフォルトの名無しさん mailto:sage [2011/08/10(水) 15:42:21.66 ] WebBrowserコントロールに動的に生成したHTMLを 表示したいのですが、最後の行でエラーになってしまいます。 WebBrowserコントロールに生成したHTMLDocumentを 設定するにはどうしたらいいでしょうか？ Dim doc As New MSHTML.HTMLDocument Dim html As MSHTML.HTMLHtmlElement Set html = doc.createElement("html") Dim head As MSHTML.HTMLHeadElement Set head = doc.createElement("head") Call html.appendChild(head) Dim body As MSHTML.HTMLBody Set body = doc.createElement("body") Call html.appendChild(body) Set WebBrowser1.document = doc 420 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 02:20:37.69 ] OptionButtonコントロールの選択状態ってどう取得するのがスマートなの？ OptionButtonのClickイベントのたびに選択されたIndexを変数に保持する方法？ それとも状態を知りたいタイミングで一個一個選択された状態か確認する方法？ 421 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 06:24:07.84 ] スマートさなんてのは､人それぞれの感覚で定義が違ってくるので 君にとってスマートなやり方は､君にしか解らない VBAスレでも似たような展開になってるが､トリッキーでもコードが短ければ それを以てスマートと感じる奴も居れば､可読性の高さにスマートさを感じる奴も居る はたまた､汎用性の高さや､拡張性の高さにスマートさを感じる奴も居る いそんな取得の仕方はWeb上に腐るほどサンプルとして転がってるから 自分でいろいろ見て､自分がスマートだと思った方法を真似れば良い 以上､さようなら 422 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 08:42:51.88 ] >>420 スマートにしたいのなら、UI部分とロジックは分離して ロジック部分はUIを使わないでも（例えばCUIなどから） 実行できるようにするといい。 分離したロジックは別のクラスに書く 423 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 09:48:38.09 ] >>420 なんか愚問だな。 スマートの定義は置いとくとしても、どの方法が適切かは目的しだい。 常にこの方法が適切、なんてものはない。 例えばタブページのタブのように、オプションボタンで、あるコンテナの中に 表示される中身を切り替えたいとする。 こんな時にイベントドリブン以外の方法を採用できるのか。 例えば何かを設定する画面でユーザーがOKボタンをクリックするまで変更された 設定の適用を保留したい場合、イベントドリブンを採用して、ユーザーがオプションボタンを クリックした時点で直ちに対応する設定値を変更してしまっていいのか。 424 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 11:23:18.21 ] 以上、スマートなOptionButtonコントロールの選択状態の取得方法を知らない人たちの戯言でした 425 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 11:35:22.43 ] それより>>419頼みますよ。 426 名前：デフォルトの名無しさん mailto:sage [2011/08/11(木) 21:30:47.51 ] >>424 その後にスマートな方法をスマートに書いていると格好良かったんだが その1行だけだとかなり滑稽というか､君のが一番惨めな戯れ言に成り下がってるな 427 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 00:57:24.17 ] >>425 WebBrowserコントロールのdocumentプロパティは読み取り専用ではなく設定も可能なプロパティなの？ 428 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 08:38:11.07 ] >>427 vb.netではできるので高い技術力を持ってすればできるのではないかと。 読み取り専用ごときに怯んではいけないかと。 429 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 10:30:49.72 ] >>426 ム板で自己満足のコードも無い長文を垂れ流すのを、タワゴトと言わずして何と言おうか 430 名前：まあ、短いだけましだが> mailto:sage [2011/08/12(金) 11:27:57.51 ] 短くても戯言は戯言だし...。 431 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 21:09:59.41 ] >>429 悔しかったの？ 432 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 21:41:03.04 ] >>425 一旦ファイルに保存しちゃおうぜ。 433 名前：デフォルトの名無しさん mailto:sage [2011/08/12(金) 22:43:43.55 ] >>432 今はそれですけど、それは無しだと思うのです。 434 名前： 【Dnewsplus1306759181466917】 [2011/08/13(土) 09:02:32.62 ] Select Case True Case Option1(0): Debug.? "0" Case Option1(1): Debug.? "1" ： End Select Dim objopt As OptionButton For Each objopt In Option1 If objopt.Value Then Debug.? objopt.Index: Exit For Next メモ あと、起動時にどれかが選択状態になってしまうので 全部非選択して、ユーザーに必ず選ばせてから処理を進めたい場合は Option1(10).Visible=False: Option1(10).Value=True というようにダミーを隠しておくんだぬ 435 名前：デフォルトの名無しさん mailto:sage [2011/08/13(土) 11:57:05.16 ] そんな「意地悪」をする合理的理由が何もない件。 436 名前：デフォルトの名無しさん mailto:sage [2011/08/13(土) 15:14:50.89 ] 好きな女の子に対しては、いじわｒ（ｒｙ 437 名前：デフォルトの名無しさん mailto:sage [2011/08/13(土) 16:42:20.74 ] Private Sub Option1_Click(Index As Integer) Option1(0).Tag = Index End Sub でおけ 438 名前：デフォルトの名無しさん mailto:sage [2011/08/14(日) 16:06:29.96 ] うまくググりゃちゃんと欲しかった情報とか出てくるんだな 以前は見つけられなかったけどキーワード次第で今回すんなり見つけられた 439 名前：デフォルトの名無しさん mailto:sage [2011/08/14(日) 16:11:13.33 ] 俺がググるの検索順位を いじってあげたおかげだよ。 感謝しな。 440 名前：デフォルトの名無しさん mailto:sage [2011/08/14(日) 16:11:26.84 ] うかつにここで質問して叩かれずに済んだという話 441 名前：デフォルトの名無しさん mailto:sage [2011/08/14(日) 16:16:44.36 ] >>440 ２ちゃんねる初心者か？ どんな質問でも、叩く奴は叩く。 叩かれることに怯えるな。 とりあえず２ちゃんねるで聞く、そして自分で探す。 たまに２ちゃんねんるで釣れてないか確認する。 これが最も効率がいい。 ２ちゃんねるはダメもとで書いて置く場所だよ。 442 名前：デフォルトの名無しさん mailto:sage [2011/08/16(火) 00:53:14.25 ] >>437 tagってそんな風に使って大丈夫なの？ 443 名前： 【Dnewsplus1306759181466917】 [2011/08/16(火) 06:25:38.36 ] 前回バックアップした時点から更新されたファイルをUSBメモリにコピーして 他のPCにフォローするプログラムを作ってるのですが 何千ファイルものタイムスタンプを片っ端から見ていくのは 時間がかかるのでなんとかしたいのです フォルダの更新日時というやつが、そのサブフォルダも含めて、 中の最新ファイル更新日時を示しているのなら、 かなり処理をはしょれるのですが、そうはなっていないようです フォルダの更新メッセージを受け取るような常駐型ソフトではないし 何かいい方法はないですか 444 名前：デフォルトの名無しさん mailto:sage [2011/08/16(火) 08:06:00.97 ] >>443 dir /O-D 445 名前： 【Dnewsplus1306759181466917】 [2011/08/16(火) 21:05:02.37 ] 新しい順のファイルリストをリダイレクトして先頭のタイムスタンプを・・・ う〜む 446 名前：デフォルトの名無しさん mailto:sage [2011/08/19(金) 00:18:11.64 ] 素直に FindFirstFile, FindNextFile, FindClose API を使って列挙するのがいいんじゃないかな。 時刻も同時にとれるし。 USB に全ファイルを入れてもいいなら ROBOCOPY を 使って、更新されたファイルのみコピーする方法もある。 447 名前： 【Dnewsplus1306759181466917】 [2011/08/19(金) 01:00:25.03 ] >>446 今はDirループで列挙してますが コンパイルすると結局そのAPI呼出しに置き換わるのではないかと思っています 毎日ファイリングしてる数百のデータファイルを、今作ってるソフトにかけると 数年前のファイルが置いてあるフォルダでも更新してないかバカみたいに探してるのが悲しい・・ これは、OSがそういう機能を提供してくれない限りしょうがないですね 448 名前：デフォルトの名無しさん mailto:sage [2011/08/19(金) 01:20:33.21 ] >>447 たしかに Dir ループは Find 〜 API を呼び出してるんだろうけど、 ファイル名しか取れないでしょ？ ファイル名をとってきて、FileDateTime 関数あたりで更新時刻を 取得してるんだよね？ Find 〜 API を直接呼べば、WIN32_FIND_DATA 構造体に更新時刻 が入ってくるので、FileDateTime 関数を呼ぶ必要がなくなるんだよ。 449 名前：デフォルトの名無しさん mailto:sage [2011/08/19(金) 08:56:08.33 ] ローカルだとFileDateTimeを呼んでもたいしたオーバーヘッドはないが ネットワークドライブだと環境によっては悲惨な結果になる 450 名前：デフォルトの名無しさん [2011/08/20(土) 14:06:58.70 ] Dirはいやらしい Dirループがネスティングできないと知っていても中で使ってる関数の先の先で使ってたりして あと、最近発見したのはDirでUSBメモリを参照すると、USBが抜けない 某サイトで開放するためにDir ""とするんだと書いてあったが、 それでもカレントディレクトリを参照してるのか開放はしてないようだった USBメモリを参照し終わったら、それを開放するためにHDDを参照してやらないといけないみたい 451 名前：デフォルトの名無しさん [2011/08/20(土) 15:07:48.28 ] VB6 IDEでマウスホイールでコードをスクロールするアドインが提供されていますが、動作しません。 なぜでしょうか、今はVB6もXPも最新にしてますが、かれこれ何年も思い出す度に下記を実行しているので VB6のspやOSやPCが原因ではないと思われます と、ここまで書いてて自分用のセッテイングに問題があるんだなと思い ツール→オプション→詳細→SDI開発環境のチェックを外したら動作した なんだこれー、SDIがダメならマウスホイール使えなくてなくてもいいや support.microsoft.com/default.aspx?scid=kb;ja;837910 1.VB6MouseWheel.EXE パッケージをダウンロード (Click!) 2.VB6MouseWheel.EXE を適当な場所に解凍 (C直下がいいかと。) 3.[スタート]→[ファイル名を指定して実行]で以下のコマンドを入力「regsvr32 (解凍先)\VB6IDEMouseWheelAddin.dll」 4.VB6.0を起動し[アドイン] →[アドイン マネージャ] 5.「MouseWheel Fix」を選択 6.[ロード/アンロード] と [起動時にロード]の項目にチェック 452 名前：デフォルトの名無しさん mailto:sage [2011/08/20(土) 16:42:32.76 ] >>451 気づいたとおり、そのアドインはSDI環境には対応してない。 以下のアドインなら、SDI環境でも使えるらしい。 ttp://homepage1.nifty.com/mtj-k/software/office_vb6/addautoscroll_vb6.html それにしても、SDIで使ってる人いたんだね。 453 名前：デフォルトの名無しさん mailto:sage [2011/08/20(土) 19:25:22.98 ] X wheelとかのホイール支援ソフト入れておけば使えないこともないような気がする 454 名前：デフォルトの名無しさん [2011/08/20(土) 23:32:13.58 ] >>452 おお、SDIでも使えるんですか 後で入れてみます SDIでないとめちゃめちゃ使い難いではないですか？ VBのIDEだけじゃなくてエクスプローラとかバイナリエディタとか・・ 複数のコードウインドウの空いたエリアにあれば参照しながら打てるし 455 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 06:19:51.46 ] MDIとSDIを取り違えてないか？ 456 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 15:36:34.65 ] VBSで質問です。 gethostnameやgethostbynameを使用して ipアドレスの取得を行いたいのですが実行エラーになります。 使用する方法ありませんか？ 457 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 16:41:26.29 ] エラーの内容やソースも出さずに質問とは 458 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 18:31:01.46 ] >>456 スレ違い それはActiveXコンポーネントという汎用APIの質問であって､VBSの質問ではない VBSの制御構文などに関する質問ならここでもOKだが､汎用APIの質問受け付けたら キリがない(ActiveXはもちろん､Win32APIの質問も､.NET FrameworkやDirectXなどもOKになる)から >>1の4行目に書いて有る通り､NGってことになってる というわけでさようなら 459 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 19:07:23.00 ] えっと、このスレは VBS は含まれますか？ 460 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 19:11:59.77 ] 一応。 461 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 19:57:58.57 ] 大雑把な質問には皆エスパーして答えていることを質問者は理解すべき 462 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 21:12:10.83 ] いやVBSはどう考えてもスレ違いだろ 463 名前：デフォルトの名無しさん mailto:sage [2011/08/21(日) 21:14:47.48 ] と思ったけど、>>1には >二．VBScript、インストーラーなどはこのスレでＯＫ。 って書いてあるな。VBSそのものはここでＯＫらしい 464 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 00:12:22.56 ] VBS から直接 API は呼べないので nslookup の戻り値を取得して解析するとか ttp://homepage1.nifty.com/MADIA/vb/vb_bbs/200608/200608_06080050.html API をラップした ActiveX.DLL を探してくるか、VB で作成して利用するとかしかない。 465 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 02:35:55.69 ] VB6SP& リッチテキストボックス6(SP6)のスクロールバーを両方表示に設定してる(ScrollBars=rtfBoth)のに 水平のスクロールバーが使えない リッチテキストボックスの横幅を越える文字は自動で改行されて表示される どのプロパティいじれば横スクロールバー有効になるの？ (垂直スクロールバーは問題ないんだけど） 466 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 04:08:12.61 ] >>465 ScrollBars プロパティ のヘルプ嫁。 水平スクロール バーは、RightMargin プロパティがコントロールの幅よりも 大きな値に設定されている場合に限り表示されます。 このプロパティの値は、コントロールの幅と同等か、わずかに小さいだけでも かまいません。 467 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 04:22:39.48 ] >>466 トンクス 今度から真っ先にヘルプを探してみます どうもすみませんでした 468 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 16:56:45.49 ] VB6でコレクションにあるクラスが入っています。 項目を取り出すとき、中に入れたデータはクラスですが、返り値はObjectで帰ってくるようになっていると思います。 この項目をあるクラスの変数に復元して入れることは出来ませんか？ 469 名前：デフォルトの名無しさん mailto:sage [2011/08/22(月) 20:36:27.12 ] エスパーすれば言いたいことは解るけど､あえて突っ込ませて貰う >>468 日本語(自然言語)で理路整然とした文章を書けない奴に プログラム言語は無理 470 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 09:29:44.30 ] >>469 あえて突っ込んでおく 意外とそうでもない 471 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 11:48:36.25 ] 句読点も打てない奴に、んなこと言われたくねーよ。 472 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 12:04:36.97 ] >>471 どこに句読点が必要なんですか？ わかりません＞＜ 473 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 14:07:44.66 ] 禿、同。 474 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 14:24:32.33 ] コンパイラさんやインタプリタさんって自然言語で文章書けるんだ 475 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 15:15:13.42 ] >>471 が、今顔真っ赤にして、恥ずかしがってる、気が、してならない。 476 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 16:34:28.76 ] よほど悔しかったと見える。 477 名前：デフォルトの名無しさん [2011/08/23(火) 18:00:29.63 ] >>468 こゆこと？ Dim col As New Collection Dim c1 As Class1 Set c1 = New Class1 c1.Key = "abc" col.Add c1, c1.Key Set c1 = New Class1 c1.Key = "efg" col.Add c1, c1.Key Set c1 = New Class1 c1.Key = "hij" col.Add c1, c1.Key Set c1 = col.Item("efg") MsgBox c1.Key 'この例はClass1には Public Key As String のプロパティ作ってある 478 名前：デフォルトの名無しさん mailto:sage [2011/08/23(火) 19:29:57.11 ] >>468 ちゃんと中に入れたクラス型ががわかっているなら 取り出す時に、同じクラス型の変数に入れてやれば良い。 キャストの手間は無い。 479 名前：デフォルトの名無しさん mailto:sage [2011/08/24(水) 06:29:00.96 ] >>476 悔しかったというより､471は恥ずかしかったんじゃねーの？ というか､恥ずかしいという自覚を持てずに悔しがっちゃうようだとお粗末すぎるし･･･ 480 名前：デフォルトの名無しさん mailto:sage [2011/08/24(水) 10:40:39.57 ] なんで>>471が叩かれてるのか、さっぱりわからない 481 名前：デフォルトの名無しさん mailto:sage [2011/08/24(水) 11:07:34.49 ] >>477-478 回答ありがとうございます。 なるほど、このような時は明示的なキャストというものはしないのですね。 なんとなく動いてはいたんですが、ちょっと怖い気がして質問させていただきました。 日本語がおかしかった部分に関しては・・・お恥ずかしい限りですが焦っていたのもありました。 ご回答ありがとうございました。 482 名前：デフォルトの名無しさん mailto:sage [2011/08/24(水) 19:44:11.09 ] WebBrowserを使いサイト内のiframeに書かれているURLにアクセスして テキストを入力するプログラムを作っているのですが、本体とiframeで ドメインが違っていて「アクセスが拒否されました」とエラーが出てしまいます。 IInternetHostSecurityManager.GetSecurityIdというのを実装すればいいと いうところまでは調べてわかったのですがどう実装していいものなのかわかりません。 IInternetHostSecurityManager.GetSecurityIdの実装方法もしくは別ドメインへの アクセス方法が他にあるのであれば教えていただきたいのですが・・・。 よろしくお願いします。 483 名前：デフォルトの名無しさん mailto:sage [2011/08/24(水) 23:36:23.52 ] 親のURLからたどればいいんじゃない？ 484 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 02:06:22.17 ] VB6と関係ない質問ぽくね 485 名前：デフォルトの名無しさん [2011/08/25(木) 04:48:59.67 ] 何の話か判らんけど以前、ネット上のサイト読むのに WinSockでシコシコ読んで文字コード変換までしてたけど 今はアドレス渡すだけで一発でソースをテキストファイルに落とすAPIがあるんだね 486 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 07:05:54.57 ] HTTPごときでシコシコはいいすぎだと思う 487 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 12:46:17.93 ] html程度ならふつーのOPEN命令でも読めたりするんだよな タイムアウトなどの処理はどうだったかしらんけど 488 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 13:55:21.85 ] Open "www.google.co.jp/" For Input As #1 で読めるってこと？ 489 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 14:52:29.18 ] なぜ自分で試さないのか 490 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 21:59:14.75 ] やってる事はほぼ一緒だけど、「メモ帳」でもURL入れて開けばhtmlが出るんだよな 491 名前：デフォルトの名無しさん mailto:sage [2011/08/25(木) 23:25:02.10 ] >>489 なぜ試す前に聞いちゃいけないの？ 492 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 11:47:02.05 ] 復活 493 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 14:31:56.12 ] ほんとだｗ出たｗ Windowsの仕様？Win7とかでも出るのかなVB6サポートされてるからって このOpenの仕様はVB6とは関係ないかんじなのかな 494 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 14:58:04.76 ] >>491 別にいけなかないが、自分で試せばすぐにわかることだろ。 >>488書いてから、誰かがレスするまで何時間も待つのか？ 495 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 15:09:24.16 ] くだらないやりとりやってないで、答えてやれよ >>488 もちろん、読める 496 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 15:30:40.24 ] 読めるわけ無いだろ 497 名前：デフォルトの名無しさん mailto:sage [2011/08/26(金) 18:53:53.31 ] 少なくともメモ帳ではマジで開けた 498 名前：デフォルトの名無しさん [2011/08/27(土) 15:29:03.29 ] すごーい、OPENで読めた VB2からやってるけど、これは知らなかったわ 凄い物知りがいるんだなここは >>486 サーバーからバッファに受信したデータを結合したりチャンク形式に対応したり かなりシコシコなコードになったよ でもまぁ、２ちゃんの鯖の時刻を時刻合わせに使ったり、自前のコードは色々と 応用がきくから捨てたもんじゃないけど 499 名前：デフォルトの名無しさん mailto:sage [2011/08/27(土) 15:42:48.08 ] >>376-の時はみんなスルーだったのに… 500 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 00:20:58.43 ] つまりOPENでsubject.txtを読み込み、改行コードでsplitしたあと2次元配列にいれていくってことか 501 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 00:26:50.52 ] subject.txtの取得時ってUAは関係ないっけ？ openで読む時リクエストヘッダを任意で指定できるのかな なんかそう言う細かいところはできなさそうな雰囲気で結局WinSock叩く方が早いっていう結論になりそう 502 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 00:35:52.91 ] HTTPプロトコルを喋りたいのなら、 HTTP用のライブラリを使えばいい。 WinSockを使う必要はないし、 様々なヘッダの解釈面倒だろ。 それすっ飛ばしてWinSockにいっちゃう人って 逆に知識ないんじゃないかって思う。 503 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 00:37:05.62 ] というか.netに行くのが正解 504 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 08:52:19.46 ] httpdのログ見るかぎりはIEで接続されてる事になってるよ 505 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 12:05:28.58 ] >>502 とりあえずお前のお勧めのVB6用HTTPライブラリ教えてくれ 506 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 13:56:24.69 ] >>504 だろうねｗ どうせユーザーエージェントなんて urlmonで変えられるだろ。 507 名前：デフォルトの名無しさん [2011/08/28(日) 14:46:47.87 ] 自作のエディタで開けたからOPENで読み込んだと勘違いしてたけど ファイル名入力のGetOpenFileNameってダイアログのAPIがファイル名にURLを与えると IEのキャッシュファイル名を返してきて OPENは単にTemporary Internet Filesの中のファイルを開いてるだけでした 508 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 15:05:22.59 ] >>507 でもそれは結局URLを読んでるのと同じだろ？ 509 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 17:09:20.25 ] 単にキャッシュ読むなら相手のhttpdログに残らないわけだが 510 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 22:01:47.10 ] キャッシュよむかどうかはインターネット設定によるんじゃ？ キャッシュに無ければ実際にhttpでデータとってくるだろ 511 名前：デフォルトの名無しさん mailto:sage [2011/08/28(日) 22:20:40.63 ] インターネットの画面で右クリックしてプロパティを開くと、 WEBページのサイズを確認することができますよね？ それを利用して、サイズが変わった＝ページの更新があった　という考えで 更新があると 「チェックしているサイトが更新されました」 という風に画面に表示するようにしたいのですが、 このような動作をVB上で実現することはできるんでしょうか？ 実現可能であればどのような関数を使って作成すればよいのかを教えてください。 お願いします。

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef