O código é o seguinte: <!-
*************************************************
'*Eu sempre quis fazer algo que uso para aprender, mas nunca tive tempo. Originalmente, eu queria fazer isso com asp (usando netbox). , Eu sempre
'* Quer aprender programas, VB, mas não tem tempo para aprender. Agora eu quero fazer um com C#, mas não tenho muito tempo. Ocasionalmente vou ao VBScript oficial para encontrá -lo
'*Este bom HTA, então passei dois ou três dias fazendo um, esperando que todos gostassem.
'*Autor: DXY (RETERRY)
'*Versão: 1.0
'*QQ: 461478385
'*E -mail: [email protected]
*************************************************
//->
<html>
<head>
<meta http-equiv = "content-type" content = "text/html; charset = gb2312">
<HTA: Aplicação
id = "dxymdb"
scroll = "sim"
singleInstance = "Sim"
Border = "Thin"
windowstate = "maximize"
icon = "dxy.ico"
>
<título> meu primeiro programa HTA </ititle>
<style type = "text/css">
<!-
CORPO
{
ScrollBar-Face-Color: #d8dbdf;
ScrollBar-Highlight-Color: #FFFFF;
ScrollBar-Shadow-Color: #C1C6CC;
scrollBar-3dlight-color: #abb1b3;
ScrollBar-Arrow-Color: #7F8996;
scrollbar-rack-color: #f8faf9;
scrollbar-darkshadow-cor: #abb1b3;
}
corpo, td, th {
tamanho de fonte: 10pt;
Cor: #fffff;
}
corpo {
Background-Color: #3A6ead;
}
A {
tamanho de fonte: 9pt;
Cor: #000000;
}
A: Link {
Decoração de texto: Nenhum;
Cor: #ffff33;
}
A: visitado {
Decoração de texto: Nenhum;
Cor: #ffff33;
}
A: Hover {
Decoração de texto: Nenhum;
Cor: #ffffff;
}
A: ativo {
Decoração de texto: Nenhum;
}
.style4 {font-weight: Bold}
.b {
largura de borda e lareira: 1px;
estilo de fundo de fronteira: tracejado;
cor-cor de fronteira: #bfdfff;
}
.style9 {color: #ffff33}
entrada {
tamanho de fonte: 12px;
}
->
</style>
</head>
<Script Language = "VBScript">
'Adicione ao número de informações de exibição inteligente
strComputer = "."
Definir objwmiservice = getObject ("winmgmts: //" & strcomputer & "root/cimv2")
SET COLITEMS = objwmiservice.execQuery ("Selecione * FROM WIN32_DESKTOPMONITOR")
Para cada objitem em colitems
thewidth = objitem.screenwidth
theHeight = objitem.screenHeight
Próximo
'-------------------------
const adusclient = 3
Sub Window_OnLload ()
Dim Conn
Definir Conn = CreateObject ("Adodb.Connection")
Conn.open "Provedor = Microsoft.Jet.oledb.4.0; fonte de dados = db.mdb"