弹窗windows7版.e

【实例简介】弹窗windows7版.e

【实例截图】

【核心代码】

.版本 2

.支持库 eAPI
.支持库 wmp9
.支持库 OPenGL

' 编写者 bilibili:@开心expz  运行演示视频：https://www.bilibili.com/video/av44893985
' 调试版本运行4分钟左右后自动结束
.如果真 (检测系统版本 () ≠ “6.1”)
    信息框 (“检测到当前操作系统版本不是windows7” ＋ #换行符 ＋ “此版本外挂只有在windows7中运行时有效”, #错误图标, “游戏外挂无法启动”, )
    结束 ()
.如果真结束
信息框 (“《与雾雨魔理沙一起偷重要的东西》外挂已启动” ＋ #换行符 ＋ “若未启动游戏，此外挂将暂时在后台运行”, #信息图标, “游戏外挂已启动”, )
目录 ＝ “C:\Users\” ＋ 取系统用户名 (GetCurrentProcessId ()) ＋ “\AppData\Local\Temp\Marisa7expz\”
载入 (弹窗, , 假)
载入 (窗口1, , 假)
载入 (视频, , 假)
创建目录 (目录)
写到文件 (目录 ＋ “sys.bmp”, #sys)
写到文件 (目录 ＋ “mp4.bmp”, #mp4)
写到文件 (目录 ＋ “ugc.bmp”, #ugc)
写到文件 (目录 ＋ “av7307083.mp4”, #av7307083)
写到文件 (目录 ＋ “bgm.mp3”, #bgm)
模拟按键 (91, #M键, )  ' 模拟按下win M快捷键显示桌面
播放器1.地址 ＝ 目录 ＋ “bgm.mp3”

.子程序 _播放器1_打开状态被改变, , , 用windows media player组件播放bgm是为了避免与播放的音效冲突
.参数 新的状态, 整数型

.如果真 (新的状态 ＝ 13)  ' bgm开始播放的时候
    时间 ＝ 27
    标签1.调用反馈事件 (-1, 0, )  ' 在 _标签1_反馈事件 中执行的内容:创建时钟(不用标签反馈事件就会出问题)
.如果真结束


.子程序 取系统用户名, 文本型, 公开, getprocessuser
.参数 pid, 整数型, , 通过API GetCurrentProcessId () 取得.
.局部变量 hProcess, 整数型
.局部变量 hToken, 整数型
.局部变量 ptiUser, 字节集
.局部变量 pSid, 整数型
.局部变量 bSuccess, 逻辑型
.局部变量 cbBuf, 整数型
.局部变量 UserSize, 整数型
.局部变量 DomainSize, 整数型
.局部变量 User, 文本型
.局部变量 Domain, 文本型

hProcess ＝ OpenProcess (1024, 假, pid)
.如果真 (hProcess ＝ 0)
    返回 (字符 (0))
.如果真结束
.如果真 (OpenProcessToken (hProcess, 8, hToken) ＝ 假)
    CloseHandle (hProcess)
    返回 (字符 (0))
.如果真结束
CloseHandle (hProcess)
GetTokenInformation (hToken, 1, {  }, 0, cbBuf)
ptiUser ＝ 取空白字节集 (cbBuf)
bSuccess ＝ GetTokenInformation (hToken, 1, ptiUser, cbBuf, 0)
pSid ＝ 取字节集数据 (ptiUser, #整数型, )
CloseHandle (hToken)
.如果真 (bSuccess ＝ 假)
    返回 (字符 (0))
.如果真结束
LookupAccountSidA (字符 (0), pSid, 字符 (0), UserSize, 字符 (0), DomainSize, 0)
.如果真 (UserSize ＝ 0)
    CloseHandle (hProcess)
    返回 (字符 (0))
.如果真结束
User ＝ 取空白文本 (UserSize)
Domain ＝ 取空白文本 (DomainSize)
bSuccess ＝ LookupAccountSidA (字符 (0), pSid, User, UserSize, Domain, DomainSize, 0)
返回 (选择 (bSuccess, User, 字符 (0)))


.子程序 终止Explorer, , , 终止Explorer.exe，并使其不能自动重运行
.局部变量 Pid
.局部变量 hwnd
.局部变量 hProcess

hwnd ＝ FindWindowExA (0, 0, “Progman”, 字符 (0))
hwnd ＝ FindWindowExA (hwnd, 0, “SHELLDLL_DefView”, 字符 (0))
hwnd ＝ FindWindowExA (hwnd, 0, “SysListView32”, 字符 (0))
' 根据窗口句柄取得Explorer.exe的PID
GetWindowThreadProcessId (hwnd, Pid)
' 打开进程
hProcess ＝ OpenProcess (1, 假, Pid)
' 终止进程 退出代码设为1系统就不会重启Explorer.exe
TerminateProcess (hProcess, 1)
' 关闭句柄
CloseHandle (hProcess)


.子程序 检测系统版本, 文本型, , 10/10.0/6.4:Win10 6.3:Win8.1 6.2:Win8 6.1:Win7 6.0:WinVista 5.2/5.1:WinXP 5.0:Win2000 4.9:WinMe 4.1:Win98 4.0:Win95
.局部变量 osInfo, OSVERSIONINFOW
.局部变量 osInfoEx, OSVERSIONINFOEXW

osInfo.dwOSVersionInfoSize ＝ 276
osInfoEx.dwOSVersionInfoSize ＝ 284
.判断开始 (RtlGetVersion_EX (osInfoEx) ＝ 0)
    返回 (到文本 (osInfoEx.dwMajorVersion) ＋ “.” ＋ 到文本 (osInfoEx.dwMinorVersion))
.判断 (RtlGetVersion (osInfo) ＝ 0)
    返回 (到文本 (osInfo.dwMajorVersion) ＋ “.” ＋ 到文本 (osInfo.dwMinorVersion))
.默认
    返回 (取文本注册项 (#本地机器, “SOFTWARE\Microsoft\Windows NT\CurrentVersion\CurrentVersion”, ))
.判断结束


.子程序 _标签1_反馈事件, 整数型
.参数 参数一, 整数型
.参数 参数二, 整数型

.如果真 (参数一 ＝ -1)
    timeSetEvent (10, 0, &时钟周期事件, 1, 1)  ' 这里用api创建精确时钟，因为易语言时钟组件的周期很不准
.如果真结束
.如果真 (参数一 ＝ 0)
    ' 注销效果
    .如果真 (参数二 ＝ 0)
        播放音乐 (#登录声, )
        窗口1.可视 ＝ 假
    .如果真结束
    .如果真 (参数二 ＝ 1)
        窗口1.底图 ＝ #注销图
        播放音乐 (#注销声, )
        窗口1.可视 ＝ 真
    .如果真结束

.如果真结束
.如果真 (参数一 ＝ 1)
    ' 插U盘的“自动播放”窗口
    .如果真 (参数二 ＝ 0)
        播放音乐 (#拔U盘声, )
        U盘.销毁 ()
    .如果真结束
    .如果真 (参数二 ＝ 1)
        播放音乐 (#插U盘声, )
        载入 (U盘, , 假)
        SetForegroundWindow (U盘.取窗口句柄 ())  ' 将窗口"U盘"置焦点,为了保证它在最上
    .如果真结束

.如果真结束
.如果真 (参数一 ＝ 2)
    ' 开机画面效果
    .如果真 (参数二 ＝ 0)
        窗口1.可视 ＝ 假
        显示光标 (真)  ' 显示鼠标
    .如果真结束
    .如果真 (参数二 ＝ 1)
        窗口1.底图 ＝ #开机图
        播放音乐 (#开机声, )
        窗口1.可视 ＝ 真
        显示光标 (假)  ' 隐藏鼠标
    .如果真结束

.如果真结束
.如果真 (参数一 ＝ 3)
    ' win7娘
    .如果真 (参数二 ＝ 0)
        窗口1.可视 ＝ 假
        显示光标 (真)  ' 显示鼠标
    .如果真结束
    .如果真 (参数二 ＝ 1)
        窗口1.底图 ＝ #Nanami
        窗口1.可视 ＝ 真
        显示光标 (假)  ' 隐藏鼠标
    .如果真结束

.如果真结束
.如果真 (参数一 ＝ 4)
    ' 浏览器中放视频效果
    .如果真 (参数二 ＝ 0)
        视频.可视 ＝ 假
    .如果真结束
    .如果真 (参数二 ＝ 1)
        视频.播放器1.地址 ＝ 目录 ＋ “av7307083.mp4”
    .如果真结束

.如果真结束
.如果真 (参数一 ＝ 5)
    ' “csrss.exe已停止工作”窗口
    ' 这是用https://bbs.125.la/thread-14005960-1-1.html里给的源码做出这样的对话框，然后截图作为窗口底图(图标是P上去的)
    .如果真 (参数二 ＝ 0)
        停止工作.销毁 ()
    .如果真结束
    .如果真 (参数二 ＝ 1)
        MessageBeep (#警告图标)
        载入 (停止工作, , 假)
        SetForegroundWindow (停止工作.取窗口句柄 ())  ' 将窗口"停止工作"置焦点,为了保证它在最上