Prozessfenster unsichtbar machen ?

funkheld

Hallo, guten Tag.

Wie macht man bitte ein Prozessfenster unsichtbar.
Ich brauche das Fenster nicht, nur die Datenverarbeitung im Prozess.

Danke.
GRuss

Code

$MAKE CLE


Declare p&,ende&,b_start&,b_start1&


Proc Prozess
Parameters title$, x&, y&, color&, diff&, parent&
Declare wert&,ende&


windowstyle 24 + 1024
WindowTitle title$
window x&, y& - 150, 100
CLS color&
color 15,1


wert& = 0
Ende& = 0


settimer 500


WhileNot ende&
Waitinput
Case %key = 2 : Ende& = 1
Case GetText$(parent&) = "" : Ende& = 1
inc wert&, diff&
EndWhile
EndProc


windowstyle 24 + 512
WindowTitle "Statusfenster"
window 100,300-500,200


b_start& = Create("Button",%hwnd,"start",10,10,120,24)
b_start1& = Create("Button",%hwnd,"start1",10,40,120,24)


Randomize


ende&=0
WhileNot Ende&
Waitinput
Case %key = 2 : Ende& = 1


If Clicked(b_start&)
Process("Kill", p&, 0)
p& = pExec("|Prozess", "A", 100, 100, rgb(rnd(256),rnd(256),rnd(256)),5, %hwnd)
EndIf


If Clicked(b_start1&)
Process("Kill", p&, 0)
p& = pExec("|Prozess", "B", 100, 100, rgb(rnd(256),rnd(256),rnd(256)),1, %hwnd)
EndIf
EndWhile


End

Alles anzeigen

Werbepost

Hallo!

Wenn du gerade an deiner Website arbeitest oder dein aktuelles Hosting überdenkst: Wir betreiben mit NetzLiving eine Hosting-Plattform, die speziell auf Performance, Sicherheit und einfache Verwaltung ausgelegt ist.

✔️ Schnelle Ladezeiten (optimiert für WordPress, WoltLab & Co.)
✔️ Deutsche Server & DSGVO-konform
✔️ Persönlicher Support (kein 0815-Ticket-System)

Mehr erfahren

Wenn du Fragen hast, kannst du dich gerne jederzeit an @Maximilian Rupp wenden

Hinweis:

Volkmar

Um die Sichtbarkeit des Fesnters zu ändern gibt es ShowWindow(x). Mit ShowWindow(%HWnd, 0) kannst Du also das Fenster unsichtbar machen. Hat den Nachteil, das Fenster blitzt beim Erstellen kurz auf. Erstelle doch das Fenster einfach außerhalb des Bildschirms. Dann ist es nie sichtbar.
p& = pExec("|Prozess", "A", %MaxX, 100, rgb(rnd(256),rnd(256),rnd(256)),5, %hwnd)

Gruß Volkmar

H.Brill

Ein Prozess braucht ja auch nicht unbedingt ein Fenster :

Code

Declare h&, pid&


Proc Prozess
parameters fhandle&, handle&, diff&
declare wert&
wert& = 0
var ende% = 0
whilenot ende%
  case getText$(fhandle&) = "" : ende% = 1
  inc wert&, diff&
  Sleep 100
  setText handle&, str$(wert&)
endwhile
endproc


Randomize
windowstyle 24
windowtitle "Statusfenster"
window 100,300-300,200
create("Text", %hWnd, chr$(65) + ": ", 0, 20 , 20, 20)
h& = create("Text", %hWnd, "", 20, 20, 100, 20)


pid& = pExec("|Prozess", %HWnd, h&, 1)


var ende% = 0


whilenot ende%
  waitinput
  case %key = 2 : ende% = 1


endwhile


end

Alles anzeigen

Da läuft der Prozess halt solange, wie das Hauptprogrammfenster existiert.
Den Prozess könnte man auch mit

Code

