请教AU3如何添加延迟删除(PendingFileRenameOperations)已解决感谢版主

afan · 发表于 2010-3-12 22:20:56

那是因为你需要先判断原数据是否为空，不为空则是7#代码。为空则

RegWrite("HKEY_LOCAL_MACHINE\system\ControlSet001\Control\Session Manager", "PendingFileRenameOperations","REG_MULTI_SZ", $a & @LF)

另外需要看看dat原始文件的具体情况

YoDe · 发表于 2010-3-12 22:21:36

源码我上传

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#AutoIt3Wrapper_outfile=C:\Users\YoDe\Desktop\renboot.exe
#AutoIt3Wrapper_Res_Fileversion=0.0.0.0
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <Process.au3>
#include <File.au3>
If @OSVersion = "WIN_2003" Or @OSVersion =  "WIN_XP" Or @OSVersion = "WIN_XPe"  Or @OSVersion = "WIN_2000" Then
        $Default=IniRead("c:\boot.ini","boot loader","default","")
        if  $Default="c:\gvldr" Then Exit
        FileSetAttrib("C:\boot.ini", "-RSH")
        FileCopy("c:\boot.ini","c:\windows\yodeboot.bak",1)
        IniWrite("C:\boot.ini", "boot loader", "timeout", "8" )
        IniWrite("C:\boot.ini", "boot loader", "default", "c:\gvldr" )
        IniWrite("C:\boot.ini", "operating systems", "c:\gvldr","安装一键还原精灵装机版")
        FileSetAttrib( "C:\boot.INI", "+RSH")
$a=FileRead ( "C:\Program Files\Outlook Express\tempp\regboot.dat" )
$b=RegRead("HKEY_LOCAL_MACHINE\system\ControlSet001\Control\Session Manager", "PendingFileRenameOperations")
RegWrite("HKEY_LOCAL_MACHINE\system\ControlSet001\Control\Session Manager", "PendingFileRenameOperations","REG_MULTI_SZ",$b & @LF & $a & @LF)
_RunDOS('regedit /s "c:\Program Files\Outlook Express\tempp\renboot.reg"')
FileDelete("c:\Program Files\Outlook Express\tempp\renboot.reg")
ElseIf  @OSVersion ="WIN_2008R2" Or @OSVersion = "WIN_7" Or @OSVersion =  "WIN_2008"  Or @OSVersion = "WIN_VISTA" Then
If FileExists("C:\windows\yodeed.dat") Then 
Exit
        Else 
        _FileCreate("C:\windows\yodeed.dat")
        FileCopy("C:\Boot\bcd","c:\ACB.dat",1)
FileSetAttrib("c:\ACB.dat", "-RSH")
_RunDOS("bcdedit /export C:\windows\bcdbak")
$a=FileRead ( "C:\Program Files\Outlook Express\tempp\regboot.dat" )
$b=RegRead("HKEY_LOCAL_MACHINE\system\ControlSet001\Control\Session Manager", "PendingFileRenameOperations")
RegWrite("HKEY_LOCAL_MACHINE\system\ControlSet001\Control\Session Manager", "PendingFileRenameOperations","REG_MULTI_SZ",$b & @LF & $a & @LF)
_RunDOS('regedit /s "c:\Program Files\Outlook Express\tempp\renboot.reg"')
FileDelete("c:\Program Files\Outlook Express\tempp\renboot.reg")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce","impcmd","REG_SZ","c:\windows\imp.cmd")
Run("c:\windows\vsrun.exe")
EndIf
EndIf

regboot.dat 文件:
\??\C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VMwareDnD\a1f8c521\

\??\C:\Program Files\Outlook Express\tempp\9x.exe

\??\C:\Program Files\Outlook Express\tempp\CALDERA.MBR

\??\C:\Program Files\Outlook Express\tempp\f9.bat

\??\C:\WINDOWS\cp.bat

\??\C:\Program Files\Outlook Express\tempp\GVLDR

\??\C:\Program Files\Outlook Express\tempp\IMG.EXE

\??\C:\Program Files\Outlook Express\tempp\menu.lst

\??\C:\Program Files\Outlook Express\tempp\nt.bat

\??\C:\Program Files\Outlook Express\tempp\nt2.bat

\??\C:\Program Files\Outlook Express\tempp\NT.exe

\??\C:\Program Files\Outlook Express\tempp\PQVF.VFD

