MSCBSC 移動通信論壇
搜索
登錄注冊
網絡優(yōu)化工程師招聘專欄 4G/LTE通信工程師最新職位列表 通信實習生/應屆生招聘職位

  • 閱讀:3953
  • 回復:12
google earth 簡單站點標示
yi98130
銀牌會員
鎵嬫満鍙風爜宸查獙璇? style=


 發(fā)短消息    關注Ta 

紀念勛章·八周年  
積分 2733
帖子 209
威望 10968 個
禮品券 5 個
專家指數 -1180
注冊 2006-10-11
專業(yè)方向  室分
回答問題數 0
回答被采納數 0
回答采納率 0%
 
發(fā)表于 2008-03-19 16:58:37  只看樓主 
將基站名及經緯度放入宏中,即可生成GOOGLE EARTH需要文件
一個很簡單的工具



PS:下載過的朋友說需要VBA密碼,我在另外一臺機上測試了一下,不需要密碼的,但不知道為什么大家都需要密碼
把測試不需要密碼的發(fā)上來,換掉原先的,

[ 本帖最后由 yi98130 于 2008-3-21 09:41 編輯 ]

查看積分策略說明
附件下載列表:
2008-3-21 09:41:19  下載次數: 49
googleEarth SITE顯示工具 .rar (17.95 KB)
掃碼關注5G通信官方公眾號,免費領取以下5G精品資料
  • 1、回復“YD5GAI”免費領取《中國移動:5G網絡AI應用典型場景技術解決方案白皮書
  • 2、回復“5G6G”免費領取《5G_6G毫米波測試技術白皮書-2022_03-21
  • 3、回復“YD6G”免費領取《中國移動:6G至簡無線接入網白皮書
  • 4、回復“LTBPS”免費領取《《中國聯(lián)通5G終端白皮書》
  • 5、回復“ZGDX”免費領取《中國電信5G NTN技術白皮書
  • 6、回復“TXSB”免費領取《通信設備安裝工程施工工藝圖解
  • 7、回復“YDSL”免費領取《中國移動算力并網白皮書
  • 8、回復“5GX3”免費領取《 R16 23501-g60 5G的系統(tǒng)架構1
  • 對本帖內容的看法? 我要點評

     
    [充值威望,立即自動到帳] [VIP貴賓權限+威望套餐] 另有大量優(yōu)惠贈送活動,請光臨充值中心
    充值擁有大量的威望和最高的下載權限,下載站內資料無憂
    lj287004602
    鉆石會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 14393
    帖子 984
    威望 19247 個
    禮品券 30 個
    專家指數 132
    注冊 2007-7-22
    專業(yè)方向  無線網絡優(yōu)化
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-03-19 21:26:42 
    好東西,很感謝你,但是能否把VBA Project密碼也告訴我們唄,要不還是用不了啊

    對本帖內容的看法? 我要點評

     
    [立即成為VIP會員,百萬通信專業(yè)資料立即下載,支付寶、微信付款,簡單、快速!]
    youwei
    資深元老



     發(fā)短消息    關注Ta 

    公益·慈善勛章  
    積分 71084
    帖子 5592
    威望 1037275 個
    禮品券 15 個
    專家指數 343
    注冊 2007-8-9
    專業(yè)方向 
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-03-19 21:33:20  QQ
    是呀,共享要徹底呀

    對本帖內容的看法? 我要點評





    其實與人相處的準則就是發(fā)現(xiàn)對方的優(yōu)點與己用,發(fā)現(xiàn)自身不足修改之。發(fā)現(xiàn)別人不足當給其建議才對。
     
    最新通信職位:廣東通信人才網 | 北京通信人才網 | 上海通信人才網 | 南京通信人才網 | 西安通信人才網 | 重慶通信人才網 | 中國通信人才網
    yi98130
    銀牌會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    紀念勛章·八周年  
    積分 2733
    帖子 209
    威望 10968 個
    禮品券 5 個
    專家指數 -1180
    注冊 2006-10-11
    專業(yè)方向  室分
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-03-20 09:54:12  只看樓主 
    sorry,還真不記得了,我這臺電腦是的EXCEL是簡化版的,沒有VBA功能了,一時我還真想不到VBA的密碼是什么了,要不你們去找個破VBA密碼的工具來破好了,呵呵

    對本帖內容的看法? 我要點評

     
    熱點: 通信招聘職位 | 網絡優(yōu)化全集 | WCDMA精品 | TD-SCDMA學習資料 | EVDO | MGW媒體網關資料
    yi98130
    銀牌會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    紀念勛章·八周年  
    積分 2733
    帖子 209
    威望 10968 個
    禮品券 5 個
    專家指數 -1180
    注冊 2006-10-11
    專業(yè)方向  室分
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-03-20 10:03:02  只看樓主 
    新建一個Excel工作簿,Alt+F11 打開VBA編輯器,新建一個模塊 ,復制以下代碼,注意如提示變量未定義,則把Option Explicit行刪除即可,經測試已經通過.


    '移除VBA編碼保護
    Sub MoveProtect()
    Dim FileName As String
    FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
    If FileName = CStr(False) Then
    Exit Sub
    Else
    VBAPassword FileName, False
    End If
    End Sub

    '設置VBA編碼保護
    Sub SetProtect()
    Dim FileName As String
    FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xla),*.xls;*.xla", , "VBA破解")
    If FileName = CStr(False) Then
    Exit Sub
    Else
    VBAPassword FileName, True
    End If
    End Sub

    Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)
    If Dir(FileName) = "" Then
    Exit Function
    Else
    FileCopy FileName, FileName & ".bak"
    End If

    Dim GetData As String * 5
    Open FileName For Binary As #1
    Dim CMGs As Long
    Dim DPBo As Long
    For i = 1 To LOF(1)
    Get #1, i, GetData
    If GetData = "CMG=""" Then CMGs = i
    If GetData = "[Host" Then DPBo = i - 2: Exit For
    Next

    If CMGs = 0 Then
    MsgBox "請先對VBA編碼設置一個保護密碼...", 32, "提示"
    Exit Function
    End If

    If Protect = False Then
    Dim St As String * 2
    Dim s20 As String * 1

    '取得一個0D0A十六進制字串
    Get #1, CMGs - 2, St

    '取得一個20十六制字串
    Get #1, DPBo + 16, s20

    '替換加密部份機碼
    For i = CMGs To DPBo Step 2
    Put #1, i, St
    Next

    '加入不配對符號
    If (DPBo - CMGs) Mod 2 <> 0 Then
    Put #1, DPBo + 1, s20
    End If
    MsgBox "文件解密成功......", 32, "提示"
    Else
    Dim MMs As String * 5
    MMs = "DPB="""
    Put #1, CMGs, MMs
    MsgBox "對文件特殊加密成功......", 32, "提示"
    End If
    Close #1
    End Function

    試試看,希望用著上,呵呵

    對本帖內容的看法? 我要點評

     
    最新通信職位:廣東通信人才網 | 北京通信人才網 | 上海通信人才網 | 南京通信人才網 | 西安通信人才網 | 重慶通信人才網 | 中國通信人才網
    wuguangquan
    初級會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 137
    帖子 7
    威望 22 個
    禮品券 0 個
    專家指數 0
    注冊 2006-10-11
    專業(yè)方向 
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-04-05 22:25:25 
    下載看看,希望這個可以用

    對本帖內容的看法? 我要點評

     
    [2分鐘擁有VIP權限和充足威望,可下載站內任何資料] [快速找到一份高薪的通信行業(yè)職位]
    wuguangquan
    初級會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 137
    帖子 7
    威望 22 個
    禮品券 0 個
    專家指數 0
    注冊 2006-10-11
    專業(yè)方向 
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-04-05 22:26:13 
    威望不夠<怎么辦,

    對本帖內容的看法? 我要點評

     
    熱點: 通信招聘職位 | 網絡優(yōu)化全集 | WCDMA精品 | TD-SCDMA學習資料 | EVDO | MGW媒體網關資料
    lby999
    資深元老
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    紀念勛章·七周年   紀念勛章·六周年  
    積分 45140
    帖子 2356
    威望 54128 個
    禮品券 46 個
    專家指數 273
    注冊 2008-1-3
    專業(yè)方向  網絡優(yōu)化
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-04-07 13:46:27 
    好東西,下載研究。。!

    對本帖內容的看法? 我要點評

     
    熱點: 通信招聘職位 | 網絡優(yōu)化全集 | WCDMA精品 | TD-SCDMA學習資料 | EVDO | MGW媒體網關資料
    減肥
    銀牌會員



     發(fā)短消息    關注Ta 

    積分 3053
    帖子 26
    威望 897 個
    禮品券 8 個
    專家指數 0
    注冊 2006-4-17
    專業(yè)方向 
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-04-07 14:00:41 
    嘿嘿,多謝啦。

    對本帖內容的看法? 我要點評

     
    [2分鐘擁有VIP權限和充足威望,可下載站內任何資料] [快速找到一份高薪的通信行業(yè)職位]
    qsdys
    資深元老
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 48061
    帖子 1011
    威望 162113 個
    禮品券 5 個
    專家指數 121
    注冊 2006-11-4
    專業(yè)方向  OPTI
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-05-13 13:01:45 
    好東西,需要支持一下,謝謝分享!

    對本帖內容的看法? 我要點評





    我終究沒能飆得過那輛寶馬,只能眼看著它在夕陽中絕塵而去,不是我的引擎不好,而是我的車鏈子掉了。
     
    熱點: 通信招聘職位 | 網絡優(yōu)化全集 | WCDMA精品 | TD-SCDMA學習資料 | EVDO | MGW媒體網關資料
    qsdys
    資深元老
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 48061
    帖子 1011
    威望 162113 個
    禮品券 5 個
    專家指數 121
    注冊 2006-11-4
    專業(yè)方向  OPTI
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-05-13 13:02:53 
    好東西,需要支持一下,謝謝分享!

    對本帖內容的看法? 我要點評





    我終究沒能飆得過那輛寶馬,只能眼看著它在夕陽中絕塵而去,不是我的引擎不好,而是我的車鏈子掉了。
     
    熱點: 通信招聘職位 | 網絡優(yōu)化全集 | WCDMA精品 | TD-SCDMA學習資料 | EVDO | MGW媒體網關資料
    q2526c
    中級會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    積分 1016
    帖子 12
    威望 3064 個
    禮品券 0 個
    專家指數 0
    注冊 2008-5-11
    專業(yè)方向  網絡優(yōu)化
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-05-16 23:48:49 
    希望下載下來學習yixia

    對本帖內容的看法? 我要點評

     
    [2分鐘擁有VIP權限和充足威望,可下載站內任何資料] [快速找到一份高薪的通信行業(yè)職位]
    dongaifly
    金牌會員
    鎵嬫満鍙風爜宸查獙璇? style=


     發(fā)短消息    關注Ta 

    財富勛章·財運連連   財富勛章·鉆石王老五  
    積分 7656
    帖子 68
    威望 5273 個
    禮品券 18 個
    專家指數 0
    注冊 2007-11-12
    專業(yè)方向 
    回答問題數 0
    回答被采納數 0
    回答采納率 0%
     
    發(fā)表于 2008-05-17 19:20:08 
    希望搞個截圖出來看下

    對本帖內容的看法? 我要點評

     
    [2分鐘擁有VIP權限和充足威望,可下載站內任何資料] [快速找到一份高薪的通信行業(yè)職位]

    快速回復主題    
    標題
    內容
     上傳資料請點左側【添加附件】

    (勾選中文件為要刪除文件)


    當前時區(qū) GMT+8, 現(xiàn)在時間是 2025-05-28 18:49:06
    渝ICP備11001752號  Copyright @ 2006-2016 mscbsc.com  本站統(tǒng)一服務郵箱:mscbsc@163.com

    Processed in 1.037857 second(s), 42 queries , Gzip enabled
    TOP
    清除 Cookies - 聯(lián)系我們 - 移動通信網 - 移動通信論壇 - 通信招聘網 - Archiver