藏宝湾网游单机站

 找回密码
 注册

QQ登录

只需一步,快速开始

★【我是大主宰SF★神将三国SF】【变态页游】★

★【0.1折】★【变态网页游戏私服】★

★神将三国网页版上线送V5 5w元宝 5000w铜币 我是大主宰上线满v,80万元宝,小怪都爆元宝,耐玩长久稳定★

【原始传奇SF/魔域永恒SF】【0.1折手游】

★【原始传奇SF/魔域永恒SF】【0.1折手游】★

★『战online+原始传奇+维京传奇+血饮龙纹+魔域永恒+斗罗大陆』一刀99999999999刀刀光柱★

★【星空石器3.0】复古端游 有挂限制2开★

★★【星空石器3.0】复古端游 有挂限制2开★★

★【石器时代3.0纯PC-有挂限制2开】儿时怀旧游戏每晚活动多多 组队玩法 单人玩法 应有尽有 无需繁琐182任务★

★【卓越之剑】访官微变轻氪★
★【卓越之剑】访官微变轻氪★

★【卓越之剑】访官微变轻氪-欢迎技术交流★

★梦幻微变仿官长久更新★

★梦幻微变仿官长久更新★

★梦幻西游微变耐玩 ★五一活动★超级技能★超级兽决★打造成神★离线挂机★长期更新★★

★0.1折!独家超低折扣手游★

★0.1折!独家超低折扣手游★

★0.1折!0.1折!0.1折!独家超低折扣手游公益服,首冲续充全部0.1折★

★【九阴真经】端游私服仿官★

★【九阴真经】端游私服仿官★

★国产大型武侠端游《九阴真经》SF问世了。2017年至今-【稳定】充值1比10,活跃就送至尊风物志,跨服雪域应有尽有。★

★5.1全新开区梦幻放置游戏★

★5.1全新开区梦幻放置游戏★

★可白嫖 上班摸鱼类 放置文字梦幻游戏(三端互通)qq群836110944★

★DNF★全职业平衡★公益服★
★DNF★全职业平衡★公益服★

【dnf86版本】【怀旧服】【全职业平衡】【非变态服】【非商业服】【868027375】

★★微变仿官爽玩养老服★★

★微变仿官爽玩养老服★

★上线松超多抽奖仙玉银子,长久稳定服,群号:489527989★

★【大话月卡服】不免费但不贵★

★【大话月卡服】不免费但不贵★

★【大话西游2★2024最新版】稳定耐玩★只合不关★人气超旺★

★上班族专属★休闲放置★充值可打★

★ ★上班族专属★休闲放置★充值可打★★

★[挂机游戏] ===〓正常运营3年〓新区来袭-白嫖神作-纯收菜挂机游戏-可交易 ========★

【梦幻西游】★端游领先版★
★【梦幻西游】★端游领先版★★

【梦幻西游★官方泄露版】----4月新区,无定制,无抽奖,全新战锦,每周更新一次。

★【梦幻国度】★端游★公益服★

★【梦幻国度】★端游★公益服★

★【梦幻国度】【端游】【全新版本公益服】【一样的童年不一样的游戏】【群63417379】★

★梦幻西游★仿官公益无充值★

★梦幻西游★仿官公益无充值★

★【情缘梦幻西游★独家仿官纯公益版】----2024新区,无定制,持续推广更新。推荐指数:★★★★★★★★★★★

【梦幻★仿官★刚开一秒·全网独家玩法】

★【梦幻★仿官★刚开一秒·全网独家玩法】★

★★【仿官服4月23日下午1点内测结束,正式开服】★★

★【手游端游一键全自动搭建脚本】★

★【手游端游一键全自动搭建脚本】★

★【手游端游一键全自动搭建脚本】搭建游戏解放双手小白用了都说好★

★手游内部充值0.05折千款手游★

★手游内部充值0.05折千款手游★

★0.1折直充数千款手游可申请内部充值0.05折!超低折扣手游,全版本传奇手游--仙侠--古风-卡牌-角色扮演-二次元-全题材手游都支持内部充值0.05折★

★【梦幻西游】2008纯复古★

★【梦幻西游】2008纯复古★

★ 【五一新区】 【15门纯复古】 【公益服】【打金】★

★5月12全新开服放置传奇★

★5月12全新开服放置传奇★

