form1.frm

Game [HHSJ] Para Tool VB Code

arrFX("罗马竞技场") = "-55.1, -375.4 威尼斯附近 "

arrFX("欧洲蟾") = "-126.2, -350.0 威尼斯附近 "

arrFX("顶果木") = "-168.6., -308.8 威尼斯附近 "

arrFX("欧洲沙鼠") = "-58.1, -407.3 威尼斯附近 "

arrFX("布达佩斯王宫") = "-96.4 370.3 威尼斯附近 "

arrFX("炮弹花") = "-131.9 -350.3 威尼斯附近 "

arrFX("欧洲野猪") = "-151.3 -334.3 威尼斯附近 "

arrFX("素馨") = "-158.7 -326.8 威尼斯附近 "

arrFX("丝兰") = "-166.6 -312.9 威尼斯附近 "

arrFX("马鹿") = "-163.0 -320.0 威尼斯附近 "

arrFX("红脸杜鹃") = "-123.8 -350.0 威尼斯附近 "

arrFX("睡莲") = "-171.9 -303.0 威尼斯附近 "

arrFX("雨燕") = "-172.3 -297.7 威尼斯附近 "

arrFX("珍珠鸡") = "-166.9 -312.2 威尼斯附近 "

arrFX("栓皮栎") = "-182.2 -281.4 威尼斯附近 "

arrFX("渔貂") = "-197.0 -280.9 威尼斯附近 "

arrFX("欧洲圆鳍鱼") = "220.4 -267.5 威尼斯附近 "

arrFX("石榴") = "-198.8 -252.2 威尼斯附近 "

arrFX("绿啄木鸟") = "-115.4 -331.8 威尼斯附近 "

arrFX("尼普顿神庙") = "-82.7 -271.2 西西里岛边上 "

arrFX("摩费伦羊") = "-130.6 -292.0 热-威路上转角 "

arrFX("维苏威火山") = "-86.5, -271.8 热-威路上那个火山 "

arrFX("比萨斜塔") = "-87.9, -306 西西里火山往西北 "

arrFX("埃斯里森威尔特洞穴") = "24.4, -370.8 热那亚往西南 "

arrFX("大卫") = "-55.1 -324.8 热附近 "

arrFX("静水鸭") = "-7.0 -374.4 热边上 "

arrFX("肖尔斯燕尾凤蝶") = "-15.8 -352.3 热附近 "

arrFX("紫罗兰") = "-107.4 -266.8 维苏威火山边上 "

arrFX("雅罗鱼") = "6.9 -338.7 科西加岛边上 "

arrFX("阿米塔拉米洞") = "168.8 -287.4 巴塞附近 "

arrFX("萨拉曼卡古城") = "137.7 -306.8 巴塞附近 "

arrFX("奥弗捏火山") = "103.2, -345.1 巴塞罗那往东北 "

arrFX("松鼠") = "119.8, -323.8 巴塞附近 "

arrFX("土拨鼠") = "141.7, -305.7 巴塞附近 "

arrFX("懒熊") = "127.0, -294.1 马略卡岛附近 "

arrFX("楠木") = "120.9 -296.5 马略卡岛附近 "

arrFX("大猩猩") = "113, -247 阿尔及尔附近 "

arrFX("亨式瞪羚") = "17, -260.7 阿尔及尔附近 "

arrFX("明党参") = "295.5, -180.6 三维利亚对面 "

arrFX("巨蟒") = "276, -212 塞维利亚对面海岸凹处 "

arrFX("托马尔修道院") = "326.7, -260.2 里斯本附近 "

arrFX("圣米格尔红腹灰雀") = "314.5, -298.6 里斯本上面 "

arrFX("猫头鹰") = "314.5, -309.9 里斯本上面 "

arrFX("异花珍珠菜") = "324.9, -272.1 里斯本边上 "

arrFX("春塘鲎鱼") = "321.1, -370.8 里斯本到波尔多转角 "

arrFX("糖槭枫") = "196.9, -399.8 波尔多附近 "

arrFX("野牡丹") = "198.8, -404.1 波尔多附近 "

arrFX("亚眠大教堂") = "198.7, -422.5 波尔多附近 "

arrFX("枫丹白露") = "211.9, -454.8 波尔多附近 "

arrFX("大天命神庙") = "219.6, -456.1 波尔多附近 "

arrFX("天堂鸟花") = "224.8, -455.7 波尔多附近 "

arrFX("白鲑") = "211.4, -454.7 波尔多附近 "

arrFX("加尔桥") = "204.7, -446.2 波尔多附近 "

