El código es el siguiente: <!-
******************************************************************************
'*Siempre he querido hacer algo que use para aprender, pero nunca he tenido tiempo. Originalmente quería hacerlo con ASP (usando Netbox). , Siempre he
'* Quiero aprender programas, VB pero no tengo tiempo para aprender. Ahora quiero hacer uno con C#, pero no tengo mucho tiempo. De vez en cuando voy al VBScript oficial para encontrarlo
'*Este buen hta, así que pasé dos o tres días haciendo uno, esperando que a todos les gustaría.
'*Autor: Dxy (Reterry)
'*Versión: 1.0
'*Qq: 461478385
'*Correo electrónico: [email protected]
******************************************************************************
//->
<html>
<Evista>
<meta http-oquiv = "content-type" content = "text/html; charset = gb2312">
<HTA: aplicación
id = "dxymdb"
Scroll = "Sí"
singleInstance = "Sí"
borde = "delgado"
WindowState = "Maximizar"
icon = "dxy.ico"
>
<title> Mi primer programa HTA </title>
<style type = "text/css">
<!-
CUERPO
{
Scrollbar-Face-Color: #D8DBDF;
Scrollbar-Highlight-Color: #FFFFFF;
Scrollbar-Shadow-Color: #C1C6CC;
Scrollbar-3Dlight-Color: #ABB1B3;
Scrollbar-Arrow-Color: #7F8996;
Scrollbar-Track-Color: #F8FAF9;
Scrollbar-Darkshadow-Color: #ABB1B3;
}
cuerpo, td, th {
tamaño de fuente: 10pt;
Color: #fffff;
}
cuerpo {
Color de fondo: #3A6ead;
}
a {
tamaño de fuente: 9pt;
Color: #000000;
}
A: enlace {
Decoración de texto: ninguna;
Color: #FFFF33;
}
A: Visitado {
Decoración de texto: ninguna;
Color: #FFFF33;
}
A: Hover {
Decoración de texto: ninguna;
Color: #ffffff;
}
A: Activo {
Decoración de texto: ninguna;
}
.style4 {font-weight: bold}
.b {
Border-Bottom-Width: 1px;
Estilo de fondo fronterizo: discontinuo;
color-fondo de borde: #bfdfff;
}
.style9 {color: #ffff33}
aporte {
tamaño de fuente: 12px;
}
->
</style>
</ablo>
<script language = "VBScript">
'Agregar a la cantidad de información de visualización inteligente
strcomputer = "."
Establecer objwmiservice = getObject ("winmgmts: //" & strcomputer & "/root/cimv2")
Establecer colitems = objwmiservice.execquery ("Seleccione * de Win32_DeskTopMonitor")
Para cada objitem en colitems
thewidth = objitem.screenwidth
theHeight = objitem.screenheight
Próximo
'-------------------------
const aduserclient = 3
Sub Window_onload ()
Dim CONN
establecer conn = createObject ("ADODB.Connection")
Conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = db.mdb"