一区二区三区在线-一区二区三区亚洲视频-一区二区三区亚洲-一区二区三区午夜-一区二区三区四区在线视频-一区二区三区四区在线免费观看

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

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

服務器之家 - 編程語言 - 易語言 - 易語言電腦屏幕鎖定工具源碼

易語言電腦屏幕鎖定工具源碼

2022-02-27 16:52易語言源碼教程 易語言

今天小編就為大家分享一篇關于易語言電腦屏幕鎖定工具源碼,小編覺得內容挺不錯的,現在分享給大家,具有很好的參考價值,需要的朋友一起跟隨小編來看看吧

DLLL命令表

?
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
.版本 2
.DLL命令 安裝鉤子, 整數型, , "SetWindowsHookExA"
  .參數 ihook, 整數型
  .參數 lpfunc, 子程序指針
  .參數 hin, 整數型
  .參數 threadid, 整數型
.DLL命令 卸載鉤子, 整數型, , "UnhookWindowsHookEx"
  .參數 hHook, 整數型
.DLL命令 下一個鉤子, 整數型, , "CallNextHookEx"
  .參數 hHook, 整數型
  .參數 icode, 整數型
  .參數 wParam, 整數型
  .參數 lParam, 整數型
.DLL命令 CopyMemory, , , "RtlMoveMemory"
  .參數 Destination, 按鍵信息, 傳址
  .參數 Source, 整數型
  .參數 cbCopy, 整數型
.DLL命令 GetModuleHandleA, 整數型, , "GetModuleHandleA"
  .參數 lpModuleName, 整數型
.DLL命令 SetWindowPos, 整數型, "user32"
  .參數 HWnd, 整數型
  .參數 hWndInsertAfter, 整數型
  .參數 X, 整數型
  .參數 Y, 整數型
  .參數 cx, 整數型
  .參數 cy, 整數型
  .參數 wFlags, 整數型

自定義數據類型表

?
1
2
3
4
5
6
7
.版本 2
.數據類型 按鍵信息
  .成員 虛擬碼, 整數型
  .成員 掃描碼, 整數型
  .成員 標記, 整數型
  .成員 時間, 整數型
  .成員 額外信息, 整數型

鎖屏框

?
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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
.版本 2
.支持庫 eAPI
.程序集 窗口程序集1
.程序集變量 鉤子句柄, 整數型
.子程序 _編輯框_解鎖密碼框_內容被改變
標簽2.標題 = “屏幕鎖定中。。。”
標簽2.文本顏色 = #銀白
.子程序 _窗口1_鎖屏框_創建完畢
設置窗口透明度 (取窗口句柄 (), 250)
窗口1_鎖屏框.左邊 = 0
窗口1_鎖屏框.頂邊 = 0
窗口1_鎖屏框.寬度 = 取屏幕寬度 ()
窗口1_鎖屏框.高度 = 取屏幕高度 ()
圖片框1.左邊 = 取屏幕寬度 () ÷ 2 - 圖片框1.寬度 ÷ 2
圖片框1.頂邊 = 取屏幕高度 () ÷ 2 - 圖片框1.高度 ÷ 2
注冊屏蔽 ()
.子程序 窗口總在最前
.參數 參_窗口句柄, 整數型
SetWindowPos (參_窗口句柄, -1, 0, 0, 0, 0, 位或 (2, 1))
.子程序 _圖形按鈕1_被單擊
_按鈕1_被單擊 ()
.子程序 _按鈕1_被單擊
.如果 (編輯框_解鎖密碼框.內容 = “”)
  標簽2.標題 = “未輸入密碼,請重新輸入!”
  標簽2.文本顏色 = #紅色
.否則
  .如果 (編輯框_解鎖密碼框.內容 = “123”)
    解除屏蔽 ()
    結束 ()
  .否則
    .如果 (編輯框_解鎖密碼框.內容 ≠ _啟動窗口.編輯框_重復密碼框.內容)
      標簽2.標題 = “密碼不正確,請重新輸入!”
      標簽2.文本顏色 = #紅色
    .否則
      .如果 (編輯框_解鎖密碼框.內容 = _啟動窗口.編輯框_重復密碼框.內容)
        解除屏蔽 ()
        結束 ()
      .否則
      .如果結束
    .如果結束
  .如果結束
.如果結束
.子程序 鉤子函數, 整數型
.參數 icode, 整數型
.參數 wparam, 整數型
.參數 lparam, 整數型
.局部變量 按鍵信息, 按鍵信息
CopyMemory (按鍵信息, lparam, 30)
.如果真 (icode = 0)
  .如果真 (按鍵信息.虛擬碼 = 91 或 按鍵信息.虛擬碼 = 92) ' 屏蔽Win鍵
    .判斷開始 (wparam = 256)
      輸出調試文本 (“按下Win鍵!”)
    .默認
      輸出調試文本 (“彈起Win鍵!”)
    .判斷結束
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 27 且 按鍵信息.掃描碼 = 1) ' 屏蔽crlt+Esc
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 115 且 按鍵信息.掃描碼 = 62) ' 屏蔽alt+f4
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 9 且 按鍵信息.掃描碼 = 15) ' 屏蔽alt+TAB
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 32 且 按鍵信息.掃描碼 = 57) ' 屏蔽crlt+空格 左邊
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 161 且 按鍵信息.掃描碼 = 54) ' 屏蔽crlt+空格 右邊
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 160 且 按鍵信息.掃描碼 = 42) ' 屏蔽crlt+SHIFT
    返回 (1)
  .如果真結束
  .如果真 (按鍵信息.虛擬碼 = 46 且 按鍵信息.掃描碼 = 83) ' 屏蔽CAL_DEL_ALT
    返回 (1)
  .如果真結束