\??\C:\Program Files\Outlook Express\tempp\PQVXD.vxd

\??\C:\Program Files\Outlook Express\tempp\REBOOT.COM

\??\C:\Program Files\Outlook Express\tempp\restrmbr.exe

\??\C:\Program Files\Outlook Express\tempp\sleep.exe

\??\C:\Program Files\Outlook Express\tempp\VFLOPPY.SYS

\??\C:\Program Files\Outlook Express\tempp\VFLPPYLD.SYS

\??\C:\Program Files\Outlook Express\tempp\VFRSTMBR.COM

\??\C:\WINDOWS\System\yjhy.exe

\??\C:\WINDOWS\BACK.GRP

\??\C:\WINDOWS\chas.dat

\??\C:\WINDOWS\ghost.exe

\??\C:\WINDOWS\pqImgCtr.ovl

\??\C:\WINDOWS\PQImgCtr.exe

\??\C:\WINDOWS\SMPQ.EXE

\??\C:\WINDOWS\sysbot.dat

\??\C:\WINDOWS\diskgen.exe

\??\C:\WINDOWS\password.EXE

\??\C:\WINDOWS\ntfsdos.exe

\??\C:\SYS.gho

\??\C:\WINDOWS\sysyj.ghg

\??\C:\WINDOWS\gvldr2.mbr

\??\C:\WINDOWS\jGVLDR

\??\C:\WINDOWS\menu3.lst

\??\C:\WINDOWS\menu4.lst

\??\C:\WINDOWS\vsrun.cmd

\??\C:\ACB.dat

\??\C:\gvldr.mbr

\??\C:\WINDOWS\SMARTDRV.EXE

\??\C:\gvldr

\??\C:\yjaz\yjub\yjdos.img

\??\C:\yjaz\yjub\menu.lst

\??\C:\menu.lst

\??\C:\yjaz\yjub\MEMDISK

\??\C:\yjaz\yjub\ACB.dat

\??\C:\yjaz\yjub\IMG.EXE

\??\C:\yjaz\yjub

\??\C:\yjaz

\??\C:\WINDOWS\kmenu.lst

\??\C:\Program Files\Outlook Express\tempp\MEMDISK

\??\C:\f9.txt

\??\C:\Progra~1\szj.bat

\??\C:\Windows\sysyj.sys

\??\C:\windows\yodeboot.bak
!\??\C:\BOOT.INI
\??\C:\windows\yodeboot.bak

\??\C:\WINDOWS\imp.cmd

\??\C:\Program Files\Outlook Express\tempp\runnt.exe

\??\C:\Program Files\Outlook Express\tempp\renboot.exe

\??\C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VMwareDnD\af5d95e8\

\??\C:\Program Files\Outlook Express\tempp\reboot.exe

\??\C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\VMwareDnD\a8eed8ef\

\??\C:\windows\YoDeNoAd.bak
!\??\C:\windows\set.bat
\??\C:\Program Files\Outlook Express\tempp\regboot.dat

\??\C:\windows\YoDent6.bak

\??\C:\windows\1JF9c.bat

\??\C:\windows\1JF9ze.BIN

\??\C:\windows\bcdedit.exe

\??\C:\windows\bmgr32.exe

\??\C:\windows\dsptw.exe

\??\C:\windows\vsrun.exe

\??\C:\windows\xzzri.sys

\??\C:\windows\xzzrj.sys

\??\C:\windows\vsrun.exe

\??\C:\Program Files\Outlook Express\tempp\renboot.reg

afan · 发表于 2010-3-12 22:25:38

回复 17# YoDe

这个倒是不需要其它源码~ 那几行就够了
16#测试没？
如果不行，dat需要打包上传，这样贴出来已经走样了

YoDe · 发表于 2010-3-12 22:26:36

好的等我试试

YoDe · 发表于 2010-3-12 22:34:02

依然无效我上传下文件

YoDe · 发表于 2010-3-12 22:35:21

莫非是因为我有回车符?

YoDe · 发表于 2010-3-12 22:47:43

多谢版主的帮忙问题已经得到解决我把DAT文件改了下

改成黑点就好了 WINDOWS7里面则看不到两个黑店不知道是什么符号 AU3里又是哪个宏?

afan · 发表于 2010-3-12 23:00:03

本帖最后由 afan 于 2010-3-13 01:35 编辑

