自動投注e語言源碼

⑴ 要易語言自動更新源碼

要易語言自,動更新源碼?(這個，你去找吳濤要要看，不知道他給你不……)

要自動更新,易語言源碼?（這個……進度下載模塊，寫成DLL更新的時候調用你自己研究去吧）

———————————————我是分割線《念青&卓越》———————————————

.版本2

.程序集程序集1

.子程序_啟動子程序,整數型,,請在本子程序中放置易模塊初始化代碼

_臨時子程序() '在初始化代碼執行完畢後調用測試代碼

返回(0) '可以根據您的需要返回任意數值

.子程序_臨時子程序

'本名稱子程序用作測試程序用，僅在開發及調試環境中有效，編譯發布程序前將被系統自動清空，請將所有用作測試的臨時代碼放在本子程序中。***注意不要修改本子程序的名稱、參數及返回值類型。

.子程序下載進度事件模板,,公開

.參數下載文件名,文本型

.參數文件尺寸,整數型,,Bit

.參數下載速度,整數型,,KB/S

.參數下載進度,整數型

.子程序下載狀態事件模板,,公開

.參數欲讀入網址,文本型

.參數錯誤代碼,整數型

.參數狀態文本,文本型

.參數下載進度,整數型

———————————————我是分割線《念青&卓越》———————————————

.版本2

.程序集HTTP進度下載類,,公開

.程序集變數XML對象,對象

.程序集變數已初始化,邏輯型

.程序集變數集_欲讀入網址,文本型

.程序集變數集_引用頁,文本型

.程序集變數集_數據塊超時,整數型

.程序集變數集_錯誤信息,文本型

.程序集變數集_保存文件名,文本型

.程序集變數狀態_開始下載,邏輯型

.程序集變數集_已下載尺寸,整數型

.程序集變數集_下載進度事件指針,整數型

.程序集變數集_下載狀態事件指針,整數型

.程序集變數集_文件總尺寸,整數型

.程序集變數集_停止,邏輯型

.程序集變數集_數據塊尺寸,整數型

.子程序_銷毀,,,當基於本類的對象被銷毀前，此方法會被自動調用

清除()

.子程序清除,,公開,清空HTTP下載類

停止下載()

XML對象.清除()

連續賦值(假,已初始化,狀態_開始下載,集_停止)

連續賦值(0,集_數據塊超時,集_已下載尺寸,集_下載進度事件指針,集_下載狀態事件指針,集_文件總尺寸,集_數據塊尺寸)

連續賦值(「」,集_保存文件名,集_錯誤信息,集_引用頁,集_欲讀入網址)

.子程序初始化,邏輯型,公開,當基於本類的對象被創建後，此方法會被自動調用

.參數下載進度事件指針,子程序指針,可空

.參數下載狀態事件指針,子程序指針,可空

.判斷開始(已初始化＝假且狀態_開始下載＝假)

XML對象.創建(「MSXML2.ServerXMLHTTP」,)

.判斷開始(XML對象.是否為空())

返回(假)

.默認

已初始化＝真

狀態_開始下載＝假

集_下載進度事件指針＝到數值(下載進度事件指針)

集_下載狀態事件指針＝到數值(下載狀態事件指針)

集_文件總尺寸＝0

集_停止＝假

集_數據塊尺寸＝#數據塊尺寸

集_數據塊超時＝集_數據塊尺寸÷#最低網速

返回(真)

.判斷結束

.默認

返回(假)

.判斷結束

.子程序置緩沖區尺寸,,公開,如果不用本方法設置緩沖區大小，將默認為10KB。不要過小，太小了會因讀寫次數增多而影響速度；過大了則等待數據的時間會過長；應根據網路狀態合理設置。

.參數緩沖區尺寸,位元組型,,單位為KB

.如果真(已初始化且狀態_開始下載＝假)

.如果真(緩沖區尺寸＝0)

緩沖區尺寸＝4

.如果真結束

集_數據塊尺寸＝緩沖區尺寸×1024

集_數據塊超時＝集_數據塊尺寸÷#最低網速

.如果真結束

.子程序Http網址,,公開

.參數欲讀入網址,文本型

.參數引用頁,文本型,可空

.如果真(已初始化且狀態_開始下載＝假)

集_欲讀入網址＝欲讀入網址

集_引用頁＝引用頁

.如果真結束

.子程序置保存文件名,邏輯型,公開

.參數文件名,文本型

.如果真(已初始化且狀態_開始下載＝假)

集_保存文件名＝文件名

返回(真)

.如果真結束

返回(假)

.子程序開始下載,邏輯型,公開

.局部變數位元組集數據,位元組集

.局部變數數據塊開始下載時間,整數型

.局部變數文件號,整數型

.局部變數網頁文件讀寫及尺寸信息,文本型

.局部變數temp,整數型

