Здравствуйте. Помогите разобраться кто может. Есть код. Даже работает, но криво.  смысл в наполнении ComboBox из файла с сортировкой согласно введенных символов. проблема в том, что в самом Combo не отображаются символы и вообще возникает ощущение зависания. Где ошибка? Спасибо заранее

Procedure Sv_Spis(N_Okna.l,File.s,Mark.s)
  ClearGadgetItems (N_Okna)
A=Len(Mark)
  If ReadFile(2,File)
    While Eof(2) = #False
      S1.s=ReadString(2)
      If Mid(S1,1,A)=Mark
        b=1
      EndIf
    Wend
    CloseFile(2)
   EndIf
    If b=1
      SendMessage_(GadgetID(N_Okna),#CB_SHOWDROPDOWN,1,1)   
    EndIf
  EndProcedure

If OpenWindow(0, 0, 00, 1200, 800, "", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget| #PB_Window_ScreenCentered)
   
ComboBoxGadget(1, 400, 10, 300, 25,#PB_ComboBox_Editable )     

  Repeat
         Event.l = WaitWindowEvent()
         Select Event
     
           Case #PB_Event_Gadget
 
             Select EventGadget()
                 
               Case 1
              If GetGadgetText(1)<>Str_G.s 
                     
                Str_G.s=GetGadgetText(1)   
                Sv_Spis(1,"FileNaim",Str_G)
              EndIf
                           
                  EndSelect
      EndSelect 
    Until Event=#PB_Event_CloseWindow
  EndIf
  End

спасибо. действительно в данном фрагменте отсутсвует add.
Но в целом все равно не могу наполнить Combo с подсказкой. Это вообще реально?
Чтоб при наборе текста шел выбор значений наполнения и выпадал список?
Варианты пробовал разные. либо в комбике курсор встает в поз 1 либо текст ввода не отображается либо присваивается верхнее значение из списка

итак... по всей видимости в обеих программах поднимаются сервера для приемки сообщений. делаю сервер на PB на нужном порту. после запускаю первую программу. она пытается на PB сервер что-то отправить. запоминаю этот пакет. делаю операцию наоборот - запускаю вторую программу, и пытаюсь из PB отправить этот пакет в неё... но чот не выходит. решил посмотреть через tcpview. и там выясняется что первая программа, помимо поднятия сервера для приемки - время от времени отправляет какой-то запрос по совершенно другому адресу. казалось бы - запоминай порт и пиши приемщик на этом порту... но в том то и проблема там каждый раз новый порт, скажем + 2 к последнему порту. но каким-то образом вторая программа об этом знает. так что я пока в тупике. и в связи с чем вопрос! нет ли для PB некоего широкопортового сервера, чтобы он ваще все порты слушал? в справке PB полистал и вроде там есть что-то такое GetClientPort(Client) , но что-то я пока не понимаю как это работает. ведь сначала же надо сервер многопортовый запустить... голова кароче не соображает а в исходниках ничерта не понимаю... надеялся там что-то типа описание протокола есть.

***

ага! GetClientPort(Client) помогло! теперь, я так понимаю, мне нужно второй чтоль сервер запускать с этим портом, чтобы прочитать чего он хочет? или я чото не понимаю

Отредактировано SeregaZ (16.02.2024 15:58:21)

да, я ошибся и не туда посмотрел. первая программа стабильно один сервер на одном порту, и вторая стабильно на другом порту. а те, каждый раз новые соединения - с новыми портами - это исходящий порт так сказать, откуда производится попытка отослать что-то в тот постоянный порт сервера второй программы. но я так понял что все плохо. в этом единственном пакете что я поймал было:

PRI * HTTP/2.0 

SM

а это типа все очень и очень плохо кто-то пишет нужны сертификаты, кто-то что шифрование... черт ногу сломит. я надеялся там простенько.

по поводу протокола - исходники то есть, но там кажется си++, и очень много всяких файлов, где черт ногу сломит. так то по тексту окошка, которое вылазит в первой программе - где что-то типа "Wait connection" - я нашел где это, но там какого-то порядка команд или может их значений в каком-то Select - не вижу.

PRI * HTTP/2.0

HTTP версии 2.0 — это нетекстовый протокол. Спецификации можно читать тут: https://www.rfc-editor.org/rfc/rfc7540

Кроме того, у вас сервер принимает соединение после того как окно закроется.

итак. рассказываю. при загрузке файла происходит первоначальный парсинг. а после добавление к этому распарсенному нераспарсенных участков, где как в хекс редакторе происходит компоновка по 16 байт в ряд. это добавление не обработанного кода занимает 95% времени при загрузке. ладно я как бы еще смирился, что такой затуп будет происходить при загрузке файла... один раз как бы. но потом решил добавить еще "горячее" дизассемблирование по клавише С начиная с какого-то, мышкой щелкнутого, байта. для чего сделал так:

1. первоначальный парсинг. собирается только код и вносится в лист.
2. происходит копия этого листа в некую базовую начальную копию.
3. происходит добавление в лист "бэшек" - то есть нераспарсенного кода dc.b. (получается дописывает в конец листа все блоки бэшек)
4. сортировка листа по адресу в роме. тут все становится на свои места. блоки кода правильно чередуются с блоками бэшек. и мы имеем готовый лист построчно для вывода на канвасе.

тут приспичило пользователю жмакнуть С - горячий дизасм на какой-то бэшке.
1. происходит восстановление копии первоначального парсинга кода в основной лист, который без бэшек а только код, который распарсился в самом самом начале.
2. происходит добавление нового адреса из той клавиши С, или даже адресов, так как там может быть рекурсия, что родились при этом горячем дизасме.
3. происходит добавление в лист бэшек.
4. сортировка листа по адресу.

вот это самое добавление в лист бэшек и жрет 95% времени затупа... как бы найти элегантное, а главное быстрое решение? то есть изначально весь код разбивается на строки, которые потом можно скроллить в выводном канвасе. там происходит форматирование, где надо добавляются пустые строки для визуального отделения блоков, где надо добавляются метки. может быть делать два листа - лист с блоками кода, а второй с блоками бэшек. но потом как отслеживать в этом втором листе какие бэшки перешли в разряд кода и значит их надо удалить, какие оставить... мутно все в голове однако не могу ухватить мысль как выкрутится.

PureAutoIt, функция ControlClick().

Функция ControlClick принимает заголовок окна, а не hWnd в строковом виде. Может будет работать.

WinWait("Game")
ControlClick("Game", "", "", "left", 1, 25, 25 )

а точно окно находится?

А откуда такие значения:
x = 311,y = 356?

а так 40

Structure BITMAPINFO1
	bmiHeader.BITMAPINFOHEADER
; 	StructureUnion
; 	bmiColors.RGBQUAD[0]
; 	dummybmiColors.RGBQUAD[1]
; 	EndStructureUnion
EndStructure

Debug SizeOf(BITMAPINFO1)

из области банана взял.
И если мышка находится на окне в рандомном месте он нажимает мышкой, если нет, то нет. 

Procedure.l MAKELPARAM(LoWord.l, HiWord.l)
  ProcedureReturn ((HiWord << 16) | (LoWord & $ffff))
EndProcedure

Procedure WindowsClick(lpClassName.s, lpWindowName.s)  
  HWND = FindWindow_(lpClassName,lpWindowName)
  If HWND 
    If IsIconic_(HWND)
      Debug ShowWindow_(HWND, #SW_SHOW)   
      Debug 1
    EndIf
    SetForegroundWindow_(HWND)
    ;SetFocus_(HWND)
    ;SetActiveWindow_(HWND)

    GetWindowRect_(HWND, lpRect0.RECT)
    GetClientRect_(HWND, lpRect1.RECT)
    
    x.l = lpRect0\Left + (lpRect1\right  / 2)   
    y.l = lpRect0\top  + (lpRect1\bottom / 2)
    
    SetCursorPos_(x, y)
    L = MAKELPARAM(x, y)
   Ran = Random(200, 10)
    
Debug Ran
    For var = 1 To Ran
      SendMessage_(HWND, #WM_LBUTTONDOWN, 1, L) 
      SendMessage_(HWND, #WM_LBUTTONUP, 0, L)  
    Next

  EndIf
EndProcedure

WindowsClick("UnityWndClass","Banana")
Delay(1000)
WindowsClick("UnityWndClass","Cats")

Как улучшить код, чтоб он переключался между 2 приложениями и делал одно окно активным, а потом другое?
А то если свернуто он одно запускает а другое нет.

Здравствуйте.
Есть скрипт
Просто вывести поверх рабочего стола большое чёрное окно без рамок:

ExamineDesktops()
OpenWindow(0, 0, 0, DesktopWidth(0), DesktopHeight(0), #Empty$, #PB_Window_BorderLess)
StickyWindow(0, #True)
ShowCursor_(#False)
StartDrawing(WindowOutput(0))
Box(0, 0, OutputWidth(), OutputHeight(), 0)
StopDrawing()
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

Пожалуйста, я прошу, как добавить возможность завершения скрипта:
1) один раз нажать F4
или
2) два раза нажать F4
или
3) нажать и держать (длинное=долгое нажатие) F4

Отредактировано SharkyEXE (29.06.2024 11:48:44)