Beiträge von Stoani

Stoani

Omg Mr. Aero.....

Ich hatte auch ein Skript das 100% funzt und vor mir noch 2 Leute^^

Ich glaube das da nicht AutoIt schuld ist sondern Fifa. Oder Vista

Schrubber:

Bitte poste mir mal deinen Code den du verwendest. Ganz genau so, wie du ihn Ausführst. Inkl. Dateipfad bitte...

Stoani

Cheater Dieter

In meiner Version ist kein @SW_MAXIMIZE vorhanden -> daran liegts nicht....

Stoani

1.)Probiers mal mit einer Compilten Versionl
2.)So?

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>




$GUI = GUICreate("Computer Guard v10.0.0", 235, 91, 192, 264) ; Erstellt ein GUI Window
$GUI_Input = GUICtrlCreateInput("", 16, 16, 201, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) ;Erstellt die InputBox
$GUI_run = GUICtrlCreateButton("Access", 16, 48, 201, 25) ;Erstellt einen Button mit der Caption "Access"
GUISetState(@SW_SHOW) ;Damit der GUI sichtbar ist


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $GUI_run ;Wenn "Access" gedrückt wird,.....
$b = "Passwort" ;Legt das Passwort fest
$Programm = "\\\\\\String.exe" ;Legt den Pfad zum Programm fest
$a = Guictrlread($GUI_Input)
If $a = $b Then
Run($Programm)
Exit
Else 
If $a <> $b Then ;Wenn das Passwort nicht übereinstimmt,......
MsgBox(0,"","Access denied! Try again!")
EndIf
EndIf
EndSwitch
WEnd

Alles anzeigen

3.) Vll lässt sich noch was mit Controlclick machen....

Stoani

Schreib das doch mal unter die #inculdes:

#RequireAdmin

Stoani

Also:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>




$GUI = GUICreate("Computer Guard v10.0.0", 235, 91, 192, 264) ; Erstellt ein GUI Window
$GUI_Input = GUICtrlCreateInput("", 16, 16, 201, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD)) ;Erstellt die InputBox
$GUI_run = GUICtrlCreateButton("Access", 16, 48, 201, 25) ;Erstellt einen Button mit der Caption "Access"
GUISetState(@SW_SHOW) ;Damit der GUI sichtbar ist


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit


Case $GUI_run ;Wenn "Access" gedrückt wird,.....
$b = "Passwort" ;Legt das Passwort fest
$Programm = "\\\\\\String.exe" ;Legt den Pfad zum Programm fest
$a = Guictrlread($GUI_Input)
If $a = $b Then
Run($Programm)
Else 
If $a <> $b Then ;Wenn das Passwort nicht übereinstimmt,......
MsgBox(0,"","Access denied! Try again!")
EndIf
EndIf
EndSwitch
WEnd

Alles anzeigen

Geh nun zu dem Ordner des Spieles und mach einen Rechtsklick auf die .exe. Dann auf Eigenschaften und such dir den Dateipfad. Diesen kopierst du in die $Programm - Variable und ergänzt ihn durch die "fifa.exe"

Grüße
Stoani

Stoani

Was ist mit ".\filename"?

Gib mir 10min...

Stoani

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#Include <GuiListView.au3>
$GUI_form = GUICreate("Test",250, 180, 700, 280)
$GUI_input_a = GUICtrlCreateInput("", 157, 8, 81, 21)
$GUI_listview_a = GUICtrlCreateListView("A", 5, 8, 137, 169)
$GUI_button_a = GUICtrlCreateButton("Test", 156, 40, 81, 25)
_GUICtrlListView_AddColumn($GUI_listview_a,"B")
GUISetState(@SW_SHOW)


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_button_a
_GUICtrlListView_DeleteAllItems($GUI_listview_a)
$AnzahlB = GUICtrlRead($GUI_input_a)
Dim $Array[$AnzahlB]
$Bund = 1 
For $1 = 1 To $AnzahlB
GUICtrlCreateListViewItem($1,$GUI_listview_a)
Next
$Anzahl1B = GUICtrlRead($GUI_input_a)
Dim $Array[$Anzahl1B]
$Bund = 1 
For $2 = 1 To $Anzahl1B
_GUICtrlListView_AddSubItem($GUI_listview_a,0,$Anzahl1B,$2)
Next






EndSwitch
WEnd

Alles anzeigen

Kann mir jemand sagen wieso das nicht läuft?

Ein ganz anderer Denkansatz wäre das hier:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUiListview.au3>
$Form1_1 = GUICreate("Rechner", 450, 446, 355, 157)
$Berechnen = GUICtrlCreateButton("Berechnen", 216, 152, 225, 33)
$Mensur = GUICtrlCreateInput("z.B.: 650", 376, 16, 57, 21)
$Buende = GUICtrlCreateInput("z.B.: 21", 376, 40, 57, 21)
$Edit = GUICtrlCreateListView("Bund|Abstand zum Sattel", 8, 0, 202, 422)
Dim $inhalt[1]
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState()




While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
    	Case $GUI_EVENT_CLOSE
        	Exit
    	Case $Berechnen


        	Local $a = GUICtrlRead($Mensur), $b


        	For $i = 1 To GUICtrlRead($Buende)
            	If $i == 1 Then
                	$b = ($a / (2 ^ (1 / 12)))
            	Else
                	$b = ($b / (2 ^ (1 / 12)))
            	EndIf
            	ReDim $inhalt[UBound($inhalt)+1]
          	$inhalt[$i-1] = GUICtrlCreateListViewItem("|"&Round($a - $b, 2), $Edit)  
        	Next
	   	 For $o = 1 To GUICtrlRead($Buende)
	   		 GUICtrlCreateListViewItem($o,$Edit) 
	   	 Next
	EndSwitch