★可白嫖 上班摸鱼类 放置文字传奇游戏(放置休闲)qq群756025698 ★

★微变梦幻西游 ☆万件装备版★

★微变梦幻西游 ☆万件装备版★

★★【梦幻西游】万件装备版☆可挂机☆PK也有奖励☆活动多多☆真实单开多倍爆率★★

★承接推广★

★承接推广★

★★承接推广★★

★【热血传奇&逍遥公益】(端游)★

★【热血传奇&逍遥公益】(端游)★

★2003热血传奇,还给您当年的满腔热血,留住您当年的情怀传奇!★

【百款GM页游+1折手游,上线送满级VIP】

★【百款GM页游+1折手游,上线送满级VIP】★

★【百款变态页游SF】【变态手游SF】【安卓+IOS手游】【上线免费顶级VIP】★

大话西游搬砖服,稳定耐玩★只合不关
★大话西游搬砖服,稳定耐玩★只合不关★

★【经典西游★2024最新版】稳定耐玩★只合不关 推荐指数:★★★★★★ 自动常规任务、地煞星、魔王窟、炼化★

★承接推广★

★★承接推广★★

★★承接推广★★

★承接推广★

★承接推广★

★承接推广★

★★承接推广★★

★承接推广★

★承接推广★

查看: 18386|回复: 25

[原创] 鉴于有的朋友需要,再次发布美丽世界-Nage 架设教程(附架设简化脚本及客户端)

[复制链接]
发表于 2012-3-15 06:07:12 | 显示全部楼层 |阅读模式
本帖最后由 zhitianjiao 于 2012-4-3 17:10 编辑

一、架设Nage的必备环境

  1. 操作系统:win2000或2003;
