|
发表于 2012-5-9 14:06:12
|
显示全部楼层
Run("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2")
Sleep(5000)
WinActivate("声音和音频设备 属性")
ControlClick ("声音和音频设备 属性", "", "[CLASS:SysTabControl32; INSTANCE:1]", "left")
$n = 1
While True
If $n < 3 Then
ControlCommand("声音和音频设备 属性", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabRight", "")
ElseIf $n > 3 Then
ControlCommand("声音和音频设备 属性", "", "[CLASS:SysTabControl32; INSTANCE:1]", "TabLeft", "")
Else
ExitLoop
EndIf
$n = ControlCommand("声音和音频设备 属性", "", "[CLASS:SysTabControl32; INSTANCE:1]", "CurrentTab", "")
WEnd
$text = WinGetText("声音和音频设备 属性")
MsgBox(0, "", $text)
$start = StringInStr($text, "默认设备(&E):")
$start += StringLen("默认设备(&E):")
$end = StringInStr($text, "音量(&O)")
$str = StringMid($text, $start, $end-$start)
MsgBox(0, "", $str)
;*************
;默认设备(&E):
;Realtek AC97 Audio
;音量(&O)...
;************* |
|