根据域名得到ip并写入配置文件中遇到的难题

a000000

准备开个游戏服务器，可是遇到一个难题，本人特别菜，东西又急用，请大侠帮忙。

先解析域名：sdjt.vicp.net   然后把解析得到的ip替换下面2个文件中的ip：127.0.0.1（其中一个文件没有扩展名，不知道能不能写进去啊）



明明设置的是下载需要金钱0

两个文件内容如下：
realm.list文件：

# Example:
#"SUNY" "PvPGN Closed Realm" 192.168.1.88:6113

"SDWB" "PvPGN Closed Realm" 192.168.1.88:6113 127.0.0.1:6113 192.168.1.1/24


d2gstrans  文件：

# ^ make game server ip 10.0.0.2 look like 99.88.77.66 to the outside world  #
#   but not to local computers                                               #
#                                                                            #
##############################################################################

192.168.1.88                        127.0.0.1                192.168.1.1/24

a000000

TCPStartup()
msgbox(0,"暗黑的IP地址",TCPNameToIP("sdjt.vicp.net"))

这样得到ip了，

$t = FileRead ( "realm.list")
$s = StringReplace ( $t, "127.0.0.1", "127.0.1.1" )
$f = FileOpen("realm.list",2)
FileWrite($f,$s)
FileClose($f)

替换了

高手帮忙，搞个连贯的

afan

回复 2# a000000


    够连贯了吧，重写不都差不多

a000000

回复  a000000


    够连贯了吧，重写不都差不多
afan 发表于 2010-1-7 13:39

   我的意思是获得ip，然后直接把ip写入文件，这样就可以无人值守了

顽固不化

无人值守？你想拿来就用吧。

顽固不化

你很懒惰的。

TCPStartup()
$newIP=TCPNameToIP("sdjt.vicp.net")
TCPShutdown ( )
$t = FileRead ( "realm.list")
$s = StringReplace ( $t, "127.0.0.1", $newIP )
$f = FileOpen("realm.list",2)
FileWrite($f,$s)
FileClose($f)