使用虚拟机架设win2000的朋友:虚拟机请用 Virtual PC 2007 ,再下载win2000操作系统,安装2000操作系统。
物理机与虚拟机之间的文件共享,请用Virtual PC 2007 软件界面上附带的辅助功能;
物理机与虚拟机之间的网络通讯,请自己百度。


  2. 数据库:完整安装的sql 或 绿色免安装版的Gsql  均可以。
  3. 确定你的服务器使用的ip地址:如果使用127.0.0.1作为地址 则什么都不需设置; 如果是192.168.1.xxx 局域网ip则需要进入操作系统——网络连接——本地网络 , 右键[本地网络]设置ip地址。
  4. 美丽世界Nage 6.0服务端;
  5. 美丽世界客户端。( 如果你找不到客户端可以到此下载:《美丽世界N-age》之生化战场客户端 文件大小:350M http://115.com/file/c2mvhmph   如果你有就不必浪费时间下载 )




二、服务端的架设


首先将服务端.rar解压你的D盘 , 并将你的客户端游戏程序安装。

第1步,创建数据库连接及还原数据库内容。
  运行sql数据库:
(1) 建立数据源ODBC:  运行 odbc注册.reg文件  ( 这个文件最好用我的,我放在第3楼 );
(2) 分别建立Nage,NageManager,NageBoard,NageMember 四个数据库;
(3) 分别还原 服务端/附件目录 内的4个文件: Nage.dat,NageManager.dat,NageBoard.dat,NageMember.dat。


第2步,做4项设置:修改服务端文件的ip地址、修改数据库中的服务器ip、添加游戏账号、创建一个临时表
  用我的vbs脚本按提示操作 , 可以不关心怎样做这4项修改。
  请到第2楼 将代码保存到:  服务端根目录/xxx.vbs ,双击运行这个vbs脚本。

  在弹出的窗口,初次运行 你就输入 1 2 3 4  ,小脚本帮你完成上述4项设置。(注意修改xx.vbs 里面的sql账号和密码,否则无法正确连接sql





第3步:手动修改一个文件:服务端/op_server/serinfo.ini 找到两个DB 字段
   1  11000  11         DB        nage-11            自己SQL服务器的名字(比如我的是(Local)\GSQL )    1433
   44 11200   11         DB        nage-11          自己SQL服务器的名字,同上    1433


第4步,覆盖客户端补丁。将      服务端目录/附件/登陆器      内的所有文件覆盖到    游戏客户端安装目录   。

第5步,修改   客户端登陆器程序  的ip地址,指向你的服务器ip地址。( 最好先备份一下Me-NAge.exe  )

  下载Uedit编辑器软件, 打开 游戏客户端目录/Me-NAge.exe (这是登陆器) .  打开后按快捷键Ctrl + H 再按 Ctrl + F 搜索 , 勾选以正则表达式( Perl 方式)搜索 ( 在搜索界面——高级——正则引擎上选择 Perl  ),输入 \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}  查找  ,找到后替换为你的服务器ip ,然后保存一下。




经过上述5步操作,运行    服务端/启动器.bat  , 启动游戏服务端。
最后进入  客户端目录/窗口.bat   运行游戏客户端了。

点评

感谢分享,宝湾有你更精彩!  发表于 2012-3-15 17:28

评分

参与人数 1宝物 +1 收起 理由
关东唐 + 1 很给力!

查看全部评分

发表于 2012-3-15 17:31:39 | 显示全部楼层
本帖最后由 关东唐 于 2012-3-15 17:33 编辑

感谢分享,现在给予高亮并编辑入本版置顶帖中。望楼主继续努力。

很详细的教程,看出楼主很用心,特+1宝物的奖励!
 楼主| 发表于 2012-3-15 06:55:02 | 显示全部楼层
我修改后的一份比较准确的  NAGE服务器架建初步教程
1、建立数据库
(1) 分别建立Nage,NageManager,NageBoard,NageMember
(2) 分别还原Nage.dat,NageManager.dat,NageBoard.dat,NageMember.dat。
2、建立ODBC
        运行odbc注册.reg文件
  
4、修改服务器端目录里所有*.txt和*.INI文件为自己服务器的IP。(127.0.0.1)
   
  (修改 /op_server/serinfo.ini 找到两个DB 类型的 )
   1  11000  11         DB        nage-11            自己SQL服务器的名字    1433
   44 11200   11         DB        nage-11            自己SQL服务器的名字    1433
5、修改数据库Nage里ServInfo表里的IP:  查询sql语句执行 update ServInfo set servIP='127.0.0.1'
   6、修改NageMember数据库中Loginlog_200522到Loginlog_2005215六个中任何一个为你的系统时间,否则登陆游戏会出现"服务器维护".
7、运行服务端/启动器.bat。
8、将 附件/登陆器 复制到美丽世界游戏安装目录,运行"窗口.bat"或者"全屏.bat"
9、客户端IP在 002CE220 上下范围里修改。
修改Me-NAge.exe  UltraEdit 打开 搜索 192.  看见7个ip,改为你架设的服务器ip地址。
GM解决办法
和ID有关
CHAR INFO
关于卡号解决办法
在人物表里的最后 NATT那!改成0就不卡号了!
外网IP如何设置
1:修改agent_server文件里的serverlist.txt文本
改为OWN_SERVER AGENT_SERVER   127.0.0.1 7001 [外网IP] 100
2:修改agent_server_board文件里的serverlist.txt文本
改为OWN_SERVER AGENT_SERVER   127.0.0.1 7999 [外网IP] 700
3:修改board_server文件里的serverlist.txt文本
改为OWN_SERVER BOARD_SERVER  127.0.0.1 10001 [外网IP] 300
4:修改login_server文件里的serverlist.txt文本
改为OWN_SERVER LOGIN_SERVER  127.0.0.1 6001 [外网IP] 300
关于卡号解决办法
在人物表里的最后 NATT那!改成0就不卡号了!
怎么在SQL里建立ID
在NageMember数据库的chr_log_info表中添加帐号下面是必填的[其它可以不填]:
propid       随意输入一组数字,不能与上面的数字重复
id_loginid   登陆游戏的帐号
id_passwd    登陆游戏的密码
sta_num      填1
id_regdate   注册时间
type_num     填1
id_real      填0
bill         填151 (帐户类型:151是正常登陆帐户,156是帐户点数不足,0大概是还没激活的帐户)
简单解决OPSERVERCan't Connect to SQL Server for Admin ID的问题!
--------------------------------------------------------------------------------
解决办法一:
1、用UE打开OPSERVER的执行文件修改里面的IP为127.0.0.1,DATABASE=为NageManage
2、启动OPSERVER,他就出现Can't Connect to SQL Server for Admin ID这个错误!
3、进入控制面板-管理工具-ODBC,系统DSN,看到里面就会出现两个数据源,1个是NageLocalXX,NageBoardXX,XX为数字,一般为01或10,双击NageLocalXX,点一下步,在用户验证哪里选择NT身份验证,下一步,然后完成,测试连接,如果连接正常的话就OK了!
4、运行OPSERVER,肯定不会出错了!
--------------------------------------------------------------------------------
解决办法二:
出现这个问题后,打开"企业管理器",打开"SQL Server组",点右键删除原来的SQL Server注册,然后在"SQL Server组"点右键"新建SQL Server注册",在服务器那儿输入"(local)",然后点确定,是不是能打开数据库了?数据库没改变,所以我们不用重新还原了.
再到控制面板,进ODBC的"系统DSN",点击原来的那些选"配置",把服务器那儿全改成"(local)",其它不变.
进入服务器端"op_server"文件夹,看一下servinfo.txt这个文件,DB这一栏还是填入你原来的服务器名,不要填现在的(local).
(如果你原来改过这里,那就可以不改了,如果原来没改过,那你打开"服务管理器"看一下就知道你的服务器名了.)
这时你再开启所有服务器端,用客户端测试,用帐号darr密码123457试试,是不是在维护中?那就行了~~
测试GM指令
GM公告:/GM公告 内容
GM隐身:/GM透明
GM显身:/GM不透明
移动:/移动 XXX XXX
拉人:/移动 XXX XXX ID
CharInfo表解释
baseskill     所属角色职业
7 = 神行
6 = 超能
2 = 持械
0 = 武術
charName     所属角色名字
charNo     似乎是登陆改角色的次数
basemap     角色出生地方
1 = 波本
3 = 自由
hero 这个我不用说了吧   
1 = 开启
0 = 关闭
lv     所属角色等级
Exp     所属角色等级经验
eclv   所属角色贸易等级
ecExp   所属角色贸易等级经验
HP SP 血和魔法值
stm     精力值
str     力量
Dex     防御力
money   金钱(身上)
bankmoney   银行存款
cmap   角色所在地图
1 = 波本
3 = 自由
教你如何在商店加入武器 裝備 機車
先找尋商家代碼如波本廣場武器店 代碼4
ownerID 為商店代碼 回傳StoreItem的資料
storeid 商店代碼 itemid 武器或是裝備代碼
maxstored 最大存貨量 stored 目前庫存量後面的都填0
itemid 自行找 iteminfo 裡的資料
機車行的代碼21 所有機車鑰匙代碼 41501 ~ 41517
自行加入後 機車行 就有的買機車了  
商店设置在storeitem掉宝在npcdrop
storeitem跟storeinfo和iteminfo有关npcdrop跟npcinfo和iteminfo有关
关于外网IP设置
说明:红色部分的218.23.159.122就是你的外网IP
1:修改agent_server文件里的serverlist.txt文本改为OWN_SERVER AGENT_SERVER 127.0.0.1 7001 218.23.159.122 100
2:修改agent_server_board文件里的serverlist.txt文本改为OWN_SERVER AGENT_SERVER 127.0.0.1 7999 218.23.159.122 700
3:修改board_server文件里的serverlist.txt文本改为OWN_SERVER BOARD_SERVER 127.0.0.1 10001 218.23.159.122 300
4:修改login_server文件里的serverlist.txt文本改为OWN_SERVER LOGIN_SERVER 127.0.0.1 6001 218.23.159.122 300
就这么简单,其他IP不用修改用单机就行有路由器的我没试过,不大清楚,你可以试着将 100 300 700端口打开看看。就这些了。祝大家早日进入自己的服务器。。

 楼主| 发表于 2012-3-15 06:44:40 | 显示全部楼层
本帖最后由 zhitianjiao 于 2012-4-3 17:08 编辑

将代码保存为:win2000自动建立ODBC.reg      放在游戏服务端目录,双击就自动导入ODBC.

请自己将里面的 "Server"="(Local)"  替换为你的【数据库服务器】名字( 如果使用的是GSQL绿色版,就改为 (Local)/GSQL   )。

  1. Windows Registry Editor Version 5.00

  2. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI]

  3. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources]
  4. "LocalServer"="SQL Server"
  5. "NageBoard"="SQL Server"
  6. "NageBoard10"="SQL Server"
  7. "NageLocal"="SQL Server"
  8. "NageLocal10"="SQL Server"
  9. "NageLogin"="SQL Server"
  10. "NageManager"="SQL Server"
  11. "NageSystem"="SQL Server"


  12. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageBoard]
  13. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  14. "Description"="NageBoard"
  15. "Server"="(Local)"
  16. "Database"="NageBoard"
  17. "Trusted_Connection"="1"

  18. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageBoard10]
  19. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  20. "Description"="NageBoard10"
  21. "Server"="(Local)"
  22. "Database"="NageBoard"
  23. "Trusted_Connection"="1"

  24. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageLocal]
  25. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  26. "Description"="NageLocal"
  27. "Server"="(Local)"
  28. "Database"="Nage"
  29. "Trusted_Connection"="1"

  30. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageLocal10]
  31. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  32. "Description"="NageLocal10"
  33. "Server"="(Local)"
  34. "Database"="Nage"
  35. "Trusted_Connection"="1"

  36. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\LocalServer]
  37. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  38. "Description"="LocalServer"
  39. "Server"="(Local)"
  40. "Trusted_connection"="1"
  41. "UseProcForPrepare"="Yes"

  42. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageLogin]
  43. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  44. "Description"="NageLogin"
  45. "Server"="(Local)"
  46. "Database"="NageMember"
  47. "Trusted_Connection"="1"

  48. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageManager]
  49. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  50. "Description"="NageManager"
  51. "Server"="(Local)"
  52. "Database"="NageManager"
  53. "Trusted_Connection"="1"

  54. [HKEY_LOCAL_MACHINE\SOFTWARE\ODBC\ODBC.INI\NageSystem]
  55. "Driver"="c:\\winnt\\System32\\SQLSRV32.dll"
  56. "Description"="NageSystem"
  57. "Server"="(Local)"
  58. "Database"="Nage"
  59. "Trusted_Connection"="1"