.局部變數當前讀寫位置,整數型

.局部變數下載速度,整數型

.局部變數已下載的百分比,整數型

.局部變數集_下載起點,整數型

.局部變數status,整數型

.如果真(已初始化＝假)

集_錯誤信息＝「沒有初始化」

發送狀態事件()

返回(假)

.如果真結束

.如果真(狀態_開始下載)

集_錯誤信息＝「正在下載中……」

發送狀態事件()

返回(假)

.如果真結束

文件號＝打開文件(集_保存文件名,#改寫,#禁止讀寫)

.如果真(文件號＝0)

集_錯誤信息＝「本地文件無法打開」

發送狀態事件()

返回(假)

.如果真結束

集_下載起點＝取文件長度(文件號)

集_已下載尺寸＝集_下載起點

移到文件尾(文件號)

狀態_開始下載＝真

集_錯誤信息＝「」

集_停止＝假

.循環判斷首()

XML對象.方法(「open」,「GET」,集_欲讀入網址,真)

XML對象.方法(「setRequestHeader」,「Referer」,集_引用頁)

XML對象.方法(「setRequestHeader」,「Accept」,「*/*」)

XML對象.方法(「setRequestHeader」,「User-Agent」,「Mozilla/4.0(compatible;MSIE5.00;Windows98)」)

XML對象.方法(「setRequestHeader」,「Range」,「bytes=」＋到文本(集_下載起點)＋「-」＋到文本(集_下載起點＋集_數據塊尺寸－1))

XML對象.方法(「setRequestHeader」,「Content-Type」,「application/octet-stream」)

XML對象.方法(「setRequestHeader」,「Pragma」,「no-cache」)

XML對象.方法(「setRequestHeader」,「Cache-Control」,「no-cache」)

XML對象.方法(「send」,)

數據塊開始下載時間＝取啟動時間()

.判斷循環首(XML對象.讀數值屬性(「readyState」,)≠4)

.如果真(取啟動時間()－數據塊開始下載時間＞集_數據塊超時)

XML對象.方法(「abort」,)

集_錯誤信息＝「數據下載超時，建議重試。」

關閉文件(文件號)

發送狀態事件()

清除下載信息()

返回(假)

.如果真結束

.如果真(集_停止)

集_錯誤信息＝「用戶中止了下載」

關閉文件(文件號)

發送狀態事件()

清除下載信息()

返回(假)

.如果真結束

XML對象.邏輯方法(「waitForResponse」,1000)

.判斷循環尾()

'檢測狀態

status＝XML對象.讀數值屬性(「status」,)

.如果真(status＞299且status≠416) 'http出錯

集_錯誤信息＝XML對象.讀文本屬性(「statusText」,)

跳出循環()

.如果真結束

.如果真(status≠206且status≠416) '伺服器不支持斷點續傳

集_錯誤信息＝「伺服器不支持斷點續傳！」

跳出循環()

.如果真結束

寫出位元組集(文件號,XML對象.讀屬性(「responseBody」,).取位元組集())

網頁文件讀寫及尺寸信息＝XML對象.文本方法(「getResponseHeader」,「Content-Range」)

.判斷開始(網頁文件讀寫及尺寸信息＝「」)

集_錯誤信息＝「文件長度未知！」

.默認

.如果真(集_文件總尺寸＝0)

集_文件總尺寸＝到數值(取文本右邊(網頁文件讀寫及尺寸信息,取文本長度(網頁文件讀寫及尺寸信息)－倒找文本(網頁文件讀寫及尺寸信息,「/」,,假)))

.如果真結束

當前讀寫位置＝到數值(取文本右邊(網頁文件讀寫及尺寸信息,取文本長度(網頁文件讀寫及尺寸信息)－倒找文本(網頁文件讀寫及尺寸信息,「-」,,假)))

集_已下載尺寸＝集_已下載尺寸＋當前讀寫位置－集_下載起點

.如果真(集_已下載尺寸＞集_文件總尺寸)

集_已下載尺寸＝集_文件總尺寸

.如果真結束

集_下載起點＝當前讀寫位置＋1

已下載的百分比＝集_已下載尺寸×100÷集_文件總尺寸

.判斷結束

temp＝取啟動時間()－數據塊開始下載時間

下載速度＝集_數據塊尺寸÷1.024÷temp

.如果真(集_下載進度事件指針≠0)

CallWindowProc(集_下載進度事件指針,集_保存文件名,集_文件總尺寸,下載速度,已下載的百分比)

.如果真結束

.如果真(集_文件總尺寸＝集_已下載尺寸)

集_錯誤信息＝「下載完畢」

跳出循環()

.如果真結束

.如果真(status＝416)

集_錯誤信息＝「下載完畢」

跳出循環()

.如果真結束

.循環判斷尾(集_停止＝假)

關閉文件(文件號)

發送狀態事件()

清除下載信息()

返回(集_錯誤信息＝「下載完畢」)

.子程序清除下載信息

連續賦值(假,狀態_開始下載,集_停止)

連續賦值(0,集_已下載尺寸,集_文件總尺寸)

.子程序發送狀態事件

.如果真(集_下載狀態事件指針≠0)

CallWindowProc2(集_下載狀態事件指針,集_欲讀入網址,XML對象.讀數值屬性(「status」,),集_錯誤信息,集_已下載尺寸×100÷集_文件總尺寸)

.如果真結束

.子程序停止下載,,公開

.如果真(狀態_開始下載)

集_停止＝真

XML對象.方法(「abort」,)

.如果真結束

———————————————我是分割線《念青&卓越》調用系統API—————————

.版本2

.DLL命令CallWindowProc,整數型,"user32.dll","CallWindowProcA"

.參數程序指針,整數型

.參數下載文件名,文本型,傳址

.參數文件尺寸,整數型

.參數下載速度,整數型

.參數下載進度,整數型

.DLL命令CallWindowProc2,整數型,"user32.dll","CallWindowProcA"

.參數程序指針,整數型

.參數欲讀入網址,文本型,傳址

.參數狀態代碼,整數型

.參數狀態文本,文本型

.參數下載進度,整數型

———————————————我是分割線《念青&卓越》常量—————————————

.版本2

.常量數據塊尺寸,"10240",,10K/塊

.常量最低網速,"0.1",,KB/S

實例效果：

效果不是很好。也可以直接替換源文件。不使用窗口後台靜默下載等等等等……樓主自由發揮吧！<念青&卓越>

⑵ 怎麼用易語言寫一個自動按鍵的源碼

.版本 2
.支持庫 shellEx
.支持庫 eAPI
.程序集 窗口程序集1
.程序集變數 F10鍵熱鍵標識, 整數型
.程序集變數 F11鍵熱鍵標識, 整數型
.子程序 __啟動窗口_創建完畢
F10鍵熱鍵標識 ＝ 注冊熱鍵 (_啟動窗口.取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F10鍵)
F11鍵熱鍵標識 ＝ 注冊熱鍵 (_啟動窗口.取窗口句柄 (), 標簽1.取窗口句柄 (), 0, #F11鍵) ' 注冊熱鍵供標簽使用

.子程序 _標簽1_反饋事件, 整數型, , 按下熱鍵後就會有此反饋事件
.參數 參數一, 整數型
.參數 參數二, 整數型
.如果真 (參數一 ＝ F10鍵熱鍵標識) ' 按下F10開始執行時鍾
時鍾1.時鍾周期 ＝ 100
.如果真結束
.如果真 (參數一 ＝ F11鍵熱鍵標識) ' 按下F10終止執行時鍾
時鍾1.時鍾周期 ＝ 0
.如果真結束

.子程序 _時鍾1_周期事件
模擬按鍵 (#上游標鍵, , )
模擬按鍵 (#下游標鍵, , )
模擬按鍵 (#左游標鍵, , )
模擬按鍵 (#右游標鍵, , )
模擬按鍵 (#空格鍵, , )

這些代碼可以直接復制進易語言里，只要在啟動窗口建一個標簽和一個時鍾即可。
求採納

⑶ 易語言提取開獎數據的源碼

我看了那個網頁源碼。給你個解決思路
源文件 = 讀網頁文件（"網址"）

源文件=取中間文本（「源文件」,「<div class="list28">,」「/div」）

然後分割文本取出你要的數據你不要告訴我不會的吧 那個圖片上面是16的話他在源文件裡面的代碼就是「16.gif」 根據gif關鍵字倒找文本就行了。

⑷ 求高手幫忙編寫一個易語言游戲充值源碼

你好，您搭建一個discuz論壇，也就是說搭建一個論壇網站。discuz裡面自帶充值介面的，到時候只需要在易語言上面post接入即可實現在軟體上充值金幣等虛擬幣。

但是支付介面需要審核的，比較嚴格。

支付寶介面許可權申請http://b.alipay.com/newIndex.htm

財付通介面許可權申請http://mch.tenpay.com/market/index.shtml

申請介面首先要搭建好網站才行。如果你自己可以完成，就採納我吧

不能完成請繼續追問

⑸ 易語言源碼是什麼

就是 文件名.e的文件 用這個文件 可以修改程序的功能 界面等 把它改寫成你自己的程序 如果你想學習易語言推薦去赤血學院 學習一下 哪裡成套的視頻教程 可以讓你快速入門。

⑹ 一個編好的易語言程序怎樣查看源代碼

如果還沒有編譯生成軟體，而是*.e源碼的話， 可以到http://www.eyuyan.com/pdown.htm下載易語言打開查看。

如果編譯生成軟體了，那麼就無法簡單的查看源碼了。