连接到指定蓝牙设备

deviceName := "KD-55X9000F"

DllCall("LoadLibrary", "str", "Bthprops.cpl", "ptr")
toggle := toggleOn := 1
VarSetCapacity(BLUETOOTH_DEVICE_SEARCH_PARAMS, 24+A_PtrSize*2, 0)
NumPut(24+A_PtrSize*2, BLUETOOTH_DEVICE_SEARCH_PARAMS, 0, "uint")
NumPut(1, BLUETOOTH_DEVICE_SEARCH_PARAMS, 4, "uint")  ; fReturnAuthenticated
VarSetCapacity(BLUETOOTH_DEVICE_INFO, 560, 0)
NumPut(560, BLUETOOTH_DEVICE_INFO, 0, "uint")

; 出处：http://forum.script-coding.com/viewtopic.php?id=17669
loop {
  If (A_Index = 1) {
    foundedDevice := DllCall("Bthprops.cpl\BluetoothFindFirstDevice", "ptr", &BLUETOOTH_DEVICE_SEARCH_PARAMS, "ptr", &BLUETOOTH_DEVICE_INFO)
    if !foundedDevice {
      msgbox 没有蓝牙设备
      return
    }
  } else {
    if !DllCall("Bthprops.cpl\BluetoothFindNextDevice", "ptr", foundedDevice, "ptr", &BLUETOOTH_DEVICE_INFO) {
      msgbox 没有发现
      break
    }
  }
  if (StrGet(&BLUETOOTH_DEVICE_INFO+64) = deviceName) {
    VarSetCapacity(Handsfree, 16)
    DllCall("ole32\CLSIDFromString", "wstr", "{0000111e-0000-1000-8000-00805f9b34fb}", "ptr", &Handsfree)  ; https://www.bluetooth.com/specifications/assigned-numbers/service-discovery/
    VarSetCapacity(AudioSink, 16)
    DllCall("ole32\CLSIDFromString", "wstr", "{0000110b-0000-1000-8000-00805f9b34fb}", "ptr", &AudioSink)
    loop {
      hr := DllCall("Bthprops.cpl\BluetoothSetServiceState", "ptr", 0, "ptr", &BLUETOOTH_DEVICE_INFO, "ptr", &Handsfree, "int", toggle)  ; voice
      if (hr = 0) {
        if (toggle = toggleOn)
          break
        toggle := !toggle
      }
      if (hr = 87)
        toggle := !toggle
    }
    loop {
      hr := DllCall("Bthprops.cpl\BluetoothSetServiceState", "ptr", 0, "ptr", &BLUETOOTH_DEVICE_INFO, "ptr", &AudioSink, "int", toggle)  ; music
      if (hr = 0) {
        if (toggle = toggleOn)
          break 2
        toggle := !toggle
      }
      if (hr = 87)
        toggle := !toggle
    }
  }
}
DllCall("Bthprops.cpl\BluetoothFindDeviceClose", "ptr", foundedDevice)
msgbox done
ExitApp