复制代码
 楼主| 发表于 2012-3-15 06:35:23 | 显示全部楼层
本帖最后由 zhitianjiao 于 2012-3-16 03:40 编辑

将以下代码保存为 xxx.vbs文件, 放在根目录

双击xx.vbs脚本后,会弹出窗口


初次启动服务端请填入 1 2 3 4 。之后,每天内启动服务端都需要选第 4项功能,(这是每天建立一个临时表,游戏才能正常运行)


你还需要修改代码内的sql账户密码:
        sqlname = "sa"   ' // 这里修改mssql的账号密码
        sqlpass = "123456"

请拷贝以下代码:


  1.         ' /*************************

  2.         '   by  橘 : zhitian@studio

  3.         ' *************************/

  4.         Option Explicit         

  5.         Dim sqlname , sqlpass  
  6.         Dim conn , statu , action , i , server_ip , sqlinfo

  7.         ' 填写: sqlser账号 密码
  8.         sqlname = "sa"   ' // 这里修改mssql的账号密码
  9.         sqlpass = "123456"



  10.         ' 功能选择
  11.         action = InputBox("请选择执行的功能:( 多个用空格分开 ) " & Chr(13) & Chr(10) & "数字1 【修改服务器ip】 " & Chr(13) & Chr(10) & "数字2 【替换文件ip】" & Chr(13) & Chr(10) & "数字3 【添加游戏账号】" & Chr(13) & Chr(10) & "数字4 【创建当天新表(数据库内类似Loginlog_200522的表名)】", "执行功能" , "1 2 3 4" )

  12.         If action = "" Then
  13.                 MsgBox "没有执行任何动作."
  14.         else
  15.                 action = Split( action , " " )
  16.                 set conn = CreateObject("ADODB.Connection")

  17.                 For Each i In action

  18.                         Select Case Trim( i )
  19.                                 Case 1
  20.                                         ' 执行更改服务器ip
  21.                                         server_ip = changeserver( sqlname , sqlpass , conn )
  22.                                 Case 2         
  23.                                         ' 修改本地文件内的ip
  24.                                         replace_ip "./" , server_ip
  25.                                         ' 提示
  26.                                         msgbox "文件内的ip地址修改完毕" , 64 , "提示"  
  27.                                 Case 3
  28.                                         ' 执行添加角色函数
  29.                                         addmember sqlname , sqlpass , conn
  30.                                 Case 4
  31.                                         createtable( conn )
  32.                                 Case 5
  33.                                         testodbc( conn )
  34.                                 Case 6
  35.                                         getComputerName
  36.                                 Case 7
  37.                                         createodbc
  38.                         End select
  39.                 next
  40.                 Set conn = Nothing
  41.         End If


  42.         ' /**************** 函数区域 *****************/


  43.         ' ###### 更改服务器ip函数
  44.         Function changeserver( sqlname , sqlpass , conn )

  45.                 Dim serverip , regEx , tmp , statu ' 状态
  46.                 serverip = InputBox( "请输入你的游戏服务器ip:", "您现在执行的是 修改数据库servinfo的ip字段" , "192.168.1.100" )

  47.                 statu = checkip( serverip )
  48.                 If statu = 0 Then
  49.                         Exit Function
  50.                 End if

  51.                 ' 建立sql连接 .数据库驱动连接方法
  52.                 ' 打开Nage数据库
  53.                 conn.Open "Database=Nage;uid=" & sqlname & ";pwd=" & sqlpass & ";Driver={SQL Server};server=localhost"

  54.                 If conn.State = 0 Then
  55.                         statu = 0
  56.                         MsgBox "连接数据库失败," & Chr(13) & Chr(10) & "请检查sqlser.exe是否运行," & Chr(13) & Chr(10) & "以及数据库账号和密码是否正确." , 53 , "连接数据库提示"
  57.                 Else
  58.                         ' 更新ip
  59.                         conn.Execute "update ServInfo set servIP='" & serverip & "'"
  60.                         statu = serverip      
  61.                         ' 提示
  62.                         msgbox "数据库内的服务器ip修改完成" , 64 , "提示"
  63.                 End If

  64.                 ' 关闭数据库连接
  65.                 conn.Close

  66.                 ' 函数返回值
  67.                 changeserver = statu

  68.         End function


  69.         ' ###### 查找替换ip程序
  70.         Sub replace_ip( op_path , server_ip )
  71.                 Dim fso , current , folder , file , fp
  72.                 Dim regEx , suffix , tempstr , statu

  73.                 ' 如果没有server_ip则提示输入 , 否则使用server_ip的值
  74.                 If server_ip = "" Then
  75.                         server_ip = InputBox("请输入服务器ip地址:", "修改文件内的所有ip" , "192.168.1.100" )
  76.                 Else                                       
  77.                 End If

  78.                 ' 检查输入的ip地址的合法性
  79.                 statu = checkip( server_ip )
  80.                 If statu = 0 Then
  81.                         Exit sub
  82.                 End if

  83.                 ' ip地址 正则表达式
  84.                 Set regEx = New RegExp
  85.                 regEx.Pattern = "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}"
  86.                 regEx.Global = True

  87.                 ' fso对象
  88.                 Set fso = CreateObject("Scripting.FileSystemObject")
  89.                 set current = fso.GetFolder( op_path )
  90.            
  91.                 ' 处理第一层目录
  92.                 For Each file In current.Files              

  93.                         ' 只处理txt和ini文件
  94.                         suffix = Lcase( mid( file , instrrev( file , "." ) + 1 ) )
  95.                         If (suffix = "txt") Or (suffix = "ini") Then

  96.                                 ' 打开文件
  97.                                 set fp = fso.OpenTextFile( file, 1, True )
  98.                                 On Error Resume next

  99.                                 ' 读取文件 , 正则替换 , 写入文件
  100.                                 tempstr = fp.Readall

  101.                                 If regEx.test( tempstr ) Then
  102.                                         MsgBox file
  103.                                         tempstr = regEx.Replace( tempstr , server_ip )
  104.                                         set fp=fso.OpenTextFile( file, 2 , False , -2 )
  105.                                         fp.Write tempstr
  106.                                 End If
  107.                                 fp.close
  108.                         End if
  109.                 Next

  110.                 ' 递归处理 子目录
  111.                 for each folder in current.subfolders
  112.                         Call replace_ip( folder.path , server_ip )
  113.                 next
  114.                 set fso=nothing

  115.         End Sub
  116.         

  117.         ' ###### 添加角色函数
  118.         Function addmember( sqlname , sqlpass , conn )

  119.                 Dim is_exist , u_input , uname , upass , statu
  120.                 Dim rand_ppid

  121.                 u_input = InputBox( "您现在执行的是建立角色功能" & Chr(13) & Chr(10) & "请输入 游戏账号和密码 " & Chr(13) & Chr(10) & " (限字母和数字) 用空格分开:", "建立游戏账号" )
  122.                 u_input = Split( u_input , " " )

  123.                 ' 返回下标最大值,判断长度
  124.                 If UBound( u_input ) < 1 Then
  125.                         MsgBox "您只填写了1项,至少要填写2项内容,用空格分开."
  126.                         Exit Function
  127.                 End if

  128.                 uname = u_input(0)
  129.                 upass = u_input(1)

  130.                 ' 打开NageMember表
  131.                 conn.Open "Database=NageMember;uid=" & sqlname & ";pwd=" & sqlpass & ";Driver={SQL Server};server=localhost"

  132.                 If conn.State = 0 Then
  133.                         statu = 0
  134.                         MsgBox "连接数据库失败," & Chr(13) & Chr(10) & "请检查sqlser.exe是否运行," & Chr(13) & Chr(10) & "以及数据库账号和密码是否正确." , 53 , "连接数据库提示"
  135.                 Else
  136.                         ' 查询账号是否存在
  137.                         Set is_exist = conn.Execute( "SELECT count( id_loginid ) FROM chr_log_info WHERE id_loginid='" & uname & "'" )

  138.                         If is_exist.recordcount > 0 then
  139.                                 MsgBox "游戏账号: "  & uname & " 已经存在.", 53 , "账号提示"
  140.                                 statu = 0
  141.                         Else
  142.                                 rand_ppid = myrand()
  143.                                 ' 建立 游戏账户 此3项不能重复(随机数id,账号,密码)
  144.                                 conn.Execute "insert into chr_log_info( propid , id_loginid , id_passwd , sta_num , type_num , id_real , bill ) values(  " & rand_ppid & " , '" & uname & "' , '" & upass & "' , 1 , 1 , 0 , 151 )"
  145.                                 statu = 1                        
  146.                         End If
  147.                 End If

  148.                 ' 关闭数据库连接
  149.                 conn.Close           

  150.                 ' 提示
  151.                 If statu = 0 Then
  152.                         msgbox "角色添加失败!" , 64 , "提示"
  153.                 Else
  154.                         MsgBox "角色添加成功!" , 64 , "提示"
  155.                 End if

  156.                 ' 返回值
  157.                 addmember = statu
  158.         End Function

  159.    
  160.         Function createtable( conn )
  161.                 Dim newtable , is_exist

  162.                 ' 打开NageMember表
  163.                 conn.Open "Database=NageMember;uid=" & sqlname & ";pwd=" & sqlpass & ";Driver={SQL Server};server=localhost"
  164.                 If conn.State = 0 Then
  165.                         statu = 0
  166.                         MsgBox "连接数据库失败," & Chr(13) & Chr(10) & "请检查sqlser.exe是否运行," & Chr(13) & Chr(10) & "以及数据库账号和密码是否正确." , 53 , "连接数据库提示"

  167.                 Else
  168.                         ' 新表名 (当天时间)
  169.                         newtable = "Loginlog_" & Year(Date()) & Month(Date()) & Day(Date())

  170.                           ' 查询 新表 是否存在
  171.                         Set is_exist = conn.Execute( "select count(*) from sysobjects where [name]='" & newtable & "' and xtype='U'" )

  172.                         If is_exist.Fields(0).Value <> 1 then
  173.                                 ' 复制的方式 建立新表
  174.                                 conn.execute "select * into " & newtable & " from Loginlog_200552 where 1=2"

  175.                         End If         
  176.                 End If

  177.                 ' 关闭数据库连接
  178.                 conn.Close
  179.                 MsgBox "更新数据库表名完成" , 64 , "ok"
  180.         End Function
  181.       

  182.         ' ###### 随机数
  183.         Function myrand( )
  184.                 Dim i
  185.                 Randomize
  186.                 i = Int((99999 - 10000 + 1) * Rnd() + 10000)
  187.                 myrand = i
  188.         End Function


  189.         ' ###### 检查ip地址合法性
  190.         Function checkip( serverip )
  191.                 Dim regEx , statu
  192.                 statu = 1

  193.                 If serverip = "" Then
  194.                         MsgBox "服务器ip地址不能为空." , 53 , "ip地址不合法!"
  195.                         checkip = 0
  196.                         Exit function
  197.                 End if

  198.                 Set regEx = NEW RegExp
  199.                 regEx.Pattern = "\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}"

  200.                 If Not( regEx.test( serverip ) ) Then
  201.                         MsgBox "您输入的服务器ip不正确." , 53 , "ip地址不合法!"
  202.                         statu = 0
  203.                 End If
  204.                 checkip = statu
  205.         End function

