用测试脚本 点击运行 打开的脚本没有反应 提示未响应

462627168

用测试脚本 点击运行  打开的脚本没有反应   提示未响应  有知道的大神吗  帮小弟解决一下

kevinqq

这是示例里面的一个bug  亲 请修改一下代码就可以执行了
在界面代码里面使用循环会卡死界面,所以代码里面有循环的时候 建议使用线程

2. 空间 获取本机IP
3. //默认空间
4. // 利用系统组件获取本机外网的IP
5. function 外网的IP(url)
6.     // 创建插件对象
7.     http=com("Microsoft.XMLHTTP")
8.     // 提交网页连接
9.     http.Open("post",url, false)
10.     http.setRequestHeader("If-Modified-Since", "0")
11.     http.send("")
12.     // 等待网页加载完成
13.     t=system.gettickcount()
14.     while(http.ReadyState != 4)
15.         if(system.gettickcount()-t>5000)
16.             return false
17.         endif
18.         help.sleep(1)
19.     endwhile
20.     // 返回网页内容
21.     return http.responseText
22. endfunction
24. //开始按钮_点击操作
25. 功能 开始_点击()
26.     ret=""
27.     temp=""
28.     i=0
29.     // 在注册表中遍历 ethernet内容
30.     while(ret!="ethernet")
31.         if(i<10)
32.             temp=0&i
33.             i++
34.         else
35.             temp=i
36.             i++
37.         endif
38.         paht="HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Class\\{4D36E972-E325-11CE-BFC1-08002BE10318}\\00"&temp&"\\Ndi\\Interfaces"
39.         // 获取注册表里 paht项的值
40.         ret=系统.注册表获取键值(paht,"LowerRange")
41.     endwhile
42.     // 拼接IPpath字符串
43.     IPpath="HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\Control\\Class\\{4D36E972-E325-11CE-BFC1-08002BE10318}\\00"&temp&"\\Linkage"
44.     // 获取IPpath项的值
45.     ipcode=系统.注册表获取键值(IPpath,"RootDevice")
46.     // 获取注册表中本机的IP地址值
47.     ret=系统.注册表获取键值("HKEY_LOCAL_MACHINE\\SYSTEM\\CurrentControlSet\\services\\Tcpip\\Parameters\\Interfaces\"&ipcode,"IPAddress")
48.     // 使用消息框命令显示出本机的IP值
49.     辅助.消息框(ret,"通过注册表获取")
50. 功能结束
52. //退出按钮_点击操作
53. 功能 退出_点击()
54.     // 调用自定义方法
55.     sru=获取本机IP.外网的IP("http://iframe.ip138.com/ic.asp")
56.     // 查找 [ 字符在字符串中的起始位置
57.     start=str.findstr(sru,"[")
58.     // 查找 ] 字符在字符串中的起始位置
59.     end=str.findstr(sru,"]")
60.     // 通过字符串截取命令截取[ ] 直接的IP地址内容,并以消息框模式显示出来。
61.     help.messagebox(str.strsub(sru,start+1,end),"通过系统对象xmlhttp获取")   
62. 功能结束
64. 空间结束
65. //空间结束语句

复制代码