![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
VB6で画面のハードコピーを取るのに下記のような関数を作成して動作させています。
今回、windows 2003 Serverで初めて使用したのですが、エラーが出力されます。
Public Sub xxxxxx()
Dim OsVer As Single
Clipboard.Clear
OsVer = CreateObject("SysInfo.SYSINFO").OSVersion
If OsVer < 5 Then
'画面全体のスナップショットを取得する(Win98SE/Win95)
Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_SNAPSHOT, 1, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
Else
'画面全体のスナップショットを取得する(WinXP)
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY, 0)
Call keybd_event(VK_SNAPSHOT, 0, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
End If
End Sub
エラーの内容は
ErrNO=429
ActiveX コンポーネントはオブジェクトを作成できません。
と言うエラーなのですが、2003 serverではkeybd_eventの使い方がXp等と違うのでしょうか?
何処が悪いのかおわかりの方ご教示頂けないでしょうか?
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
>ActiveX コンポーネントはオブジェクトを作成できません。
これはオブジェクトが生成できない時のエラーです。
CreateObject("SysInfo.SYSINFO")
ここでエラーになっているはずです。
バージョンを調べる方法は幾つかあるんですが、一番簡単なのは
GetVersionというWinAPIを使う方法です。戻り値の下位8ビットが
メジャーバージョンです。
Declare Function GetVersion Lib "KERNEL32" () As Long
Public Sub xxxxxx()
== 略 ==
OsVer = GetVersion Mod &H10
If OsVer < 5 Then
== 以下略 ==
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) 実行時エラー´5854´ 文字列型パラメーターが長すぎます。 3 2023/06/08 21:17
- Excel(エクセル) 2つのマクロを連続して動かしたい 3 2022/09/20 23:46
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで#N/Aを含めた平均値...
-
MACアドレス 00:E0:C3 SAKAI って
-
クライアントが切断されました。
-
循環参照にならない方法があっ...
-
エクセルVBA 関数エラー箇所を...
-
応答を解析できません
-
立ち上げたときこのエラーが出...
-
アウトルックで送信時に「名前...
-
プロファイルエラー
-
MacでKCFErrorDomainCFNetwork ...
-
マクロでのエラーについて
-
XAMPP ヴァーチャルホストの設...
-
内部サーバーエラー 下記の解...
-
PC超初心者です。WEBCLICKERS.N...
-
webalizer のエラー
-
ECCメモリのエラー訂正時とイベ...
-
WSUSインストール時に設定ウィ...
-
検索をかけた時、ページを開け...
-
android studioエラー
-
VMware ESXiをインストールしよ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで#N/Aを含めた平均値...
-
循環参照にならない方法があっ...
-
MACアドレス 00:E0:C3 SAKAI って
-
ドメインに参加しようとするとD...
-
エクセルVBA 関数エラー箇所を...
-
アウトルックで送信時に「名前...
-
応答を解析できません
-
.NETでActiveXコントロールを使う
-
ロイロノートのエラーについて ...
-
MacでKCFErrorDomainCFNetwork ...
-
エクセル #N/Aを印刷時に表示...
-
クライアントが切断されました。
-
マクロでのエラーについて
-
検索をかけた時、ページを開け...
-
docker pullのエラー
-
android studioエラー
-
android studioエラー
-
【QnapNAS】不良HDDと診断され...
-
/var/log/messagesエラー出力
-
Excel2000のマクロが2007で型が...
おすすめ情報