.如果真結束
返回 (下一個鉤子 (鉤子句柄, icode, wparam, lparam))
.子程序 注冊屏蔽
.如果真 (鉤子句柄 = 0)
  鉤子句柄 = 安裝鉤子 (13, &鉤子函數, GetModuleHandleA (0), 0)
  .如果 (鉤子句柄 ≠ 0)
    輸出調試文本 (“注冊鉤子成功!”)
  .否則
    輸出調試文本 (“注冊鉤子失敗!”)
  .如果結束
.如果真結束
.子程序 解除屏蔽
.如果真 (鉤子句柄 ≠ 0)
  .如果 (卸載鉤子 (鉤子句柄) ≠ 0)
    輸出調試文本 (“缷載鉤子成功!”)
  .否則
    輸出調試文本 (“缷載鉤子失敗!”)
  .如果結束
.如果真結束
.子程序 _時鐘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
.版本 2
.支持庫 eAPI
.程序集 窗口程序集2
.子程序 __啟動窗口_創建完畢
設置窗口透明度 (取窗口句柄 (), 245)
.子程序 _圖形按鈕1_被單擊
_按鈕1_被單擊 ()
.子程序 _按鈕1_被單擊
.如果 (編輯框_密碼框.內容 ≠ 編輯框_重復密碼框.內容)
  標簽_提示.標題 = “密碼不一致,請重新輸入!”
  標簽_提示.文本顏色 = #紅色
.否則
  .如果 (編輯框_密碼框.內容 = “”)
    標簽_提示.標題 = “未輸入密碼,請重新輸入!”
    標簽_提示.文本顏色 = #紅色
  .否則
    _啟動窗口.可視 = 假
    載入 (窗口1_鎖屏框, , 真)
  .如果結束
.如果結束
.子程序 _編輯框_密碼框_內容被改變
標簽_提示.標題 = “請輸入密碼后繼續:”
標簽_提示.文本顏色 = #白色
.子程序 _編輯框_重復密碼框_內容被改變
標簽_提示.標題 = “請輸入密碼后繼續:”
標簽_提示.文本顏色 = #白色
.子程序 _圖形按鈕_最小化_被單擊
_啟動窗口.位置 = 2
.子程序 _圖形按鈕_關閉_被單擊
銷毀 ()

運行結果:

易語言電腦屏幕鎖定工具源碼

總結

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

延伸 · 閱讀

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

    實例操作易語言載入窗口

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

    易語言教程網19162022-03-02
  • 易語言易語言在畫板中寫出指定文本當畫板中已滿會自動滾屏

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

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

    易語言幫助手冊9092022-01-12
  • 易語言易語言獲取指定磁盤的名稱

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

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

    易語言幫助手冊12662022-01-04
  • 易語言易語言關于程序進程和線程的基礎知識

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

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

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

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

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

    易語言幫助手冊4422022-01-20
  • 易語言一步一步跟我學易語言之關于變量

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

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

    易語言幫助手冊10822021-06-17
  • 易語言易語言生成exe文件的方法

    易語言生成exe文件的方法

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

    易語言教程網14792022-03-01
  • 易語言一步一步跟我學易語言之第二個易程序菜單設計

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

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

    易語言幫助手冊7092021-06-17
主站蜘蛛池模板: 香蕉久久高清国产精品免费 | 五月桃花网婷婷亚洲综合 | 日本理论片中文在线观看2828 | 男人操女人免费视频 | 欧美草逼视频 | 香蕉久久一区二区不卡无毒影院 | 国产成人精品一区二区阿娇陈冠希 | 精品久久久久久国产91 | 日本一道高清不卡免费 | 乌克兰粉嫩摘花第一次 | 日韩视频一区 | 免费在线观看网址入口 | 肉色欧美久久久久久久蜜桃 | 娇妻与公陈峰姚瑶小说在线阅读 | 日本一卡=卡三卡免费 | 国产大片网站 | 激情影院免费 | 天天狠天天天天透在线 | 日本护士撒尿xxxx欧美 | 1024毛片| 国产精品一二区 | 操人网| 激情偷拍网 | 日韩亚洲一区中文字幕在线 | 婷婷国产在线 | 亚洲色图欧美视频 | 欧美性高清另类videosex死尸 | 青草热久精品视频在线观看 | 亚洲免费在线观看视频 | 二次元美女挤奶漫画 | 白鹿扒开内裤露出尿孔 | 久久国产精品人妻中文 | 99er在线视频| 亚欧洲乱码视频一二三区 | 日韩成人在线影院 | 国产精品亚洲片在线不卡 | 护士被多人调教到失禁h | 四虎网站入口 | 国产亚洲欧美成人久久片 | 天堂网www在线中文天堂 | 国内精品国语自产拍在线观看55 |