复制代码

评分

参与人数 1金币 +50 收起 理由
关东唐 + 50 很给力!

查看全部评分

发表于 2012-3-15 18:54:24 | 显示全部楼层
顶了
发表于 2012-3-15 19:14:38 | 显示全部楼层
看來在繁體中文上真的很難處理!
 楼主| 发表于 2012-3-16 04:01:03 | 显示全部楼层
本帖最后由 zhitianjiao 于 2012-3-16 04:03 编辑
关东唐 发表于 2012-3-15 17:31
感谢分享,现在给予高亮并编辑入本版置顶帖中。望楼主继续努力。

很详细的教程,看出楼主很用心,特+1宝 ...




多谢版主加分~真给力   {:soso_e113:}  {:soso__16984349925490629196_1:}
 楼主| 发表于 2012-3-16 04:05:59 | 显示全部楼层
quyan123456789 发表于 2012-3-15 18:54
顶了


  多谢支持 {:soso__2997972517525164546_4:}

 楼主| 发表于 2012-3-16 04:08:04 | 显示全部楼层
MiniCaesar 发表于 2012-3-15 19:14
看來在繁體中文上真的很難處理!


  详细已经在空间留言 {:soso__5622710549144034107_4:}
发表于 2012-3-26 15:53:03 | 显示全部楼层
我放棄了!真的弄不出來!
 楼主| 发表于 2012-4-3 16:11:19 | 显示全部楼层
