Старожил
Сообщения: 342
Благодарности: 10
|
Профиль
|
Сайт
|
Отправить PM
| Цитировать
Вот что получаеться, но при компиляции вываливаеться с ощибкой, подскажи пожалуйста что я напутал?
Код: 
#include <GUIConstants.au3>
;Получаем переменные Opera AC
$AC_OPERA = RegRead ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "AC_OPERA")
$AC_SOURCH = RegRead ("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "AC_SOURCH")
While 1
$msg = GuiGetMsg()
If $msg = $GUI_EVENT_CLOSE
Or $msg = $Close Then
ExitLoop
ElseIf $msg = $Start Then
GUISetState(@SW_HIDE)
TrayTip("Идет копирование файлов","Дождитесь окончания копирования файлов",1,1)
$FirstPath=GUICtrlRead($Input)
$SecondPath=GUICtrlRead($Output)
$Form1 = GUICreate("AForm1", 659, 352, 214, 146)
$Pic1 = GUICtrlCreatePic("D:\Project\Soft\Opera$\Create\WizModernImage-IS.BMP", 8, 0, 153, 345)
GUICtrlCreateLabel("Источник", 176, 8, 52, 17)
$Input = GUICtrlCreateInput("AInput1", 176, 24, 425, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Получатель", 176, 56, 63, 17)
$Output = GUICtrlCreateInput("AInput2", 176, 72, 425, 21, -1, $WS_EX_CLIENTEDGE)
$Bookmaarks = GUICtrlCreateCheckbox("ACheckbox1", 184, 112, 97, 17)
$Notes = GUICtrlCreateCheckbox("ACheckbox2", 184, 136, 97, 17)
$cookies = GUICtrlCreateCheckbox("ACheckbox3", 184, 160, 97, 17)
$wand = GUICtrlCreateCheckbox("ACheckbox4", 184, 184, 97, 17)
$vlink4 = GUICtrlCreateCheckbox("ACheckbox5", 184, 208, 97, 17)
$global = GUICtrlCreateCheckbox("ACheckbox6", 184, 232, 97, 17)
$download = GUICtrlCreateCheckbox("ACheckbox7", 184, 256, 97, 17)
$cache = GUICtrlCreateCheckbox("ACheckbox8", 184, 280, 97, 17)
$Start = GUICtrlCreateButton("AButton1", 328, 312, 113, 25)
$Close = GUICtrlCreateButton("AButton2", 544, 312, 105, 25)
GUICtrlCreateLabel("Закладки", 288, 112, 315, 17)
GUICtrlCreateLabel("Заметки", 288, 136, 315, 17)
GUICtrlCreateLabel("Куки", 288, 160, 315, 17)
GUICtrlCreateLabel("Пароли жезла", 288, 184, 315, 17)
GUICtrlCreateLabel("Набранные адреса", 288, 208, 315, 17)
GUICtrlCreateLabel("История посещений", 288, 232, 315, 17)
GUICtrlCreateLabel("История закачек", 288, 256, 315, 17)
GUICtrlCreateLabel("Кеш", 288, 280, 313, 17)
GUISetState(@SW_SHOW)
If GUICtrlRead($Bookmaarks) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\opera6.adr", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($Notes) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\notes.adr", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($cookies) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\cookies4.dat", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($wand) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\wand.dat", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($global) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\global.dat", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($download) = 1 Then
DirCreate("$SecondPath")
FileCopy("$FirstPath\profile\download.dat", "$SecondPath\profile\",1)
EndIf
If GUICtrlRead($cache) = 1 Then
DirCreate("$SecondPath")
DirCopy("$FirstPath\profile\cache4\", "$SecondPath\profile\cache4\",1)
EndIf
ExitLoop
EndIf
Wеnd
|