Process("Kill", pid&, 0)

vom Hauptprogramm aus beenden.

Wenn du aber einen Timer im Prozess brauchst, mußt du natürlich eines
im Prozess erstellen. Da schaust du in der Hilfe bei Timer. Dort steht sogar,
wie man ein unsichtbares Fenster erstellt.
Ein weiterer Vorteil mit Fenster ist, daß man dann auch mit UserMessages
arbeiten kann, wenn man dem Prozess zwischendurch einen Wert schicken
möchte. Dabei ist zu beachten, daß man dem Fenster auch einen Namen
gibt (WindowTitle oder mit Create("Window",...), damit man mit FindWindow()
das Handle des Fensters erhält. Dieses braucht man, um mit SendMessage()
eine Nachricht an den Prozess zu schicken.

Kommt also darauf an, was du brauchst bzw. machen willst.

funkheld

Ja danke für die Info.

Dieses Programm läuft soweit.
Es werden Daten zum Roboter geschickt und zurück.

1. Wie kann ich bitte aus dem Prozess mit "setText parent&,str$(ord($download))" noch eine weitere Zahl zurückschicken "ptest&" zum auswerten? ohne im Hauptfenster zu zeigen , ich brauche sie nur zum Auswerten?

2. "settimer 300" im Prozess zeigt eine Wirkung, ohne das ich ihn abfrage , warum ????
Weil hier immer geschrieben wird, das ich den Timer nicht abfrage.

3. Manchmal vergesse ich den Prozess mit Kill zu löschen. Wie kann er gelöscht werden, wenn ich das Programm beende.

Was kann jetzt bitte noch optimiert werden? Die "Elseif" bringe ich noch rein, statt dauernd "if"

Danke.
GRuss

Code

declare url$,urlpart$
declare b_vor&,b_zur&
declare b_links&,b_hlinks&,b_mitte&,b_hrechts&,b_rechts&
declare b_v0&,b_v1&,b_v2&
declare b_ser0&,b_ser1&,b_sharp&,b_ton&
declare b_cls&,B_kill&
declare ende&,test&,win&,bpic&,bpich&,wert&,h&,p&
declare x!,y!,winkel!,winkel1!,wtest&,wtest1&,ptest&


Window 20,20-400,400
win&=create("window",%HWnd,"test",420,20,700,480)


bpic& = create("hNewPic", 400,400,rgb(255,255,255))
bpich& = create("hNewPic", 400,400,rgb(255,255,255))


b_vor& = Create("Button",win&,"vor", 10, 20, 80, 24)
b_zur& = Create("Button",win&,"zurück", 10, 45, 80, 24)
b_links& = Create("Button",win&,"links", 10, 70, 80, 24)
b_hlinks& = Create("Button",win&,"hlinks", 10, 95, 80, 24)
b_mitte& = Create("Button",win&,"mitte", 10, 120, 80, 24)
b_hrechts& = Create("Button",win&,"hrechts", 10, 145, 80, 24)
b_rechts& = Create("Button",win&,"rechts", 10, 170, 80, 24)
b_v0& = Create("Button",win&,"v0", 10, 195, 80, 24)
b_v1& = Create("Button",win&,"v1", 10, 220, 80, 24)
b_v2& = Create("Button",win&,"v2", 10, 245, 80, 24)
b_ser0& = Create("Button",win&,"ser0", 10, 270, 80, 24)
b_ser1& = Create("Button",win&,"ser1", 10, 295, 80, 24)
b_sharp& = Create("Button",win&,"sharp", 10, 320, 80, 24)
b_ton& = Create("Button",win&,"ton", 10, 345, 80, 24)


b_cls& = Create("Button",win&,"cls", 120, 20, 40, 24)
b_kill& = Create("Button",win&,"kill", 120, 45, 40, 24)


h& = create("Edit", win&, "", 15, 400, 100, 20)


startpaint bpic&
UsePen 0,1,$ff0000
EndPaint
startpaint win&
drawpic bpic&,200,20;0
EndPaint


ende&=1
While ende&
WaitInput


If Clicked(b_vor&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"vor", h&)
EndIf
If Clicked(b_zur&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"zur", h&)
EndIf
If Clicked(b_links&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"links", h&)
EndIf
If Clicked(b_hlinks&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"hlinks", h&)
EndIf
If Clicked(b_mitte&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"mitte", h&)
EndIf
If Clicked(b_hrechts&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"hrechts", h&)
EndIf
If Clicked(b_rechts&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"rechts", h&)
EndIf
If Clicked(b_v0&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"v0", h&)
EndIf
If Clicked(b_v1&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"v1", h&)
EndIf
If Clicked(b_v2&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"v2", h&)
EndIf
If Clicked(b_ser0&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"ser0", h&)
EndIf
If Clicked(b_ser1&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"ser1", h&)
wtest&=1
winkel!=0
EndIf
If Clicked(b_sharp&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"sharp", h&)
wtest&=2
winkel!=180
EndIf
If Clicked(b_ton&)
Process("Kill", p&, 0)
p& = pExec("|Prozess",1,"ton", h&)
EndIf


If Clicked(b_cls&)
leere
startpaint bpic&
drawpic bpich&,0,0;0
EndPaint
startpaint win&
drawpic bpic&,200,20;0
EndPaint
EndIf


if ptest&=1
print wert&


if wtest&=1
winkel!=winkel!+1.8
if winkel! > 180.0
wtest&=0
endif
x!=Sin(winkel!*0.0174532925199433)*wert&
y!=Cos(winkel!*0.0174532925199433)*wert&


startpaint bpic&
UsePen 0,1,$ff0000
Line 200,200-200+x!,200+y!
EndPaint
startpaint win&
drawpic bpic&,200,20;0
EndPaint
endif


if wtest&=2
winkel!=winkel!+1.8
if winkel! > 359.0
wtest&=0
endif
x!=Sin(winkel!*0.0174532925199433)*wert&
y!=Cos(winkel!*0.0174532925199433)*wert&


startpaint bpic&
UsePen 0,1,$0000ff
Line 200,200-200+x!,200+y!
EndPaint
startpaint win&
drawpic bpic&,200,20;0
EndPaint
endif


ptest&=0
endif
If Clicked(b_kill&)
Process("Kill", p&, 0)
EndIf


print gettext$(h&)
endwhile


end


proc leere
cls
endproc


Proc Prozess
Parameters test&,urlpart$, parent&
Declare ende&,ptest&


window %MaxX,0 - 0,0


settimer 300


Ende& = 0
WhileNot ende&
if test&=1
downloadfile("http://192.168.2.101/?pin="+urlpart$)
test&=0
ptest&=23
else
downloadfile("http://192.168.2.101/?pin=leer")
ptest&=24
endif


while %Loading
waitinput 200
endwhile


setText parent&,str$(ord($download))
.....ptest& ???????
EndWhile
endProc

Alles anzeigen

H.Brill

zu 1:
z.B. mit einer UserMessage.
Hatte ich schon in einem anderen Thread von
dir geschrieben.
Im Hauptprogramm :
UserMessages $1000 ' oder ä.
Bei pExec() mußt du dann aber win& als Parameter mitgeben.

In der Schleife

Code

While ende&
WaitInput
If %UMessage = $1000
ptest& = &UWParam
EndIf

Im Prozess :
SendMessage(win&, $1000, ptest&, 0)

zu 3:
einfach vor dem end p& auf 0 abfragen.

Code

Case p& <> 0 : Process("Kill", p&, 0)

oder noch besser :

Code

if getExitCode(p&) = 259 ' Prozess läuft noch
Process("Kill", p&, 0)
EndIf

funkheld

Hallo, danke für die Antworten.

Gruss

Jetzt mitmachen!