الرمز كما يلي: <!-
***************************************************************************
'*كنت أرغب دائمًا في صنع شيء أستخدمه لأتعلمه ، لكنني لم أواجه وقتًا أبدًا. أردت أصلاً أن أفعل ذلك مع ASP (باستخدام Netbox). ، أنا دائما
'* تريد تعلم البرامج ، VB ولكن ليس لديك وقت للتعلم. الآن أريد أن أصنع واحدة مع C#، لكن ليس لدي الكثير من الوقت. أذهب أحيانًا إلى VBScript الرسمي للعثور عليه
'*هذا HTA الجيد لذلك قضيت يومين أو ثلاثة أيام في صنع واحدة ، على أمل أن يرغب الجميع في ذلك.
'*المؤلف: dxy (ريتيري)
'*الإصدار: 1.0
'*QQ: 461478385
'*البريد الإلكتروني: [email protected]
***************************************************************************
//->
<html>
<head>
<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312">
<hta: التطبيق
id = "dxymdb"
Scroll = "نعم"
SingleInstance = "نعم"
الحدود = "رقيقة"
WindowState = "تعظيم"
أيقونة = "dxy.ico"
>
<title> أول برنامج HTA الخاص بي </title>
<type 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 ؛
}
ج: الرابط {
تدمير النص: لا شيء ؛
اللون: #ffff33 ؛
}
ج: زار {
تدمير النص: لا شيء ؛
اللون: #ffff33 ؛
}
ج: تحوم {
تدمير النص: لا شيء ؛
اللون: #ffffff ؛
}
ج: نشط {
تدمير النص: لا شيء ؛
}
.style4 {font-weight: Bold}
.b {
عرض الحدود: 1 بكسل ؛
على غرار القاع الحدودي: متقطع ؛
لون الحدود: #BFDFFF ؛
}
.style9 {color: #ffff33}
مدخل {
حجم الخط: 12 بكسل ؛
}
->
</style>
</head>
<script language = "vbscript">
أضف إلى عدد معلومات العرض الذكي
strcomputer = "."
تعيين OBJWMIService = getObject ("winmgmts: //" & stromputer & "/root/cimv2")
set colitems = objwmiservice.execquery ("SELECT * from win32_desktopmonitor")
لكل objitem في colitems
thewidth = objitem.screenwidth
theheight = objitem.screenheight
التالي
'-----------------------
const aduserclient = 3
sub window_onload ()
قاتمة كون
تعيين conn = createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0 ؛ مصدر البيانات = db.mdb"