Le code est le suivant: <! -
*****************************************************************************
«* J'ai toujours voulu faire quelque chose que j'utilise pour apprendre, mais je n'ai jamais eu le temps. Je voulais à l'origine le faire avec ASP (en utilisant NetBox). , J'ai toujours
'* Je veux apprendre des programmes, VB mais n'ont pas le temps d'apprendre. Maintenant, je veux en faire un avec C #, mais je n'ai pas beaucoup de temps. Je vais occasionnellement au VBScript officiel pour le trouver
«* Ce bon HTA, j'ai donc passé deux ou trois jours à en faire un, en espérant que tout le monde l'aimerait.
'* Auteur: DXY (Reterry)
'* Version: 1.0
'* QQ: 461478385
'* Courriel: [email protected]
*****************************************************************************
// ->
<html>
<adal>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312">
<HTA: application
id = "dxymdb"
scroll = "oui"
singleinstance = "Oui"
border = "mince"
fenêtre = "maximiser"
icon = "dxy.ico"
>
<Title> Mon premier programme HTA </TITME>
<style type = "text / css">
<! -
CORPS
{
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;
}
corps, td, th {
taille de police: 10 pt;
Couleur: #FFFFF;
}
corps {
Color d'arrière-plan: # 3A6EAD;
}
un {
taille de police: 9pt;
Couleur: # 000000;
}
a: lien {
Décoration du texte: aucune;
Couleur: # FFFF33;
}
A: visité {
Décoration du texte: aucune;
Couleur: # FFFF33;
}
A: Hover {
Décoration du texte: aucune;
Couleur: #ffffff;
}
a: actif {
Décoration du texte: aucune;
}
.Style4 {Font-Weight: Bold}
.b {
largeur de la frontière: 1px;
style border-bottom: pointillé;
Border-Bottom-Color: #BFDFFF;
}
.style9 {Color: # ffff33}
saisir {
taille de police: 12px;
}
->
</ style>
</ head>
<script linguisse = "vbscript">
'Ajouter au nombre d'informations d'affichage intelligentes
strComputer = "."
SET OBJWMISERVICE = GetObject ("WinMgmts: //" & StrComputer & "/ Root / Cimv2")
SET COLITEMS = objwMiService.ExecQuery ("SELECT * FROM WIN32_DESKTOPMONITOR")
Pour chaque objitem en colitems
thewidth = objitem.screenwidth
theheight = objitem.screenheight
Suivant
'-------------------------
const aduserclient = 3
sub window_onload ()
tabar
Définir Conn = CreateObject ("Adodb.Connection")
Conn.open "Provider = Microsoft.Jet.oledb.4.0; Source de données = DB.MDB"