Код выглядит следующим образом: <!-
***********************************************
«Я всегда хотел сделать то, что я использую, чтобы учиться, но у меня никогда не было времени. Первоначально я хотел сделать это с ASP (с помощью NetBox). , Я всегда
'* Хочу изучать программы, VB, но у вас нет времени, чтобы учиться. Теперь я хочу сделать один с C#, но у меня мало времени. Я иногда хожу на официальный VBScript, чтобы найти его
'*Это хорошее HTA, поэтому я провел два или три дня, делая один, надеясь, что всем это понравится.
'*Автор: dxy (переход)
'*Версия: 1.0
'*QQ: 461478385
'*Электронная почта: [email protected]
***********************************************
//->
<html>
<голова>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA: Приложение
id = "dxymdb"
Scroll = "Да"
SingleInstance = "Да"
граница = "тонкий"
WindowState = "Maximize"
icon = "dxy.ico"
>
<title> моя первая программа HTA </title>
<стиль типа = "text/css">
<!-
ТЕЛО
{
Scrollbar-Face-Color: #D8DBDF;
Scrollbar-Highlight-Color: #fffff;
Прокрутка-склероя-цвета: #C1C6CC;
Scrollbar-3dlight-Color: #ABB1B3;
Прокручивание-баронный цвет: #7F8996;
Scrollbar-Track-Color: #F8FAF9;
Scrollbar-Darkshadow-Color: #ABB1B3;
}
тело, TD, th {
размер шрифта: 10pt;
Цвет: #fffff;
}
тело {
фоновый цвет: #3A6EAD;
}
a {
размер шрифта: 9pt;
Цвет: #000000;
}
A: ссылка {
Текстовое декорация: нет;
Цвет: #ffff33;
}
A: посетил {
Текстовое декорация: нет;
Цвет: #ffff33;
}
A: Hover {
Текстовое декорация: нет;
Цвет: #ffffff;
}
A: Active {
Текстовое декорация: нет;
}
.style4 {font-weight: Bold}
.b {
пограничная ширина: 1px;
пограничный стиль: разбитый;
Border-Bottom-Color: #bfdfff;
}
.style9 {color: #ffff33}
вход {
размер шрифта: 12px;
}
->
</style>
</head>
<script language = "vbscript">
'Добавьте к количеству интеллектуальной информации
strcomputer = "."
Установить objwmiservice = getObject ("winmgmts: //" & strcomputer & "/root/cimv2")
Установить colitems = objwmiservice.execquery ("select * from win32_desktopmonitor")
Для каждого обаджитем в colitems
TheWidth = objitem.screenWidth
theheight = objitem.screenheight
Следующий
'-------------------------
const aduserclient = 3
sub windows_onload ()
Dim Conn
установить conn = createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0; Data Source = db.mdb"