А почему не засунуть все 4 игры в один EXE?

Потому что одна игра покер имеет кучу кода. Ну рулетка немного. Биржа будет иметь тоже кода до хрена. Да изначально я расчитывал что все будет в DLL, поэтому за именами переменных не следил. Может быть помесь. Да и тяжело отлаживать код больших размеров. Мне и нужно то отослать одно число, после игры принять измененное число при том для всех трех мини игр.

Это я понял, но ты видел адрес в debug из моего примера?

адреса программ на пурике если их не паковать ничем начинаются с 00401000 и в нашем маленьком примере код будет находится не далее 00402000, то есть ограничится размером одной секции. Ну а переменные где то в области 00405000.  А ты посмотри что выдает DEBUG:  3737192   Это как понимать?

Разве WriteProcessMemory  примет такой адрес?

Отредактировано haav (20.03.2010 20:40:35)

Петр! А как послать три параметра через командную строку? Ведь в моем случае надо посылать проге PID, BaseAddress, сумма денег.  Можно конечно  PID узнать потом, но все равно минимум два параметра посылать надо. Указатель на структуру посылать нельзя, опять ругань операционки будет. Можно конечно что то типа "1000  2000  3000" послать, а потом извращаться с MID(). Но наверно есть более простой способ.

И ты молчал, нафига мне сейчас заморачиваться тогда с WriteProcessMemory? Нет конечно настанет время и я вернусь к этой функции, но это будет не связано с этой игрой. Спасибо, ведь это решение для моей задачи оптимально.

Нужна функция PureCOLOR_SetGadgetColor() с флагом  #PureCOLOR_DontSetBackColor для 4.40 версии.

То есть надо Droopy_Library для 4.40 , а есть только для 4.30

Есть ссылка?

Спасибо обе нужны.

Нужно добавить флаг #PB_Window_ScreenCentered

OpenWindow(1,200,200,300,300,"",#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)

Так можно

Procedure Timer1()
ClearGadgetItems(1)
EnumProcessInit()
Repeat
   Temp.s=EnumProcess()
   If Temp=""
     Break
   EndIf
   AddGadgetItem(1,-1,Temp)
ForEver
EndProcedure

OpenWindow(1,200,200,300,500,"",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ListIconGadget(1,0,0,300,500,"",180)
SetTimer_(WindowID(1),1,1000,@Timer1())
Repeat
  Event=WaitWindowEvent()
Until Event=#PB_Event_CloseWindow

Библиотеку Droopy Library установи http://pure-basic.narod.ru/libs.html

Да таймер есть и он создаётся строкой

SetTimer_(WindowID(1),1,1000,@Timer1())

Для этого достаточно убрать выше указанную строку и вызывать процедуру при клике по кнопке

Procedure Timer1()
ClearGadgetItems(1)
EnumProcessInit()
Repeat
   Temp.s=EnumProcess()
   If Temp=""
     Break
   EndIf
   AddGadgetItem(1,-1,Temp)
ForEver
EndProcedure

OpenWindow(1,200,200,300,550,"",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
ListIconGadget(1,0,0,300,500,"Процессы",270,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
ButtonGadget(2,220,510,80,24,"Обновить")
         ;SetTimer_(WindowID(1),1,1000,@Timer1())
Repeat
  Event=WaitWindowEvent()
  If Event=#PB_Event_Gadget
     If EventGadget()=2
       Timer1()
     EndIf 
  EndIf
Until Event=#PB_Event_CloseWindow

1. Просто вызывай процедуру Timer1() перед главным циклом.

2. ListIconGadget поддерживает обработку кликов по нему, поэтому нужно определять что произошло событие в этом гаджете и с помощью EventType(), отлавливать клик правой кнопкой мышки.

3. В библиотеке "Droopy Library", есть функция KillProcess. Вот её и нужно использовать.

Procedure Timer1()
ClearGadgetItems(1)
EnumProcessInit()
Repeat
   Temp.s=EnumProcess()
   If Temp=""
     Break
   EndIf
   AddGadgetItem(1,-1,Temp)
ForEver
EndProcedure



OpenWindow(1,300,200,300,350,"Диспетчер задач",#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)

If CreateMenu(1,WindowID(1))
 MenuTitle("Файл")
  MenuItem(1,"Добавить процесс")
  MenuBar()
  MenuItem(2,"Выход")
 MenuTitle("Управление")
  MenuItem(3,"Обновить")
  MenuBar()
  MenuItem(4,"Убить процесс")
  MenuItem(5,"Убить окно")
  MenuItem(0,"Окно в фокусе")
 MenuTitle("Помощь")
  MenuItem(7,"Справка")
  MenuBar()
  MenuItem(8,"О программе")  
EndIf

If CreatePopupMenu(2)
 MenuItem(3, "Обновить")
 MenuBar()
 MenuItem(4,"Убить процесс")
 MenuItem(2,"Выход")
EndIf 

ListIconGadget(1,0,0,300,330,"Имя процесса",250,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect|#PB_ListIcon_AlwaysShowSelection)
Timer1()
Repeat

event=WaitWindowEvent()
Menu=EventMenu()
; 
; If Event=516 ; Условие будет выполнено при щелчке правой кнопкой мыши
;    DisplayPopupMenu(2, WindowID(1)) ; Отображаем контекстное меню
; EndIf

If Event=#PB_Event_Gadget
  Select EventGadget()
     Case 1
       If EventType()=#PB_EventType_RightClick
         DisplayPopupMenu(2, WindowID(1)) ; Отображаем контекстное меню
       EndIf
  EndSelect
EndIf

If Event=#PB_Event_Menu
 Select Menu
  Case 2
   event=#PB_Event_CloseWindow
  Case 3
   Timer1()
  Case 4
    ProcessName.s=GetGadgetText(1)
    If ProcessName<>""
      PID=GetPidProcess(ProcessName) 
      If PID
        KillProcess(PID)
      EndIf
    EndIf
  Case 8
   MessageRequester("О программе","Диспетчер задач. Сделано в PureBasic") 
 EndSelect
EndIf   


Until event=#PB_Event_CloseWindow

Но есть один момент, если будут несколько процессов с одинаковым именем, то не факт что будет завершён именно требуемый процесс!
Нужно усложнять прогу.

В переменную ProcessName записывается текст из выбранного (выделеного) пункта списка.
Функция GetPidProcess позволяет получить идентификатор процесса (PID) по его имени.
Функция KillProcess завершает процесс с указанным идентификатором процесса (PID'ом).

Работа функций описана в справке. Нужно лишь поместить текстовый курсор на интерисующую функцию и нажать на F1.
Будет открыта справка с описанием выбраной функции.

А вот здесь интересно. Если можно по подробнее. Несколько процессов под одним именем это вирусня имелась ввиду или системные процессы типа svchost.exe? Усложнять, это считывать все процессы с одинаковым именем и гасить?