Beiträge von bertizwo

Hallo Gemeinde,

folgende Herausforderung:

Eingabe1: Programm.exe # Das zu durchsuchende Programm

Eingabe2: Test # der zu suchende Text (z.B. ein Button mit der Aufschrift "Test")

Ausgabe: ControlID (des Buttons Test)

Hört sich leicht an, ist aber (für mich) ziemlich knifflig.

Irgendwelche Ideen ?

Gruss @Berti

Danke minx, cooles Beispiel...

aber:
Mein Script funktionierte vor einem Jahr noch
unter einer anderen Version von AutoIT.

Damals war der hellblaue Hintergrund n i c h t zu sehen.

Hat jemand eine Lösung? (max. 3Zeiler)

Als Ansatz hier ein Beispiel mit einer Bilddatei,
in der der unsichtbare Bereich ausradiert wurde.

Leider scheint diese Bild jetzt immer im Vordergrund zu sein und meine Definition des Diagrams verschwindet ins Nirvana .

hallo Gemeinde,
wie bekomme ich den hellblauen Hintergrund der GUI unsichtbar?
Ich möchte nur mein control sehen.

Autoit v3.3.8.1

#include <GUIConstantsEx.au3> ;$GUI_
#include <WinAPI.au3> ;_WinApi_
#include <WindowsConstants.au3> ;$WS_
#include <StaticConstants.au3> ;$SS_SIMPLE
#Region - Timestamp
; 2011-04-30 16:23:02
#EndRegion

CreatePie(50)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func CreatePie($sum=0)
local $HUD[10],$fond
;unsichtbare, im Vordergrund stehende und verschiebbare GUI
$HUD[1] = GUICreate("HUD 1", 43, 52, 565, 90, $WS_POPUP, bitOr($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_CONTROLPARENT))
GUISetBkColor(0xABCDEF)
_WinAPI_SetLayeredWindowAttributes($HUD[1], 0xABCDEF,255)

;erstelle Tortendiagramm
GUICtrlCreateGraphic(20, 20, 20, 20) ;Layer
;Torte
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x009933, 0x009933)
GUICtrlSetGraphic(-1, $GUI_GR_PIE, 0, 0, 15, 90, -180)
GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff, 0xff)
GUICtrlSetGraphic(-1, $GUI_GR_PIE, 0, 0, 15, -90,-180)
;Text in der Torte
GUICtrlCreateLabel($sum, 14, 13.5,20,20,$SS_SIMPLE)
GUICtrlSetFont(-1, 9, 400, 0, "Britannic Bold",5)
GUICtrlSetColor(-1,0xFFFFFF) ;white

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT ); Hitergrundfarbe auf Transparent
GUICtrlSetState(-1 ,$GUI_DISABLE); Control nicht anklickbar. Dadurch nimmt die Grafik den Klick an

GUISetState()
EndFunc ;==>CreatePie

Die klare Darstellung der Zahl im Diagramm ohne lästigen Schatten geht
dank $SS_SIMPLE in GUICtrlCreateLabel

Wie kann ich das Tortendiagramm sauberer Zeichnen?
Richtig rund ist es ja nicht gerade.

Wie kommt man eigentlich an den Quelltext von GUICtrlCreateLabel ?

raupi hat recht, gemeint war die linke Maustaste ....

Eine Aufgabe hab ich noch:
- es gibt Probleme mit GUICtrlCreateLabel

1) Es stört das kleine Rechteck mit dem Desktophintergrund.
2) Wie treffe ich die genaue Mitte der Torte

wow, das ging ja schnell
ich teste gleich mal

Dank an raupi & name22

Raupi ist der Beste... perfekt

Ich habe noch zwei Anliegen:
1. Diagramm bei mehreren Fenstern immer im Vordergrund
2. Wie realisiere ich das Verschieben des Diagramms mit der rechten Maustaste ?

Vielen Dank

hallo Gemeinde,
ich möchte ein Tortendiagramm auf dem Desktop darstellen
[GUI unsichtbar (0%), Torte sichtbar (100%)]

Bei meinem Versuch habe ich als Hintergrund immer noch ein graues Rechteck:

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>   	;$WS_
;#include <ProgressConstants.au3>  	;$PBS_


main()
Func main()
	Local $msg, $i=1	
	CreatePie()
	Do
		$msg = GUIGetMsg()
		If $i < 0 Then Exit
	Until $msg = $GUI_EVENT_CLOSE
EndFunc   


Func CreatePie()
	local $HUD[10],$g
	$HUD[1] = GUICreate("HUD 1", 43, 52, 565, 90, $WS_POPUP, $WS_EX_TRANSPARENT)
	WinSetTrans($HUD[1], '', 255) ;transparenz von 0 wie unsichtbar bis 255


	$g = GUICtrlCreateGraphic(20, 20, 20, 20)
	;GUICtrlSetBkColor($HUD[1], $GUI_BKCOLOR_TRANSPARENT) 	;geht nicht
	;GUICtrlSetBkColor($g, $GUI_BKCOLOR_TRANSPARENT)		;geht nicht

	GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0, 0xffffff)
	GUICtrlSetGraphic(-1, $GUI_GR_PIE, 0, 0, 10, 90, -180)
	GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xff, 0xff)
	GUICtrlSetGraphic(-1, $GUI_GR_PIE, 0, 0, 10, -90,-180)

	GUISetState()
