Chinaunix首页 | 论坛 | 博客
  • 博客访问: 4727957
  • 博文数量: 206
  • 博客积分: 5240
  • 博客等级: 大校
  • 技术积分: 3224
  • 用 户 组: 普通用户
  • 注册时间: 2010-08-12 21:40
文章分类

全部博文(206)

文章存档

2013年(13)

2012年(8)

2011年(33)

2010年(152)

我的朋友

分类:

2010-09-17 01:55:38

import win; //必须首先导入win窗口支持库
import win.ui;
/*DSG{{*/
var winform = win.form(parent=...; min=1;bottom=249;max=1;text="NOD32升级帐号获取  ";right=349 )
winform.add( 
button={ bottom=230;text=
"获取";left=33;right=156;top=201;font=LOGFONT( name="宋体";h=-12 );z=0;cls="button" };
edit={ bottom=187;right=340;left=9;multiline=1;top=20;font=LOGFONT( name=
"宋体";h=-12 );z=1;text="";edge=1;cls="edit" }
)
/*}}*/

//变量名应清晰准确的表达函数的意图    
//AAuto变量首字母小写,从第二个单词开始首字符大写,外部对象(API、COM)首字母大写
getNod32 = function() begin  //函数也可以使用可折叠语句块
    import inet.http;
    
import string.ex;

    
var http = inet.http()
    
var  ti = time.now()  
    ti.format=
"%Y%m%d-upgrade/"
    
    
//转换成当前日期并下载网页
    var html=http.down( tostring(ti) )
    http.close();
    
    
var str2=""
    
    
if(html){ 
        html =  string.fromto(html);
        
for m,m2 in string.gmatch(html ,"(%:\<)%b码(%:\<)") { 
            
var str="id"+string.trimright(m,'<')+"  密码"+string.trimright( m2,'<')
            
//取出的字符串再去除尾部
            str2 =str2+'\r\n' + str 
            
        } 
        
        str2=string.ex.distinct(str2,
'\r\n')//去除在回复中的重复项
        thread.set("NODID", str2) 
        
//如果要加入列表框,可以改成数组的存取,再加入列表框
    }
    
    
return 123;
    
end;


    
    
winform.button.oncommand = 
function(id,event){
    
//禁用按钮,避免重入
    winform.button.text = "请稍候"
    winform.button.disabled = 
true;
    winform.edit.text = 
""
    
    
//创建并启动后台线程
    h = thread.create(getNod32)
    
while( ! thread.get("NODID") ){
        
//如果没有查询到结果,执行delay以响应消息  
        win.delay(200) 
        winform.edit.text ++= 
"." 
        
    }
    
    winform.edit.text = thread.get(
"NODID")
    thread.set(
"NODID",null)  //清空线程变量
    
    winform.button.text =
"获取"
    winform.button.disabled = 
false;
    
}
//endproc
winform.show(true

win.loopMessage();
阅读(1269) | 评论(0) | 转发(1) |
给主人留下些什么吧!~~