▼ VB初心者質問スレ Part 10 ▼

VBでホームページの内容を取得したいのですが、下のソースを実行す
ると、エラーがでます。誰かデバッグしてください。

Option Explicit

Private Sub Command1_Click()

Dim b() As Byte
Dim strURL As String
Dim strFilename As String

strURL = "http://www.aa.alpha-net.ne.jp/gfababa/"
strFilename = "C:\AAA\a.txt"

' 処理中マウスカーソル
Screen.MousePointer = vbHourglass

' 操作が途中の場合キャンセルする
Inet1.Cancel

' プロトコルを HTTP に設定
Inet1.Protocol = icHTTP

' 対象のURLを指定する
Inet1.URL = strURL

' バイナリ配列としてURLを取得する
b() = Inet1.OpenURL(, icByteArray)

' 取得したデータをファイルに書き出す
Open strFilename For Binary Access Write As #1
Put #1, , b()
Close #1

' マウスカーソルを通常に戻す
Screen.MousePointer = vbDefault

' 処理完了メッセージを表示する
MsgBox strURL & " を " & strFilename & " に保存しました。"

End Sub

>>929
index.html

>>930
いや、なんか変数が宣言されてないとかなんとか・・・

>>931
文法エラーごときで来ないでくれるか・・・。

>>932
じゃ、どうやってInetを宣言するか教えてくれ。

ｉｎｅｔコントロールを張り付けるにきまってる

>>927
"任意のフォーム名".Form_Click と書いているけど、
任意のフォーム名を持つフォームが複数ある場合があるのを知ってる？

あと、イベントプロシージャを直接呼ぶのはやめとけ。
イベントプロシージャ内をPublic関数にして、それを呼べ。
できればPublic関数にするだけじゃなく、インタフェースを持たせるとベスト。

それとMeの使い方を調べよう。

小汚く行くなら、
すべてのフォームのClickイベントのイベントプロシージャをPublicにして、
その標準モジュールに渡す引数をMeにする。

VBで逆ポーランド技法を使いたいんだけど
実現方法を教えてけれ。サンプルソースを
書いてくれるとうれしいよ〜

>>937
勉強になるから、自分でやれ！

そんなこと言わずに教えてよ〜、いけず〜

DirectX8.1のSDKにIM、RMコントロールが入っていないのですが、
7.0aSDK落としてくれば、Direct3D8からでも使えますか？

>>939
教えてやらんこともないから，なぜ逆ポーランド記述が必要なんだ？
何に使うんだ？ということを書け。クレクレ君は嫌われるぞ。
ただし，宿題だとか論文に使うとかがばれんようにな。

逆ポーランド記述って、昔の電卓みたいに
演算子を数字の後につけるやつ？

電卓プログラム作るにはこっちのほうが実は楽なんじゃないかと
思うけど・・・

単発で質問スレッド書いたらえらく叩かれてしまいました。
ですので、ここに書かせてもらいます。

エクセルVBAで保守を行って保存しようとすると、
「&H8000FFFF(-214748113):ｼｽﾃﾑｴﾗｰ。致命的なｴﾗｰ」と130回くらい
エラーメッセージがでます。
色んな方向からパソコンを叩いてはみたのですが、いっこうに直りません。
ちなみにヘルプファイルはないので、エラーコードだされてもって
感じです。
一応、上書き保存はできているしプログラムは動きます。

お分かりになる方、是非教えて下さい。

今夜もミニグラマーさんの夢で今、目が覚めたよ。汗だくだよ。
恥ずかしいけど中二のくせにオネショしちゃったみたい…
でも、ｵｼｯｺじゃないみたいなんだよね…
パンツがゴワゴワ、ヌルヌルしている感じなんだ…
何でだろう。漏れ、ひょっとして病気かな？

一度ｵｼｯｺしたら気持ち悪いのでパンツを履き替えて、また寝ます。
明日も早朝練習があるのでしっかり睡眠を取らないと朝起きれないです。

>943
130回も数えたのはすごいと思うが、
パソコンを叩くのはやめなさい（ｗ
あと、なんでヘルプファイルないの？