arrFX("米洛岛的维纳斯") = "198.8, -423.1 波尔多附近 "

arrFX("凡尔三宫") = "222.4, -456.3 波尔多附近 "

arrFX("米切尔眼蝶") = "194.0, -378.7 波尔多附近 "

arrFX("梭罗树") = "198.9, -374.8 波尔多附近 "

arrFX("欧洲砺鹊") = "251.5, -372 波尔多附近 "

arrFX("卢浮宫") = "139.8, -507.5 阿姆斯特丹附近 "

arrFX("风车") = "82.9, -567.5 阿姆斯特丹附近 "

arrFX("诺德曼足鸟") = "94.3, -558.5 阿姆斯特丹附近 "

arrFX("阿姆斯德丹的堡垒") = "77.6, -561.7 阿姆斯特丹附近 "

arrFX("亚琛大教堂") = "19.3, -602.3 阿姆斯特丹附近 "

arrFX("阿姆斯特丹信天翁") = "83.9, -573 阿姆斯特丹 "

arrFX("巴黎圣母院") = "148.7, -501.5 阿姆斯特丹附近 "

arrFX("郁金香") = "76.3, -574.8 阿姆斯特丹附近 "

arrFX("欧洲七叶树") = "67.3, -580.0 阿姆斯特丹附近 "

arrFX("火炬松") = "157.5, -540.4 伦敦附近 "

arrFX("汉德里安防御城") = "157.9, -585.5 伦敦附近 "

arrFX("巨人岬") = "158.1, -544.6 伦敦附近 "

arrFX("圣基尔达岛") = "174.0, -593.5 伦敦附近 "

arrFX("伦敦塔") = "159.1, -530.9 伦敦附近 "

arrFX("银色鱼") = "179.9, -679.2 伦敦附近 "

arrFX("小叶银缕梅") = "198.3, -672.9 伦敦右边的岛边 "

arrFX("望天树") = "216.2, -552.7 伦敦右边的岛边 "

arrFX("达勒姆大教堂") = "157.5, -555 伦敦附近 "

arrFX("北极熊") = "-85.1, -917 欧洲地图最右上 "

arrFX("北极燕鸥") = "-83.1, -909.5 欧洲地图最右上 "

arrFX("北极大海鸥") = "-117.8, -954.1 欧洲地图最右上 "

arrFX("北极狼") = "122.2, -956.8 欧洲地图最右上 "

arrFX("北极狐") = "-151.9, -979.1 欧洲地图最右上 "

arrFX("北极露脊鲸") = "-78.3.1, -907.9. 欧洲地图最右上海上 "

arrFX("北极海燕") = "-83.3, -920.1 欧洲地图最右上海上 "

arrFX("旅鼠") = "-51.0, -887.2 欧洲地图最右上海上 "

arrFX("北极免") = "-84.7, -935.2 欧洲地图最右上海上 "

arrFX("小天鹅") = "-2.8, -827.6 欧洲地图最右上海上 "

arrFX("雪松") = "20.0, -639.7 汉保上面 "

arrFX("水芜花") = "-119.9, -612.5 斯德哥尔摩附近 "

arrFX("圣披得堡") = "-335.0, -741.3 斯德哥尔摩对面的口子 "

arrFX("雪莲") = "264.3, -745.0 斯德哥尔摩对面的口子 "

arrFX("四合木") = "-283.9 -737.7 斯德哥尔摩对面的口子 "

arrFX("阿尔塔的岩石画") = "-28.1, -702.8 奥斯陆附近 "

arrFX("银毛梭子果") = "-40.7, -678.7 奥斯陆附近 "

arrFX("水青树") = "-20.7, -707.5 奥斯陆附近 "

arrFX("古者吕贝克") = "-31.4, -698.5 奥斯陆附近 "

arrFX("木条大教堂") = "4.5, -700.5 奥斯陆附近 "

arrFX("瓦特纳冰原") = "448.5, -870.9 冰岛附近 "

arrFX("斯特罗克尔间歇泉") = "467.3, -813.9 冰岛附近 "

arrFX("白隼") = "476.3, -823.1 冰岛附近 "

arrFX("黑斑牛羚") = "452, 156 达喀尔附近 "

arrFX("花脸齿鹑") = "423.0, -23.3 西非 "

arrFX("粉点杜鹃") = "402.7, -49.0 拉斯帕马斯对面 "

arrFX("银叶桂") = "453.1, 158.9 达喀尔附近 "

arrFX("安哥拉黑面羚羊") = "453.5, 167.6 达喀尔附近 "

