.版本 2
.支持庫(kù) EThread
.程序集 窗口程序集_啟動(dòng)窗口
.子程序 test
商品地址編輯框.內(nèi)容 ＝ GetRealUrl (短鏈接編輯框.內(nèi)容)
.子程序 GetRealUrl, 文本型
.參數(shù) shortUrl, 文本型
.局部變量 rurl, 文本型
.局部變量 referer, 文本型
.局部變量 laststr, 文本型
httpGet (shortUrl, , rurl)
httpGet (rurl, , referer)
laststr ＝ 文本_取右邊 (referer, “ref”) ' 取文本右邊 (referer, 取文本長(zhǎng)度 (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)頁(yè)_訪問_對(duì)象 (url, , , , , header, reheader, , 真, , , , , , , )
' 下面兩行是取location的值的
index ＝ 尋找文本 (reheader, “ation:”, , 假)
rurl ＝ 取文本中間 (reheader, index ＋ 7, 尋找文本 (reheader, #換行符, index, 假) － index － 7)
.子程序 _轉(zhuǎn)換按鈕_被單擊
啟動(dòng)線程 (&test, , )

運(yùn)行結(jié)果：

總結(jié)

以上就是這篇文章的全部?jī)?nèi)容了，希望本文的內(nèi)容對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，謝謝大家對(duì)腳本之家的支持。如果你想了解更多相關(guān)內(nèi)容請(qǐng)查看下面相關(guān)鏈接

您可能感興趣的文章:

相關(guān)文章

易語(yǔ)言設(shè)置組合框內(nèi)容自動(dòng)排序的方法
今天小編就為大家分享一篇關(guān)于易語(yǔ)言設(shè)置組合框內(nèi)容自動(dòng)排序的方法，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語(yǔ)言取時(shí)間的方法
在本篇內(nèi)容里小編給大家分享了關(guān)于易語(yǔ)言取時(shí)間的方法教學(xué)，需要的朋友們參考下。
2018-12-12
易語(yǔ)言取聲母的方法教學(xué)
在本篇文章里小編給大家分享了關(guān)于易語(yǔ)言取聲母的方法教學(xué)內(nèi)容，有需要的朋友們學(xué)習(xí)下。
2019-02-02
易語(yǔ)言復(fù)制數(shù)組命令使用講解
今天小編就為大家分享一篇關(guān)于易語(yǔ)言復(fù)制數(shù)組命令使用講解，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語(yǔ)言通過枚舉密碼進(jìn)行破解rar壓縮包文件的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言通過枚舉密碼進(jìn)行破解rar壓縮包文件的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-11-11
易語(yǔ)言設(shè)置窗口透明化的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言設(shè)置窗口透明化的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-12-12
易語(yǔ)言用正則采集百度知道的代碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言用正則采集百度知道的代碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-12-12
易語(yǔ)言刪除成員命令使用講解
今天小編就為大家分享一篇關(guān)于易語(yǔ)言刪除成員命令使用講解，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-11-11
詳解易語(yǔ)言的程序的輸入方法概念
在本篇文章里小編給大家整理了關(guān)于易語(yǔ)言的程序的輸入方法概念，有興趣的朋友們可以參考下。
2020-03-03
易語(yǔ)言制作王校長(zhǎng)吃熱狗游戲的源碼
今天小編就為大家分享一篇關(guān)于易語(yǔ)言制作王校長(zhǎng)吃熱狗游戲的源碼，小編覺得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來看看吧
2018-12-12