注册表 .REG转.AU3文件 Beta 1.01

autoit · 发表于 2008-5-3 14:20:44

;;;;;;;;;;;程序写的比较急，比较臃肿，很多地方不完善，大家如果发现有什么BUG可以说出来，我尽量改进。;;;;;;;;;;;因为.reg文件比较复杂,程序里面有很多处理字符串的地方,写的又乱,估计大家不容易看懂,见谅.;;;;;;;;;;;昨天睡觉突然想到.reg文件的格式和.ini文件比较像,可以用处理INI的几个函数来处理,应该比现在这种方式更简单,不过当时程序已经写好一大半,不太好改了,只能像现在这样.;;;;下面是更改楼下所说的错误后的源代码＃i nclude<GUIConstants.au3> ＃i nclude<file.au3> #NoTrayIcon ;;改进了处理多行的HEX字段时只能读取第一行的BUG ;;改进了处理路径时的BUG ;;改进了对目标文件名判断上的一个小BUG GUICreate(".REG转.AU3 Beta 1.02", 425, 145) GUICtrlCreateGroup("", 10, 4, 348, 115)         $Input1 = GUICtrlCreateInput("", 20, 36, 260, 21, ) $Input2 = GUICtrlCreateInput("", 20, 84, 260, 21, -1)GUICtrlCreateLabel("待转换.REG文件路径：", 20, 18,-1,17) GUICtrlCreateLabel("转换为.AU3文件路径：", 20, 66,-1,17) GUICtrlCreateLabel("程序制作:路人         技术支持:" , 10, 125,-1,17) $help = GUICtrlCreateLabel("<a href="http://autoit.8800.org/" target="_blank">http://autoit.8800.org</a>" , 200, 125,-1,17) guictrlsetfont($help,-1,-1,4) GUICtrlSetColor($help,0x0000FF) GUICtrlSetCursor($help,0) $Runstatus = GUICtrlCreateLabel("" , 364, 36, 66, 21,0x0201) $Button1 = GUICtrlCreateButton("浏览", 290, 36, 53, 21) $Button2 = GUICtrlCreateButton("浏览", 290, 84, 53, 21) $Button3 = GUICtrlCreateButton("生成", 364, 84, 53, 21)GUISetState(@SW_SHOW) While 1  $msg = GuiGetMsg()  Select  Case $msg = $GUI_EVENT_CLOSE   $exit = MsgBox (8192+36,"询问","你确定退出本程序？")   IF $EXIT = 7 THEN    ContinueLoop   ELSE    EXIT   ENDIF  Case $msg = $Button1   $SFile = FileOpenDialog ( "请选择文件", -1, "Windows注册表文件(*.REG)",1 )   IF $SFile Then    GUICtrlSetData($input1,$SFile)   EndIf  Case $msg = $Button2   $DFile = FileOpenDialog ( "请选择文件", -1, "Autoit V3脚本文件(*.AU3)",2 )   IF $DFile Then    GUICtrlSetData($input2,$DFile)   EndIf  Case $msg = $Button3   $SFile = GUICtrlRead($input1)   $DFile = GUICtrlRead($input2)   $checkdfilepath =  checkdfilepath($SFile, $DFile)   IF $checkdfilepath = -1 Then    msgbox(8192+16,"错误","源文件并不存在.")   ElseIf $checkdfilepath = -2 Then    msgbox(8192+16,"错误","目标文件名填写不正确!")   ElseIf FileExists($checkdfilepath) Then    $msgbox = MsgBox(8192+256+32+4,"确认覆盖","目标文件已存在,是否覆盖?")    If $msgbox = 7 Then     ContinueLoop    EndIf    MAKE($SFile,$checkdfilepath)   Else    MAKE($SFile,$checkdfilepath)   EndIf  Case $msg = $help   run(@ProgramFilesDir & "\Internet Explorer\IEXPLORE.EXE <a href="http://autoit.8800.org/" target="_blank">http://autoit.8800.org</a>")  EndSelect Wend;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func checkdfilepath( $SFile, $DFile) If not FileExists($SFile) then  return -1  ElseIf StringLen(StringStripWS($DFile,3)) = 0 Then  $DFile = StringReplace($SFile,stringlen($SFile) - 2 ,"AU3")  GUICtrlSetData($input2,$DFile)  Return $DFile Else  Dim $szDrive, $szDir, $szFName, $szExt  _PathSplit($DFile, $szDrive, $szDir, $szFName, $szExt)  If FileExists($szDrive & $szDir) AND StringStripWS($szFName,3) <> "" AND $szExt = ".AU3" Then   Return $DFile  Else   Return -2  EndIf EndIf EndFunc;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; Func make($sfilepath,$dfilepath) dim $value>$tFile = fileopen($sfilepath,0) $lines = filereadline($tFile,1) If stringleft($lines,36) <> "Windows Registry Editor Version 5.00" AND stringleft($lines,8) <> "REGEDIT4" Then  msgbox(8192+16,"错误","源文件的编码格式不为ANSI或它不是一个有效的注册表脚本文件.")  Return EndIf $x = 1 while 1     ;;;;;;;;;;;;;;;;;;;;;;;  $x = $x + 1  $lines = filereadline($tFile,$x)  if @error = 1 or @error = -1 then   ExitLoop  EndIf  $lines = StringStripWS($lines,3)  $left1 = stringleft($lines,1)  $left2 = StringMid($lines,2,1)  $reghead = -1  If  $left1 = "[" then   if $left2 = "-" Then    $reghead = 2    $key>  Else    $key>  EndIf  ElseIf $left1 = chr(34) or $left1 = "@" Then   If $key>   $reghead = 0   EndIf   $dhArray = StringSplit($lines,"=")   If $dhArray[0] = 2 Then    If stringleft($dhArray[2],1) <> '"' Then     $typeArray = stringsplit($dhArray[2],":")    Else     dim $typeArray[2]     $typeArray[0] = 1     $typeArray[1] = $dhArray[2]    EndIf   ElseIf $dhArray[0] > 2 Then    msgbox(8192,"出错了!","一个错误出现在第" & $x & "行,程序会尝试去解析它,但生成的脚本可能会与源文件有出入。",3)    for $m = 3 to $dhArray[0]     $dhArray[2] = $dhArray[2]& "=" & $dhArray[$m]    Next    If stringleft($dhArray[2],1) <> '"' Then     $typeArray = stringsplit($dhArray[2],":")    Else     dim $typeArray[2]     $typeArray[0] = 1     $typeArray[1] = $dhArray[2]    EndIf   Else    ContinueLoop   EndIf   $value>  If  $value>   $value>  EndIf   If $typeArray[0] = 1 Then    If $typeArray[1] = "-" Then     $reghead = 1    Else     $type = '"REG_SZ"'     $value = StringReplace($typeArray[1],"<a href="http://autoit.8800.org/'file:////","/'">\\","\</a>")    EndIf   ElseIf  $typeArray[0] = 2 Then    if $typeArray[1] = "dword" Then     $type = '"REG_DWORD"'     $value = chr(39) & dec($typeArray[2]) & chr(39)    Else     If  $typeArray[1] = "hex" Then      $type = '"REG_BINARY"'     ElseIf $typeArray[1] = "hex(7)" Then      $type = '"REG_MULTI_SZ"'     ElseIf $typeArray[1] = "hex(2)" Then      $type = '"REG_EXPAND_SZ"'     EndIf     $right1 = StringRight($typeArray[2],1)     $value = $typeArray[2]     while $right1 = "\"      $x = $x + 1      $lines = filereadline($tFile,$x)      if @error = 1 or @error = -1 then       ExitLoop      EndIf      $lines = StringStripWS($lines,3)      $left2 = stringleft($lines,2)      If StringIsXDigit($left2) Then       $value = $value & $lines      EndIf      $right1 = StringRight($lines,1)     WEnd     $value = StringReplace($value, "\", "")     If $type = '"REG_BINARY"' Then      $value = StringReplace($value, ",", "")     ElseIf $type = '"REG_MULTI_SZ"' or $type = '"REG_EXPAND_SZ"' Then      $splitvalue = stringsplit($value,",")      $hexvalue = ""      for $n = 1 to $splitvalue[0] step 2       $chr = chr(dec($splitvalue[$n]))       if $chr <> "" Then        $hexvalue = $hexvalue & $chr       EndIf      Next      $value = $hexvalue     EndIf     $value = chr(39) & $value & chr(39)    EndIf   EndIf  Else   ContinueLoop  EndIf  If     $reghead = 0 Then   $wlines = $wlines & "RegWrite (" & chr(39) & $key> ElseIf $reghead = 1 Then   $wlines = $wlines & "RegDelete ("  & chr(39) & $key> Elseif $reghead = 2 Then   $wlines = $wlines & "RegDelete ("  & chr(39) & $key> EndIf GUICtrlSetData($Runstatus,"处理行" & $x) WEnd  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;FileClose($tFile) $DFilehd = FileOpen($dfilepath,2) $filewrite= FileWrite($DFilehd,$wlines) FileClose($DFilehd)If $filewrite Then  GUICtrlSetData($Runstatus,"完成") Else  GUICtrlSetData($Runstatus,"写入失败") EndIf Return EndFunc

