Der Code ist wie folgt: <!-
*******************************************************
'*Ich wollte schon immer etwas machen, das ich lerne, aber ich hatte nie Zeit. Ich wollte es ursprünglich mit ASP (mit Netbox) tun. Ich habe immer
'* Ich möchte Programme lernen, VB, aber keine Zeit zum Lernen. Jetzt möchte ich einen mit C#machen, aber ich habe nicht viel Zeit. Ich gehe gelegentlich zum offiziellen VBScript, um es zu finden
'*Dieses gute HTA, also habe ich zwei oder drei Tage damit verbracht, einen zu machen, in der Hoffnung, dass jeder es würde.
'*Autor: DXY (RETERRY)
'*Version: 1.0
'*QQ: 461478385
'*E -Mail: [email protected]
*******************************************************
//->
<html>
<kopf>
<meta http-äquiv = "content-type" content = "text/html; charset = gb2312">
<hta: Anwendung
id = "dxymdb"
scroll = "Ja"
SingleInInstance = "Ja"
Rand = "dünn"
windowState = "maximieren"
icon = "dxy.ico"
>
<titels> Mein erstes HTA -Programm </title>
<style type = "text/css">
<!-
KÖRPER
{
Scrollbar-Face-Farben: #D8DBDF;
Scrollbar-Highlight-Farbe: #fffff;
Scrollbar-Shadow-Farbe: #C1C6CC;
ScrollBar-3Dlight-Color: #ABB1B3;
Scrollbar-Arrow-Farbe: #7f8996;
Scrollbar-Track-Color: #F8FAF9;
Scrollbar-Darkshadow-Farbe: #ABB1B3;
}
Körper, td, th {
Schriftgröße: 10pt;
Farbe: #fffff;
}
Körper {
Hintergrundfarbe: #3a6ead;
}
A {
Schriftgröße: 9pt;
Farbe: #000000;
}
A: Link {
Textdekoration: Keine;
Farbe: #ffff33;
}
A: besucht {
Textdekoration: Keine;
Farbe: #ffff33;
}
A: Hover {
Textdekoration: Keine;
Farbe: #ffffff;
}
A: aktiv {
Textdekoration: Keine;
}
.Style4 {Schriftgewicht: BOLD}
.B {
Grenzbodenbreite: 1PX;
Grenzbodenstil: gestrichelt;
Border-Bottom-Color: #bfdfff;
}
.style9 {color: #ffff33}
Eingabe {
Schriftgröße: 12px;
}
->
</style>
</head>
<script Language = "vbscript">
'Hinzufügen zur Anzahl der intelligenten Anzeigeinformationen
strComputer = "."
Setzen Sie objwmiservice = getObject ("Winmgmts: //" & StrComputer & "/root/cimv2")
Setzen Sie ColItems = objwmiservice.execQuery ("Select * aus Win32_Desktopmonitor"))
Für jedes Objitem in Colitems
thewidth = objitem.screenwidth
theHeight = objitem.screenHeight
Nächste
'-------------------------
Const AduserClient = 3
sub window_onload ()
Dim Conn
Setzen Sie conn = createObject ("adodb.Connection")
conn.open "provider = microsoft.jet.oledb.4.0; Data Source = db.mdb"