#NoEnv SendMode Input SetWorkingDir %A_ScriptDir% ; ----------------------------------------- toggleBTPan() { name := "ここを編集" ttl := "デバイスとプリンター" if not WinExist(%ttl%) { run, control /name Microsoft.DevicesAndPrinters WinWait, %ttl% } WinActivate, %ttl% WinMaximize, %ttl% WinWaitActive, %ttl% SendMode, Event SetKeyDelay,60,10 send !vm!vu!ea!ei^f{down}%name% sleep, 600 send ^f{tab}{right}{right}{space} sleep, 100 send, a sleep, 500 WinMinimize, %ttl% return } ; ----------------------------------------- isBTPanConnected() { psScript = ( $a = Get-WmiObject -Class Win32_NetworkAdapterConfiguration -Filter "\"ServiceName=`'BthPan`'\""; if ($a.IPAddress.Length -eq 0) { exit 0 } else { exit 1 } ) runWait, powershell.exe -noprofile -command %psScript%, , hide return %ERRORLEVEL% } ; ----------------------------------------- connectBTPan() { res := isBTPanConnected() if (res = 0) { toggleBTPan() } return } ; ----------------------------------------- disconnectBTPan() { res := isBTPanConnected() if (res = 1) { toggleBTPan() } return } ; ----------------------------------------- #z:: { toggleBTPan() return }