CMD加密，不写入注册表

hljkwan

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
_MyProExists()
$WinMain  = GUICreate(" - ST", 510, 320)
GUISetfont(9, 400)
$tab = GUICtrlCreateTab(5, 5, 495, 285)
$Tabhead7 = GUICtrlCreateTabItem("系统设置")
GUICtrlCreateGroup("cmd加密码", 10, 150, 155, 130)
GUICtrlCreateLabel("注: <勿用中文>", 15, 170, 145, 30)
$tab7pass = GUICtrlCreateEdit("", 33, 210, 100, 20, $ES_AUTOVSCROLL)
$tab7passbutton = GUICtrlCreateButton("设置", 20, 240, 60, 30, $BS_FLAT )
$tab7passbuttondel = GUICtrlCreateButton("解除", 95, 240, 60, 30, $BS_FLAT )
GUISetState(@SW_SHOW)
While 1

$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
  Exit   
Case $tab7passbutton
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor')
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor', 'AutoRun', 'REG_SZ', @SystemDir & '\pass.bat')
MsgBox(0, "提示", "加密成功", 2)
Case $tab7passbuttondel
FileDelete(@SystemDir & "\pass.bat")
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor')
RegWrite('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor', 'AutoRun', 'REG_SZ', '')
MsgBox(64,"提示","CMD密码已经取消",1)
EndSwitch
WEnd
Func _MyProExists()
$my_Version = "By lrcf"
If WinExists($my_Version) Then Exit
AutoItWinSetTitle($my_Version)
EndFunc
运行上面的额代码，输入密码可以正常加密CMD，也可以写入注册表【HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor\AutoRun】的数值，如图所示：

最顶部加入#AccAu3Wrapper_UseX64=n这行代码后，输入密码不能正常加密CMD，也不可以写入注册表【HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Command Processor\AutoRun】的数值，如图：
有什么好的方式不删除【#AccAu3Wrapper_UseX64=n】情况下，能完成CMD加密

chzj589

LZ没理解[#AccAu3Wrapper_UseX64=n]的意思
#AutoIt3Wrapper_UseX64=n         ;是否编译为64位/32位程序(y/n)

hljkwan

chzj589 发表于 2021-11-6 09:33
LZ没理解[#AccAu3Wrapper_UseX64=n]的意思
#AutoIt3Wrapper_UseX64=n         ;是否编译为64位/32位程序(y/n)

感谢，大神！您的一句指点，马上让我茅塞顿开，搞定了，谢谢！

hljkwan

chzj589 发表于 2021-11-6 00:01
LZ没理解[#AccAu3Wrapper_UseX64=n]的意思
#AutoIt3Wrapper_UseX64=n         ;是否编译为64位/32位程序(y/n)

但是还是有一个小问题，调节成y后，CMD加密可以了，但是水波纹需要N，这样就冲突了，有什么办法两者都兼顾吗

chzj589

hljkwan 发表于 2021-11-6 16:25
但是还是有一个小问题，调节成y后，CMD加密可以了，但是水波纹需要N，这样就冲突了，有什么办法两者都兼 ...

只能将水波纹改为64位

chzj589

hljkwan 发表于 2021-11-6 16:25
但是还是有一个小问题，调节成y后，CMD加密可以了，但是水波纹需要N，这样就冲突了，有什么办法两者都兼 ...

afan: 水纹效果 waterctrl.dll.au3
https://www.autoitx.com/thread-17705-1-1.html?_dsign=cdfbcc09

hljkwan

chzj589 发表于 2021-11-6 17:39
afan: 水纹效果 waterctrl.dll.au3
https://www.autoitx.com/thread-17705-1-1.html?_dsign=cdfbcc09

已经测试了，也是不可缺少#AutoIt3Wrapper_UseX64=n

chzj589

hljkwan 发表于 2021-11-6 19:32
已经测试了，也是不可缺少#AutoIt3Wrapper_UseX64=n

许多代码都要32位才能运行。只能选择一种。

chzj589

chzj589 发表于 2021-11-7 09:46
许多代码都要32位才能运行。只能选择一种。

运行于 Windows 64-位 操作系统
AutoIt 传统上是 32 位应用程序. 从 3.2.10.0 开始发布 x64 版本, 并添加了部分组件, 包括:
AutoIt (AutoIt3_x64.exe)
Aut2Exe (Aut2Exe_x64.exe)
Au3Info (Au3Info_x64.exe)
AutoItX (AutoItX3_x64.dll)
AutoIt 的安装过程中, 如果发现在 x64 系统上安装, 安装程序提示你可以选择安装并且配置 x64 版本. 这些版本完全与 x 64 兼容, 然而, 一些脚本使用 DllCall/DllStruct 自定义结构时, 使用的值会破坏 64 位系统的兼容性 (例如使用了 32 位整数指针).
可以运行 x86 版本的 AutoIt, 右键点击脚本图标, 然后选择 "运行脚本 (x86)".
如果想知道正在运行的 Windows 是否是 64 位版本, 请使用 @OSArch 宏指令检测. 如果想知道正在使用的 AutoIt 是 32 还是 64 位版本, 请使用 @AutoItX64 宏指令检测.

在 x64 系统上运行 AutoIt 的 32 位版本
Windows 对一些特殊的系统目录有一个重定向机制 :

目 录 32 位 值 64 位 值
@SystemDir @WindowsDir & "\System32" @WindowsDir & "\SYSWOW64"
@ProgramFilesDir {SystemDrive} & "\Program Files (x86)" {SystemDrive} & "\Program Files"

通过禁用重定向机制, 可以访问这些 64 位版本的目录.

#include <WinAPIFiles.au3>

_WinAPI_Wow64EnableWow64FsRedirection(True)
更多信息请参考 MSDN.

对于注册表, 使用 HKCR64 或 HKLM64 绕过重定向机制, 见注册表函数文档资料.

hljkwan

chzj589 发表于 2021-11-7 13:14
运行于 Windows 64-位 操作系统
AutoIt 传统上是 32 位应用程序. 从 3.2.10.0 开始发布 x64 版本, 并添 ...

感谢！感谢！感谢