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="http://naoz.cn/NOD32/nod32-id-%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();
轉自：http://www.ecranesoft.com/bbs/showtopic-8422.aspx
