코드는 다음과 같습니다. <!-
*************************************************************************
'*나는 항상 배우는 데 사용하는 것을 만들고 싶었지만 시간이 없었습니다. 원래 ASP (Netbox 사용)와 함께하고 싶었습니다. , 나는 항상
'* 프로그램을 배우고 싶지만 VB는 배울 시간이 없습니다. 이제 C#으로 하나를 만들고 싶지만 시간이 많지 않습니다. 나는 가끔 공식 vbscript로 가서 그것을 찾습니다.
'*이 좋은 hta 그래서 나는 모든 사람들이 그것을 좋아하기를 바라면서 2 ~ 3 일을 만들었습니다.
'*저자 : DXY (Reterry)
'*버전 : 1.0
'*QQ : 461478385
'*이메일 : [email protected]
*************************************************************************
//->
<html>
<헤드>
<meta http-equiv = "content-type"content = "text/html; charset = gb2312">
<HTA : 응용 프로그램
id = "dxymdb"
스크롤 = "예"
SingleInstance = "예"
Border = "Thin"
Windowstate = "최대화"
아이콘 = "dxy.ico"
>
<title> 첫 HTA 프로그램 </title>
<스타일 유형 = "텍스트/CSS">
<!-
몸
{
스크롤 바페이스 컬러 : #d8dbdf;
스크롤 바 하이 라이트 컬러 : #fffff;
Scrollbar-Shadow-Color : #C1C6CC;
Scrollbar-3dlight-color : #abb1b3;
Scrollbar-Arrow-Color : #7F8996;
스크롤 바 트랙 컬러 : #f8faf9;
Scrollbar-Darkshadow-Color : #ABB1B3;
}
몸, td, th {
글꼴 크기 : 10pt;
색상 : #fffff;
}
몸 {
배경색 : #3a6ead;
}
A {
글꼴 크기 : 9pt;
색상 : #000000;
}
A : 링크 {
텍스트 결정 : 없음;
색상 : #ffff33;
}
A : 방문 {
텍스트 결정 : 없음;
색상 : #ffff33;
}
A : 호버 {
텍스트 결정 : 없음;
색상 : #ffffff;
}
A : Active {
텍스트 결정 : 없음;
}
.style4 {font-weight : bold}
.B {
국경 바닥 폭 : 1px;
국경-바닥 스타일 : 점선;
국경-바닥 색상 : #BFDFFF;
}
.Style9 {색상 : #ffff33}
입력 {
글꼴 크기 : 12px;
}
->
</스타일>
</head>
<script language = "vbscript">
'스마트 디스플레이 정보 수를 추가하십시오
strcomputer = "."
set objwmiservice = getObject ( "winmgmts : //"& strcomputer & "/root/cimv2")
colitems를 set colitems = objwmiservice.execquery ( "select * from win32_desktopmonitor")
콜리 템의 각 objitem에 대해
thewidth = objitem.screenwidth
theHeight = objitem.screenheight
다음
'--------------------------
const aduserclient = 3
Sub Window_onload ()
Dim Conn
set conn = createobject ( "adodb.connection")
conn.open "제공자 = microsoft.jet.oledb.4.0; data source = db.mdb"