.版本 2
.支持庫 EThread
.程序集 窗口程序集_啟動窗口
.子程序 test
商品地址編輯框.內(nèi)容 ＝ GetRealUrl (短鏈接編輯框.內(nèi)容)
.子程序 GetRealUrl, 文本型
.參數(shù) shortUrl, 文本型
.局部變量 rurl, 文本型
.局部變量 referer, 文本型
.局部變量 laststr, 文本型
httpGet (shortUrl, , rurl)
httpGet (rurl, , referer)
laststr ＝ 文本_取右邊 (referer, “ref”) ' 取文本右邊 (referer, 取文本長度 (referer) － 尋找文本 (referer, 取文本右邊 (rurl, 8), , 假) － 7)
laststr ＝ 子文本替換 (laststr, “%26”, “&”, , , 真)
laststr ＝ 子文本替換 (laststr, “%25”, “%”, , , 真)
laststr ＝ 子文本替換 (laststr, “%3D”, “=”, , , 真)
httpGet (rurl ＋ “ref” ＋ laststr, “Referer:” ＋ referer, rurl)
返回 (取文本左邊 (rurl, 尋找文本 (rurl, “&”, , 假) － 1))
.子程序 httpGet
.參數(shù) url, 文本型
.參數(shù) header, 文本型, 可空
.參數(shù) rurl, 文本型, 參考 可空
.局部變量 reheader, 文本型
.局部變量 index, 整數(shù)型
網(wǎng)頁_訪問_對象 (url, , , , , header, reheader, , 真, , , , , , , )
' 下面兩行是取location的值的
index ＝ 尋找文本 (reheader, “ation:”, , 假)
rurl ＝ 取文本中間 (reheader, index ＋ 7, 尋找文本 (reheader, #換行符, index, 假) － index － 7)
.子程序 _轉(zhuǎn)換按鈕_被單擊
啟動線程 (&test, , )

運行結(jié)果：