รหัสมีดังนี้: <!-
-
'*ฉันต้องการทำสิ่งที่ฉันใช้เพื่อเรียนรู้เสมอ แต่ฉันไม่เคยมีเวลา ตอนแรกฉันต้องการที่จะทำกับ ASP (ใช้ netBox) ฉันมักจะ
'* ต้องการเรียนรู้โปรแกรม VB แต่ไม่มีเวลาเรียนรู้ ตอนนี้ฉันต้องการทำด้วย C#แต่ฉันไม่มีเวลามาก บางครั้งฉันไปที่ VBScript อย่างเป็นทางการเพื่อค้นหามัน
'*HTA ที่ดีนี้ดังนั้นฉันใช้เวลาสองหรือสามวันในการทำหนึ่งโดยหวังว่าทุกคนจะชอบมัน
'*ผู้แต่ง: DXY (Reterry)
'*เวอร์ชัน: 1.0
'*qq: 461478385
'*อีเมล: [email protected]
-
-
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">>
<HTA: แอปพลิเคชัน
id = "dxymdb"
Scroll = "ใช่"
singleinstance = "ใช่"
เส้นขอบ = "บาง"
WindowState = "เพิ่มสูงสุด"
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;
-
A {
ขนาดฟอนต์: 9pt;
สี: #000000;
-
A: ลิงก์ {
การตกแต่งข้อความ: ไม่มี;
สี: #ffff33;
-
A: เยี่ยมชม {
การตกแต่งข้อความ: ไม่มี;
สี: #ffff33;
-
A: โฮเวอร์ {
การตกแต่งข้อความ: ไม่มี;
สี: #ffffff;
-
A: ใช้งาน {
การตกแต่งข้อความ: ไม่มี;
-
.STYLE4 {FONT-WEIGHT: BOLD}
.B {
ความกว้างของชายแดนด้านล่าง: 1px;
สไตล์ชายแดนด้านล่าง: ประ;
ขอบล่าง-สี: #BFDFFF;
-
.style9 {color: #ffff33}
ป้อนข้อมูล {
ขนาดตัวอักษร: 12px;
-
-
</style>
</head>
<ภาษาสคริปต์ = "vbscript">
'เพิ่มจำนวนข้อมูลสมาร์ทจอแสดงผล
strcomputer = "."
ตั้งค่า objwmiservice = getObject ("winmgmts: //" & strcomputer & "/root/cimv2"))
ตั้งค่า colitems = objwmiservice.execQuery ("เลือก * จาก win32_desktopmonitor"))
สำหรับ objitem แต่ละคนใน colitems
Thewidth = objitem.screenwidth
TheHeight = objitem.Screenheight
ต่อไป
-
const aduserclient = 3
sub window_onload ()
หรี่
ตั้งค่า conn = createObject ("adodb.connection")
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล = db.mdb"