xwjsyyx · 发表于 2008-5-5 20:04:55

BUG太多！如：
If    $reghead = 0 Then
  $wlines = $wlines & "RegWrite (" & chr(39) & $key> ElseIf $reghead = 1 Then
  $wlines = $wlines & "RegDelete ("  & chr(39) & $key> Elseif $reghead = 2 Then
  $wlines = $wlines & "RegDelete ("  & chr(39) & $key> EndIf

D4llower · 发表于 2008-5-10 23:22:56

原帖由 xwjsyyx 于 2008-5-5 20:04 发表
BUG太多！如：
If    $reghead = 0 Then
  $wlines = $wlines & "RegWrite (" & chr(39) & $key> ElseIf $reghead = 1 Then
  $wlines = $wlines & "RegDelete ("  & chr(39) & $key> Elseif $reghead = 2 Then
...

同意，貌似楼主经常放出这种“残疾”脚本：有的#include用全角字符，有的代码不完整……
比如：http://www.autoitx.com/forum.php ... &extra=page%3D1
但是楼主收集脚本的广度和乐于分享的精神还是值得学习的！

sanhen · 发表于 2008-5-10 23:46:13

是的。楼主非常之不负责。。。我是非常的BS他。。。

bachelor66 · 发表于 2009-5-27 16:02:53

都说不对，那我路过了

newsunman · 发表于 2009-5-28 20:02:34

还行吧还行吧还行吧还行吧

jd19970829 · 发表于 2012-1-1 01:19:18

好啊好啊好啊好啊好啊好啊好啊好啊

hef678 · 发表于 2012-1-19 20:55:10

应该顶一下的，辛苦了！

881966 · 发表于 2018-11-13 15:46:58

学习学习，谢谢分享

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