コードは次のとおりです。<！ -
************************************************************************************************************************************************つする
'*私はいつも学ぶために使用するものを作りたいと思っていましたが、時間がありませんでした。私はもともと、ASP（Netboxを使用）でそれをやりたかったのです。 、私はいつも
'*プログラムを学びたい、VBですが、学ぶ時間がありません。今、私はC＃でそれを作りたいのですが、私はあまり時間がありません。私は時々それを見つけるために公式のvbscriptに行きます
'*この良いHTAなので、私は2、3日を費やして1つを作りました。
'*著者：dxy（レセリー）
'*バージョン：1.0
'*QQ：461478385
'*メール：[email protected]
************************************************************************************************************************************************つする
//->
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA：アプリケーション
id = "dxymdb"
scroll = "yes"
singleInstance = "はい"
border = "thin"
Window -state = "Maximize"
icon = "dxy.ico"
>
<Title>私の最初のHTAプログラム</title>
<style type = "text/css">
<！ -
体
{
Scrollbar-Face-Color：＃d8dbdf;
Scrollbar-Highlight-Color：#fffff;
Scrollbar-Shadow-Color：＃c1c6cc;
scrollbar-3dlight-color：＃abb1b3;
Scrollbar-Arrow-Color：＃7F8996;
Scrollbar-Track-Color：＃f8faf9;
Scrollbar-Darkshadow-Color：＃abb1b3;
}
ボディ、td、th {
フォントサイズ：10pt;
色：#fffff;
}
体 {
バックグラウンドカラー：＃3a6ead;
}
{
フォントサイズ：9pt;
色：＃000000;
}
A：link {
テキスト装置：なし;
色：＃ffff33;
}
A：訪問{
テキスト装置：なし;
色：＃ffff33;
}
A：ホバー{
テキスト装置：なし;
色：#ffffff;
}
A：Active {
テキスト装置：なし;
}
.style4 {font-weight：bold}
.b {
境界線幅：1px;
ボーダーボトムスタイル：ダッシュ;
Border-Bottom-color：#bfdfff;
}
.style9 {color：＃ffff33}
入力{
フォントサイズ：12px;
}
- >
</style>
</head>
<スクリプト言語= "vbscript">
'スマート表示情報の数に追加します
strcomputer = "。"
objwmiservice = getobject（ "winmgmts：//"＆strcomputer＆ "/root/cimv2"）を設定します。
colitems = objwmiservice.execquery（ "select * from win32_desktopmonitor"）
コリテムの各objitemについて
thewidth = objitem.screenwidth
theheight = objitem.screenheight
次
'---------------------------------
const aduserclient = 3
sub window_onload（）
dim conn
set conn = createObject（ "adodb.Connection"）
conn.open "provider = microsoft.jet.oledb.4.0; data source = db.mdb"