Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для SyCraft

Старожил


Сообщения: 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")

$Form1 = GUICreate("AForm1", 659, 352, 214, 146)
$Pic1 = GUICtrlCreatePic("D:\Project\Soft\Opera$\Create\WizModernImage-IS.BMP", 8, 0, 153, 345)
$Bookmaarks = GUICtrlCreateCheckbox("Закладки", 184, 112, 97, 17)
$Notes = GUICtrlCreateCheckbox("Заметки", 184, 136, 97, 17)
$cookies = GUICtrlCreateCheckbox("Куки", 184, 160, 97, 17)
$wand = GUICtrlCreateCheckbox("Пароли жезла", 184, 184, 97, 17)
$vlink4 = GUICtrlCreateCheckbox("Набранные адреса", 184, 208, 97, 17)
$global = GUICtrlCreateCheckbox("История посещений", 184, 232, 97, 17)
$download = GUICtrlCreateCheckbox("История закачек", 184, 256, 97, 17)
$cache = GUICtrlCreateCheckbox("Кеш", 184, 280, 97, 17)
GUISetState(@SW_SHOW)

$Start = GUICtrlCreateButton("Go", 328, 312, 113, 25)
$Close = GUICtrlCreateButton("Exit", 544, 312, 105, 25)

GUICtrlCreateLabel("Источник", 176, 8, 52, 17) 
$Input = GUICtrlCreateInput($AC_SOURCH, 176, 24, 425, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Получатель", 176, 56, 63, 17)
$Output = GUICtrlCreateInput($AC_OPERA, 176, 72, 425, 21, -1, $WS_EX_CLIENTEDGE)

$SecondPath=GUICtrlRead($Output)
$FirstPath=GUICtrlRead($Input)

While 1
$msg = GuiGetMsg()
If $msg = $GUI_EVENT_CLOSE  Or $msg = $Close Then 
	Exit
ElseIf $msg = $Start Then 
	MsgBox("Идет копирование файлов","Дождитесь окончания копирования файлов", "Дождитесь окончания копирования файлов",1)
EndIf

Opt("ExpandVarStrings",1)

If GUICtrlRead($Bookmaarks) = 1 Then
	FileCopy("$FirstPath$\profile\opera6.adr", "$SecondPath$\profile\*.*",1)
	EndIf

If GUICtrlRead($Notes) = 1 	Then
	FileCopy("$FirstPath$\profile\notes.adr", "$SecondPath$\profile\*.*",1)
	EndIf

If GUICtrlRead($cookies) = 1 Then
	FileCopy("$FirstPath$\profile\cookies4.dat", "$SecondPath$\profile\*.*",1)
	EndIf

If GUICtrlRead($wand) = 1 Then
	FileCopy("$FirstPath$\profile\wand.dat", "$SecondPath$\profile\*.*",1)
	EndIf

If GUICtrlRead($global) = 1 Then
	FileCopy("$FirstPath$\profile\global.dat", "$SecondPath$\profile\*.*",1)
	EndIf

If GUICtrlRead($download) = 1 Then
	FileCopy("$FirstPath$\profile\download.dat", "$SecondPath$\profile\*.*",1)

If GUICtrlRead($cache) = 1 Then
	DirCopy("$FirstPath$\profile\cache4\", "$SecondPath$\profile\cache4",1)
	EndIf

EndIf
WEnd

-------
Мой блог: Сделай то что хочешь из того что нравится!
----
Помощь проектам развивающихся в рамках OSZone.net


Отправлено: 00:50, 07-07-2006 | #186