Bluetooth

Bluetooth　この前買ったんだけど紹介するのを忘れてた
何で買ったかと言うと、これ一つで
マウス・ヘッドフォン・マイク・キーボード
そんなのをまとめれる…って言うのもあるけど
Wiiのコントローラとかも操作できるらしい、と言うことです

２年くらい前の古い記事を見たんですけどね
Bluetoothとwiiリモコンを接続して、色々出来る
何が出来るかは分かりませんけど…
とりあえず、 VB.NETで繋げることだけは出来ました。

参考に
http://onakasuita.org/wii/

無題

前のつづき

Public Class Form1     Dim game As Long     Dim st As String     Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)     End Sub     Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click         st = ListBox1.Text         Select Case st             Case "サドンアタック"                 st = "●●\SUDDEN ATTACK.htm"             Case "メイプルストーリー"                 st = "C:\Program Files\Nexon\MapleStory\MapleStory.exe"             Case "ラグナロクオンライン"                 st = "C:\Gravity\RagnarokOnline\ragnarok.exe"             Case "MELTYBLOOD"                 st = "●●\MBACWIN\mbacPC.exe"             Case "東方紅魔郷"                 st = "●●\上海アリス幻樂団\東方紅魔郷\102h.exe"             Case "東方妖々夢"                 st = "●●\上海アリス幻樂団\東方妖々夢\th07.exe"             Case "東方花映塚"                 st = "●●\上海アリス幻樂団\東方花映塚\th09.exe"             Case "東方永夜抄"                 st = "●●\上海アリス幻樂団\東方永夜抄\th08.exe"             Case "東方文花帖"                 st = "●●\上海アリス幻樂団\東方文花帖\th095.exe"             Case "東方風神禄"                 st = "●●\上海アリス幻樂団\東方風神録\th10.exe"             Case "コサックスⅡ"                 st = "C:\Program Files\Cossacks II\Cossacks2.exe"             Case "ナルキッソス２"                 st = "●●\naru2\nana25.exe"             Case "ナルキッソス３"                 st = "●●\ナルキッソス３\ナルキッソス３.exe"         End Select     End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         game = Shell(st, vbNormalFocus)     End Sub End Class

毎度毎度、無駄にでかい画像です…

今、止まってるところは　ゲームを開始するとき

一々サイトに行ってゲームを始める、って奴です（サドンアタック

まあ、IEでサドンアタックのページを開けばいいんだけど
そんな方法は知らないから、捜索中

あとは何も指定してないとき、起動を押すとエラーがでるから
その回避…やればできるから　やってないだけ