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

.版本 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：含义由应用程序规定;

.版本 2
.数据类型 Rect
  .成员 Left, 整数型
  .成员 Top, 整数型
  .成员 Right, 整数型
  .成员 Bottom, 整数型

.版本 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)
显示任务栏 ()
显示系统时钟 ()
显示开始按钮 ()
关闭系统 (#重启, )
结束 ()