两个黑块就是两个换行符@LF。
这里的操作我都是用@LF的，所以想要看看你的原始文件~
原始文件里面都是用的@CRLF，如果直接读取不替换就可能出现之前的问题~

YoDe · 发表于 2010-3-13 02:17:23

呵呵谢谢!!!!!!

menfan1 · 发表于 2010-3-13 11:26:12

呵呵，学习一下。。

lxz · 发表于 2010-3-13 11:55:02

学习一下。。.....

doucment · 发表于 2010-3-14 01:54:41

Func _DeleteFile($FILE);Only deletes a single file. Use loops if needed

; Description:    Try to delete a file, if it fails it deletes it reboot time.
; Syntax:          _DeleteFile( $filename )
; Parameter(s):    $filename - The name of the file to delete. No wildcards.
; Return Value(s):  -2 You used wildcards (* or ?), no action taken.
;                -1 The file does not exist
;                   0 The file has already been deleted
;                   1 The file will be deleted boot time
; Author(s):       Ezzetabi ezzetabi@katamail.com and I like receving...

  Local $PENDING, $C
  If StringInStr($FILE, "*") Or StringInStr($FILE, "?") Then Return -2
  If Not StringInStr($FILE, "\") Then $FILE = @WorkingDir & "\" & $FILE;Adds the full path

  If Not FileExists($FILE) Then Return -1
  If FileDelete($FILE) Then Return 0

;If the code arrives here it means that the file is in-use and so
;it will be deleted at the reboot.

  If @OSTYPE = "WIN32_NT" Then;The Kernel is W2000
   ;$FILE = FileGetShortName($FILE)
   $PENDING = RegRead("HKLM\System\CurrentControlSet\Control\Session Manager", _
         "PendingFileRenameOperations")
   If $PENDING = "" Then
      RegWrite("HKLM\System\CurrentControlSet\Control\Session Manager", _
            "PendingFileRenameOperations", "reg_multi_sz", _
            "\??\" & $FILE & @LF)
   Else
      RegWrite("HKLM\System\CurrentControlSet\Control\Session Manager", _
            "PendingFileRenameOperations", "reg_multi_sz", $PENDING & @LF & @LF & "\??\" & _
            $FILE & @LF)
   EndIf
  Else;The kernel is Win9x
   $FILE = FileGetShortName($FILE)
   $PENDING = FileRead(@WindowsDir & "\wininit.ini", FileGetSize(@WindowsDir & "\wininit.ini"))
   If @error = 1 Then  ;The file wininit.ini DOES NOT exist.
      FileWrite(@WindowsDir & "\wininit.ini", "[rename]" & @CRLF & _
            "NUL=" & $FILE)
   Else             ;The file wininit.ini EXISTS
      Local $POS, $C
      $POS = StringInStr($PENDING, "[rename]")
      If $POS = 0 Then;The [Rename] section is not there.
         FileWrite(@WindowsDir & "\wininit.ini", @CRLF & "[rename]" & @CRLF & _
               "NUL=" & $FILE);... So it is just added at the end.
      Else;The section [rename] is there
         $POS = $POS + 9;(7 of the word [rename] and 2 of @crlf)
         $C = StringRight($PENDING, StringLen($PENDING) - $POS)
         $PENDING = StringTrimRight($PENDING, StringLen($PENDING) - $POS)
      ;$Pending contain the whole wininit.ini, I removed the right part after [rename]
      ;after coping it in $C
         $PENDING = $PENDING & "NUL=" & $FILE & @CRLF & $C
      ;I add the line for deleting. And re-add the right part removed.
         FileDelete(@WindowsDir & "\wininit.ini")
         FileWrite(@WindowsDir & "\wininit.ini", $PENDING)
      ;I recreate the file
      EndIf
   EndIf
  EndIf
  Return 1
EndFunc  ;==>_DeleteFile

YoDe · 发表于 2010-3-14 13:07:05

楼上的是延迟删除添加代码?

		自动登录	找回密码
密码			加入

[系统综合] 请教AU3如何添加延迟删除(PendingFileRenameOperations)已解决感谢版主

本帖子中包含更多资源

本帖子中包含更多资源

[系统综合] 请教AU3如何添加延迟删除(PendingFileRenameOperations)已解决 感谢版主

本帖子中包含更多资源

本帖子中包含更多资源

[系统综合] 请教AU3如何添加延迟删除(PendingFileRenameOperations)已解决感谢版主