有高手能把show location这个扩展再加上两个本地数据库封装成一个普通的exe程序么？

longkui1990 小狐狸 UID37575 注册日期2011-10-14 最后登录2012-03-10 发帖数35 经验10枚威望0点贡献值0点好评度0点加关注写私信	阅读：1620回复：3 有高手能把show location这个扩展再加上两个本地数据库封装成一个普通的exe程序么？楼主^# 更多只看楼主倒序阅读发布于：2012-02-03 20:42 如题吧，感觉这样更方便一些网上查询ip的小软件不少但是个人感觉都比不上ff的这个扩展有没有高手能够将这个xpi捣腾成为一个exe呢？
	喜欢0 最新喜欢：回复

loveqianool

狐狸大王

UID29223
注册日期2009-06-19
最后登录2022-01-29
发帖数308
经验153枚
威望0点
贡献值92点
好评度2点

加关注写私信

1楼^#

发布于：2012-02-03 20:42

一个网络对时的小工具。我一直觉得这个东西好强大。
作者:http://hi.baidu.com/%E6%84%9A%E4%BA%BA%E9%99%88/blog/item/bf4f7af3914a4d09b07ec5e0.html
将下面的代码保存为 xx.hta

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<hta:application version="1.3" innerBorder=0 scroll=0 icon="16741.ico" />
<meta http-equiv=MSThemeCompatible content=yes />
<meta http-equiv="Content-type" content="Charset=gb2312" />
<title>时间同步v1.3</title>

