こんばんわ。。また投稿しますebifuraiです。
今回、はこのページ
http://homepage2.nifty.com/sak/w_sak3/doc/sysbrd …
のウィンドウハンドル、キャプションの取得について教えて頂きたいのです。ここのページのソースコードを貼り付けてVB6で走らせたのですが、vbnullstringのところで
コンパイルエラー:プロシージャの外では無効です。
と出ます。果たしてVB6でのNull文字はどう記述したらいいのでしょうか?またこのプログラムでキャプションの一部をヒットさせるという事はできるのでしょうか?
まだVB初心者なので意味が良くわかりません。勉強しなきゃと思うのですが、WindowsAPIがらみでいい書籍とかないでしょうか?
No.2ベストアンサー
- 回答日時:
コードを拝見しましたが...
vbnullstringが、どうのこうのと言う前に、下記のコードがプロシージャ外となっているでしょ?
だからエラーになっているんですよ?
ってことなんで、処理したいイベント処理内に、コードを記述してください。
Dim hwindow As Long
hwindow = FindWindow(vbNullString, "無題 - メモ帳")
If hwindow <> 0 Then
hwindow = FindWindowEx(hwindow, 0, "edit", vbNullString)
End If
If hwindow = 0 Then MsgBox "エラー"
MsgBox hwindow
この回答への補足
コマンドボタンを付けてそこに配置したら今度は、
GetOS()
のところで何か引っ掛かってしまいました。色々と調べてみた結果
・GetOS()の何かが足らない
・ソースコードが1999年(10年前以上)のものである
という事がわかりました。つまりソースコードとしては古過ぎるという事です。これは一体どう解釈すればいいのでしょうか?あきらめて他のソースを参考にした方がいいのか、APIについてもっと勉強した方がいいのか、あるいはGetOSのソースコードを探してきたほうが良いのか
ご教授お願いします。
普通のアプリケーションには興味がなくてAPIを叩いて使う様な気がします。私のVisualBasicの用途は
No.3
- 回答日時:
ご質問の中のURLを丹念に熟読しましょう
このページの前のセクションに 関数GetOSの説明があるようですが ・・・
VB6の入門書を手元に準備してこれをマスターしてからの課題のように思います
No.1
- 回答日時:
どのようなコードをお書きなのでしょう?
エラーの出ているコードを公開しても支障の無い範囲で投稿してみましょう
そのエラーが起きる状態への必要最小手順もご提示ください
> プロシージャの外 ・・・
とあるので DeclareなどのAPI宣言部に記述されているのでしょうか?
この回答への補足
>> プロシージャの外 ・・・
>とあるので DeclareなどのAPI宣言部に記述されているのでしょうか?
はい、そうですDeclareにFunctionと共に記述されております。
コードを挙げると字数エラーになりそうなので、ソースコードあげました
http://www.interq.or.jp/dragon/crw/GetCaptionNam …
ちなみにこのソースコードは消される可能性もあります
※必要最低手順。
とりあえずソースコードをコピーしてプログラムをテストコンパイルすると発生します。
僕が望む事は、
・タイトルバーのキャプションでウィンドウをアクティブにする。
・キャプションの右にあるアプリケーション名だけでヒットする。
・クラスでヒットしてもいい
・その返り血でキーボード操作をエミュレートする。
・できれば外部プログラムも実行する様にする
最後のは蛇足ですが、それができれば大体用は事足ります。
精進が足らないのかもしれませんが、よろしくおねがいします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
コントロールを移動できない
Visual Basic(VBA)
-
Redim とEraseの違いは?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・【お題】絵本のタイトル
- ・【大喜利】世界最古のコンビニについて知ってる事を教えてください【投稿~10/10(木)】
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAがブレークモードになっ...
-
エクセルエラー13型が一致しま...
-
ExcelVBA Range クラスの Page...
-
実行時エラー 438になった時の...
-
VB6+SQL サーバー 2000 で 実行...
-
アクセス 実行時エラー3265
-
ExcelVBAで、ユーザー定義型は...
-
実行時エラー -'-2147417848
-
Outlook.ApplicationをCreateOb...
-
VBS実行時エラー オブジェクト...
-
AccessVBAでExcelを起動し、罫...
-
なぜこんな初歩的なVBAのIf文で...
-
Access2000での未定義関数repla...
-
エクセルVBA autofilterでエラー
-
VBAのChrome操作のエラーについ...
-
実行時エラー48発生時のDLL特定...
-
「アプリケーション定義または...
-
EOFError: EOF when reading a ...
-
IEのダウンロード通知バーのVBA...
-
VBA エラーと対策
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
実行時エラー 438になった時の...
-
エクセルエラー13型が一致しま...
-
なぜこんな初歩的なVBAのIf文で...
-
VBAがブレークモードになっ...
-
マクロについて教えてください...
-
実行時エラー3001「引数が間違...
-
ExcelVBA Range クラスの Page...
-
VBSで変数の宣言はできないので...
-
VBS実行時エラー オブジェクト...
-
EXCEL VBAマクロ中断でデバッグ...
-
実行時エラー -'-2147417848
-
【Excel VBA】マクロをボタンに...
-
VB6+SQL サーバー 2000 で 実行...
-
VBAでのエラー
-
プロシージャ名の取得
-
ADODB.Streamを使用してUTF-8を...
-
EXCEL/VBAで、自分のPCだけエラ...
-
ExcelVBAで、ユーザー定義型は...
-
VBで構造体を使うさ際の64k...
-
実行時エラー48発生時のDLL特定...
おすすめ情報