Question

易语言程序卡死

.版本 2

.程序集 窗口程序集1
.程序集变量 时间, 文本型

.子程序 __启动窗口_创建完毕
.局部变量 IP1, 文本型
.局部变量 IP2, 文本型

时钟1.时钟周期 ＝ 200
IP1 ＝ 到文本 (网页_取网页源码 (“http://iframe.ip138.com/ic.asp”))
IP2 ＝ 文本_取出中间文本 (IP1, “<center>您的IP是：[”, “] 来自”)
标签2.标题 ＝ “IP:” ＋ IP2
图形按钮1.透明颜色 ＝ #白色

.子程序 _时钟1_周期事件
.局部变量 时间1, 文本型
.局部变量 时间2, 文本型

标签1.标题 ＝ 时间
时间 ＝ 到文本 (取现行时间 ())

.子程序 _图形按钮1_被单击
.局部变量 IP1, 文本型
.局部变量 IP2, 文本型

时钟1.时钟周期 ＝ 200
IP1 ＝ 到文本 (网页_取网页源码 (“http://iframe.ip138.com/ic.asp”))
IP2 ＝ 文本_取出中间文本 (IP1, “<center>您的IP是：[”, “] 来自”)
标签2.标题 ＝ “IP:” ＋ IP2

多按几次刷新 整个程序卡死了 感觉不是很复杂的工作啊.......

Answer 1

循环和时钟中，没事就加几个 处理事件（） 就不会那么卡了，少用时钟事件