代碼如下: <!--
***********************************************************************
'*一直想做一個自己用來學習的東西，可是一直沒有時間，本想用asp（用netbox）做的。，我一直
'*想學習程序，vb但沒有時間學習，現在想用c#做一個，但沒有什么時間，偶爾去官方找vbscript發現
'*這個不錯的hta于是花了兩三天的時間，做了一個這個，希望大家能喜歡。
'*Author: dxy(reterry)
'*version:1.0
'*QQ: 461478385
'*Email:douxy001@gmail.com
***********************************************************************
//-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<hta:application
id="dxymdb"
scroll="yes"
singleinstance="yes"
border="thin"
windowstate="maximize"
icon="dxy.ico"
>
<title>我的第一個hta程序</title>
<style type="text/css">
<!--
BODY
{
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;
}
body,td,th {
font-size: 10pt;
color: #FFFFFF;
}
body {
background-color: #3a6ead;
}
a {
font-size: 9pt;
color: #000000;
}
a:link {
text-decoration: none;
color: #FFFF33;
}
a:visited {
text-decoration: none;
color: #FFFF33;
}
a:hover {
text-decoration: none;
color: #FFffff;
}
a:active {
text-decoration: none;
}
.style4 {font-weight: bold}
.b {
border-bottom-width: 1px;
border-bottom-style: dashed;
border-bottom-color: #BFDFFF;
}
.style9 {color: #ffff33}
input {
font-size:12px;
}
-->
</style>
</head>
<script language="vbscript">
'加入智能顯示信息條數
strComputer = "."
Set objWMIService = GetObject("Winmgmts://" & strComputer & "/root/cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor")
For Each objItem in colItems
thewidth = objItem.ScreenWidth
theheight = objItem.ScreenHeight
Next
'------------------智能結速-----
const adUserClient=3
sub window_onload()
dim conn
set conn=createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=db.mdb"
新聞熱點
疑難解答
