易語言推廣積分源碼

① 易語言抽獎源碼

用取隨機數就行了嘛！使用時鍾一直刷，然後點擊停止就OK了！得到什麼數就是什麼數了！如果你想要它自動停止，也可以使用時鍾！

② 易語言抽獎軟體源碼

.版本 2

.程序集 窗口程序集1
.程序集變數 位數, 整數型

.子程序 _按鈕1_被單擊

編輯框2.內容 ＝ 「」
.如果 (編輯框1.內容 ＝ 「」)
位數 ＝ 取隨機數 (1, 10)
.否則
位數 ＝ 到整數 (編輯框1.內容)
.如果結束
.計次循環首 (位數, )
編輯框2.加入文本 (到文本 (取隨機數 (0, 9)))
延時 (100)
.計次循環尾 ()

③ 易語言怎麼取網頁源碼

問題一：易語言如何獲取網頁源碼的並展示出來？ .版本 2
.支持庫 RegEx
.支持庫 internet
.支持庫 iext
.子程序 _按鈕1_被單擊
.局部變數 網頁文本, 文本型
.局部變數 表達式, 正則表達式
.局部變數 搜索結果, 搜索結果, , 0
.局部變數 計次變數, 整數型
.局部變數 文本, 文本型
網頁文本 ＝ 到文本 (HTTP讀文件 (編輯框1.內容))
網頁文本 ＝ 子文本替換 (網頁文本, #引號, 「'」, 0, , 真)
網頁文本 ＝ 到小寫 (網頁文本)
透明標簽1.標題 ＝ 取中間文 (網頁文本, 「」, 「」)
表達式.創建 (「meta (.*?)>」, 假)
搜索結果 ＝ 表達式.搜索全部 (網頁文本)
.計次循環首 (取數組成員數 (搜索結果), 計次變數)
文本 ＝ 搜索結果 [計次變數].取子匹配文本 (網頁文本, 1, )
.判斷開始 (尋找文本 (文本, 「name='keywords'」, 1, 假) ＞ 0)
透明標簽2.標題 ＝ 取中間文 (文本, 「content='」, 「'」)
.判斷 (尋找文本 (文本, 「name='description'」, 1, 假) ＞ 0)
透明標簽3.標題 ＝ 取中間文 (文本, 「content='」, 「'」)
.默認
.判斷結束
.計次循環尾 ()
.子程序 取中間文, 文本型
.參數 全文, 文本型
.參數 左文, 文本型
.參數 右文, 文本型
.局部變數 位置, 整數型
.局部變數 總長度, 整數型
.局部變數 文本, 文本型
總長度 ＝ 取文本長度 (全文)
位置 ＝ 尋找文本 (全文, 左文, , 假)
.如果真 (位置 ＜ 0)
返回 (「」)
.如果真結束
位置 ＝ 位置 ＋ 取文本長度 (左文)
文本 ＝ 取文本中間 (全文, 位置, 總長度)
總長度 ＝ 取文本長度 (文本)
位置 ＝ 尋找文本 (文本, 右文, , 假) － 1
.如果真 (位置 ＜ 0)
返回 (「」)
.如果真結束
文本 ＝ 取文本中間 (文本, 1, 位置)
返回 (文本)

問題二：易語言怎麼獲取網頁源代碼 我記得我給你回答過了，其實說老實話，想學好一門編程語言，不下大功夫是不行的，網上有很多開源的，我不能幫你太多，因為我對這方面不是很懂，呵呵，不好意思。

問題三：易語言取網頁源碼的問題，求解答！ 思路：
超文本瀏覽框.取文檔對象 ().對象型方法 (「getElementById」, 「xxx」).方法 (「focus」, )
超文本瀏覽框.取文檔對象 ().對象型方法 (「getElementById」, 「xxx」).方法 (「click」, )
取這個選擇框的對象（XXX是對象名稱或者ID），然後讓其獲得焦點並兄唯單擊它
就可以再取
臨時文本 ＝ 超文本瀏覽框.取文檔對象 ().讀對象型屬性 (「body」, ).讀文本屬性 (「outerText」, )
此時的臨時文本就是網頁的源碼如果你要HTML格式的就用「讀文本屬性 (「outerhtml」, )」

問題四：易語言怎麼取網頁代碼中的一段代碼！ 20分 高級答案:
首先創建子程序---取中間文件內容---------------------------------------------------------------------
.版本 2
.子程序 取文本中間內容, 文本型, 公開
.參數 需取文本, 文本型
.參數 左邊內容, 文本型
.參數 右邊內容, 文本型
.參數 成功與否, 邏輯型, 參考 可空
.局部變數 長度, 整數型
.局部變數 左邊位置, 整數型
.局部變數 左邊長度, 整數型
.局部變數 右邊位置, 整數型
.局部變數 右邊長度, 整數型
長度 ＝ 取文本長度 (需取文本)
左邊位置 ＝ 尋找文本 (需取文本, 左邊內容, 0, 假羨汪培)
左邊長度 ＝ 取文本長陵氏度 (左邊內容)
.如果真 (左邊位置 ＝ -1)
成功與否 ＝ 假
返回 (「未找到左邊內容」)
.如果真結束
右邊位置 ＝ 尋找文本 (需取文本, 右邊內容, 0, 假)
右邊長度 ＝ 取文本長度 (右邊內容)
.如果真 (右邊位置 ＝ -1)
成功與否 ＝ 假
返回 (「未找到右邊內容」)
.如果真結束
成功與否 ＝ 真
返回 (取文本中間 (需取文本, 左邊位置 ＋ 左邊長度, 長度 － (左邊位置 ＋ 左邊長度) － (長度 － 右邊位置)))
--------------------創建完畢-------------------------廠------------------------------------------------------------
新建個編輯框1.然後在建個按鈕,在按鈕里輸入代碼
編輯框1.內容=取文本中間內容 (zxcvbnm123456789asfhyf, zxcvbnm, asfhyf)
點擊這個按鈕,編輯框1的內容就是123456789
圖片概要:

問題五：易語言 取網頁源碼 可以實時獲取超文本瀏覽框里的源碼，和 查看源代碼一樣。

問題六：易語言這個取網頁源碼如何取文本中間？有圖 到整數刪除了就可以了

問題七：易語言 如何讀取網頁源文件的代碼！ .版本 2
.支持庫 internet
.子程序 __啟動窗口_創建完畢
_啟動窗口.標題 ＝ 到文本 (HTTP讀文件 (「你要打開的t攻t地址。txt」))

問題八：求易語言多線程提取網頁源碼的例子 這是一個最簡單的多線程網頁訪問保存網頁的程序，如果滿意採納哦

問題九：易語言取網頁源碼中的元素內容，應該關於精易模塊 80分 你要的只是取這個 span 里的內容嗎？
用了精易模塊的話
你可以用 文本_取出中間文本() 命令來獲取，命令格式如下：
文本_取出中間文本(原文本，目標文本左邊，目標文本右邊)
原文本這里就可以是你讀取出來的網頁源碼
目標文本左邊，在你的圖片里，就可以是
目標文本右邊，在你的圖片里，就是

問題十：易語言取網頁指定內容源碼 要方便快捷的話，就用精易模塊裡面的取出中間文本（），不想用模塊的話就用分割文本。建議你用精易模塊的文本_取中間文本（）

④ 求一款易語言抽獎源碼，最好是圖片抽獎，或者自行放入對方提供的頭像。

.版本 2
.支持庫 xplib
.支持庫 iext
.程序集 窗口程序集1
.程序集變數 b, 文本型
.程序集變數 圖片框, 圖片框
.程序集變數 開始音樂, 位元組集
.程序集變數 結束音樂, 位元組集
.程序集變數 人數, 整數型
.程序集變數 人數數組, 文本型, , "0"
.程序集變數 n, 整數型
.程序集變數 圖片文件數組, 文本型, , "0"
.子程序 __啟動窗口_創建完畢

XP風格 (#藍色風格)
選擇夾.左邊 ＝ (取屏幕寬度 () － 選擇夾.寬度) ÷ 2
選擇夾.頂邊 ＝ (取屏幕高度 () － 選擇夾.高度) ÷ 2
圖片框1.標記 ＝ 「1」
圖片框2.標記 ＝ 「2」
圖片框3.標記 ＝ 「3」
圖片框4.標記 ＝ 「4」
圖片框5.標記 ＝ 「5」
圖片框6.標記 ＝ 「6」
選擇夾.現行子夾 ＝ 1
透明標簽1.左邊 ＝ (取屏幕寬度 () － 透明標簽1.寬度) ÷ 2
選擇夾2.頂邊 ＝ 選擇夾.高度 ＋ 選擇夾.頂邊
選擇夾2.左邊 ＝ (取屏幕寬度 () － 選擇夾2.寬度) ÷ 2
初始化 ()
人數 ＝ 取數組成員數 (圖片文件數組)
_一個人_被選擇 ()
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #F1鍵, &配置設置)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #回車鍵, &子程序1)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵1, &_一個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵2, &_二個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵3, &_三個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵4, &_四個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵5, &_五個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #鍵6, &_六個人_被選擇)
注冊熱鍵程序 (_啟動窗口.取窗口句柄 (), 0, #Esc鍵, &_退出_被選擇)

.子程序 子程序1
n ＝ n ＋ 1
.如果 (n ％ 2 ＝ 0)
_按鈕2_被單擊 ()
.否則
_按鈕1_被單擊 ()
.如果結束
.子程序 配置設置
載入 (系統設置窗口, , 真)
系統設置窗口.可視 ＝ 真

.子程序 _時鍾1_周期事件
置隨機數種子 ()
圖片框1.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 抽獎停
.局部變數 a, 整數型
.局部變數 i, 整數型
b ＝ 「」
置隨機數種子 ()
.計次循環首 (6, i)
a ＝ 取隨機數 (1, 人數)
.判斷循環首 (尋找文本 (b, 到文本 (a), 1, 假) ≠ -1)
a ＝ 取隨機數 (1, 人數)
.判斷循環尾 ()
圖片框 ＝ 取標記組件 (i)
圖片框.圖片 ＝ 讀入文件 (圖片文件數組 [a])
b ＝ b ＋ 「,」 ＋ 到文本 (a)
.計次循環尾 ()

.子程序 _一個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 假
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度) ÷ 2
.子程序 _二個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 假
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ (選擇夾.寬度 － 圖片框1.寬度 × 2 － 5) ÷ 2
圖片框2.左邊 ＝ 圖片框1.左邊 ＋ 圖片框1.寬度 ＋ 5
.子程序 _三個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 假
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _四個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 假
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _五個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 假
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 _六個人_被選擇
圖片初始化 ()
n ＝ 0
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()
圖片框1.可視 ＝ 真
圖片框2.可視 ＝ 真
圖片框3.可視 ＝ 真
圖片框4.可視 ＝ 真
圖片框5.可視 ＝ 真
圖片框6.可視 ＝ 真
圖片框1.左邊 ＝ 0
圖片框2.左邊 ＝ 325
圖片框3.左邊 ＝ 651

.子程序 圖片初始化
.局部變數 k, 整數型
選擇夾.現行子夾 ＝ 1
選擇夾.現行子夾 ＝ 0
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
_啟動窗口.背景音樂 ＝ 到位元組集 (0)
.計次循環首 (6, k)
圖片框 ＝ 取標記組件 (k)
圖片框.圖片 ＝ #圖片
.計次循環尾 ()
.子程序 _標題_被選擇
.局部變數 wb, 文本型
圖片初始化 ()
輸入框 (「請輸入標題內容」, , , wb, )
透明標簽1.標題 ＝ wb
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, wb)

.子程序 _設定轉獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
開始音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 通用對話框1.文件名)

