SelectValue = Msgbox ("检测到本机IP地址:" & getip & "你要使用这个IP地址吗？",vbyesno,"设置服务器IP")这一句删除，直接改成SelectValue = 6就可以了
SelectValue = Msgbox ("检测到本机IP地址:" & getip & "你要使用这个IP地址吗？",vbyesno,"设置服务器IP")改成SelectValue = 6去试试
