国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - 易語言 - 易語言調用百度的真相問答制作真相問答機的代碼

易語言調用百度的真相問答制作真相問答機的代碼

2022-02-23 15:52易語言源碼教程 易語言

今天小編就為大家分享一篇關于易語言調用百度的真相問答制作真相問答機的代碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

全局變量表

?
1
2
3
.版本 2
.全局變量 源文件, 文本型
.全局變量 答案, 文本型

常量數據表

?
1
2
3
4
5
.版本 2
.常量 常量1, "<文本長度: 9>", , -middle">
.常量 常量2, "<文本長度: 7>", , </span>
.常量 常量3, "<文本長度: 7>", , proof">
.常量 常量4, "<文本長度: 7>", , </div>

驗證

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
.版本 2
.支持庫 HtmlView
.支持庫 spec
.程序集 窗口程序集_窗口1
.程序集變量 論證, 文本型
.子程序 _窗口1_創建完畢
標題 = 答案
論證 = “<div><h2><strong>” + 答案 + “<br><br>論證:</p></strong></h2>” + 文本_取出中間文本 (源文件, “論證</p>”, “參考資料”)
寫到文件 (取運行目錄 () + “\lz.html”, 到字節集 (論證))
超文本瀏覽框1.地址 = 取運行目錄 () + “\lz.html”
.子程序 文本_取出中間文本, 文本型, 公開, 比如:欲取全文本為“12345”,現在要取出“3”,<3>的前面為“2”,<3>的后面為“4”。
.參數 欲取全文本, 文本型, , 比如:欲取全文本為 12345
.參數 前面文本, 文本型, , 3的前面為“2”,引號直接用 #引號,如:"<font color=#引號red#引號>"
.參數 后面文本, 文本型, , 3的后面為“4”,引號直接用 #引號,如:"<font color=#引號red#引號>"
.參數 起始搜尋位置, 整數型, 可空, 可空。1為首位置,2為第2個位置,如此類推,如果被省略,則“尋找字節集”命令默認從首部開始,“倒找字節集”命令默認從尾部開始。
.參數 是否區分大小寫, 邏輯型, 可空, 可空。初始值為“假”。假 = 不區分  真 = 區分大小寫。
.局部變量 局_位置, 整數型
.局部變量 局_位置1, 整數型
.局部變量 局_前面文本, 文本型
.局部變量 局_后面文本, 文本型
局_前面文本 = 子文本替換 (前面文本, “#引號”, #引號, , , 真)
局_后面文本 = 子文本替換 (后面文本, “#引號”, #引號, , , 真)
是否區分大小寫 = 取反 (是否區分大小寫)
局_位置 = 尋找文本 (欲取全文本, 局_前面文本, 起始搜尋位置, 是否區分大小寫)
.如果真 (局_位置 ≠ -1)
  局_位置 = 局_位置 + 取文本長度 (局_前面文本)
.如果真結束
局_位置1 = 尋找文本 (欲取全文本, 局_后面文本, 局_位置, 是否區分大小寫)
.如果真 (局_位置 = -1 或 局_位置1 = -1)
  返回 (“”)
.如果真結束
返回 (取文本中間 (欲取全文本, 局_位置, 局_位置1 - 局_位置))
.子程序 _窗口1_首次激活
.如果真 (答案 = “你答錯了!這是真的!”)
  圖形按鈕1.正常圖片 = #圖片1
.如果真結束
.如果真 (答案 = “你答錯了!這是假的!”)
  圖形按鈕1.正常圖片 = #圖片2
.如果真結束
.如果真 (答案 = “這個問題還有待考證。”)
  圖形按鈕1.正常圖片 = #圖片3
.如果真結束
圖形按鈕1.可視 = 真
延遲 (3000)
圖形按鈕1.可視 = 假

百度真相問答機

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
.版本 2
.支持庫 EThread
.支持庫 internet
.支持庫 HtmlView
.程序集 窗口程序集_啟動窗口
.程序集變量 正確
.程序集變量 錯誤
.子程序 _問題按鈕_被單擊
啟動線程 (&子程序1, , )
.子程序 __啟動窗口_創建完畢
_問題按鈕_被單擊 ()
.子程序 子程序1
真按鈕.禁止 = 真
假按鈕.禁止 = 真
置隨機數種子 ()
編輯框2.內容 = “http://zhidao.baidu.com/liuyan/detail?id=” + 到文本 (取隨機數 (3100, 5900))
編輯框1.內容 = 到文本 (HTTP讀文件 (編輯框2.內容))
源文件 = 編輯框1.內容
編輯框3.內容 = 文本_取出中間文本 (編輯框1.內容, “status: '”, “'”)
.如果真 (文本_取出中間文本 (源文件, “論證</p>”, “參考資料”) = “”)
  _問題按鈕_被單擊 ()
  返回 ()
.如果真結束
.如果真 (編輯框3.內容 = “”)
  _問題按鈕_被單擊 ()
  返回 ()
.如果真結束
寫到文件 (取運行目錄 () + “\wt.html”, 到字節集 (文本_取出中間文本 (編輯框1.內容, #常量1, #常量2) + “<br> <br>” + 文本_取出中間文本 (編輯框1.內容, #常量3, #常量4)))
超文本瀏覽框1.地址 = 取運行目錄 () + “\wt.html”
_啟動窗口.真按鈕.禁止 = 假
_啟動窗口.假按鈕.禁止 = 假
標題 = “知道真相問答機 ” + “正確:” + 到文本 (正確) + “ 錯誤:” + 到文本 (錯誤)
.子程序 _真按鈕_被單擊
.如果真 (編輯框3.內容 = “1”)
  正確 = 正確 + 1
  _問題按鈕_被單擊 ()
.如果真結束
.如果真 (編輯框3.內容 = “2”)
  錯誤 = 錯誤 + 1
  答案 = “你答錯了!這是假的!”
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結束
.如果真 (編輯框3.內容 = “3”)
  答案 = “這個問題還有待考證。”
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結束
標題 = “知道真相問答機 ” + “正確:” + 到文本 (正確) + “ 錯誤:” + 到文本 (錯誤)
.子程序 _假按鈕_被單擊
.如果真 (編輯框3.內容 = “1”)
  答案 = “你答錯了!這是真的!”
  錯誤 = 錯誤 + 1
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結束
.如果真 (編輯框3.內容 = “2”)
  正確 = 正確 + 1
  _問題按鈕_被單擊 ()
.如果真結束
.如果真 (編輯框3.內容 = “3”)
  答案 = “這個問題還有待考證。”
  載入 (窗口1, , 真)
  _問題按鈕_被單擊 ()
.如果真結束
標題 = “知道真相問答機 ” + “正確:” + 到文本 (正確) + “ 錯誤:” + 到文本 (錯誤)

運行結果:

易語言調用百度的真相問答制作真相問答機的代碼

總結

以上就是這篇文章的全部內容了,希望本文的內容對大家的學習或者工作具有一定的參考學習價值,謝謝大家對服務器之家的支持。如果你想了解更多相關內容請查看下面相關鏈接

延伸 · 閱讀

精彩推薦
  • 易語言實例操作易語言載入窗口

    實例操作易語言載入窗口

    在本文中小編給大家整理的是關于易語言載入窗口的教程和步驟內容,需要的可以跟著學習下...

    易語言教程網19162022-03-02
  • 易語言易語言獲取指定磁盤的名稱

    易語言獲取指定磁盤的名稱

    今天小編就為大家分享一篇關于易語言獲取指定磁盤的名稱,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來...

    易語言幫助手冊12662022-01-04
  • 易語言易語言生成exe文件的方法

    易語言生成exe文件的方法

    在本篇內容中小編給大家分享的是關于易語言生成exe文件的方法知識點,需要的朋友們參考下。...

    易語言教程網14792022-03-01
  • 易語言一步一步跟我學易語言之關于變量

    一步一步跟我學易語言之關于變量

    今天小編就為大家分享一篇關于一步一步跟我學易語言之關于變量,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊10822021-06-17
  • 易語言一步一步跟我學易語言之第二個易程序菜單設計

    一步一步跟我學易語言之第二個易程序菜單設計

    今天小編就為大家分享一篇關于的一步一步跟我學易語言之第二個易程序菜單設計,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要...

    易語言幫助手冊7092021-06-17
  • 易語言易語言關于程序進程和線程的基礎知識

    易語言關于程序進程和線程的基礎知識

    今天小編就為大家分享一篇關于易語言關于程序進程和線程的基礎知識,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起...

    三葉資源網6662022-02-24
  • 易語言易語言設置進度條邊框樣式的方法

    易語言設置進度條邊框樣式的方法

    今天小編就為大家分享一篇關于易語言設置進度條邊框樣式的方法,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨...

    易語言幫助手冊4422022-01-20
  • 易語言易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

    今天小編就為大家分享一篇關于易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,...

    易語言幫助手冊9092022-01-12
主站蜘蛛池模板: 国产精品久久久久久 | 天天干夜夜拍 | 色播久久| 国产在线资源 | 日本精品在线观看 | 一色视频| 成人黄色片网站 | 91久久国产精品 | 亚洲综合中文网 | 欧美一区二区在线刺激视频 | 日韩欧美在线观看一区二区 | www.久久久| 成人中文网| 亚洲精品国产第一综合99久久 | 国产精品区二区三区日本 | 久久久久久一区二区三区 | 欧美成人自拍 | 亚洲天堂av网 | 国产日本韩国在线 | 婷婷激情综合 | 亚洲综合视频在线观看 | 亚洲高清视频在线 | av在线网址观看 | 日日操天天操 | 成人情趣视频 | 亚洲欧美在线综合 | 一级a毛片 | 亚洲视频在线观看视频 | 国产精品久久久久无码av | 四虎影院在线免费播放 | 日本天堂在线 | 日韩中文字幕在线视频 | 国产第一区在线观看 | 三级网站在线播放 | 色网站在线观看 | 一级片黄色大片 | 中文字幕在线精品 | 国产大学生援交视频在线观看 | 欧美激情五月 | 网站av| 亚洲精品片 |