.子程序 _設定中獎聲音_被選擇
圖片初始化 ()
通用對話框1.過濾器 ＝ 「WAV文件|*.wav」
通用對話框1.打開 ()
結束音樂 ＝ 讀入文件 (通用對話框1.文件名)
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 通用對話框1.文件名)

.子程序 _關閉音樂_被選擇
圖片初始化 ()
_啟動窗口.背景音樂 ＝ 到位元組集 (0)

.子程序 初始化
.局部變數 d, 整數型
_啟動窗口.底圖 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「背景圖片」, 取運行目錄 () ＋ 「\Wallpaper\1024.jpg」))
開始音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「轉獎聲音」, 取運行目錄 () ＋ 「\sound\musi.wav」))
結束音樂 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「聲音」, 「中獎聲音」, 取運行目錄 () ＋ 「\sound\finish.wav」))
透明標簽1.標題 ＝ 讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「標題」, 「標題1」, 「XX公司幸運抽獎」)
.計次循環首 (6, d)
圖片框 ＝ 取標記組件 (d)
圖片框.圖片 ＝ 讀入文件 (讀配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 取運行目錄 () ＋ 「\Wallpaper\cj.jpg」))
.計次循環尾 ()
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.jpg」, )
查找文件 (圖片文件數組, 取運行目錄 () ＋ 「\Photos\」, 「*.bmp」, )
.如果真 (取數組成員數 (圖片文件數組) ＜ 6)
信息框 (「請把圖片文件放到[Photots]文件夾下後重啟軟體！」 ＋ #換行符 ＋ 「圖片文件格式支持[jpg bmp]」, 64, 「提示：」)
結束 ()
.如果真結束

.子程序 _抽獎圖片_被選擇
.局部變數 a, 整數型
圖片初始化 ()
通用對話框1.過濾器 ＝ 「圖片文件|*.jpg;*.bmp」
通用對話框1.打開 ()
.計次循環首 (6, a)
圖片框 ＝ 取標記組件 (a)
圖片框.圖片 ＝ 讀入文件 (通用對話框1.文件名)
.計次循環尾 ()
寫配置項 (取運行目錄 () ＋ 「\config.ini」, 「圖片」, 「抽獎圖片」, 通用對話框1.文件名)

.子程序 _時鍾2_周期事件
置隨機數種子 ()
圖片框2.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾3_周期事件
置隨機數種子 ()
圖片框3.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾4_周期事件
置隨機數種子 ()
圖片框4.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾5_周期事件
置隨機數種子 ()
圖片框5.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _時鍾6_周期事件
置隨機數種子 ()
圖片框6.圖片 ＝ 讀入文件 (圖片文件數組 [取隨機數 (1, 人數)])

.子程序 _退出_被選擇
結束 ()

.子程序 _時鍾7_周期事件
' 如果 (取滑鼠垂直位置 () ＜ 10)
系統設定.可視 ＝ 真
設定抽獎人數.可視 ＝ 真
' 系統設定.可視 ＝ 假
' 設定抽獎人數.可視 ＝ 假
.子程序 _按鈕1_被單擊, 邏輯型
.如果真 (選擇夾.現行子夾 ＝ 1)
選擇夾.現行子夾 ＝ 0
.如果真結束
_啟動窗口.背景音樂 ＝ 開始音樂
_啟動窗口.播放次數 ＝ 0
時鍾1.時鍾周期 ＝ 100
時鍾2.時鍾周期 ＝ 100
時鍾3.時鍾周期 ＝ 100
時鍾4.時鍾周期 ＝ 100
時鍾5.時鍾周期 ＝ 100
時鍾6.時鍾周期 ＝ 100
按鈕2.禁止 ＝ 假
按鈕1.禁止 ＝ 真
按鈕2.獲取焦點 ()
返回 (真)

.子程序 _按鈕2_被單擊
抽獎停 ()
_啟動窗口.背景音樂 ＝ 結束音樂
_啟動窗口.播放次數 ＝ 1
時鍾1.時鍾周期 ＝ 0
時鍾2.時鍾周期 ＝ 0
時鍾3.時鍾周期 ＝ 0
時鍾4.時鍾周期 ＝ 0
時鍾5.時鍾周期 ＝ 0
時鍾6.時鍾周期 ＝ 0
按鈕2.禁止 ＝ 真
按鈕1.禁止 ＝ 假
按鈕1.獲取焦點 ()