EndFunc   ;==>CreatePie

P.S. Ich glaube, es liegt nicht an der GUI, sondern an GUICtrlCreateGraphic

hallo funkey, vielen Dank für die schnelle Antwort.
Ich hatte beim testen ein paar Fehlermeldungen, deshalb hier die
gefixte Version von anygui.au3 mit Beispielen.
http://www.autoitscript.com/forum/index.php?act=attach&type=post&id=24409

Gruss @Berti

danke funkey, genau sowas hatte ich gesucht.

P.S. Wie lasse ich eine oder mehrere von mir erzeugte static's
auf einer Fremdanwendung anzeigen?

hallo Gemeinde,
habe kleinen Text "hallo" [static1] auf einer GUI erstellt.
Dieser soll jetzt aber evtl. mittels rechter Maustaste verschoben werden.

Wie geht das?
Danke @Berti

vielen Dank jam00, eukalyptus, ..

Mein Ergebnis saehe dann so aus:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>

setWinHide("Test",400,200,0,0)
setText(10,40,"roter Text in Groesse 9 ",0xFF0000,"MS Reference Sans Serif",9)
setText(20,80,"default Text")

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

;myFunction
Func setText($x,$y,$text,$color=0x00000D,$fontname="MS Times New Roman",$textgroesse=12)
local $label = GUICtrlCreateLabel ($text, $x, $y,StringLen($text)*$textgroesse,$textgroesse*2)
GUICtrlSetFont($label, $textgroesse, 400, -1, $fontname)
GUICtrlSetColor($label, $color)
EndFunc

;Erstellt eine transparente GUI
Func setWinHide($title, $width, $height, $left, $top)
local $hGui = GUICreate($title, $width, $height, $left ,$top ,$WS_POPUP, $WS_EX_LAYERED)
local $bkcolor = 0x000000
GUISetBkColor($bkcolor)
DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hGui, "long", $bkcolor, "byte", 255, "long", 0x03)
GUISetState()
EndFunc

Es funktioniert und es waren nur drei Zeilen zusaetzlich.
Nochmals Danke
@Berti

oh mein Gott ... :wacko:

...ich bin zu dumm dafür.

hallo gemeinde,
wie muss ich meinen Quelltext aendern, damit man nur den Text ohne GUI sieht ?

#include <GUIConstants.au3>

GUICreate("Test", 400, 200)
setText(10,40,"Teste einen roten Text in Groesse 9 ",0xFF0000,"MS Times New Roman",9)
GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

;myFunction
Func setText($x,$y,$text,$color,$fontname,$textgroesse)
local $label = GUICtrlCreateLabel ($text, $x, $y,StringLen($text)*$textgroesse,$textgroesse*2)
GUICtrlSetFont($label, $textgroesse, 400, -1, $fontname)
GUICtrlSetColor($label, $color)
EndFunc

Ich habs schon mit GUISetState(@sw_hide) probiert.
Ergebnis: die GUI war weg, leider auch der Text.

Eine direkte Lösung wird gesucht. (keine Links, Kommentare, Fragen etc.)
Gruss @Berti

vielen dank, es klappt

hallo Jo,
gehen wir einfach mal davon aus, das script sei compiliert...

der processname ist schon richtig, da das programm sich selbst abschiesst.
es soll sich aber nur selbst abschiessen, wenn das programm schon einmal aufgerufen wurde.
anders ausgedrueckt: es soll schauen, ob ein proramm mit gleichem namen schon laeuft.

hallo gemeinde,

ich will, dass mein programm nur ein mal aufgerufen wird.

mein versuch in myProgram.au3...
IF ProcessExists("myProgram.exe") Then
Exit 0
EndIF
... musste ja logischerweise scheitern.

irgendwelche loesungen parat? (fuer dummies)
danke bertizwo

hallo Poldi,

Frage3: ok
StringSplit zum erstellen des Arrays - darauf muss man erst mal kommen.

Vielen Dank,
Gruss @Berti

Zitat

geht bestimmt auch viiiiiiiiiel einfacher

Wie?

Hallo Gemeinde,

Beispiel:
$t = WinGetClassList("","")
MsgBox(0, "Text read was:", $t)

Frage1: Wie lösche ich alles, was mehr als 1x in String $t vorkommt ?
(Welche Elemente gibt es, ausser @LG)
Frage2: Welche Elemente sind wie oft in $t vorhanden ? (ausser @LG)
Frage3: Wie wandel ich den String $t in ein Array um ?

Bitte nur direkte Antworten und keine Verweise etc.
Vielen Dank @Berti