WEnd

Alles anzeigen

Allerdings stehen die Werter der Spalten nicht parrallel zueinander...

Danke.

Stoani

Servus,

ich hab bisher noch nie mit ListViews gearbeitet.

So sieht das ganze derweilen aus:

C

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <File.au3>
#include <GUiListview.au3>
$Form1_1 = GUICreate("Rechner", 450, 446, 355, 157)
$Berechnen = GUICtrlCreateButton("Berechnen", 216, 152, 225, 33)
$Mensur = GUICtrlCreateInput("z.B.: 650", 376, 16, 57, 21)
$Buende = GUICtrlCreateInput("z.B.: 21", 376, 40, 57, 21)
$Edit = GUICtrlCreateListView("Bund|Abstand zum Sattel", 8, 0, 202, 422)
$Bund = GUICtrlCreateListViewItem("Bund", $Edit)
$AbstandSattel = GUICtrlCreateListViewItem("Abstand zum Sattel", $Edit)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUISetState()
GUICtrlSetData($Bund, "")
GUICtrlSetData($AbstandSattel, "")


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit




Case $Berechnen
			For $Bundzahl = 1 To GUICtrlRead($Buende)
			Next


        	Local $a = GUICtrlRead($Mensur), $b


        	For $i = 1 To GUICtrlRead($Buende)
            	If $i == 1 Then
                	$b = ($a / (2^(1/12)))
            	Else
                	$b = ($b / (2^(1/12)))
            	EndIf


            	GUICtrlSetData($AbstandSattel, Round($a - $b, 2))
        	Next




EndSwitch
WEnd

Alles anzeigen

Problem Nr. 1.: Irgendwie ist das ganze nicht mehr geordnet.... (vorher im Edit wars von "weniger" nach "mehr")
Problem Nr. 2.: Es wird immer nur der letzte Wert der For§ Schleife angezeigt..

Wie kann ich das ganze "Ordnen"?

Hat schnell jemand eine Antwort parat?

Grüße aus Upper Austria
Stoani

Ps.: Das Ganze ist ein FretCalculator falls jemand von euch Gitarrenbauer etc. ist......

Stoani

Vielen Dank euch beiden!

Wie war das nochmal, man muss nicht alles wissen..... Man muss wissen wo man nachschauen kann! ;D

Ne, scherz beiseite, ich bin echt froh das es Leute wie euch gibt!

Grüße aus Upper Austria

Stoani

Stoani

Servus,

Ich möchte für ein Tool eine Erweiterung schreiben.
Es soll eine Rechnung durchgeführt und diese auch grafisch dargestellt werden.

Die Rechnung ist kein Problem.
Zum erstellen der Grafik verwende ich die GDIPlus-Engine...

Die Grafik ist leider teilweise schon ein Problem, da ich auch eine Druck-Funktion verwende und es daher vorteilhaft wäre, wenn die Grafik in einem 1:1 Maßstab gedruckt werden würde. D.h.: Ich müsste die Grafik auch 1:1 Zeichnen. Allerdings nicht in Pixel sondern in z.B. mm...

Könnte man das ganze einfach in "pt" speichern? (pt = Points = standard Einheit für Drucker)

In anderen Programmiersprachen gibt es ja die Möglichkeit, jede Grafik des GUI's in eine Art Chache zu speichern und beliebig aufzurufen bzw. eben auch zu DRUCKEN....

Hat jemand eine Ahnung wie man das umsetzen könnte?

Hier ein Link zu einer Beispiel-Grafik:
Segment Beispiel - IMG-UP.net - Your Free Image Hoster

Die Formel lautet:
r = (1/2) • { [(s/2)² / h] +h }

Wobei gilt:
r = Radius
s = Sehne
h = Segmenthöhe

Der wichtige Teil ist der Kreissektor der die drei Punkte verbindet, d.h. es muss bei dem A4-Druck nicht ein Kreis mit 50cm Durchmesser draufpassen.....

For Example:

C

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 601, 570, 438, 188)
GUISetBkColor(0xFFFFFF)
$Button1 = GUICtrlCreateButton("Draw", 8, 512, 161, 49)
GUISetState(@SW_SHOW)
$hWnd = WinGetHandle($Form1)
#EndRegion ### END Koda GUI section ###


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit


        Case $Button1


        _GDIPlus_Startup()

        $Zeichnen = _GDIPlus_GraphicsCreateFromHWND($hWnd)
        Sleep(1000)
        _GDIPlus_GraphicsDrawLine($Zeichnen,167,130,363,130)
        Sleep(1000)
        _GDIPlus_GraphicsDrawLine($Zeichnen,265,130,265,110)
        Sleep(1000)
        _GDIPlus_GraphicsDrawPie($Zeichnen,15,110,500,500,0,360)


        _GDIPlus_Shutdown()

    EndSwitch
WEnd

Alles anzeigen

Würd mich freuen, stehe schon seit 3Tagen auf der Leitung....

Grüße Stoani

Beiträge von Stoani

Anfängerfrage bezüglich ShellExecute

Anfängerfrage bezüglich ShellExecute

Anfängerfrage bezüglich ShellExecute

Anfängerfrage bezüglich ShellExecute

Anfängerfrage bezüglich ShellExecute

Anfängerfrage bezüglich ShellExecute

ListView Tabelle ordnen

ListView Tabelle ordnen

GDIPlus Grafik in mm/pt?

GDIPlus Grafik in mm/pt?