[Цитировать]

    AZJIO
  • 17953
  • Стаж: 3 месяца 2 дня
  • Сообщений: 82
  • Репутация:34

    [+] [-]
ChkDskGui (PureBasic) Исходник + EXE Скачать,Скачать v2 (x86, x64), ещёИсходник на pastebin'еНе сделано:
1. нет компоновки окон
2. нет настройки через ini-файл (цвет, шрифт, игнор дисков)
3. нет сортировки списка дисков, что определяет и порядок проверки


Последний раз редактировалось: AZJIO (2018-05-18 17:58), всего редактировалось 15 раз(а)

[Цитировать]

    nikzzzz
  • 215
  • Стаж: 3 года 4 месяца
  • Сообщений: 2215
  • Репутация:127

    [+] [-]
AZJIO,
53862Как я ранее читал
Так я примерно это и имел ввиду, не использовать дефолтные установки компилятора.
Protected принудительно объявляет переменную как локальную, Define или вообще без объявления - по усмотрению компилятора.
А вообще, вставляйте первой строкой EnableExplicit , она быстро объяснит, в чем вы не правы. ag

[Цитировать]

    sergeysvirid
  • 104
  • Стаж: 3 года 5 месяцев
  • Сообщений: 1475
  • Репутация:51

    [+] [-]
  • Откуда: 65 регион (GMT+11)
AZJIO,
Приветствую! aa
На PureBasic компилируется только 32-битная версия приложения?
64-битную никак не получится скомпилировать?

[Цитировать]

    nikzzzz
  • 215
  • Стаж: 3 года 4 месяца
  • Сообщений: 2215
  • Репутация:127

    [+] [-]
sergeysvirid,
Можно, есть и x64 компилятор.

[Цитировать]

    sergeysvirid
  • 104
  • Стаж: 3 года 5 месяцев
  • Сообщений: 1475
  • Репутация:51

    [+] [-]
  • Откуда: 65 регион (GMT+11)
53874есть и x64 компилятор
Приветствую! aa
А где можно позаимствовать? ah ab
Вы как-то скидывали свой наборчик PureBasic511, но там только 32-битная версия компилятора bk

[Цитировать]

    nikzzzz
  • 215
  • Стаж: 3 года 4 месяца
  • Сообщений: 2215
  • Репутация:127

    [+] [-]
sergeysvirid,
Скину, ссылку дам в личке.

[Цитировать]

    sergeysvirid
  • 104
  • Стаж: 3 года 5 месяцев
  • Сообщений: 1475
  • Репутация:51

    [+] [-]
  • Откуда: 65 регион (GMT+11)
53876ссылку дам в личке
О, благодарствую! fr az

[Цитировать]

    Orochi
  • 14100
  • Стаж: 1 год 11 месяцев
  • Сообщений: 154
  • Репутация:0

    [+] [-]
Скачал версию V2. На десятке x64 pro, берёт около 35 секунд что-бы появилась морда программы где показаны диски.

[Цитировать]

    Hulk7778
  • 171
  • Стаж: 3 года 4 месяца
  • Сообщений: 91
  • Репутация:0

    [+] [-]
  • Откуда: Мурманск
53879Скачал версию V2. На десятке x64 pro, берёт около 35 секунд что-бы появилась морда программы где показаны диски.
На LTSB x64 V2 запускается менее секунды...

[Цитировать]

    zdoba
  • 138
  • Стаж: 3 года 5 месяцев
  • Сообщений: 345
  • Репутация:7

    [+] [-]
  • Откуда: Россия
AZJIO, Добрый день! А нельзя выложить ещё куда-то. У меня rgho.st видимо блокируется провайдером - ни с Windows, ни с Ubuntu ни один браузер не берёт.... ah

[Цитировать]

    AZJIO
  • 17953
  • Стаж: 3 месяца 2 дня
  • Сообщений: 82
  • Репутация:34

    [+] [-]
zdoba
ссылка
Orochi
Можно попробовать добавить тайминги чтобы выявить. Скорее всего доступ к дискам. Попробуй скачать старую версию без номеров дисков (найди сам) и попробуй вариант на AutoIt3.
nikzzzz
по поводу Define, она работает ТОЛЬКО на EnableExplicit (ответ). Ну и делает по умолчанию тип последующих переменных с необъявленным типом (как я понял).
ChkDskGui с таймингом (здесь источник решения)

результаты

0.010 - Получение букв дисков
0.652 - Получение информации о дисках
0.514 - Загрузка иконок
3.940 - Загрузка шрифта и списка дисков без элементов
3.308 - Заполнение списка дисков
23.455 - Установка ширины колонок списка дисков
3.444 - Чекбоксы и строка состояния
Обновил исходник на пастбине
nikzzzz
Нашёл такой пример, работает
WindowName.s="PureBasic"
handle=FindWindow_(0, WindowName)
If handle
  SetWindowText_(handle,"Пурик")
EndIf
тест на коде... нет реакций, разве что криво перемещает родительское
Delay(500)
WindowName.s="Check Disk " + info$
handle=FindWindow_(0, WindowName)
If handle
  MoveWindow_(handle, 5, 210+5, 800, 600, 0)
  MessageRequester("???", "сработало ли условие")
EndIf
MoveWindow_(hGUI, 5, 5, 480, 210, 0)
в PureAutoIt.pbi как то сложно.

[Цитировать]

    AZJIO
  • 17953
  • Стаж: 3 месяца 2 дня
  • Сообщений: 82
  • Репутация:34

    [+] [-]
Есть ещё идея, добавить импорт данных в реестр для провоцирования проверки диска во время загрузки рабочей винды. Причина, когда под рукой нет LiveCD, а загрузка системы произведена с пункта "Загрузка последней удачной конфигурации", при этом проверка диска не провоцируется автоматически или отключена в реестре. То есть делаем импорт в реестр и перезагружаем комп.
Между WinXP и 10 разница в типе параметра REG_EXPAND_SZ и REG_MULTI_SZ. reg-файлы проверка дисков WinXP

[Цитировать]

    nikzzzz
  • 215
  • Стаж: 3 года 4 месяца
  • Сообщений: 2215
  • Репутация:127

    [+] [-]
AZJIO,
53907тест на коде... нет реакций, разве что криво перемещает родительское
Пример:
Procedure InstanceToWnd(iPid)
  Protected hWnd = FindWindow_(0,0)
  Protected iPid1, ThreadID
  While hWnd <> 0
    If GetParent_(hWnd) = 0
      ThreadID = GetWindowThreadProcessId_(hWnd, @iPid1)
      If iPid1 = iPid:Break:EndIf
    EndIf
    hWnd = GetWindow_(hWnd, #GW_HWNDNEXT)
  Wend
  ProcedureReturn hWnd
EndProcedure
ThreadID=RunProgram("cmd.exe","","",#PB_Program_Open)
Sleep_(2000)
iPid=ProgramID(ThreadID)
hWnd=InstanceToWnd(iPid)
MoveWindow_(hWnd, 5, 5, 480, 210, 0)
Sleep_(2000)
MoveWindow_(hWnd, 5, 5, 210, 480, 0)
Sleep_(2000)
MoveWindow_(hWnd, 200, 200, 480, 210, 0)
Sleep_(2000)
MoveWindow_(hWnd, 200, 200, 640, 480, 0)

Страница 8 из 8


Показать сообщения:    

Текущее время: 28-Май 02:06

Часовой пояс: UTC + 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы