Kodenya adalah sebagai berikut: <!-
*************************************************************************
'*Saya selalu ingin membuat sesuatu yang saya gunakan untuk belajar, tetapi saya tidak pernah punya waktu. Saya awalnya ingin melakukannya dengan ASP (menggunakan NetBox). , Saya selalu
'* Ingin belajar program, VB tetapi tidak punya waktu untuk belajar. Sekarang saya ingin membuatnya dengan C#, tetapi saya tidak punya banyak waktu. Saya sesekali pergi ke VBScript resmi untuk menemukannya
'*HTA yang bagus ini jadi saya menghabiskan dua atau tiga hari membuatnya, berharap semua orang akan menyukainya.
'*Penulis: DXY (reterry)
'*Versi: 1.0
'*QQ: 461478385
'*Email: [email protected]
*************************************************************************
//->
<Html>
<head>
<meta http-equiv = "konten tipe" content = "text/html; charset = gb2312">
<HTA: Aplikasi
id = "dxymdb"
gulir = "ya"
SingleInstance = "Ya"
Border = "Tipis"
WindowState = "Maksimalkan"
ikon = "dxy.ico"
>
<title> Program HTA pertama saya </iteme>
<type style = "text/css">
<!-
TUBUH
{
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;
}
tubuh, td, th {
Ukuran font: 10pt;
Warna: #FFFFF;
}
tubuh {
latar belakang-warna: #3a6ead;
}
A {
Ukuran font: 9pt;
Warna: #000000;
}
A: link {
Dekorasi Teks: Tidak Ada;
Warna: #ffff33;
}
A: Dikunjungi {
Dekorasi Teks: Tidak Ada;
Warna: #ffff33;
}
A: Hover {
Dekorasi Teks: Tidak Ada;
Warna: #FFFFFF;
}
A: Active {
Dekorasi Teks: Tidak Ada;
}
.style4 {font-weight: bold}
.B {
Border-Bottom-Width: 1px;
gaya-border-bottom: putus-putus;
Border-Bottom-Color: #BFDFFF;
}
.style9 {color: #ffff33}
input {
font-size: 12px;
}
->
</tyle>
</head>
<bahasa skrip = "vbscript">
'Tambahkan ke jumlah informasi tampilan pintar
strcomputer = "."
Set ObjWMiService = getObject ("WinMgmts: //" & strcomputer & "/root/cimv2")
Set Colitems = ObjWMiservice.Execquery ("Pilih * dari Win32_desktopMonitor")
Untuk setiap objitem dalam kolitem
TheWidth = objitem.screenwidth
TheHeight = Objitem.Screenheight
Berikutnya
'-------------------------
const aduserclient = 3
sub window_onload ()
redup conn
Set Conn = CreateObject ("AdodB.Connection")
conn.open "penyedia = microsoft.jet.oledb.4.0; sumber data = db.mdb"