VB6でジョイスティックのボタンを押すには？ (ID:101509)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 教えて頂いたC++のソースをVBに変換してみて、テストしてみましたが、 最初のCreateFileですら動かず悪戦苦闘です。 Const GENERIC_WRITE = &H40000000 Const FILE_SHARE_WRITE = &H2 Const OPEN_EXISTING = 3 Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpCommName As String, ByVal dwDesiredAccess As _ Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Long, ByVal dwCreationDisposition As Long, ByVal _ dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Dim h As Long h = CreateFile("\\.\PPJoyIOCTL1", GENERIC_WRITE, FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0) これで実行すると h=-1 となります。 試しに "\\\\.\\PPJoyIOCTL1"などもしてみましたが、結果は同じでした。 PPJoyIOCTL1が存在するのか調べる方法などありますか？