段信联系我的各位朋友,请自己耐心看这个教程,由于精力有限不能一一回复了。

架设服务端才4步,倒是基础环境需要多一点时间。


虚拟机请用 Virtual PC 2007 ,再下载win2000操作系统,安装2000操作系统。

物理机与虚拟机之间的文件共享,请用Virtual PC 2007 软件界面上附带的辅助功能;
物理机与虚拟机之间的网络通讯,请自己百度。
发表于 2012-4-3 16:44:42 | 显示全部楼层
支持!!!!!!!!!
发表于 2012-4-27 15:24:18 | 显示全部楼层
那客户端安装在XP系统吗?
 楼主| 发表于 2012-6-20 23:14:30 | 显示全部楼层
顺意平面设计 发表于 2012-4-27 15:24
那客户端安装在XP系统吗?

对,客户端安装在xp ,服务端安在虚拟机里面。
发表于 2013-1-27 14:40:44 | 显示全部楼层
楼主写得很详细,只是能不能把文中提到的资源分享一下呢,比如:美丽世界Nage 6.0服务端
发表于 2013-2-9 15:31:47 | 显示全部楼层
zhitianjiao 发表于 2012-4-3 16:11
段信联系我的各位朋友,请自己耐心看这个教程,由于精力有限不能一一回复了。

架设服务端才4步,倒是基础 ...

vpc最后无法PING成功
发表于 2013-2-16 20:00:15 | 显示全部楼层
我看晕了  不过支持下
发表于 2013-3-6 17:08:11 | 显示全部楼层
第5步,修改   客户端登陆器程序  的ip地址,指向你的服务器ip地址。( 最好先备份一下Me-NAge.exe  )

  下载Uedit编辑器软件, 打开 游戏客户端目录/Me-NAge.exe (这是登陆器) .  打开后按快捷键Ctrl + H 再按 Ctrl + F 搜索 , 勾选以正则表达式( Perl 方式)搜索 ( 在搜索界面——高级——正则引擎上选择 Perl  ),输入 \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}  查找  ,找到后替换为你的服务器ip ,然后保存一下。

这一步我真心找不到 \d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}  这个
发表于 2013-3-14 14:25:43 | 显示全部楼层
求分享资源。。谢放。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

本站内容如若侵犯到您的权益,请来电来函告知,我们会尽快处理!
联系QQ:1953150286,2251387361,123784736,免责申明

排行榜|联系我们|小黑屋|手机版|Archiver|游戏藏宝湾 |

GMT+8, 2024-5-15 10:52 , Processed in 0.077340 second(s), 19 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表