一直用迅雷,下載速度都挺不錯(cuò).
最近,用了一個(gè)性能比較差的計(jì)算機(jī).發(fā)現(xiàn)迅雷老在上傳東西.整個(gè)硬盤(pán)體力跨啦的,計(jì)算機(jī)性能超級(jí)差.
于是寫(xiě)了個(gè)工具.阻止其上傳.
工具在這里 http://alantop.5166.info/software.html
源碼如下:
.版本 2
.支持庫(kù) shell
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
.局部變量 存在, 邏輯型
.局部變量 文件屬性, 整數(shù)型
存在 ＝ 文件是否存在 (文件名)
.如果 (存在)
是否存在.標(biāo)題 ＝ “存在”
.否則
是否存在.標(biāo)題 ＝ “不存在”
.如果結(jié)束
文件屬性 ＝ 取文件屬性 (文件名)
.如果 (位與 (文件屬性, #只讀文件) ≠ 0)
是否存在.標(biāo)題 ＝ “迅雷不能上傳”
.否則
是否存在.標(biāo)題 ＝ “迅雷需要處理”
.如果結(jié)束
.子程序 _按鈕2_被單擊
.局部變量 文件號(hào), 整數(shù)型
.如果 (刪除文件 (文件名))
是否存在.標(biāo)題 ＝ “文件刪除成功”
.否則
是否存在.標(biāo)題 ＝ “文件刪除失敗”
.如果結(jié)束
文件號(hào) ＝ 打開(kāi)文件 (文件名, #重寫(xiě), #無(wú)限制)
關(guān)閉文件 (文件號(hào))
.如果 (置文件屬性 (文件名, #只讀文件))
是否存在.標(biāo)題 ＝ “文件屬性設(shè)置成功”
.否則
是否存在.標(biāo)題 ＝ “文件屬性設(shè)置失敗”
.如果結(jié)束
.子程序 __啟動(dòng)窗口_創(chuàng)建完畢
文件名 ＝ 取特定目錄 (#Windows安裝目錄) ＋ “system32\cid_store.dat”