>>945
ピーコだから。なんてね(w

>>943
分かったぞ！　そいつは致命的なエラーだ！
つまり助かりません。

------------- 終了 ---------------

>>943
130回ぐらいたたいてみてはどうでしょうか？

>>943
ハンマーで思いっきり叩くと出なくなるよ。なんにも。

943
パソコン130回叩く前に他で再現するかどうか確認汁。
それらイタチ害と思われ。

>>943
叩くだけじゃ駄目だ！窓から投げ捨てろ！

>>943
ちゃんと先祖供養はしていますか？

>>944
pants1.reflesh

>>953
pant1.refreshだった、、、

ここまではできました。レスの差分取得をするにはどうすればいいでしょうか？

Private Sub Winsock1_Connect()

If getMode = 0 Then
Winsock1.SendData "GET /tech/subject.txt HTTP/1.0" & vbCrLf
End If
If getMode = 1 Then
Winsock1.SendData "GET /tech/dat/" & strDatName & " HTTP/1.0" & vbCrLf
End If

Winsock1.SendData "Host: pc.2ch.net" & vbCrLf
Winsock1.SendData "User-Agent: Monazilla/1.00 (test/1.0)" & vbCrLf
Winsock1.SendData "Accept: */*" & vbCrLf
Winsock1.SendData "Accept-Language: ja" & vbCrLf
Winsock1.SendData vbCrLf

End Sub

Set objPants = Nothing

新ｽﾚの話題でないね。
ってな訳で、960番ｹﾞｯﾀｰの方は新ｽﾚおながいします。

>>956
俺のはAs Newで宣言されてるから、次のが自動装着されるのだ！ﾜﾊﾊﾊﾊ

hWnd は何かわかったんだけど、
hIMC　ってなんですか？

msgboxのダイアログが表示されたとき、
IMEが利用不可（右下で、ツールバーが消えるか、禁止マークがかかる。）
となりますが、これはどうやるんですか？

単にIMEモードをOn, Off する方法はわかったんですが、
これが出来ません。

>>960
次スレよろ

VBで Declare して使用するDLLは作成できないのでしょうか？

>962
無理。VC使え。

>>963 了解・・・　VCで頑張ります

次スレ
http://pc.2ch.net/test/read.cgi/tech/1024380249/

1000ﾄﾘｶﾞｾｰﾝ　ﾓｳｽｸﾞﾀﾞﾈ

早く1000までいtt毛

おはようございます
いい天気ですね。
台風や嵐はすきなんです。
VB始めると友人にいったら（パソコン詳しい人C#にしろといいます
ネットが瞳孔といい、
インターネットソフトにいいですが、
あまり興味はありません。
VBはいろいろとあるらしいので、
なにかあるならおしえてください

次スレ
http://pc.2ch.net/test/read.cgi/tech/1024380249/

>>968
どこを縦に読めと？

はじめまして、ＶＢを始めて半年ほどです。
Accessのデータを日付の条件で抽出するときのsql文について分からないことがありますので、
どなたかおわかりでしたらご教授願います。
（ＶＢは６.０、Accsessは2000、ActiveXdataObject2.1で作っています）

dim cnct as new adodb.connection
dim rs as new adodb.recordset
・
・
・
dim sql as string
sql = ""
sql = sql & "selest sir_tokui" '(仕入れMの得意先名)
sql = sql & "from sir " '(仕入れM)
sql = sql & "where sir_date >= " '(仕入れMの仕入れ日)
sql = sql & DTPsiireStart.value '(画面で指定される日付開始)
sql = sql & "and sir_date <= " '(仕入れMの仕入れ日)
sql = sql & DTPsiireEnd.value '(画面で指定される日付終了)

Open rs, sql, cnct
・
・
・
画面で指定された値が02/07/01の場合、
（DTPpickerのプロパティでformatはYY/MM/DDです。）

これ（sql）をインミディエイトウィンドウで見ると
select sir_tokui from sir where sir_date >= 2002/07/01 and
sir_date <= 2002/07/01

となっています。
エラー等は出ないのですが、該当データが０軒（BOFとEOFがtrue）で
返って来ます。

データは存在します。

どのようにしたらきちんと抽出できるのでしょうか？
またデータ０軒になる理由は何なのでしょうか？
過去ログもみてみましたが分かりませんでした。
どなたか、よろしくお願いします。

すみません。
長すぎました・・。
でも、どなたか回答お願いします。

次スレ
http://pc.2ch.net/test/read.cgi/tech/1024380249/

>>973
って逝っても、もう終わりかけてるね

>>971
違うかもしれんが
×2002/07/01
↓
○#2002/07/01#
にしてみれ。

回答ありがとうございます。
でもDTPpickerのvalueはdate型なので、date型に変換しなくても良いのかと、思ったのですが・・。

すいません。ＳＱＬの話になるんですが、文字列の中にｼﾝｸﾞﾙｺｰﾃｰｼｮﾝを含む
検索はシングルコーﾃｰｼｮﾝ２こ並べてクリアできますよね。でも％＿を検索
したいときってどうすればいいですか。

>>977
http://pc.2ch.net/test/read.cgi/tech/1026642565/
次々スレ