<style type="text/css">
	BODY {background-color:white; }
	INPUT {height:30px;line-height:25px;color:black;}
	TABLE {width:100%;height:100%;padding-top:200px;border:0px solid #898C95;}
	TD {border:0px solid #F0F0F0;}
	DIV.label {text-align:center;}
	TR.bottom {height:40px;text-align:center;}
	TR.bottom SPAN {width:50%;float:left;}
	TR.server {vertical-align:bottom;}
	TR.server TD,TR.client TD{color:white;  filter:Glow(color=blue,strength=1);}
	#mask {width:120%;height:100%;position:absolute;top:0;left:0;z-Index:-10;filter:light(enabled=1);background-color:blue;}
	#about {position:absolute;bottom:0;right:0;}
	a {text-decoration:none;font-family:verdana,consolas;color:blue;}
	a:hover {color:red;}
/*	background-color:#9CAAC1;
	background-color:transparent;
	background-color:#35496A;
	CFD7EB
	DFFAFF
	F0F0F0
	vertical-align:top;	
	padding-top:3px;
*/
</style>


<body>

<table cellspacing=20 id=tb1>
<tr class=server>
	<td>
		<div id="d1" class="label">
		服务器时间:
		</div>
	</td>
	<td>
		<span class="" id=serverTime></span>
	</td>
</tr>
<tr class=client>
	<td>
		<div id="" class="label">
		　本机时间:
		</div>
	</td>
	<td>
		<span class="" id=clientTime></span>
	</td>
</tr>
<tr class=bottom>
	<td colSpan=2>
	<SPAN>
	<input type="button" value="刷新服务器时间" onclick="getSvrTime();">
	</SPAN>
	<SPAN>
	<input type="button" value="更正本机时间" onclick="setSystemTime(svrTime);">
	</SPAN>
	</td>
</tr>
</table>

<div id=mask></div>
<div id=about>
<a href="http://hi.baidu.com/%E6%84%9A%E4%BA%BA%E9%99%88/blog/item/bf4f7af3914a4d09b07ec5e0.html" title="点此检查更新|查看帮助">yurenchen</a>
</div>






<script language="JavaScript">
	resizeTo(400,300);
	Object.prototype.echo=function(c){document.write(this.toString().fontcolor(c||'black')+'<br>')};
	var blue='blue',red='red',green='green',black='black',gray='gray';
	document.onkeydown=function(){
		var ESC=27;
		if(event.keyCode==ESC)window.close();
	}
	Date.prototype.fmt=function(){
		var str='';
		with(this){
			str=getFullYear()+'/'+(getMonth()+1)+'/'+getDate()+' '+getHours()+(getMinutes()<10?':0':':')+getMinutes()+(getSeconds()<10?':0':':')+getSeconds();
		}
		return(str);
	}

var svrTime,cltTime,diffTime;
var URL = "http://www.time.ac.cn/timeflash.asp?user=flash";
refresh();
function XMLDOM(){
	var A = [ 'MSXML2.DOMDocument', 'Microsoft.XMLDOM'];
	for (var i = 0; A[i]; i++) {
		try {return new ActiveXObject(A[i]);}catch(D){};
	}
	throw new Error("Your IE Browser do not support XMLDOM");
}

var xml=new XMLDOM();
xml.async=true;
xml.onreadystatechange=readyStateChange;
window.onload=getSvrTime;
//xml.load(URL)

var t=setInterval(refresh,250);

function getSvrTime(){
	clearInterval(t);
	xml.load(URL)
	serverTime.runtimeStyle.color='red';
	t=setInterval(refresh,250);
}
function refresh(){
	try{
	cltTime=new Date();
	svrTime=new Date(cltTime-diffTime);
	//svrTime.setMilliseconds(svrTime.getMilliseconds()+100);
	serverTime.innerHTML=svrTime.fmt();
	clientTime.innerHTML=cltTime.fmt();
	}catch(E){};
	serverTime.runtimeStyle.color='';
	clientTime.runtimeStyle.color='';

}
function get(tag){
	var str=xml.getElementsByTagName(tag).item(0).text;
	return str;
}

function readyStateChange(){
	var Y,M,D,H,Min,S;
	if(xml.readyState==2)
		t1=new Date();
	else if(xml.readyState==4){
		t2=new Date();
		try{
			Y=get('year');
			M=get('month');
			D=get('day');
			H=get('hour');
			Min=get('minite');
			S=get('second');
		}catch(e){
			alert('网络异常!\n请检查您的网络连接');
		}
		svrTime=new Date(Y,M-1,D,H,Min,S,500);	//设毫秒补偿量为500(因为服务器未提供ms值,而且还有传输时延)
		cltTime=new Date();
		diffTime=cltTime-svrTime;	//>0表示本机时间快了
		serverTime.innerHTML=svrTime.fmt();

	}
}
function setSystemTime(d){
	if(isNaN(svrTime)){
		alert('服务器时间未就绪!');
		return false;
	}
	clearInterval(t);
	clientTime.runtimeStyle.color='red';

	var Y,M,D,H,Min,S,mS;
	with(d){
		Y=getFullYear();
		M=getMonth()+1;
		D=getDate();
		H=getHours();
		Min=getMinutes();
		S=getSeconds();
		mS=getMilliseconds();
	}
	SetTimeDate(Y,M,D,H,Min,S,mS);
	t=setInterval(refresh,250);
}
</script>


<script language="VBScript">
	'设置系统时间
	Dim WMI,cols
	Set WMI=GetObject("winmgmts:{(Systemtime)}\\.\root\cimv2")

	'例
	'SetTimeDate 2000,1,1,13,10,15
	'GetTimeDate

	Sub SetTimeDate(Y,M,D,H,Min,S,mS)
		Dim str
		str=fmt(Y,4) & fmt(M,2) & fmt(D,2) & fmt(H,2) & fmt(Min,2) & fmt(S,2) & "." & fmt(mS,3) & "000+480"	'UTC+08:00
		
		For Each obj In WMI.ExecQuery("Select * From Win32_OperatingSystem")
			obj.SetDateTime str
			'WScript.Echo obj.LocalDateTime		
		Next
		diffTime=0
	End Sub
	'CIM_DATETIME
		'http://msdn.microsoft.com/en-us/library/aa387237(VS.85).aspx
		'yyyymmddHHMMSS.mmmmmmsUUU
		'20110811122645.221000+420

	Sub GetTimeDate()
		For Each obj In WMI.ExecQuery("Select * From Win32_OperatingSystem")
			'obj.SetDateTime str
			WScript.Echo obj.LocalDateTime		
		Next
	End Sub

	Function fmt(Str,Length)
		fmt=String(Length-Len(Str),"0") & Str
	End Function
</script>


<script language="JavaScript">
	var light=mask.filters.light;
	with(light){
		clear();
		addCone(56,544,-100,410,102,20,40,60,150,190);
//		addAmbient (10,100,100,100)
	}
</script>
</body>

回复喜欢