服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

服务器之家 - 编程语言 - 易语言 - 易语言制作黑客小程序源码

易语言制作黑客小程序源码

2022-02-27 16:53易语言源码教程 易语言

今天小编就为大家分享一篇关于易语言制作黑客小程序源码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

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
28
29
30
31
32
33
.版本 2
.DLL命令 FindWindow, 整数型, , "FindWindowA"
  .参数 lpClassName, 文本型
  .参数 lpWindowName, 整数型
.DLL命令 FindWindowA, 整数型, , "FindWindowA"
  .参数 lpClassName, 文本型
  .参数 lpWindowName, 文本型
.DLL命令 GetWindow, 整数型, , "GetWindow"
  .参数 hWnd, 整数型
  .参数 uCmd, 整数型
.DLL命令 SystemParametersInfo, 逻辑型, , "SystemParametersInfoA"
  .参数 uiAction, 整数型
  .参数 uiParam, 整数型
  .参数 pvParam, Rect
  .参数 fWinIni, 整数型
.DLL命令 SendMessage, 整数型, , "SendMessageA"
  .参数 hWnd, 整数型
  .参数 Msg, 整数型
  .参数 wParam, 整数型
  .参数 lParam, 整数型
.DLL命令 FindWindowExA, 整数型, "user32", "FindWindowExA", , 在窗口列表中寻找与指定条件相符的第一个子窗口 找到的窗口的句柄。如未找到相符窗口,则返回零。会设置GetLastError
  .参数 窗口句柄1, 整数型, , 在其中查找子的父窗口。如设为零,表示使用桌面窗口(通常说的顶级窗口都被认为是桌面的子窗口,所以也会对它们进行查找)
  .参数 窗口句柄2, 整数型, , 从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零,表示从第一个子窗口开始搜索
  .参数 欲搜索的类名1, 文本型, , 欲搜索的类名。“”表示忽略
  .参数 欲搜索的类名2, 整数型, , 欲搜索的类名。“”表示忽略;
.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数,将一条消息发给那个窗口。除非消息处理完毕,否则该函数不会返回。SendMessageBynum, ;  SendMessageByString是该函数的“类型安全”声明形式 由具体的消息决定
  .参数 窗口句柄, 整数型, , 要接收消息的那个窗口的句柄
  .参数 信息值, 整数型, , 消息的标识符
  .参数 参数一, 逻辑型, , 具体取决于消息
  .参数 参数二, 整数型, , 具体取决于消息;
.DLL命令 GetWindowLongA, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息 由nIndex决定。零表示出错。会设置GetLastError
  .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
  .参数 属性, 整数型, , 欲取回的信息,可以是下述任何一个常数:;GWL_EXSTYLE:扩展窗口样式;GWL_STYLE:窗口样式;GWL_WNDPROC:该窗口的窗口函数的地址;GWL_HINSTANCE:拥有窗口的实例的句柄;GWL_HWNDPARENT:该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID:对话框中一个子窗口的标识符;GWL_USERDATA:含义由应用程序规定;DWL_DLGPROC:这个窗口的对话框函数地址;DWL_MSGRESULT:在对话框函数中处理的一条消息返回的值;DWL_USER:含义由应用程序规定;

自定义数据类型表

?
1
2
3
4
5
6
.版本 2
.数据类型 Rect
  .成员 Left, 整数型
  .成员 Top, 整数型
  .成员 Right, 整数型
  .成员 Bottom, 整数型

黑客小程序

