Feeds:
文章
留言

Archive for 2008 年 03 月

測試 AIR 1.0 手動封裝 HTML 程式,找了常用的小工具加上 AIR 的糖衣製成。如果沒有安裝過 AIR ,請先下載 AIR 1.0 Runtime 並安裝。然後

工具下載 執行安裝。以下是程式執行截圖

001 002

看不出來是用 HTML 寫的吧 ^^

Read Full Post »

FreeGrab 下載模組 ZShare 0.0.6

ZShare 官方改的可真快,昨天我才改腳本,今天就不能下,還好這次改的更簡單,新腳本如下:

MODULE_NAME = "zshare"
MODULE_VERSION = "0.0.6"
MODULE_REQUIRE_VERSION = "1.2.3.4"
MODULE_AUTHOR = "cwchiu@hotmail.com"
MODULE_LAST_UPDATE = "2008/03/14"
DEFAULT_SAVEPATH = ‘h:\’
————————————————————————-
–local func
————————————————————————-
local function DownFile()
    if not GetHtml() then return false end
    if not Compile("link = ‘
http://([./%0-9a-zA-Z_-]+)’;") then return false end   
    local _,url = What()   
    return GetFile(‘
http://’ .. url );
end

————————————————————————-
–main
————————————————————————-
function Download()
    local url = GetUrl()
    if url:find( "zshare%.net/download" ) then
        return DownFile()
    else
        UpdateLog("網址有誤")
        return false
    end
end

function Upload()
    if not GetHtml("http://www.zshare.net/") then return false end
    if not Compile("<form name="upload" method="POST" action="([^"]+)"") then return false end
    local _,action = What()
    if not action then
        UpdateLog("找不到上傳表格,請檢查紀錄檔")
        CreateLogFile("zshare_upload_failed.html")
        return false
    end
    AddFormField("TOS","1")
    AddFormFile("file")
    UpdateLog("準備上傳…","info")
    if not UploadFile(action) then return false end
    if not Compile("Direct Link:.+?value="(http[^"]+)".+?Delete Link:.+?value="(http:[^"]+)"") then return false end
    local _,u1,u2 = What()
    if not u1 or not u2 then
        UpdateLog("找不到網址1/2,視為失敗,請檢查紀錄檔")
        CreateLogFile("zshare_upload_failed.html")
        return false
    end

    SetUrl(u1,u2)
    UpdateLog("上傳成功,網址1為檔案連結,網址2為刪除連結", "info")
    return true
end

Read Full Post »

FreeGrab 下載模組 ZShare 0.0.5

今天使用時,發現無法下載,做了以下修正~ 需要者請自行下載取用

MODULE_NAME = "zshare"
MODULE_VERSION = "0.0.5"
MODULE_REQUIRE_VERSION = "1.2.3.4"
MODULE_AUTHOR = "cwchiu@hotmail.com"
MODULE_LAST_UPDATE = "2008/03/13"
DEFAULT_SAVEPATH = ‘h:\’
————————————————————————-
–local func
————————————————————————-
local function DownFile()
    if not GetHtml() then return false end
    if not Compile("name="download" type="hidden" id="download" value="([^"]+)">") then return false end
    local _,download = What()
    if not download then
        UpdateLog("找不到 download 欄位,請檢查紀錄檔")
        CreateLogFile("zshare_download_failed.html")
        return false
    end

    AddFormField("download",download)
    PostForm()

    –if not Compile("<meta http-equiv="Refresh".+?URL=([^"]+)">") then return false end
    if not Compile("link_enc=new Array((.*));link") then return false end

    local _,url = What()
    local link = "

    for word in string.gmatch(url, "'(.)’") do
        link = link .. word
    end
    url = link;

    if not url then
        if GetUrl():find(‘404%.html’) then
            UpdateLog("沒有這個檔案 ╭(─╴╴─)╮ ▃▇")
        else
            UpdateLog("找不到真實路徑,請檢查紀錄檔")
            CreateLogFile("zshare_download_failed.html")
        end
        return false
    end

    return GetFile(url)
end

————————————————————————-
–main
————————————————————————-
function Download()
    local url = GetUrl()
    if url:find( "zshare%.net/download" ) then
        return DownFile()
    else
        UpdateLog("網址有誤")
        return false
    end
end

function Upload()
    if not GetHtml("http://www.zshare.net/") then return false end
    if not Compile("<form name="upload" method="POST" action="([^"]+)"") then return false end
    local _,action = What()
    if not action then
        UpdateLog("找不到上傳表格,請檢查紀錄檔")
        CreateLogFile("zshare_upload_failed.html")
        return false
    end
    AddFormField("TOS","1")
    AddFormFile("file")
    UpdateLog("準備上傳…","info")
    if not UploadFile(action) then return false end
    if not Compile("Direct Link:.+?value="(http[^"]+)".+?Delete Link:.+?value="(http:[^"]+)"") then return false end
    local _,u1,u2 = What()
    if not u1 or not u2 then
        UpdateLog("找不到網址1/2,視為失敗,請檢查紀錄檔")
        CreateLogFile("zshare_upload_failed.html")
        return false
    end

    SetUrl(u1,u2)
    UpdateLog("上傳成功,網址1為檔案連結,網址2為刪除連結", "info")
    return true
end

Read Full Post »

Firefox 3.0b5 試用

今天 softcup 推薦使用 firefox 3.0b5 版本,原本我想等正式釋出再裝,不過因為他給的是免安裝版本,索性我就玩了一下。哇~ 執行效能和記憶體問題與 Firefox 2.x 版相比真的有大幅度的改善,目前使用下來還不需要重新 firefox 來釋放記憶體,真是挺期待正式版本。

如果你也想和我一樣嘗鮮,請先下載這個可攜版本,然後解開放到 c:firefox,並在命令模式執行 firefox -p,選擇然後隨便輸入一個名稱來建立新的 profile,這樣是為了避免和 Firefox 2.x 的 Profile 混在一起,也可讓 Firefox 2 和 3 並存運作。操作之後應該如下圖:

001

點選 Start Minefield 可啟動 Firefox。以下是我已經修改測試可用的套件

1. All-in-One Gestures 0.18.0 (allinonegest018.xpi)
2. DownThemAll! 1.0 (downthemall-1.0-fxtbsm.xpi)
3. Gmail Manager 0.5.4 (gmail_manager-0.5.4-fxmznssmfl.xpi)
4. Greasemonkey 0.7.20080121.0(greasemonkey-0.7.20080121.0-fx.xpi)
5. ScrapBook 1.3.3 (scrapbook-1.3.3-fx.xpi)
6. 新同文堂 0.3.8.8(tongwen_0.3.8.8.xpi)
7. Google Notebook 1.0.0.19
8. Adblock Plus 0.7.5.3
7. IETab 1.3.3.20070528(ie_tab-1.3.3.20070528-fxmzsmfl-win.xpi)

如果你裝了其他套件之後沒有辦法啟動,先將 firefox 全部關閉,然後命令模式執行 firefox -safe-mode 即可解決。如果安裝套件出現"will not be installed because it does not provide secure updates"錯誤訊息,可參考[1]。

下圖是我的執行畫面 ^O^

002

參考資料
[1] Chui-Wen Chiu, "Firefox 3 beta 安裝出現 "will not be installed because it does not provide secure updates" 的 plugin"

Read Full Post »

Firefox 3.0b5 安裝新同文堂0.3.8.8 會出現類似"will not be installed because it does not provide secure updates" 錯誤訊息,[1] 提供如下解法:

  1. 網址列輸入 about:config

001

  1. 按右鍵選擇 New->Boolean
  2. 輸入 extensions.checkUpdateSecurity
  3. 選擇 false

002 

    4. 再次安裝 plugin

補充: softcup 提出將 <em:updateURL>http://tongwen.openfoundry.org/update.xml</em:updateURL&gt; 註解或移除也可以解決

參考資料
[1] "How To Disable ‘will not be installed because it does not provide secure updates’ Warning in Firefox 3"

Read Full Post »

今天要用 Google Map 查詢"高雄市中山一路",可是不論我用按鈕或Enter 他都不進行查詢

我測了很久發現,只要地址包含"中",Google Map 就是一動也不動….

不過這種情況只在 Firefox 出現,IE 似乎沒有這個問題~

Read Full Post »

« Newer Posts