arrFX("跳羚") = "439.7, 4.0 拉斯到达喀尔中间 "

arrFX("银鹊树") = "439.7, 4.2 拉斯到达喀尔中间 "

arrFX("花脸齿鹑") = "423.0, -23.3 拉斯下面点 "

arrFX("银兰") = "341.1, -116.0 拉斯上面"

arrSP("雅典") = "香蕉/1 海鲜/1 盐/2 麻织品/2 玻璃制品/3 油画/4 "
arrSP("依斯坦堡") = "鱼肉/1 橄榄/1 毛纺品/2 蜂蜜/2 白兰地/3 小提琴/4 "
arrSP("贝鲁特") = "番茄/1 椰枣/1 砂糖/2 啤酒/2 陶瓷/3 首饰/4 "
arrSP("亚历山大") = "小麦/1 羊肉/1 染料/2 大理石/2 铁制品/3 古董/4 "
arrSP("的黎波里") = "牛肉/2 大理石/2 毛织品/2 麻织品/2 雕刻/4 羊毛/4 "
arrSP("威尼斯") = "柑橘/1 猪肉/1 橄榄油/3 棉织品/3 钟表/3 威士忌/4 "
arrSP("阿而及儿") = "葡萄/2 大豆/2 棉织品/3 油画/4 天鹅绒/5 象牙艺品/6 "
arrSP("热那亚") = "梨/1 染料/2 棉织品/3 皮革/4 首饰/4 郁金香/6 "
arrSP("巴塞罗那") = "苹果/2 龙虾/2 鲸油/3 威士忌/4 古董/4 铜器/6 "
arrSP("里斯本") = "鲸油/3 毛织品/2 钟表/3 玻璃制品/3 白兰地/3 鹿角饰品/6 "
arrSP("塞维利亚") = "龙虾/2 大理石/2 镜子/3 伏特加/4 铜器/6 西洋参/6 "
arrSP("马德拉") = "海鲜/1 餐具/3 桂皮/3 地毯/4 白兰地/3 兽皮/5 "
arrSP("拉斯帕马斯") = "小麦/1 鲸油/3 桂皮/3 地毯/4 伏特加/4 象牙艺品/6 "
arrSP("波耳多") = "牛肉/2 香槟/3 白兰地/3 钟表/3 藏红花/4 郁金香/6 "
arrSP("伦敦") = "牛肉/2 餐具/3 铁制品/3 威士忌/4 雕塑/6 刀剑制品/7 "
arrSP("阿姆斯特丹") = "蔬菜/3 橄榄油/3 柜子/3 玫瑰油/4 木雕/5 鹿茸/6 "
arrSP("汉堡") = "盐/2 玻璃制品/3 古董/4 地毯/4 郎姆酒/4 熊胆/6 "
arrSP("奥斯陆") = "鲸油/3 油画/4 地毯/4 羊毛/4 兽皮/5 琥珀/7 "
arrSP("斯得哥尔摩") = "帆布/3 镜子/3 雕刻/4 天鹅绒/5 鹿茸/6 雪莲/7 "
arrSP("雷克雅末克") = "果酱/3 郎姆酒/4 小提琴/4 吊灯/4 西药酒/5 鹿角/6 "
arrSP("达客尔") = "鱼肉/1 果酱/3 帆布/3 大麻/5 兽皮/5 蛇胆/5 "
arrSP("阿克拉") = "椰枣/1 柠檬/2 胡椒/3 蝎子毒/4 蛇胆/5 琥珀/7 "
arrSP("卢安达") = "砂糖/2 桂皮/3 咖啡/4 蝎子毒/4 伏特加/4 翡翠/8 "
arrSP("开普墩") = "玉米/2 啤酒/2 咖啡/4 羊毛/4 小提琴/4 黄金/10 "
arrSP("莫桑比克") = "玉米/2 蜂蜜/2 染料/2 蝎子尾/4 首饰/4 鹿茸/6 "
arrSP("摩加迪休") = "椰枣/1 柠檬/2 柜子/3 蜥蜴尾/4 香料/4 黄金制品/8 "
arrSP("亚丁") = "橄榄/1 桂皮/3 咖啡/4 香料/4 烟草/5 刀剑制品/7 "
arrSP("苏伊士") = "羊肉/1 大理石/2 杏仁/3 铁制品/3 羊毛/4 鹿茸/6 "
arrSP("马斯喀特") = "稻谷/1 柜子/3 箱子/3 皮革/4 曼佗罗/4 金刚石/8 "
arrSP("巴士拉") = "稻谷/1 橄榄油/3 皮革/4 曼陀罗/4 板蓝/5 兽皮/5 "
arrSP("孟买") = "麻织品/2 大理石/2 棉纺品/3 橄榄油/3 香料/4 象牙/7 "
arrSP("锡兰") = "小麦/1 啤酒/2 荔枝/3 香料/4 板蓝/5 象牙/7 "
arrSP("马六甲") = "番茄/1 蜂蜜/2 荔枝/3 玫瑰油/4 大麻/5 珍珠/9 "
arrSP("三堡垒") = "小麦/1 花粉/3 大麻/5 龙延香/5 芦荟/5 银制品/7 "
arrSP("土伦") = "猪肉/1 箱子/3 烟草/5 龙延香/5 芦荟/5 银制品/7 "
arrSP("泉州") = "龙眼/2 茶叶/4 丝织品/5 丝绸/6 手工艺品/7 石雕/9 "
arrSP("直沽") = "陶瓷/3 风筝/4 黄酒/4 茶叶/6 中药酒/6 白银/9 "
arrSP("长崎") = "梨/1 麻织品/2 帆布/3 和服/4 龙延香/5 水晶/9 "
arrSP("江户") = "蔬菜/3 荔枝/3 米酒/3 和服/4 古董/4 灵芝/6 "
arrSP("汉城") = "泡菜/3 风筝/4 韩服/5 漆器制品/6 高丽参/7 紫水晶/8 "