?
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
.版本 2
.支持库 EThread
.支持库 eAPI
.支持库 spec
.支持库 shell
.程序集 窗口程序集1
.程序集变量 hWindow, 整数型
.程序集变量 hSHELLDLL_DefView, 整数型
.子程序 __启动窗口_创建完毕
播放音乐 (#声音1, 真)
启动线程 (&修改壁纸, , )
启动线程 (&开始移动, , )
启动线程 (&come, , )
启动线程 (&延迟93, , )
.子程序 come
时钟1.时钟周期 = 100
.子程序 修改壁纸
写到文件 (“1.bmp”, #图片2)
置文件属性 (“1.bmp”, 2)
设置桌面墙纸 (“1.bmp”, 2)
.子程序 取消自动排列和对齐
hWindow = FindWindowA (“Progman”, “Program Manager”)
hSHELLDLL_DefView = FindWindowExA (hWindow, 0, “SHELLDLL_DefView”, 0)
hWindow = FindWindowExA (hSHELLDLL_DefView, 0, “SysListView32”, 0)
.如果真 (位与 (GetWindowLongA (hWindow, -16), 256) = 256)
  SendMessage (hSHELLDLL_DefView, 273, 28753, 0)
.如果真结束
SendMessage (hWindow, 4096 + 54, 524288, 0) ' 取消自动对齐网格
.子程序 开始移动
.局部变量 桌面句柄, 整数型
.局部变量 i, 整数型
.局部变量 图标个数, 整数型
.局部变量 X, 整数型
.局部变量 Y, 整数型
.局部变量 j, 整数型
.局部变量 矩形区域, Rect
.局部变量 圆心X, 整数型
.局部变量 圆心Y, 整数型
.局部变量 临时半径, 整数型
.局部变量 半径, 整数型
.局部变量 弧度, 双精度小数型
.局部变量 屏幕宽度, 整数型
.局部变量 屏幕高度, 整数型
半径 = 250
桌面句柄 = 取桌面句柄 ()
图标个数 = SendMessage (桌面句柄, 4100, 0, 0)
.计次循环首 (10000, j)
  .如果 (j > 100 且 j < 120 或 j > 200 且 j < 220 或 j > 300 且 j < 320)
    SystemParametersInfo (48, 0, 矩形区域, 0)
    屏幕宽度 = 矩形区域.Right - 矩形区域.Left
    屏幕高度 = 矩形区域.Bottom - 矩形区域.Top
    圆心X = 屏幕宽度 ÷ 2
    圆心Y = 屏幕高度 ÷ 2
    .如果 (圆心X > 圆心Y)
      临时半径 = 圆心Y
    .否则
      临时半径 = 圆心X
    .如果结束
    .如果真 (半径 > 临时半径)
      半径 = 临时半径
    .如果真结束
    图标个数 = SendMessage (桌面句柄, 4100, 0, 0)
    弧度 = 2 × #pi ÷ 图标个数
    .计次循环首 (图标个数, i)
      X = 圆心X + 取整 (半径 × 求正弦 ((i - 1) × 弧度))
      Y = 圆心Y + 取整 (半径 × 求余弦 ((i - 1) × 弧度))
      SendMessage (桌面句柄, 4111, i - 1, 合并整数 (X, Y))
    .计次循环尾 ()
  .否则
    .计次循环首 (图标个数, i)
      X = 取随机数 (0, 取屏幕宽度 ())
      Y = 取随机数 (0, 取屏幕高度 ())
      SendMessage (桌面句柄, 4111, 图标个数 - i, 合并整数 (X, Y))
    .计次循环尾 ()
  .如果结束
.计次循环尾 ()
.子程序 取桌面句柄, 整数型
.局部变量 temp, 整数型
temp = FindWindow (“progman”, 0)
temp = GetWindow (temp, 5)
temp = GetWindow (temp, 5)
返回 (temp)
.子程序 _时钟1_周期事件
模拟按键 (91, , )
.子程序 延迟93
延迟 (50000)
显示任务栏 ()
显示系统时钟 ()
显示开始按钮 ()
关闭系统 (#重启, )
结束 ()

运行结果:

易语言制作黑客小程序源码

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对服务器之家的支持。如果你想了解更多相关内容请查看下面相关链接

延伸 · 阅读

精彩推荐
  • 易语言实例操作易语言载入窗口

    实例操作易语言载入窗口

    在本文中小编给大家整理的是关于易语言载入窗口的教程和步骤内容,需要的可以跟着学习下...

    易语言教程网19162022-03-02
  • 易语言易语言获取指定磁盘的名称

    易语言获取指定磁盘的名称

    今天小编就为大家分享一篇关于易语言获取指定磁盘的名称,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来...

    易语言帮助手册12662022-01-04
  • 易语言易语言设置进度条边框样式的方法

    易语言设置进度条边框样式的方法

    今天小编就为大家分享一篇关于易语言设置进度条边框样式的方法,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册4422022-01-20
  • 易语言一步一步跟我学易语言之第二个易程序菜单设计

    一步一步跟我学易语言之第二个易程序菜单设计

    今天小编就为大家分享一篇关于的一步一步跟我学易语言之第二个易程序菜单设计,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要...

    易语言帮助手册7092021-06-17
  • 易语言一步一步跟我学易语言之关于变量

    一步一步跟我学易语言之关于变量

    今天小编就为大家分享一篇关于一步一步跟我学易语言之关于变量,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随...

    易语言帮助手册10822021-06-17
  • 易语言易语言在画板中写出指定文本当画板中已满会自动滚屏

    易语言在画板中写出指定文本当画板中已满会自动滚屏

    今天小编就为大家分享一篇关于易语言在画板中写出指定文本当画板中已满会自动滚屏,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,...

    易语言帮助手册9092022-01-12
  • 易语言易语言关于程序进程和线程的基础知识

    易语言关于程序进程和线程的基础知识

    今天小编就为大家分享一篇关于易语言关于程序进程和线程的基础知识,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起...

    三叶资源网6662022-02-24
  • 易语言易语言生成exe文件的方法

    易语言生成exe文件的方法

    在本篇内容中小编给大家分享的是关于易语言生成exe文件的方法知识点,需要的朋友们参考下。...

    易语言教程网14792022-03-01