Syed23 Posted November 28, 2012 Share Posted November 28, 2012 Hi All, Just curious to know, i have created a _GUICtrlRichEdit_Create() control and due to some technical reason i want to refresh the data written on the control already and rewrite new stuffs. so i am using _GUICtrlRichEdit_Destroy() control to delete the created Richedit control and recreating it but nothing is getting writte. I know there is some mistake on my side but can some one point out me where i am doing wrong? Here is my complete project code: expandcollapse popup#RequireAdmin #region ;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_Icon=database-next.ico #AutoIt3Wrapper_Outfile=DCU.exe #AutoIt3Wrapper_Res_Comment=Data Restoration Utility #AutoIt3Wrapper_Res_Description=Data Restoration Utility #AutoIt3Wrapper_Res_Fileversion=1.0.0.15 #AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p #AutoIt3Wrapper_Res_LegalCopyright=Site Support Team #AutoIt3Wrapper_Res_requestedExecutionLevel=asInvoker ://////=__= #endregion ;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #include <GuiTreeView.au3> #include <TreeViewConstants.au3> #include "_XMLDomWrapper.au3" #include "GIFAnimation.au3" ; #include "GDIpProgress.au3" #include <GuiRichEdit.au3> #include <EditConstants.au3> #include <WinAPI.au3> #include "Bit.au3" #include "Bitlocker.au3" #include <ComboConstants.au3> #include"Array.au3" #include"Pst.au3" #include<File.au3> #include <ProgressConstants.au3> #include"ReduceMemory.au3" #include <_LargeFileCopy.au3> #include "RecFileListToArray.au3" #include "ExtMsgBox.au3" #include "Marquee.au3" #include "AD.au3" Opt('TrayAutoPause', 0) Opt('MustDeclareVars', 1) Global $DocER = 0 Global $Docsel = 0 Global $ConSel = False Global $RMD = 0, $RD = 0, $RF = 0 , $RA = 0, $RO = 0, $RP = 0, $RU = 0, $RC = 0, $RAll = 0, $RUAll = 0 Global $MDP, $MDL,$DP,$DL,$FP,$FL,$AP,$AL,$CP,$CL,$OP,$OL,$PP,$PL,$UP,$UL,$ODP,$ODL,$ODCL,$ODCP,$TP,$TL,$OFP,$OFL,$OAP,$OAL,$OCP,$OCL,$OOP,$OOL,$OPP,$OPL,$OUP,$OUL Global $tri = 0, $Retry Global $compname = @ComputerName Global $SR, $sFQDN, $ReplaceListof, $Subcheck, $MDL, $MDP Global $Err_msg = _WinAPI_GetLastErrorMessage() FileInstall("C:\Users\Q03200\Desktop\tick.jpg", @DesktopDir & "\tick.jpg", 1) FileInstall("C:\Users\Q03200\Desktop\error.jpg", @DesktopDir & "\error.jpg", 1) FileInstall("C:\Users\Q03200\Desktop\info.jpg", @DesktopDir & "\info.jpg", 1) HotKeySet("{F1}", "about") FileInstall("C:\Users\Q03200\Desktop\Location.xml", @DesktopDir & "\Location.xml", 1) Global $iStyle = BitOR($TVS_EDITLABELS, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS, $TVS_CHECKBOXES) Global $hItem, $hTreeView Global $Copy = False Global $TickFile = @DesktopDir & "\tick.jpg" Global $ErrorFile = @DesktopDir & "\error.jpg" Global $info = @DesktopDir & "\info.jpg" Global $GetpathArray[1], $AddingValue Global $About, $Aboutitem, $check, $ret Global $BaseGUI, $Sourcedrive, $ErrorLabel, $DrivePath, $DestDrive, $DestPath, $aArray, $OS, $OSver, $i, $s, $processviewer, $DESK, $FAV, $OFF, $AVA, $CRYPTO, $PSTS, $Others Global $StartButton, $CancelButton, $msg, $users, $prog, $m, $numberOfChannels, $file, $pst, $hGIF, $Comment, $State, $data, $Destfav, $Sourcefav, $Desktop, $Favorites Global $DocsAr, $mds, $Sourcedocs, $Destdocs, $SourceTrans, $Trans, $DestTrans, $Mydocs, $Transfer, $iMemo, $Label, $Appdata, $AVAya, $Docs, $md, $SourceDesk, $DestDesk, $mf, $mo Global $ma, $mc, $mt, $t, $te, $split, $subtime = 0 Global $Title = "Data Copying Utility" Global $aTSR = _GetTotalScreenResolution() Global $Log = @ProgramFilesDir & "\Enterprise Desktop\Logs\DRU.log" Global $iProgress_1 ;Global $filedest = "C:\Temp\waitAnimated.gif" Global $Net = 0 Global $DRI = 0, $DER = 0 Global $Unckec, $usersel, $hMarquee, $hMarquee1, $sRoot, $GetHandle, $FindPath, $Top, $Dummy, $DelDummy, $DelDummyText, $Listof, $Adding, $hTvParent, $hSibling, $hWndFrom, $fDblClk Global $Desktop, $TransDest, $Transource, $TransPercent, $join ;FileInstall("C:\Users\Q03200\Desktop\waitAnimated.gif", $filedest, 1) Local $Excryp = BitLock(@ComputerName) If $Excryp[2] = "ENCRYPTION IN PROGRESS" Then MsgBox(48, "Warning", "Destination Drive is in Encryption. Please wait until the excryption to complete") Exit ElseIf $Excryp[2] = "DECRYPTION IN PROGRESS" Then MsgBox(48, "Warning", "Destination Drive is in Decryption. Please wait until the decryption to complete") Exit EndIf $BaseGUI = GUICreate($Title, 750, 570, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_GROUP, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU)) GUISetBkColor(0xFAFAFA) $Sourcedrive = GUICtrlCreateLabel("Select the Source Drive", 10, 10, 120, 40) $ErrorLabel = GUICtrlCreateLabel("", 10, 490, 600, 40) GUICtrlSetState(-1, $GUI_HIDE) $DrivePath = GUICtrlCreateCombo("C:", 135, 5, 60, 50, $CBS_DROPDOWNLIST) $DestDrive = GUICtrlCreateLabel("Data Destination Location", 230, 10, 200, 40) $DestPath = GUICtrlCreateInput("C:", 370, 5, 60, 20) GUICtrlSetState(-1, $GUI_DISABLE) $aArray = DriveGetDrive("ALL") $OS = GUICtrlCreateLabel("Select Source OS", 475, 10, 100, 40) $OSver = GUICtrlCreateCombo("Win 7-64 Bit", 570, 5, 110, 50, $CBS_DROPDOWNLIST) GUICtrlSetData($OSver, "Win 7-32 Bit") GUICtrlSetData($OSver, StringUpper("XP")) If @error Then ; An error occurred when retrieving the drives. MsgBox(16, $Title & "DriveGetDrive", "Error occured while trying to fetch the drive details.") Exit Else For $i = 1 To $aArray[0] ; Show all the drives found and convert the drive letter to uppercase. If $aArray[$i] <> "C:" Then GUICtrlSetData($DrivePath, StringUpper($aArray[$i])) EndIf Next EndIf $processviewer = GUICtrlCreateGroup("Restore Options", 10, 40, 330, 340) $Mydocs = GUICtrlCreateCheckbox("My Documents", 160, 70, 100, 40) $Transfer = GUICtrlCreateCheckbox("All", 30, 70, 100, 40) $Unckec = GUICtrlCreateCheckbox("UnCheck All", 30, 60, 100, 40) GUICtrlSetState(-1, $GUI_HIDE) $DESK = GUICtrlCreateCheckbox("Desktop", 30, 120, 100, 40) $FAV = GUICtrlCreateCheckbox("Favorites", 30, 170, 100, 40) $OFF = GUICtrlCreateCheckbox("Office Settings", 30, 220, 100, 40) $AVA = GUICtrlCreateCheckbox("Avaya", 160, 120, 100, 40) $CRYPTO = GUICtrlCreateCheckbox("Crypto Soft Token", 160, 170, 120, 40) $PSTS = GUICtrlCreateCheckbox("PST Files", 160, 220, 100, 40) $usersel = GUICtrlCreateCheckbox("User Selection", 30, 270, 100, 40) $StartButton = GUICtrlCreateButton("Restore", 15, 390, 60, 40) $CancelButton = GUICtrlCreateButton("Exit", 200, 390, 60, 40) $processviewer = GUICtrlCreateGroup("", 360, 40, 370, 340) GUICtrlSetData($processviewer, "User Selection") $Retry = GUICtrlCreateButton("Retry",590, 490, 150, 60) GUICtrlSetState(-1,$GUI_HIDE) ;option() ;GUIDelete($hGui) $iProgress_1 = GUICtrlCreateProgress(370, 500, 240, 20, $PBS_MARQUEE) GUICtrlSetState($iProgress_1, $GUI_HIDE) $Label = GUICtrlCreateLabel("", 370, 430, 200, 40) $hMarquee = _GUICtrlMarquee_Create("Contact " & '"' & "syed.ibrahim@kcc.com" & '" for any suggestion/issues...', 10, 510, 300, 20) GUICtrlSetState(-1, $GUI_HIDE) $hMarquee1 = _GUICtrlMarquee_Create("Contact " & '"' & "Karthikeyan.Ganesan@kcc.com / syed.ibrahim@kcc.com" & '" for any suggestion/issues...', 10, 510, 300, 20) GUICtrlSetState(-1, $GUI_HIDE) ;_ProgressSetText($iProgress_1, "Checking...") ;_ProgressMarquee($iProgress_1, 2, 0) _AD_Open() Global $sFQDN = _AD_SamAccountNameToFQDN($compname & "$") If Not @error Then If StringInStr($sFQDN, "OU=NorthAmerica") Then $SR = "NA" EndIf ElseIf @error = 1 Then _FileWriteLog($Log, "Extended Error" & @error & ">>" & "No record returned from Active Directory") Else _FileWriteLog($Log, "Extended Error" & @error) EndIf _AD_Close() GUISetState() GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY") _FileWriteLog($Log, "DRU>INFO>Launch>Tool Launched!") While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Or $msg = $CancelButton Then FileDelete(@DesktopDir & "\Location.xml") FileDelete(@DesktopDir & "\tick.jpg") FileDelete(@DesktopDir & "\error.jpg") FileDelete(@DesktopDir & "\info.jpg") _GUICtrlTreeView_Destroy($hTreeView) _GUICtrlRichEdit_Destroy($iMemo) _FileWriteLog($Log, "DRU>INFO>Exit>User Selected Exit option. Tool closed successfully!") Exit EndIf If $msg = $GUI_EVENT_PRIMARYDOWN Then Local $tMPos = _WinAPI_GetMousePos(True, $hTreeView) Local $tHitTest = _GUICtrlTreeView_HitTestEx($hTreeView, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2)) Local $iFlags = DllStructGetData($tHitTest, "Flags") Select Case BitAND($iFlags, $TVHT_ONITEMSTATEICON) Local $hItem = _GUICtrlTreeView_HitTestItem($hTreeView, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2)) Local $fChecked = False If _GUICtrlTreeView_GetChecked($hTreeView, $hItem) Then $fChecked = True $ConSel = True _TvCheckbox($hItem, $fChecked) ; EndSelect Case BitAND($iFlags, $TVHT_ONITEMBUTTON) Local $hItem = _GUICtrlTreeView_HitTestItem($hTreeView, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2)) $sRoot = GUICtrlRead($DrivePath) $GetHandle = _GUICtrlTreeView_GetItemHandle($hTreeView, $hItem) $FindPath = StringReplace(_GUICtrlTreeView_GetTree($hTreeView, $hItem), "|", "\") If BitAND(_GUICtrlTreeView_GetState($hTreeView, $hItem), $TVIS_EXPANDED) <> 0 Then Addchild($hItem, $FindPath) Else _GUICtrlTreeView_DeleteChildren($hTreeView, $hItem) _GUICtrlTreeView_AddChild($hTreeView, $hItem, "") EndIf Local $hItem = _GUICtrlTreeView_HitTestItem($hTreeView, DllStructGetData($tMPos, 1), DllStructGetData($tMPos, 2)) Local $fChecked = False If _GUICtrlTreeView_GetChecked($hTreeView, $hItem) Then $fChecked = True _TvCheckbox($hItem, $fChecked) EndSelect EndIf If $msg = $DrivePath Then If DriveGetType(GUICtrlRead($DrivePath)) = "Fixed" Then _GUICtrlTreeView_Destroy($hTreeView) profilebox() Else GUICtrlSetData($ErrorLabel, "Source drive can not be a Network/Optical drive!") GUICtrlSetColor($ErrorLabel, 0xff0000) GUICtrlSetState($ErrorLabel, $GUI_SHOW) _FileWriteLog($Log, "DRU>Warning>Source Drive Status>User Selected Network/Optical drive - !" & GUICtrlRead($DrivePath)) EndIf EndIf If $msg = $Transfer Then $RAll = 1 GUICtrlSetState($Transfer, $GUI_UNCHECKED) GUICtrlSetState($Transfer, $GUI_HIDE) GUICtrlSetState($Unckec, $GUI_SHOW) GUICtrlSetState($Mydocs, $GUI_CHECKED) GUICtrlSetState($DESK, $GUI_CHECKED) GUICtrlSetState($FAV, $GUI_CHECKED) GUICtrlSetState($AVA, $GUI_CHECKED) GUICtrlSetState($CRYPTO, $GUI_CHECKED) GUICtrlSetState($PSTS, $GUI_CHECKED) GUICtrlSetState($OFF, $GUI_CHECKED) Else $RAll = 0 EndIf If $msg = $Unckec Then $RUAll = 1 GUICtrlSetState($Unckec, $GUI_UNCHECKED) GUICtrlSetState($Unckec, $GUI_HIDE) GUICtrlSetState($Transfer, $GUI_SHOW) GUICtrlSetState($Mydocs, $GUI_UNCHECKED) GUICtrlSetState($DESK, $GUI_UNCHECKED) GUICtrlSetState($FAV, $GUI_UNCHECKED) GUICtrlSetState($AVA, $GUI_UNCHECKED) GUICtrlSetState($CRYPTO, $GUI_UNCHECKED) GUICtrlSetState($PSTS, $GUI_UNCHECKED) GUICtrlSetState($OFF, $GUI_UNCHECKED) Else $RUAll = 0 EndIf If $msg = $Retry Then retry() _GUICtrlRichEdit_Destroy($iMemo) $iMemo = _GUICtrlRichEdit_Create($BaseGUI, "******************************************************************************" & @CRLF, 370, 70, 340, 300, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_MULTILINE + $ES_READONLY) _GUICtrlRichEdit_WriteLine($iMemo, "Restoring Data" & @CRLF, "", "", 0x000000) _GUICtrlRichEdit_WriteLine($iMemo, "******************************************************************************" & @CRLF, "", "", 0x000000) GUICtrlSetState($Transfer, $GUI_ENABLE) GUICtrlSetState($Unckec, $GUI_ENABLE) GUICtrlSetState($Mydocs, $GUI_ENABLE) GUICtrlSetState($DESK, $GUI_ENABLE) GUICtrlSetState($FAV, $GUI_ENABLE) GUICtrlSetState($AVA, $GUI_ENABLE) GUICtrlSetState($CRYPTO, $GUI_ENABLE) GUICtrlSetState($PSTS, $GUI_ENABLE) GUICtrlSetState($OFF, $GUI_ENABLE) EndIf If $msg = $StartButton Then process() ;GUICtrlSetState($iProgress_1, $GUI_SHOW) If $check = 1 Then _GUICtrlRichEdit_WriteLine($iMemo, "Task has been completed! " & @CRLF, "", "", 0x008000) GUICtrlSetState($iProgress_1, $GUI_HIDE) out() GUISetState(@SW_SHOWNORMAL, $BaseGUI) GUICtrlSetState($StartButton, $GUI_HIDE) ; WinFlash($Title) If $SR = "NA" Then GUICtrlSetState($hMarquee1, $GUI_SHOW) Else GUICtrlSetState($hMarquee, $GUI_SHOW) EndIf GUICtrlSetState($CancelButton, $GUI_HIDE) GUICtrlSetState($Retry, $GUI_SHOW) ElseIf $check = -1 Then GUICtrlSetState($iProgress_1, $GUI_HIDE) GUICtrlSetState($hMarquee, $GUI_HIDE) EndIf EndIf WEnd Func retry() GUICtrlSetState($Retry,$GUI_HIDE) GUICtrlSetState($hMarquee1,$GUI_HIDE) GUICtrlSetState($hMarquee, $GUI_HIDE) GUICtrlSetState($ODP, $GUI_HIDE) GUICtrlSetState($ODL, $GUI_HIDE) GUICtrlSetState($ODCP, $GUI_HIDE) GUICtrlSetState($ODCL, $GUI_HIDE) GUICtrlSetState($OFP, $GUI_HIDE) GUICtrlSetState($OFL, $GUI_HIDE) GUICtrlSetState($OAP, $GUI_HIDE) GUICtrlSetState($OAL, $GUI_HIDE) GUICtrlSetState($OCP, $GUI_HIDE) GUICtrlSetState($OCL, $GUI_HIDE) GUICtrlSetState($OOP, $GUI_HIDE) GUICtrlSetState($OOL, $GUI_HIDE) GUICtrlSetState($OPP, $GUI_HIDE) GUICtrlSetState($OPL, $GUI_HIDE) GUICtrlSetState($OUP, $GUI_HIDE) GUICtrlSetState($OUL, $GUI_HIDE) GUICtrlSetState($TP, $GUI_HIDE) GUICtrlSetState($TL, $GUI_HIDE) $Mydocs = GUICtrlCreateCheckbox("My Documents", 160, 70, 100, 40) If $RMD = 1 Then GUICtrlSetState($Mydocs,$GUI_CHECKED) EndIf $Transfer = GUICtrlCreateCheckbox("All", 30, 70, 100, 40) If $RAll = 1 Then GUICtrlSetState($MDP,$GUI_HIDE) GUICtrlSetState($MDL,$GUI_HIDE) GUICtrlSetState($DP,$GUI_HIDE) GUICtrlSetState($DL,$GUI_HIDE) GUICtrlSetState($FP,$GUI_HIDE) GUICtrlSetState($FL,$GUI_HIDE) GUICtrlSetState($AP,$GUI_HIDE) GUICtrlSetState($AL,$GUI_HIDE) GUICtrlSetState($CP,$GUI_HIDE) GUICtrlSetState($CL,$GUI_HIDE) GUICtrlSetState($OP,$GUI_HIDE) GUICtrlSetState($OL,$GUI_HIDE) GUICtrlSetState($PP,$GUI_HIDE) GUICtrlSetState($PL,$GUI_HIDE) GUICtrlSetState($UP,$GUI_HIDE) GUICtrlSetState($UL,$GUI_HIDE) GUICtrlSetState($Transfer, $GUI_UNCHECKED) GUICtrlSetState($Transfer, $GUI_HIDE) GUICtrlSetState($Unckec, $GUI_SHOW) GUICtrlSetState($Mydocs, $GUI_CHECKED) GUICtrlSetState($DESK, $GUI_CHECKED) GUICtrlSetState($FAV, $GUI_CHECKED) GUICtrlSetState($AVA, $GUI_CHECKED) GUICtrlSetState($CRYPTO, $GUI_CHECKED) GUICtrlSetState($PSTS, $GUI_CHECKED) GUICtrlSetState($OFF, $GUI_CHECKED) EndIf $Unckec = GUICtrlCreateCheckbox("UnCheck All", 30, 60, 100, 40) GUICtrlSetState(-1, $GUI_HIDE) $DESK = GUICtrlCreateCheckbox("Desktop", 30, 120, 100, 40) If $RD = 1 Then GUICtrlSetState($DESK,$GUI_CHECKED) EndIf $FAV = GUICtrlCreateCheckbox("Favorites", 30, 170, 100, 40) If $RF = 1 Then GUICtrlSetState($FAV,$GUI_CHECKED) EndIf $OFF = GUICtrlCreateCheckbox("Office Settings", 30, 220, 100, 40) If $RO = 1 Then GUICtrlSetState($OFF,$GUI_CHECKED) EndIf $AVA = GUICtrlCreateCheckbox("Avaya", 160, 120, 100, 40) If $RA = 1 Then GUICtrlSetState($AVA,$GUI_CHECKED) EndIf $CRYPTO = GUICtrlCreateCheckbox("Crypto Soft Token", 160, 170, 120, 40) If $RC = 1 Then GUICtrlSetState($CRYPTO,$GUI_CHECKED) EndIf $PSTS = GUICtrlCreateCheckbox("PST Files", 160, 220, 100, 40) If $RP = 1 Then GUICtrlSetState($PSTS,$GUI_CHECKED) EndIf $usersel = GUICtrlCreateCheckbox("User Selection", 30, 270, 100, 40) $StartButton = GUICtrlCreateButton("Restore", 15, 390, 60, 40) $CancelButton = GUICtrlCreateButton("Exit", 200, 390, 60, 40) $processviewer = GUICtrlCreateGroup("", 360, 40, 370, 340) GUICtrlSetData($processviewer, "User Selection") $Retry = GUICtrlCreateButton("Retry",590, 490, 150, 60) GUICtrlSetState(-1,$GUI_HIDE) EndFunc Func out() GUICtrlSetState($DrivePath, $GUI_DISABLE) GUICtrlSetState($DestPath, $GUI_DISABLE) GUICtrlSetState($Unckec, $GUI_DISABLE) GUICtrlSetState($OSver, $GUI_DISABLE) If GUICtrlRead($Mydocs) <> 1 Then GUICtrlSetState($Mydocs,$GUI_HIDE) $ODP = GUICtrlCreatePic($info, 160, 70, 16, 16) $ODL = GUICtrlCreateLabel("My Documents", 180, 70, 100, 30) EndIf If GUICtrlRead($Transfer) <> 1 Then GUICtrlSetState($Transfer,$GUI_HIDE) $TP = GUICtrlCreatePic($info, 30, 70, 16, 16) $TL = GUICtrlCreateLabel("All", 50, 70, 100, 40) EndIf If GUICtrlRead($DESK) <> 1 Then GUICtrlSetState($DESK,$GUI_HIDE) $ODCP = GUICtrlCreatePic($info, 30, 120, 16, 16) $ODCL = GUICtrlCreateLabel("Desktop", 50, 120, 100, 40) EndIf If GUICtrlRead($FAV) <> 1 Then GUICtrlSetState($FAV,$GUI_HIDE) $OFP = GUICtrlCreatePic($info, 30, 170, 16, 16) $OFL = GUICtrlCreateLabel("Favorites", 50, 170, 100, 30) EndIf If GUICtrlRead($OFF) <> 1 Then GUICtrlSetState($OFF,$GUI_HIDE) $OOP = GUICtrlCreatePic($info, 30, 220, 16, 16) $OOL= GUICtrlCreateLabel("Office Settings", 50, 220, 100, 30) EndIf If GUICtrlRead($AVA) <> 1 Then GUICtrlSetState($AVA, $GUI_HIDE) $OAP = GUICtrlCreatePic($info, 160, 120, 16, 16) $OAL = GUICtrlCreateLabel("Avaya", 180, 120, 100, 30) EndIf If GUICtrlRead($CRYPTO) <> 1 Then GUICtrlSetState($CRYPTO, $GUI_HIDE) $OCP = GUICtrlCreatePic($info, 160, 170, 16, 16) $OCL = GUICtrlCreateLabel("Crypto Soft Token", 180, 170, 100, 30) EndIf If GUICtrlRead($PSTS) <> 1 Then GUICtrlSetState($PSTS, $GUI_HIDE) $OPP = GUICtrlCreatePic($info, 160, 220, 16, 16) $OPL = GUICtrlCreateLabel("PST Files", 180, 220, 100, 30) EndIf If GUICtrlRead($usersel) <> 1 Then GUICtrlSetState($usersel, $GUI_HIDE) $OUP = GUICtrlCreatePic($info, 30, 270, 16, 16) $OUL = GUICtrlCreateLabel("User Selection", 50, 270, 100, 30) EndIf EndFunc ;==>out Func profilebox() GUICtrlSetData($ErrorLabel, "") $hTreeView = _GUICtrlTreeView_Create($BaseGUI, 370, 70, 340, 300, $iStyle, $WS_EX_CLIENTEDGE) $Top = _GUICtrlTreeView_Add($hTreeView, 0, GUICtrlRead($DrivePath)) $Dummy = _GUICtrlTreeView_AddChild($hTreeView, $Top, "") EndFunc ;==>profilebox Func Addchild($hItem, $FindPath) If StringRight($FindPath, 1) <> "\" Then $FindPath &= "\" EndIf $DelDummy = _GUICtrlTreeView_GetFirstChild($hTreeView, $hItem) $DelDummyText = _GUICtrlTreeView_GetText($hTreeView, $DelDummy) If $DelDummyText = "" Then _GUICtrlTreeView_Delete($hTreeView, $DelDummy) EndIf $Listof = _RecFileListToArray($FindPath, "*") If IsArray($Listof) Then For $i = 1 To $Listof[0] $ReplaceListof = StringReplace($Listof[$i], "\", "") $Adding = _GUICtrlTreeView_AddChild($hTreeView, $hItem, $ReplaceListof) $Subcheck = _RecFileListToArray($FindPath & $Listof[$i], "*") If StringInStr(FileGetAttrib($FindPath & $Listof[$i]), "D", "") <> 0 And $Subcheck <> "" Then _GUICtrlTreeView_AddChild($hTreeView, $Adding, "") EndIf Next Else $Adding = _GUICtrlTreeView_AddChild($hTreeView, $FindPath, $Listof) EndIf EndFunc ;==>Addchild Func process() _FileWriteLog($Log, "DRU>INFO>Process>User Selected Process option") _check() If $ret >= 1 Then If GUICtrlRead($OSver) = "XP" Then ;Foldexist function defined on PST.au3 If Foldexist(GUICtrlRead($DrivePath) & "\Drivers") = True Then $users = "\Documents and Settings\" $prog = "\Program Files\" $Appdata = "\Documents and Settings\" & @UserName & "\Application Data\Microsoft\" $AVAya = "\Documents and Settings\" & @UserName & "\Application Data\Avaya\" $Docs = "\Documents and Settings\" & @UserName & "\My Documents" $check = 1 Else MsgBox(48, "OS MisMatch!", "Operating System has been selected wrongly. Please select the appropriate one!") EndIf ElseIf GUICtrlRead($OSver) = "Win 7-64 Bit" Then If Foldexist(GUICtrlRead($DrivePath) & "\Program Files (x86)") = True Then $users = "\Users\" $prog = "\Program Files (x86)\" $Appdata = "\Users\" & @UserName & "\AppData\Roaming\Microsoft\" $AVAya = "\Users\" & @UserName & "\AppData\Roaming\Avaya\" $Docs = "\Users\" & @UserName & "\Documents" $check = 1 Else MsgBox(48, "OS MisMatch!", "Operating System has been selected wrongly. Please select the appropriate one!") EndIf ElseIf GUICtrlRead($OSver) = "Win 7-32 Bit" Then If Foldexist(GUICtrlRead($DrivePath) & "\Program Files (x86)") = False And Foldexist(GUICtrlRead($DrivePath) & "\users") = True Then $users = "\Users\" $prog = "\Program Files\" $Appdata = "\Users\" & @UserName & "\AppData\Roaming\Microsoft\" $AVAya = "\Users\" & @UserName & "\AppData\Roaming\Avaya\" $Docs = "\Users\" & @UserName & "\Documents" $check = 1 Else MsgBox(48, "OS MisMatch!", "Operating System has been selected wrongly. Please select the appropriate one!") EndIf EndIf EndIf If $check = 1 Then If ProcessExists("outlook.exe") Then Do _ExtMsgBoxSet(2, 0, -1, -1, 9, "Arial") _ExtMsgBox($MB_ICONEXCLAM, "OK", $Title, "Microsoft Outlook is in Use. Please close Outlook and then click OK to Continue the copying process.") _ExtMsgBoxSet(Default) ; MsgBox(48, "Open Application", "Outlook is running on this machine. In order restore data now the tool will close the outlook.") ; ;ProcessClose("outlook.exe") ; ;_FileWriteLog($Log, "DRU>Outlook process>PST>Outlook was running on this machine and killed the outlook") Until ProcessExists("outlook.exe") = 0 EndIf GUICtrlSetData($ErrorLabel, "") _GUICtrlTreeView_Destroy($hTreeView) GUICtrlSetData($processviewer, "Result Viewer") $iMemo = _GUICtrlRichEdit_Create($BaseGUI, "******************************************************************************" & @CRLF, 370, 70, 340, 300, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_MULTILINE + $ES_READONLY) _GUICtrlRichEdit_WriteLine($iMemo, "Restoring Data" & @CRLF, "", "", 0x000000) _GUICtrlRichEdit_WriteLine($iMemo, "******************************************************************************" & @CRLF, "", "", 0x000000) GUICtrlSetState($iProgress_1, $GUI_SHOW) GUICtrlSendMsg($iProgress_1, $PBM_SETMARQUEE, True, 50) GUICtrlSetState($Unckec,$GUI_DISABLE) If GUICtrlRead($Mydocs) = "1" Then $RMD = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Started copying MY Documents folder " & @CRLF, "", "", 0xFE2EF7) $DocsAr = _RecFileListToArray(GUICtrlRead($DrivePath) & $Docs & "\", "*", 0, 1, 1) If IsArray($DocsAr) Then _GUICtrlRichEdit_WriteLine($iMemo, UBound($DocsAr) & " Files to be copied. Please wait... " & @CRLF, "", "", 0xFE2EF7) For $i = 0 To UBound($DocsAr) - 1 $t = 0 $te = 0 _FileWriteLog($Log, "DRU>INFO>DOCS>Source location>" & GUICtrlRead($DrivePath) & $Docs & "\" & $DocsAr[$i]) _FileWriteLog($Log, "DRU>INFO>DOCS>Destination location>" & "C:\Users\" & @UserName & "\Documents" & "\" & $DocsAr[$i]) ; If StringInStr($DocsAr[$i], ".") <> 0 Then $t = TimerInit() $mds = _LargeFileCopy(GUICtrlRead($DrivePath) & $Docs & "\" & $DocsAr[$i], "C:\Users\" & @UserName & "\Documents" & "\" & $DocsAr[$i], BitOR(1, 2, 8)) $te = TimerDiff($t) If $mds = 1 Then _FileWriteLog($Log, "DRU>INFO>DESKTOP - File Copy> copied the file - " & $DocsAr[$i]) $subtime = $subtime + ($te / 1000) $DRI = $DRI + 1 ElseIf $mds <> 1 Then _FileWriteLog($Log, "DRU>ERROR>DESKTOP - File Copy>Failed to copy the file - >" & $DocsAr[$i] & " Error value = " & @error) If @error = 1 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Failed to open source file, or source was a directory") ElseIf @error = 2 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Destination file exists and overwrite flag not set") ElseIf @error = 3 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Failed to create destination file") $DER = $DER + 1 ElseIf @error = 4 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Read error during copy") $DER = $DER + 1 ElseIf @error = 5 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Write error during copy") $DER = $DER + 1 ElseIf @error = 6 Then _FileWriteLog($Log, "DRU>WARNING>DESKTOP - File Copy>Failed to copy the file - >Verify failed") $DER = $DER + 1 EndIf EndIf ; Else ; _FileWriteLog($Log, "DRU>INFO>MY Docs>" & "Not in to the copy loop" & $DocsAr[$i]) ; EndIf Next GUICtrlSetState($Mydocs, $GUI_HIDE) If GUICtrlRead($OSver) <> "XP" Then $Sourcedocs = DirGetSize(GUICtrlRead($DrivePath) & $Docs) $Destdocs = DirGetSize("C:\Users\" & @UserName & "\Documents") Else $Sourcedocs = DirGetSize(GUICtrlRead($DrivePath) & $Docs) $Destdocs = DirGetSize("C:\Users\" & @UserName & "\Documents") + DirGetSize("C:\Users\" & @UserName & "\Music") + DirGetSize("C:\Users\" & @UserName & "\Videos") + DirGetSize("C:\Users\" & @UserName & "\Pictures") EndIf If Round($Destdocs / 1024 / 1024) = Round($Sourcedocs / 1024 / 1024) Then _GUICtrlRichEdit_WriteLine($iMemo, "Documents Folder copied successfully - " & $subtime& " minutes." &@CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>DOCS>Documents folder copied successfully!") $MDP = GUICtrlCreatePic($TickFile, 160, 70, 16, 16) $MDL = GUICtrlCreateLabel("My Documents", 180, 70, 100, 30) ;MsgBox(0,"SIZE","Destination Size = " & Round($Destdocs / 1024 / 1024) &@CRLF&@CRLF&@CRLF&@CRLF& "Source Size = "& Round($Sourcedocs / 1024 / 1024)) ; ElseIf $DER >= 1 Then ; _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually " & @CRLF, "", "", 0xCDA30C) ; _FileWriteLog($Log, "DRU>INFO>DOCS>Some files are not copied properly!") ElseIf Round($Destdocs / 1024 / 1024) <> Round($Sourcedocs / 1024 / 1024) Then $MDP = GUICtrlCreatePic($ErrorFile, 160, 70, 16, 16) $MDL = GUICtrlCreateLabel("My Documents", 180, 70, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually! Also please send the log file to the tool Admin" & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>DOCS>unable to copy MY Documents folder. Source Size = " & Round($Sourcedocs / 1024 / 1024) & ". Destination size = " & Round($Destdocs / 1024 / 1024) & ". Value of DER = " & $DER) ;MsgBox(0, "SIZE", "Destination Size = " & Round($Destdocs / 1024 / 1024) & @CRLF & @CRLF & @CRLF & @CRLF & "Source Size = " & Round($Sourcedocs / 1024 / 1024)) EndIf Else GUICtrlSetState($Mydocs, $GUI_HIDE) GUICtrlCreatePic($TickFile, 160, 70, 16, 16) GUICtrlCreateLabel("My Documents", 180, 70, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, UBound($DocsAr) & " Files to be copied!" & @CRLF, "", "", 0x2E2EFE) _FileWriteLog($Log, "DRU>Error>DOCS>Variable Documents does not return array value") EndIf $DER = 0 $DRI = 0 $subtime = 0 Else $RMD = 0 _FileWriteLog($Log, "DRU>INFO>DOCS> My Documents is not selected -->" & GUICtrlRead($Mydocs)) EndIf If GUICtrlRead($DESK) = "1" Then $RD = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Started copying Desktop folder " & @CRLF, "", "", 0xFE2EF7) ; $Dessel = 1 $Desktop = _RecFileListToArray(GUICtrlRead($DrivePath) & $users & @UserName & "\Desktop" & "\", "*", 0, 1, 1) If IsArray($Desktop) Then _GUICtrlRichEdit_WriteLine($iMemo, UBound($Desktop) & " Files to be copied. Please wait... " & @CRLF, "", "", 0xFE2EF7) ;$md = DirCopy(GUICtrlRead($DrivePath) & $users & @UserName & $Comment[1], "C:\users\" & @UserName & $Comment[1], 1) For $i = 0 To UBound($Desktop) - 1 _FileWriteLog($Log, "DRU>INFO>DESKTOP>Source location>" & GUICtrlRead($DrivePath) & $users & @UserName & "\Desktop\" & $Desktop[$i]) _FileWriteLog($Log, "DRU>INFO>DESKTOP>Destination location>" & @DesktopDir & "\" & $Desktop[$i]) ; If StringInStr($Desktop[$i], ".") <> 0 Then $md = _LargeFileCopy(GUICtrlRead($DrivePath) & $users & @UserName & "\Desktop\" & $Desktop[$i], @DesktopDir & "\" & $Desktop[$i], BitOR(1, 2, 8)) If $md = 1 Then _FileWriteLog($Log, "DRU>INFO>DESKTOP - File Copy> copied the file - " & $Desktop[$i]) $DRI = $DRI + 1 ElseIf $md <> 1 Then _FileWriteLog($Log, "DRU>ERROR>DESKTOP - File Copy>Failed to copy the file - >" & $Desktop[$i] & " Error value = " & @error) $DER = $DER + 1 EndIf ; Else ; _FileWriteLog($Log, "DRU>INFO>Desktop>" & "Not in to the copy loop" & $Desktop[$i]) ; EndIf Next GUICtrlSetState($DESK, $GUI_HIDE) $SourceDesk = DirGetSize(GUICtrlRead($DrivePath) & $users & @UserName & "\Desktop") $DestDesk = DirGetSize(@DesktopDir) If Round($DestDesk / 1024 / 1024) = Round($SourceDesk / 1024 / 1024) Then _GUICtrlRichEdit_WriteLine($iMemo, "Desktop Folder copied successfully " & @CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>Desktop>Desktop folder copied successfully!") $DP = GUICtrlCreatePic($TickFile, 30, 120, 16, 16) $DL = GUICtrlCreateLabel("Desktop", 50, 120, 100, 40) ;ElseIf $DER >= 1 Then ; _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually " & @CRLF, "", "", 0xCDA30C) ; _FileWriteLog($Log, "DRU>INFO>Desktop>Some files are not copied properly!") ElseIf Round($DestDesk / 1024 / 1024) <> Round($SourceDesk / 1024 / 1024) Then $DP = GUICtrlCreatePic($ErrorFile, 30, 120, 16, 16) $DL = GUICtrlCreateLabel("Desktop", 50, 120, 100, 40) _FileWriteLog($Log, "DRU>WARNING>Desktop>unable to copy Desktop folder. Source Desk Size = " & Round($SourceDesk / 1024 / 1024) & ". Destination size = " & Round($DestDesk / 1024 / 1024) & ". Value of DER = " & $DER) _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually! Also please send the log file to the tool Admin" & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>Desktop>unable to copy Desktop folder. Source Desk Size = " & Round($SourceDesk / 1024 / 1024) & ". Destination size = " & Round($DestDesk / 1024 / 1024) & ". Value of DER = " & $DER) EndIf Else GUICtrlSetState($DESK, $GUI_HIDE) $DP = GUICtrlCreatePic($TickFile, 30, 120, 16, 16) $DL = GUICtrlCreateLabel("Desktop", 50, 120, 100, 30) _FileWriteLog($Log, "DRU>WARNING>Desktop>Source Desk Size = " & Round($SourceDesk / 1024 / 1024) & ". Destination size = " & Round($DestDesk / 1024 / 1024) & ". Value of DER = " & $DER) _GUICtrlRichEdit_WriteLine($iMemo, UBound($Desktop) & " Files to be copied!" & @CRLF, "", "", 0x2E2EFE) _FileWriteLog($Log, "DRU>Error>Desktop>Variable Desktop does not return array value") EndIf $DER = 0 $DRI = 0 Else $RD = 0 _FileWriteLog($Log, "DRU>INFO>DESKTOP> Desktop is not selected -->" & GUICtrlRead($DESK)) EndIf If GUICtrlRead($FAV) = "1" Then $RF = 1 $Favorites = _RecFileListToArray(GUICtrlRead($DrivePath) & $users & @UserName & "\Favorites" & "\", "*", 0, 1, 1) If IsArray($Favorites) Then _GUICtrlRichEdit_WriteLine($iMemo, UBound($Favorites) & " links to be copied. Please wait... " & @CRLF, "", "", 0xFE2EF7) For $i = 0 To UBound($Favorites) - 1 $t = 0 $te = 0 _FileWriteLog($Log, "DRU>INFO>FAV>Source location - " & GUICtrlRead($DrivePath) & $users & @UserName & "\Favorites\" & $Favorites[$i]) _FileWriteLog($Log, "DRU>INFO>FAV>Destination location - " & "C:\users\" & @UserName & "\Favorites\" & $Favorites[$i]) ;$mf = DirCopy(GUICtrlRead($DrivePath) & $users & @UserName & $Comment[1], "C:\users\" & @UserName & $Comment[1], 1) ; If StringInStr($Favorites[$i], ".") <> 0 Then $t = TimerInit() $mf = _LargeFileCopy(GUICtrlRead($DrivePath) & $users & @UserName & "\Favorites\" & $Favorites[$i], @FavoritesDir & "\" & $Favorites[$i], BitOR(1, 2, 8)) $te = TimerDiff($t) If $mf = 1 Then _FileWriteLog($Log, "DRU>INFO>FAV - File Copy> copied the file - " & $Favorites[$i]) $subtime = $subtime + ($te / 1000) $DRI = $DRI + 1 ElseIf $mf <> 1 And StringInStr($Favorites[$i], ".") <> 0 Then _FileWriteLog($Log, "DRU>ERROR>FAV - File Copy>Failed to copy the file - >" & $Favorites[$i] & " Error value = " & $mf) $DER = $DER + 1 EndIf ; Else ; _FileWriteLog($Log, "DRU>WARNING>Favorites>" & "Not in to the copy loop" & $Favorites[$i]) ; EndIf Next GUICtrlSetState($FAV, $GUI_HIDE) $Sourcefav = DirGetSize(GUICtrlRead($DrivePath) & $users & @UserName & "\Favorites") $Destfav = DirGetSize(@FavoritesDir) If Round($Destfav / 1024 / 1024) = Round($Sourcefav / 1024 / 1024) Then $FP = GUICtrlCreatePic($TickFile, 30, 170, 16, 16) $FL = GUICtrlCreateLabel("Favorites", 50, 170, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Favorites Folder copied successfully in "&$subtime&" Minutes" & @CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>FAV>FAV folder copied successfully!") ; ElseIf $DER >= 1 Then ; _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually " & @CRLF, "", "", 0xCDA30C) ; _FileWriteLog($Log, "DRU>INFO>FAV>Some files are not copied properly!") ElseIf Round($Destfav / 1024 / 1024) <> Round($Sourcefav / 1024 / 1024) And $DER = 0 Then $FP = GUICtrlCreatePic($ErrorFile, 30, 180, 16, 16) $FL = GUICtrlCreateLabel("Favorites", 50, 180, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Some Files are not copied properly. Please copy it manually! Also please send the log file to the tool Admin." & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>FAV>unable to copy FAV folder. Source Size = " & Round($Sourcefav / 1024 / 1024) & ". Destination size = " & Round($Destfav / 1024 / 1024) & ". Value of DER = " & $DER) EndIf Else GUICtrlSetState($FAV, $GUI_HIDE) $FP = GUICtrlCreatePic($TickFile, 30, 180, 16, 16) $FL = GUICtrlCreateLabel("Favorites", 50, 180, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, UBound($Favorites) & " Files to be copied!" & @CRLF, "", "", 0x2E2EFE) _FileWriteLog($Log, "DRU>Error>FAV>Variable FAV does not return array value") EndIf $DER = 0 $DRI = 0 _FileWriteLog($Log, "DRU>INFO>Time for Copying> copied the Favorites folder in " & $subtime & " Seconds") Else $RF = 0 _FileWriteLog($Log, "DRU>INFO>FAV> Favorite is not selected -->" & GUICtrlRead($FAV)) EndIf If GUICtrlRead($OFF) = "1" Then $RO = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Started copying Office folder " & @CRLF, "", "", 0xFE2EF7) $file = _XMLFileOpen(@DesktopDir & "\Location.xml") $numberOfChannels = _XMLGetNodeCount("/root/off") For $s = 1 To $numberOfChannels Step +1 $Comment = _XMLGetChildText("/root/off[" & $s & "]") _ReduceMemory() $mo = DirCopy(GUICtrlRead($DrivePath) & $Appdata & $Comment[1], "C:\users\" & @UserName & "\AppData\Roaming\Microsoft\" & $Comment[1], 1) _FileWriteLog($Log, "DRU>INFO>OFF>Source location - " & GUICtrlRead($DrivePath) & $Appdata & $Comment[1]) _FileWriteLog($Log, "DRU>INFO>OFF>Destination location - " & "C:\users\" & @UserName & "\AppData\Roaming\Microsoft\" & $Comment[1]) GUICtrlSetState($OFF, $GUI_HIDE) If $mo = 1 Then _GUICtrlRichEdit_WriteLine($iMemo, "Office Folder copied successfully " & $Comment & @CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>OFF>Office files Folder copied successfully - " & $Comment[1]) $OP= GUICtrlCreatePic($TickFile, 30, 220, 16, 16) $OL= GUICtrlCreateLabel("Office Settings", 50, 220, 100, 30) Else _GUICtrlRichEdit_WriteLine($iMemo, "Unable to copy Office folder. Error - " & @error & $Comment & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>OFF>unable to copy Office files folder - " & $Comment[1]) $OP = GUICtrlCreatePic($ErrorFile, 30, 220, 16, 16) $OL = GUICtrlCreateLabel("Office Settings", 50, 220, 100, 30) EndIf Next Else $RO = 0 _FileWriteLog($Log, "DRU>INFO>OFF> Office setting is not selected -->" & GUICtrlRead($OFF)) EndIf If GUICtrlRead($AVA) = "1" Then $RA = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Started copying Avaya folder " & @CRLF, "", "", 0xFE2EF7) _FileWriteLog($Log, "DRU>INFO>Avaya>Started copying the Avaya folder") $file = _XMLFileOpen(@DesktopDir & "\Location.xml") $numberOfChannels = _XMLGetNodeCount("/root/avaya") For $s = 1 To $numberOfChannels Step +1 $Comment = _XMLGetChildText("/root/avaya[" & $s & "]") _ReduceMemory() $ma = DirCopy(GUICtrlRead($DrivePath) & $AVAya & $Comment[1], "C:\users\" & @UserName & "\AppData\Roaming\Avaya\" & $Comment[1], 1) _FileWriteLog($Log, "DRU>INFO>Avaya>Source location - " & GUICtrlRead($DrivePath) & $AVAya & $Comment[1]) _FileWriteLog($Log, "DRU>INFO>Avaya>Destination location - " & "C:\users\" & @UserName & "\AppData\Roaming\Avaya\" & $Comment[1]) Next GUICtrlSetState($AVA, $GUI_HIDE) If $ma = 1 Then $AP = GUICtrlCreatePic($TickFile, 160, 120, 16, 16) $AL = GUICtrlCreateLabel("Avaya", 180, 120, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Avaya Folder copied successfully " & $Comment & @CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>Avaya>Avaya Folder copied successfully ") Else $AP = GUICtrlCreatePic($ErrorFile, 160, 120, 16, 16) $AL = GUICtrlCreateLabel("Avaya", 180, 120, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Unable to copy Avaya folder. Error - " & @error & $Comment & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>Avaya>unable to copy Avaya folder. Error Value= " & @error) EndIf Else $RA = 0 _FileWriteLog($Log, "DRU>INFO>Avaya> Avaya is not selected -->" & GUICtrlRead($AVA)) EndIf If GUICtrlRead($CRYPTO) = "1" Then $RC = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Started copying Crypto folder " & @CRLF, "", "", 0xFE2EF7) _FileWriteLog($Log, "DRU>INFO>CRYPTO>Started copying the Crypto folder") $file = _XMLFileOpen(@DesktopDir & "\Location.xml") $numberOfChannels = _XMLGetNodeCount("/root/cryp") For $s = 1 To $numberOfChannels Step +1 $Comment = _XMLGetChildText("/root/cryp[" & $s & "]") _ReduceMemory() _FileWriteLog($Log, "DRU>INFO>Crypto>Source location - " & GUICtrlRead($DrivePath) & $prog & $Comment[1]) _FileWriteLog($Log, "DRU>INFO>Crypto>Destination location - " & @ProgramFilesDir & "\" & $Comment[1]) $mc = DirCopy(GUICtrlRead($DrivePath) & $prog & $Comment[1], @ProgramFilesDir & "\" & $Comment[1], 1) GUICtrlSetState($CRYPTO, $GUI_HIDE) If $mc = 1 Then $CP =GUICtrlCreatePic($TickFile, 160, 170, 16, 16) $CL = GUICtrlCreateLabel("Crypto Soft Token", 180, 170, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Crypto Folder copied successfully " & @CRLF, "", "", 0x008000) _FileWriteLog($Log, "DRU>INFO>Crypto>Crypto folder copied successfully") Else $CP = GUICtrlCreatePic($ErrorFile, 160, 170, 16, 16) $CL = GUICtrlCreateLabel("Crypto Soft Token", 180, 170, 100, 30) _GUICtrlRichEdit_WriteLine($iMemo, "Unable to copy Crypto folder. Error - " & @error & $Comment & @CRLF, "", "", 0xFF0000) _FileWriteLog($Log, "DRU>Error>Crypto>unable to copy Crypto folder") EndIf Next Else $RC = 0 _FileWriteLog($Log, "DRU>INFO>CRYPTO> CRYPTO is not selected -->" & GUICtrlRead($CRYPTO)) EndIf If GUICtrlRead($PSTS) = "1" Then $RP = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Searching for PST file. Please wait.... " & @CRLF, "", "", 0x0000FF) $pst = _RecFileListToArray(GUICtrlRead($DrivePath), "*.pst", 1, 1) _FileWriteLog($Log, "DRU>INFO>PST>Started copying PST Files") _GUICtrlRichEdit_WriteLine($iMemo, UBound($pst) & " PST files need to be copied! " & @CRLF, "", "", 0xFE2EF7) If IsArray($pst) Then For $i = 0 To UBound($pst) - 1 $t = 0 $te = 0 If StringInStr($pst[$i], ".") <> 0 Then _FileWriteLog($Log, "DRU>INFO>PST>Source location - " & GUICtrlRead($DrivePath) & "\" & $pst[$i]) $t = TimerInit() ; If StringInStr($pst[$i], "\Local Settings\Application Data\Microsoft\Outlook") <> 0 Or StringInStr($pst[$i], "\AppData\Local\Microsoft\Outlook") <> 0 Then ; $split = StringSplit($pst[$i], "\") ; $m = _LargeFileCopy(GUICtrlRead($DrivePath) & "\" & $pst[$i], "C:\users\" & @UserName & "\AppData\Local\Microsoft\Outlook\" & $split[UBound($split) - 1], BitOR(1, 2, 8)) ; $te = TimerDiff($t) ; Else ; $t = TimerInit() $m = _LargeFileCopy(GUICtrlRead($DrivePath) & "\" & $pst[$i], "C:\" & $pst[$i], BitOR(1, 2, 8)) $te = TimerDiff($t) ; EndIf If $m = 1 Then _FileWriteLog($Log, "DRU>INFO>PST - File Copy> copied the file - " & $pst[$i]) _FileWriteLog($Log, "DRU>INFO>Time for Copying> copied the file - " & $pst[$i] & " in " & $te / 1000 & " Seconds") $DRI = $DRI + 1 ElseIf $m <> 1 And StringInStr($pst[$i], ".") <> 0 Then _FileWriteLog($Log, "DRU>ERROR>PST - File Copy>Failed to copy the file - >" & $pst[$i] & " Error value = " & $m) $DER = $DER + 1 EndIf Else _FileWriteLog($Log, "DRU>INFO>Favorites>" & "Not in to the copy loop" & $pst[$i]) EndIf Next Else _FileWriteLog($Log, "DRU>Error>PST>Variable PST does not return array value") EndIf GUICtrlSetState($PSTS, $GUI_HIDE) $PP = GUICtrlCreatePic($TickFile, 160, 220, 16, 16) $PL = GUICtrlCreateLabel("PST Files", 180, 220, 100, 30) Else $RP = 0 _FileWriteLog($Log, "DRU>INFO>PST> PST is not selected -->" & GUICtrlRead($PSTS)) EndIf If GUICtrlRead($usersel) = 1 Then $RU = 1 _GUICtrlRichEdit_WriteLine($iMemo, "Collecting User Selection details. Please wait.... " & @CRLF, "", "", 0x0000FF) If IsArray($GetpathArray) Then $GetpathArray = _ArrayUnique($GetpathArray) For $ta = 0 To UBound($GetpathArray) - 1 If $GetpathArray[$ta] <> "" And GUICtrlRead($DrivePath) <> $GetpathArray[$ta] Then $Trans = _RecFileListToArray($GetpathArray[$ta] & "\", "*", 0, 1, 1) If IsArray($Trans) Then _GUICtrlRichEdit_WriteLine($iMemo, UBound($Trans) & " Files to be copied. Please wait... " & @CRLF, "", "", 0xFE2EF7) For $i = 1 To $Trans[0] _FileWriteLog($Log, "DRU>INFO>Transfer>Source location>" & $GetpathArray[$ta] & "\" & $Trans[$i]) _FileWriteLog($Log, "DRU>INFO>Transfer>Destination location>" & "C:\" & $Trans[$i]) ; If StringInStr($Desktop[$i], ".") <> 0 Then ;MsgBox(0,"",$GetpathArray[$ta] &"\"& $Trans[$i], "C" & StringTrimLeft($GetpathArray[$ta], 1) & "\" & $Trans[$i]) $md = _LargeFileCopy($GetpathArray[$ta] & "\" & $Trans[$i], "C" & StringTrimLeft($GetpathArray[$ta], 1) & "\" & $Trans[$i], BitOR(1, 2, 8)) If $md = 1 Then _FileWriteLog($Log, "DRU>INFO>Transfer - File Copy> copied the file - " & $Trans[$i]) $DRI = $DRI + 1 ElseIf $md <> 1 Then _FileWriteLog($Log, "DRU>ERROR>Transfer - File Copy>Failed to copy the file - >" & $Trans[$i] & " Error value = " & @error) $DER = $DER + 1 EndIf ; Else ; _FileWriteLog($Log, "DRU>INFO>Desktop>" & "Not in to the copy loop" & $Desktop[$i]) ; EndIf Next Else _GUICtrlRichEdit_WriteLine($iMemo, UBound($Desktop) & " Files to be copied!" & @CRLF, "", "", 0x2E2EFE) _FileWriteLog($Log, "DRU>Error>Transfer>Variable Desktop does not return array value") EndIf EndIf Next Else _FileWriteLog($Log, "DRU>Error>Transfer>Variable Desktop does not return array value") EndIf GUICtrlSetState($usersel, $GUI_HIDE) $UP = GUICtrlCreatePic($TickFile, 30, 270, 16, 16) $UL = GUICtrlCreateLabel("User Selection", 50, 270, 100, 30) Else $RU = 0 _FileWriteLog($Log, "DRU>INFO>Profile> User Selection is not selected") EndIf Else GUICtrlSetState($iProgress_1, $GUI_HIDE) EndIf EndFunc ;==>process Func _check() If DriveGetType(GUICtrlRead($DrivePath)) <> "Fixed" And $msg = $StartButton Then ;MsgBox(48,"Source Drive Warning!","Source directory can not be a Network drive. Please select the correct drive.") GUICtrlSetData($ErrorLabel, "Source drive can not be a Network/Optical drive!") GUICtrlSetColor($ErrorLabel, 0xff0000) GUICtrlSetState($ErrorLabel, $GUI_SHOW) _FileWriteLog($Log, "DRU>Warning>Source Drive Status>User Selected Network/Optical drive - !" & GUICtrlRead($DrivePath)) ElseIf (GUICtrlRead($DrivePath)) = "" And $msg = $StartButton Then GUICtrlSetData($ErrorLabel, "Source drive can not be Blank!") GUICtrlSetColor($ErrorLabel, 0xff0000) GUICtrlSetState($ErrorLabel, $GUI_SHOW) _FileWriteLog($Log, "DRU>Warning>Source Drive Status>User Selected Blank drive - !" & GUICtrlRead($DrivePath)) Else GUICtrlSetData($ErrorLabel, "") If GUICtrlRead($usersel) <> 1 And GUICtrlRead($DESK) <> 1 And GUICtrlRead($FAV) <> 1 And GUICtrlRead($OFF) <> 1 And GUICtrlRead($AVA) <> 1 And GUICtrlRead($CRYPTO) <> 1 And GUICtrlRead($PSTS) <> 1 And GUICtrlRead($Others) <> 1 And GUICtrlRead($Transfer) <> 1 And GUICtrlRead($Mydocs) <> 1 Then MsgBox(48, "Restor Option Warning!", "Atleast one option should be selected in Restore option") GUICtrlSetState($iProgress_1, $GUI_HIDE) _FileWriteLog($Log, "DRU>Warning>Options>Atleast one option should be selected - !") Else $ret = 1 EndIf EndIf EndFunc ;==>_check Func _GUICtrlRichEdit_WriteLine($hWnd, $sText, $iIncrement = 0, $sAttrib = "", $iColor = -1) ; Count the @CRLFs StringReplace(_GUICtrlRichEdit_GetText($hWnd, True), @CRLF, "") Local $iLines = @extended ; Adjust the text char count to account for the @CRLFs Local $iEndPoint = _GUICtrlRichEdit_GetTextLength($hWnd, True, True) - $iLines ; Add new text _GUICtrlRichEdit_AppendText($hWnd, $sText & @CRLF) ; Select text between old and new end points _GUICtrlRichEdit_SetSel($hWnd, $iEndPoint, -1) ; Convert colour from RGB to BGR $iColor = Hex($iColor, 6) $iColor = '0x' & StringMid($iColor, 5, 2) & StringMid($iColor, 3, 2) & StringMid($iColor, 1, 2) ; Set colour If $iColor <> -1 Then _GUICtrlRichEdit_SetCharColor($hWnd, $iColor) ; Set size If $iIncrement <> 0 Then _GUICtrlRichEdit_ChangeFontSize($hWnd, $iIncrement) ; Set weight If $sAttrib <> "" Then _GUICtrlRichEdit_SetCharAttributes($hWnd, $sAttrib) ; Clear selection _GUICtrlRichEdit_Deselect($hWnd) EndFunc ;==>_GUICtrlRichEdit_WriteLine Func _TvCheckbox($hTvItem, $fTvCheck) ;-------------- Going up the tree ----------------------------------- _TvCheckboxParent($hTvItem, $fTvCheck) ;-------------- Going down the tree ----------------------------------- _TvCheckboxChild($hTvItem, $fTvCheck) ;-------------- Loopping to the function to get the detail of selected tree ----------------------------------- If $ConSel = True Then _TvGetpath($hTvItem, $fTvCheck) $ConSel = False EndIf EndFunc ;==>_TvCheckbox Func _TvCheckboxChild($hTvItem, $fTvCheck) Local $hFirst, $hNext $hFirst = _GUICtrlTreeView_GetFirstChild($hTreeView, $hTvItem) If $hFirst Then $hNext = $hFirst While $hNext _GUICtrlTreeView_SetChecked($hTreeView, $hNext, $fTvCheck) If _GUICtrlTreeView_GetFirstChild($hTreeView, $hNext) Then _TvCheckboxChild($hNext, $fTvCheck) EndIf $hNext = _GUICtrlTreeView_GetNextSibling($hTreeView, $hNext) WEnd EndIf EndFunc ;==>_TvCheckboxChild Func _TvCheckboxParent($hTvItem, $fTvCheck) Local $hFirst, $hNext, $bCheckedFlag If $fTvCheck Then $hTvParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hTvItem) If $hTvParent = 0 Then _GUICtrlTreeView_SetChecked($hTreeView, $hTvItem, $fTvCheck) Else $hFirst = _GUICtrlTreeView_GetParentHandle($hTreeView, $hTvItem) If $hFirst Then $hNext = $hFirst _GUICtrlTreeView_SetChecked($hTreeView, $hNext, $fTvCheck) If _GUICtrlTreeView_GetParentHandle($hTreeView, $hNext) Then _TvCheckboxParent($hNext, $fTvCheck) EndIf EndIf EndIf Else $hTvParent = _GUICtrlTreeView_GetParentHandle($hTreeView, $hTvItem) If $hTvParent = 0 Then ; reached the top of the list _GUICtrlTreeView_SetChecked($hTreeView, $hTvItem, $fTvCheck) Else $hNext = $hTvParent ; check to see if any siblings are checked $hSibling = _GUICtrlTreeView_GetFirstChild($hTreeView, $hNext) $bCheckedFlag = True While $hSibling > 0 If _GUICtrlTreeView_GetChecked($hTreeView, $hSibling) Then $bCheckedFlag = False ExitLoop EndIf $hSibling = _GUICtrlTreeView_GetNextSibling($hTreeView, $hSibling) WEnd If $bCheckedFlag Then _GUICtrlTreeView_SetChecked($hTreeView, $hNext, $fTvCheck) EndIf If _GUICtrlTreeView_GetParentHandle($hTreeView, $hNext) Then _TvCheckboxParent($hNext, $fTvCheck) EndIf EndIf EndIf EndFunc ;==>_TvCheckboxParent Func WM_NOTIFY($hWnd, $msg, $wParam, $lParam) Local $tNMHDR, $IdFrom, $iCode $tNMHDR = DllStructCreate($tagNMHDR, $lParam) $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom")) $IdFrom = DllStructGetData($tNMHDR, "IdFrom") $iCode = DllStructGetData($tNMHDR, "Code") Switch $hWndFrom Case $hTreeView Switch $iCode Case $NM_CLICK $fDblClk = True EndSwitch EndSwitch Return $GUI_RUNDEFMSG EndFunc ;==>WM_NOTIFY Func about() MsgBox(64, "About", "Tool Name: Data Restoration Utlity" & @CRLF & @CRLF & @CRLF & "Software Used: Auto IT" & @CRLF & @CRLF & @CRLF & "For issue/Suggestions: Send an email to below EMAIL ID" & @CRLF & @CRLF & "syed.ibrahim@kcc.com") EndFunc ;==>about Func _TvGetpath($hTvItem, $fTvCheck) $AddingValue = _GUICtrlTreeView_GetTree($hTreeView, $hTvItem) _ArrayAdd($GetpathArray, $AddingValue) EndFunc ;==>_TvGetpath Thank you,Regards,[font="Garamond"][size="4"]K.Syed Ibrahim.[/size][/font] Link to comment Share on other sites More sharing options...
PhoenixXL Posted December 2, 2012 Share Posted December 2, 2012 Such a Large Script will let you get almost no help try to make a small example that represents your problem My code: PredictText: Predict Text of an Edit Control Like Scite. Remote Gmail: Execute your Scripts through Gmail. StringRegExp:Share and learn RegExp.Run As System: A command line wrapper around PSEXEC.exe to execute your apps scripts as System (LSA). Database: An easier approach for _SQ_LITE beginners. MathsEx: A UDF for Fractions and LCM, GCF/HCF. FloatingText: An UDF for make your text floating. Clipboard Extendor: A clipboard monitoring tool. Custom ScrollBar: Scroll Bar made with GDI+, user can use bitmaps instead. RestrictEdit_SRE: Restrict text in an Edit Control through a Regular Expression. Link to comment Share on other sites More sharing options...
BrewManNH Posted December 2, 2012 Share Posted December 2, 2012 Syed, you've already been given the answer to this problem in one of the other 2 threads you posted in regards to this, reread one of those. Syed23 1 If I posted any code, assume that code was written using the latest release version unless stated otherwise. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to.Give a programmer the correct code and he can do his work for a day. Teach a programmer to debug and he can do his work for a lifetime - by Chirag GudeHow to ask questions the smart way! I hereby grant any person the right to use any code I post, that I am the original author of, on the autoitscript.com forums, unless I've specifically stated otherwise in the code or the thread post. If you do use my code all I ask, as a courtesy, is to make note of where you got it from. Back up and restore Windows user files _Array.au3 - Modified array functions that include support for 2D arrays.  -  ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script.  -  Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.  -  _FileGetProperty - Retrieve the properties of a file  -  SciTE Toolbar - A toolbar demo for use with the SciTE editor  -  GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI.  -   Latin Square password generator Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 2, 2012 Moderators Share Posted December 2, 2012 Syed23, Please do not double post. M23 Syed23 1  Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area  Link to comment Share on other sites More sharing options...
Recommended Posts