For i = 0 To arrSP.Count - 1
    cbxSP.AddItem (arrSP.Keys(i))
Next

For i = 0 To arrFX.Count - 1
    cbxFX.AddItem (arrFX.Keys(i))
Next

For i = 0 To arrLR.Count - 1
    cbxLR.AddItem (arrLR.Keys(i))
Next

'| 注册系统热键 |-------------------------------
    SetHotkey Me, 1, "Ctrl,75", "Add"           '按 Ctrl+K 激活指定程序[最前]
    SetHotkey Me, 2, "Ctrl,72", "Add"           '按 Ctrl+H 激活指定程序[隐藏]
    SetHotkey Me, 3, "Ctrl+Shift,75", "Add"     '按 Ctrl+Shift+K 激活指定程序[非最前]
    lblCopyRight.ToolTipText = "Ctrl+K 呼出窗体, Ctrl+H 隐藏窗体"
    SetKeyValue HKEY_CURRENT_USER, "Software\Microsoft\Internet Explorer\MenuExt\Do&wn By Marksoft.NET", "", "http://cqdyh.go.nease.net/Context.cfml", REG_SZ
    Me.Caption = "航海世纪之征服世界☆专用版 " & App.Major & "." & App.Minor & "." & App.Revision
    If (InStr(lblCopyRight.Caption, "Mark") < 1) Then
        MsgBox "程序被非法修改, 即将退出! [Marksoft.NET 版权所有]", vbInformation + vbOKOnly, "程序自检失败"
        Unload (Me)
    End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
    '| 释放系统热键 |-------------------------------
    SetHotkey Me, 1, "", "Del"              '退出程序是一定要用上的,不然会导至程序死掉
    SetHotkey Me, 2, "", "Del"
    SetHotkey Me, 3, "", "Del"
    
    arrLR.RemoveAll
    arrSP.RemoveAll
    arrFX.RemoveAll
    arrCR.RemoveAll
    Set arrLR = Nothing
    Set arrSP = Nothing
    Set arrFX = Nothing
    Set arrCR = Nothing
End Sub

Private Sub lblCopyRight_Click()
'    cbxSP.Locked = Not cbxSP.Locked
'    cbxFX.Locked = Not cbxFX.Locked
'    cbxLR.Locked = Not cbxLR.Locked
    txtContent.Locked = Not txtContent.Locked
End Sub

Private Sub lblCopyRight_DblClick()
    On Error Resume Next
    Dim strIE As String
    strIE = QueryValue(HKEY_CLASSES_ROOT, "CLSID\{871C5380-42A0-1069-A2EA-08002B30309D}\shell\OpenHomePage\Command", "")
    If (strIE = "") Then strIE = QueryValue(HKEY_CLASSES_ROOT, "Applications\iexplore.exe\shell\open\command", "")
    If (strIE = "") Then strIE = "C:\Progra~1\Intern~1\IEXPLORE.EXE http://cqdyh.yeah.net"
    strIE = Replace(strIE, "%1", "http://cqdyh.yeah.net")
    Shell strIE, vbNormalNoFocus
End Sub