关于ini或者txt读写判断的问题

白河小鸟

把我取本地IP命令改了！就可以了，谢谢！

fysccm

不知道为什么

我编译后 无法获取IP地址了。并且 也无法写出ip.ini
xiaohei309 发表于 2010-8-5 17:38

.版本 2
.支持库 internet
.支持库 EThread
.程序集 窗口程序集1
.子程序 IP判断
.参数 上次的IP, 文本型
.参数 获取的IP, 文本型
.参数 物理地址, 文本型
.局部变量 IP数组, 文本型, , "0"
.局部变量 计次, 整数型
.如果 (文件是否存在 (取运行目录 () ＋ “\IP.ini”) ＝ 假)
    写到文件 (取运行目录 () ＋ “\IP.ini”, {  })
.否则
.如果结束
上次的IP ＝ 到文本 (读入文件 (取运行目录 () ＋ “\IP.ini”))
IP数组 ＝ 分割文本 (上次的IP, “|”, )
获取的IP ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyip.php”))
物理地址 ＝ 到文本 (HTTP读文件 (“h ttp://vqin.net/tools/getmyadd.php?ip=” ＋ 获取的IP))
.判断开始 (获取的IP ≠ “”)
    .计次循环首 (取数组成员数 (IP数组), 计次)
        .判断开始 (获取的IP ＝ IP数组 [计次])
            信息框 (“IP地址相同，注册会无效。建议重新断开连接再联网”, 0, “提示”)
            结束 ()
        .默认
        .判断结束
    .计次循环尾 ()
    写到文件 (取运行目录 () ＋ “\IP.ini”, 到字节集 (获取的IP ＋ “|” ＋ 上次的IP))
.默认
.判断结束
标签1.标题 ＝ 到文本 (获取的IP ＋ 物理地址)

.子程序 __启动窗口_创建完毕
启动线程 (&IP判断, , )



//////////////////////////////////////
不能写文件可能是易的问题，不能取到IP跟网站有关，这个我没办法了。你重新找个IP的网站了。

airpppp

昨晚酒大,早睡早起爬上网!

楼主的网址多了个空格,"http"变成"h ttp",改之!
程序运行,有时可以,有时自动退出......修改"ip判断"子程序中的3个"参数"为"变量",问题解决!

注:此程序的源码,只比对上次ip,而不能去重复记录ip

本少

写多一个 配置项的节 即可.


比如
(第一次读IP)
写配置项("IP.INI","ONE","IP",IP内容)
(第二次读IP)
写配置项("IP.INI","ONE","IP2",IP内容)

IP3……IP*可以用计次或者变量达到.

PLLB

好东西，一定要看的