![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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を含めた平均値...
-
ドメインに参加しようとするとD...
-
プロファイルエラー
-
VBAで入力規則 エラーでも入れ...
-
クライアントが切断されました。
-
【組み込み】HEWのビルドエラー
-
RowHeightで設定できる行の高さ...
-
循環参照にならない方法があっ...
-
MACアドレス 00:E0:C3 SAKAI って
-
このアプリ、回答する時とかに ...
-
アウトルックで送信時に「名前...
-
マクロでのエラーについて
-
ワイヤーボンディングのスパー...
-
WSUSインストール時に設定ウィ...
-
RealVNCで管理していたサーバを...
-
Ocn モバイルONE の1GB 追加
-
/var/log/messagesエラー出力
-
MacでKCFErrorDomainCFNetwork ...
-
ネットワークプリンタの印刷エ...
-
android studioエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで#N/Aを含めた平均値...
-
循環参照にならない方法があっ...
-
アウトルックで送信時に「名前...
-
Ocn モバイルONE の1GB 追加
-
MACアドレス 00:E0:C3 SAKAI って
-
ドメインに参加しようとするとD...
-
エクセルVBA 関数エラー箇所を...
-
.NETでActiveXコントロールを使う
-
検索をかけた時、ページを開け...
-
クライアントが切断されました。
-
プロファイルエラー
-
ロイロノートのエラーについて ...
-
android studioエラー
-
エクセル #N/Aを印刷時に表示...
-
応答を解析できません
-
BASIC認証エラー時の表示HTML指定
-
MacでKCFErrorDomainCFNetwork ...
-
VBAで入力規則 エラーでも入れ...
-
cpコマンドを行うとファイルサ...
-
マクロでのエラーについて
おすすめ情報