Win8.1でWEBカメラが使えない

Windows XPで動いていたWEBカメラ用VBAが Windows 8.1で動作しません。
対応方法をご存じの諸先輩に何卒ご教示いただきたく投稿いたしました。

症状は、接続しようとすると「ビデオソース」というウィンドウが表れ
ソースキャプチャのタブでビデオデバイスの選択というコンボボックス
が表示されます。
コンボボックスの表示内は「TOSHIBA Web Camera - HD」でおそらくPC
内臓のWEBカメラだと思われます。
また外部カメラを接続している場合はそのカメラと両方が選択可能な表
示となります。
そこでどちらを選択してOKを押しても「接続失敗・・・・・」のメッセ
ージ表示となります。
ただしPC立ち上げ後１回だけはこの選択画面がでず、内臓カメラの映像
が表示されるのですが２回目以降は前述の通りのエラーとなります。

VBAは次の通りです。

'Declare PtrSafe Functionの記述は省略します。

Private Sub CommandButton1_Click()
Dim MyHandle As Long
MyHandle = FindWindow("ThunderDframe", Me.Caption)
CapHandle = capCreateCaptureWindow("", WS_VISIBLE Or WS_CHILD, 0, 0, 640, 480, MyHandle, 0)
If CapHandle = 0 Then
MsgBox "作成失敗", vbOKOnly, "エラー"
Exit Sub
End If

'ｶﾒﾗ接続
If SendMessageAsLong(CapHandle, WM_CAP_DRIVER_CONNECT, 0, 0) = 0 Then
Call DestroyWindow(CapHandle)
CapHandle = 0
MsgBox "接続失敗 他のポートを選択して再度クリックしてください。"
Exit Sub
End If

SendMessageAsLongの第３引数を変えても同じ症状です。
ご教示よろしくお願いいたします。

No.3 回答者： goold-man 回答日時： 2015/06/13 19:57

WEBカメラのメーカーサイトにWindows 8対応ドライバがないか探してみては？

（デバイスマネージャで該当のデバイス右クリック「プロパティ」「ドライバ」「削除」再起動でWindows汎用ドライバを再生成し認識することがあります→古いWEBカメラはメーカーがドライバを最新のWindows 8対応にアップデートしない場合もあります）

No.2 回答者： 躑躅 回答日時： 2015/06/13 14:17

カメラのメーカーや型式が解れば、

そこから、「ドライバー」を「DL」してみる事は可能ですか？

No.1 回答者： みっさん 回答日時： 2015/06/13 13:44

デバイスマネージャが(！)になっていないですか。

WindowsXPで使えていても、Windows8.1では無効なデバイスが多々あります。
(！)が有りましたら、一旦削除して、WEBカメラを繋いだままで、ハードウエアの変更を実行してみてください。
あまり。回答の参考になっていないですが

この回答へのお礼

ご回答ありがとうございました。
質問の記述が悪かったと思います。XPで使用できたWEBカメラが8.1で使用できなく
なったのではなく、VBAがうまく動いていないようです。
今回、購入したWindows8.1のPCに内臓されたカメラでも、外付けしたWEBカメラでも
同じ症状です。
またPC起動後、最初の１回は内臓カメラの画像も外付けWEBカメラの画像も表示され
るのです。（ドライバの問題ではないと思うのですが・・・・）
２回目以降は、質問で記述したエラーとなります。
EXCELのブックを一旦閉じて再度やり直してもカメラ選択画面が出て同じエラーとな
ります。
PCを再起動して同様の事を実行すると１回だけ正常に画像が表示されます。
以上のような症状です。よろしくご教示お願いいたします。

お礼日時：2015/06/16 21:23