; AutoItCOM 3.1.0
;
; Test file
;
; Counting the number of open shell windows
$oShell = ObjCreate("shell.application")	; Get the Windows Shell Object
$oShellWindows=$oShell.windows			; Get the collection of open shell Windows
if Isobj($oShellWindows) then
 $string=""					; String for displaying purposes
 for $Window in $oShellWindows 		; Count all existing shell windows
	$String = $String & $Window.LocationName & @CRLF
 next
 Msgbox(0,"Shell Windows","You have the following shell windows:" & @CRLF & @CRLF & $String);
endif
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="https://www.autoitscript.com/autoit3/files/beta/autoit/COM/ShellWindowsTest.au3">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="https://www.autoitscript.com/autoit3/files/beta/autoit/COM/ShellWindowsTest.au3" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>