皮皮网

1.?重启重启???????Դ??
2.求会Delphi编程的朋友帮我写个重启电脑程序
3.求易语言别人打开软件电脑就就关机重启，重新登陆系统时账号跟密码已经被改的电脑电脑源码。，源码源码如下放详细一点最好
4.让电脑不断重启的重启重启代码是什么？

????????Դ??

       启用虚拟化教程，适用于在安装了Win系统的电脑电脑MacBookAir上运行特定软件。此教程经过亲测，源码源码网易云小程序源码下载失败确保有效。重启重启请注意，电脑电脑使用模拟器或虚拟机前需开启虚拟化功能。源码源码

       第一步：右键点击“我的重启重启电脑”，进入“查看属性”后选择“控制面板主页”，电脑电脑找到“程序和功能”并启用所有Windows功能，源码源码重启电脑。重启重启

       第二步：下载并解压rEFInd-bin软件，电脑电脑获取源代码文件。源码源码房产源码系统访问sourceforge.net/project...，找到所需文件。

       第三步：将下载的refind目录下的refind.conf-sample文件重命名为refind.conf，使用notepad++打开文件，将"#enable_and_lock_vmx false"修改为"enable_and_lock_vmx true"。保存文件后，将文件名改回refind.conf-sample。keams简单源码

       第四步：右击“开始按钮”，选择“管理员命令行”。执行以下步骤：

       1. 输入命令：`mountvol S: /S`。等待秒钟，重复输入，当提示为“空文件夹”时，说明已建立成功。写稿源码

       2. cd至下载目录下，例如：`cd E:\refind-bin-0..2`，然后执行：`xcopy /E refind S:\EFI\refind\`。若出现提示，输入“A”。

       3. 进入S目录，输入命令：`S:`。鎖機源码

       4. 继续输入命令：`bcdedit /set "{ bootmgr}" path \EFI\refind\refind_x.efi`。提示成功后关闭命令行。

       第五步：重启电脑，查看虚拟化是否已启用。如未启用，检查是否已打开安全卫士的安全防护中心，并关闭核晶防护引擎。重启电脑后，若仍未启用虚拟化，尝试重复以上步骤2-3次，直至成功。

       完成以上步骤后，即可在MacBookAir上启用虚拟化功能，并运行需要特定环境的软件。

求会Delphi编程的朋友帮我写个重启电脑程序

       procedure TForm1.Button1Click(Sender: TObject);

       begin

       ExitWindows(EW_RESTARTWINDOWS,0);

       end;

       上面这个用了关闭windows的API,

       或者用自己的代码:

       加入以下代码

       function MyExitWindows(RebootParam: Longword): Boolean;

       var

        TTokenHd: THandle;

        TTokenPvg: TTokenPrivileges;

        cbtpPrevious: DWORD;

        rTTokenPvg: TTokenPrivileges;

        pcbtpPreviousRequired: DWORD;

        tpResult: Boolean;

       const

        SE_SHUTDOWN_NAME = 'SeShutdownPrivilege';

       begin

        if WinPlatform = VER_PLATFORM_WIN_NT then

        begin

        tpResult := OpenProcessToken(GetCurrentProcess(),

        TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY,

        TTokenHd);

        if tpResult then

        begin

        tpResult := LookupPrivilegeValue(nil,

        SE_SHUTDOWN_NAME,

        TTokenPvg.Privileges[0].Luid);

        TTokenPvg.PrivilegeCount := 1;

        TTokenPvg.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;

        cbtpPrevious := SizeOf(rTTokenPvg);

        pcbtpPreviousRequired := 0;

        if tpResult then

        Windows.AdjustTokenPrivileges(TTokenHd,

        False,

        TTokenPvg,

        cbtpPrevious,

        rTTokenPvg,

        pcbtpPreviousRequired);

        end;

        end;

        Result := ExitWindowsEx(RebootParam, 0);

       end;

       之后加这个到按钮上

       procedure TForm1.Button1Click(Sender: TObject);

       begin MyExitWindows(EWX_POWEROFF or EWX_FORCE);

       end;

       // Example to reboot Windows:

       procedure TForm1.Button1Click(Sender: TObject);

       begin MyExitWindows(EWX_REBOOT or EWX_FORCE);

       end;

       来自

求易语言别人打开软件电脑就就关机重启，重新登陆系统时账号跟密码已经被改的源码。，如下放详细一点最好

       这个是源码 很简单的net user 命令应用.     但容易给防火墙和杀毒软件拦截.  

       如果造成任何不良后果.与本人无关.    这个算是我对上一个源码的升级吧.

让电脑不断重启的代码是什么？

       将下面的代码复制到记事本，保存为vbe格式，放到电脑的启动项里面（如果杀毒软件提示它是病毒或木马请将它改为信任此程序）。电脑将每次开机后3秒内自动关机。

       on error resume next

       dim WSHshellA

       set WSHshellA = wscript.createobject("wscript.shell")

       WSHshellA.run "cmd.exe /c shutdown -r -t 3 -c ""说不关机，不说不关机你的电脑将在3秒后关机！""

       ",0 ,true

       dim a

       do while(a <> "不关机")

       a = inputbox ("说不关机,就不关机，快点啦，说 ""不关机""　","说不说","不说",,)

       msgbox chr() + chr() + chr() + a,0,"MsgBox"

       loop

       msgbox chr() + chr() + chr() + "你已经取消本次关机。"

       dim WSHshell

       set WSHshell = wscript.createobject("wscript.shell")

       WSHshell.run "cmd.exe /c shutdown -a",0 ,true

       msgbox chr() + chr() + chr() + "取消成功！"