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