logmein Posted October 25, 2009 Share Posted October 25, 2009 Here the source : expandcollapse popup#cs ---------------------------------------------------------------------------- AutoIt Version: 3.3.0.0 Author: LogMeIn #ce ---------------------------------------------------------------------------- #include <Constants.au3> Opt("TrayOnEventMode",1) Opt("TrayMenuMode",1) HotKeySet ('^!x','exitt') Dim $key = 'HKLM\SOFTWARE\AUTO-SYNC' _checkfirstrun () TraySetOnEvent ($TRAY_EVENT_PRIMARYUP,'backup') TraySetToolTip (' AUTO-SYNC v 1.0' & @CRLF & @CRLF & 'LogMeIn - www.autoitscript.com' & @CRLF & 'minhthanh.autoit@gmail.com' & @CRLF & 'Press Ctrl + Alt + X to Exit') While 1 Sleep (50) WEnd Func _checkfirstrun () If RegRead ($key,'Executed') = '' Then $source = FileSelectFolder ('Please choose source folder',@desktopdir,5) If $source = '' Then _Exit () Else $s = $source $desti = FileSelectFolder ('Please choose destination folder',@desktopdir,5) If $desti = '' Then _Exit () Else $des = $desti RegWrite ($key,'Source','REG_SZ',$s) RegWrite ($key,'Destination','REG_SZ',$des) RegWrite ($key,'Executed','REG_SZ','true') Return EndIf EndIf Else Return EndIf EndFunc Func backup () If FileExists (Regread ($key,'Source')) = 0 and FileExists (Regread ($key,'Destination')) Then MsgBox (16,'Error!','Source/Destination Directory doesn''t exists! Please restart the program!');manually change it by change the value in the following registry keys:' & @crlf & $key & '\Source' & @crlf & $key & '\Destination' & @crlf & @crlf & 'Or you can delete this key : ' & $key & '\Executed' & @crlf & 'and restart the program.') _Exit () EndIf $pro = DirCopy (RegRead ($key,'Source'),RegRead ($key,'Destination'),1) If $pro = 0 Then MsgBox (32,'Error','Error while copy process!') Return Else MsgBox (64,'Msg','Done!',5) Return EndIf EndFunc Func _exit () RegDelete ($key,'Executed') Exit EndFunc Func exitt () Exit EndFunc and full exe file : http://www.mediafire.com/?1dwymtjmwzm ENJOY!!! (to exit, please press CTRL + ALT + X) [font=arial, helvetica, sans-serif][s]Total USB Security 3.0 Beta[/s] | [s]Malware Kill[/s] | Malware Scanner | Screen Hider | Locker | Matrix Generator[s]AUTO-SYNC 1.0 | MD5 Hash Generator | URL Checker | Tube Take [/s]| Random Text[/font] Link to comment Share on other sites More sharing options...
logmein Posted October 26, 2009 Author Share Posted October 26, 2009 no reply ? [font=arial, helvetica, sans-serif][s]Total USB Security 3.0 Beta[/s] | [s]Malware Kill[/s] | Malware Scanner | Screen Hider | Locker | Matrix Generator[s]AUTO-SYNC 1.0 | MD5 Hash Generator | URL Checker | Tube Take [/s]| Random Text[/font] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now