Hmmm,
funktioniert bei mir einwandfrei:
[autoit]; DLL liegt im Skriptverzeichnis
$eraserdll = DllOpen ("eraser.dll")
ConsoleWrite ("--- Eraser.dll Instanzzähler = "&$eraserdll & @crlf)
[/autoit][autoit][/autoit][autoit]DllClose ($eraserdll)
[/autoit][autoit][/autoit][autoit]Exit (0)
;
Gruß
Greenhorn
Moin,
habe mir gerade folgendes zugelegt:
AMD Phenom II X4 955 Black Edition (AM3; 3,2 GHz)- 180 €
ASUS M4A79T Deluxe - 159 €
CORSAIR TR3X6G1333C9 - 97 €
Bei Sockel AM3 unbedingt auf QVL des Mainboard-Herstellers oder des RAM-Herstellers achten !
1600 MHz bringt gegenüber 1333 MHz kaum Vorteile.
http://www.tomshardware.com/de/phenom-ii-d…hte-240345.html
Du kannst auch versuchen ein günstigeres Zweier-Paar RAM zu bekommen, das spart noch mal 'nen 30'er ...
Ich habe das Dreier-Pack genommen, weil mein Hardware-Dealer gerade keinen anderen QVL Speicher da hatte.
So, dann bist Du bei ca. 440 €.
Netzteil würde ich entweder Enermax oder BeQuiet nehmen, da solltest Du mit 500W (ca. 100 €) gut bedient sein.
GFX ist geschmackssache, aber für ca. 150 - 200 bekommst Du eine völlig ausreichende Karte.
Sooooo, nun ist das Budget erschöpft und es fehlen noch CPU-Kühler und Laufwerke (DVD/HDD).
Also noch einmal 'nen Hunderter drauf und Du hast ein gutes System ...
Gruß
Greenhorn
Hi,
kleiner Tip:
c't extra Programmieren
Sieh mal unter Anwendungserweiterungen
Also, auf zum Zeitschriften-Dealer deines Vertrauens oder direkt bestellen ... 
Gruß
Greenhorn
Benutze für das Menu doch einfach eine zweite GUI (Child):
Wahrscheinlich die beste Alternative ...
Ich habe bis jetzt das hier fabriziert:
Ist ein bißchen langsam und nicht perfekt.
Gruß
Greenhorn
Hab jetzt alles ausprobiert..
sogar ne list view zum schluss XDIch hab einfach kp wie du das machen willst o_O
Ich habe auch einiges ausgetestet, aber mit ebensowenig Erfolg. Das Problem ist ..., mom, mir fällt gerade etwas ein ...
Gruß
Greenhorn
Gerade herumliegen nicht, aber ich schau mal ...
Gruß
Greenhorn
Hi,
nein, leider geht das so wie Du es dir vorstellst nicht, da die Menüleiste zum Nicht-Anwendungsbereich des Fensters gehört.
Was Du aber machen kannst:
Erzeuge eine Werkzeugleiste unterhalb deines "Rahmens" und für jedes Element der Werkzeugleiste erzeugst Du ein Popupmenü.
Das machen viele Anwendungen so ...
Gruß
Greenhorn
Hmmm, so besser ???
;
#include <GUIConstants.au3>
#Region ### START Koda GUI section ###
$Form = GUICreate("Kontostand", 625, 315, 330, 184)
$Headline = GUICtrlCreateLabel("Automatisches Konto für Zuhause", 144, 40, 320, 25)
GUICtrlSetFont(-1, 14, 800, 0, "AgentMedDB")
$In = GUICtrlCreateButton("Einzahlung", 40, 96, 217, 41, 0)
$Out = GUICtrlCreateButton("Auszahlung", 368, 96, 219, 41, 0)
$CurrentLine = GUICtrlCreateLabel("Aktueller Stand:", 216, 192, 153, 25)
GUICtrlSetFont(-1, 14, 800, 0, "AgentMedDB")
$Current = GUICtrlCreateInput("Current", 256, 224, 81, 21)
$MenuItem1 = GUICtrlCreateMenu("Optionen")
$MenuItem2 = GUICtrlCreateMenuItem("Verwaltung", $MenuItem1)
$MenuItem3 = GUICtrlCreateMenuItem("Exit", $MenuItem1)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
$PasswortAbfrage = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
If Not $PasswortAbfrage = "--" Then
MsgBox (0, "Falsch", "Leider ist das Passwort falsch!")
Exit
EndIf
$Saldo = IniRead (".\Konto.ini", "Herbert", "Saldo", "0")
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData ($Current, $Saldo)
GUISetState (@SW_SHOW, $Form)
While 1
[/autoit] [autoit][/autoit] [autoit]Switch GUIGetMsg()
[/autoit] [autoit][/autoit] [autoit]Case $MenuItem3
ContinueCase
Case $GUI_EVENT_CLOSE
Exit
Case $In
[/autoit] [autoit][/autoit] [autoit]$PasswortIn = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
[/autoit] [autoit][/autoit] [autoit]If $PasswortIn = "--" Then
[/autoit] [autoit][/autoit] [autoit]$Einzahlung = InputBox ("Einzahlung", "Wie viel willst du auf Dein Konto einzahlen?")
$Saldo = IniRead (".\Konto.ini", "Herbert", "Saldo", "0")
$SaldoNeu = $Saldo+$Einzahlung
IniWrite (".\Konto.ini", "Herbert", "Saldo", $SaldoNeu)
GUICtrlSetData ($Current, $SaldoNeu)
EndIf
Case $Out
[/autoit] [autoit][/autoit] [autoit]$PasswortOut = InputBox ("Passwort", "Bitte geben Sie Ihr Passwort ein!")
[/autoit] [autoit][/autoit] [autoit]If $PasswortOut = "--" Then
[/autoit] [autoit][/autoit] [autoit]$Auszahlung = InputBox ("Auszahlung", "Wie viel möchtest Du auszahlen lassen?")
$Saldo = IniRead (".\Konto.ini", "Herbert", "Saldo", "0")
$SaldoNeu = $Saldo-$Auszahlung
IniWrite (".\Konto.ini", "Herbert", "Saldo", $SaldoNeu)
GUICtrlSetData ($Current, $SaldoNeu)
EndIf
EndSwitch
WEnd
Exit (0)
;
Gruß
Greenhorn
Jawoll-Ja !
Gruß
Greenhorn
Hi Andy,
suchst Du Hilfe oder möchtest Du Hilfestellung geben ?!?
Bei letzterem gehört dieser Post in die FAQ.
Du hast Recht, es ist ärgerlich und etwas enttäuschend, das AutoIt keinen richtigen Debugger zur Verfügung stellt, wäre für Jon und das Team ein Klacks, von daher ist es mir unverständlich, warum AutoIt keinen Script-Debugger oder wenigstens eine Schnittstelle bereitstellt.
Das mit den Trace- und DebugTo... Funktionen ist schlecht implementiert, bei mehrzeiligen Funktionsaufrufen ( _) haut das alles nicht mehr hin, leider.
Es gibt einen Debugger mit GUI, habe ich aber nie ausprobiert ...
Ein vernünftiger Debugger oder wenigtens eine Schnittstelle dafür wären echt angebracht, denn manchmal weiß man nicht genau, ob es das eigene Script ist, welches einen Bug enthält, oder ob es ein Bug in AutoIt selbst ist, der einen nicht ruhig schlafen lässt ...
Gruß
Greenhorn
Nein, ein Array ist (normalerweise) statisch, d.h. die Dimension (oder genauer der Speicherbedarf) muss vor der kompilierung feststehen.
Das ist bei AutoIt anders.
Hier kommt es darauf an, wie und wann Du eine Arrayvariable brauchst.
Zudem sind AutoIt-"Arrays" in wirklichkeit Vektoren, deshalb ist es mit AutoIt so einfach "Arrays" dynamisch zu erzeugen.
Im Falle deines Beispieles kannst Du es so machen:
[autoit]Dim/Global/Local $array[1]
[/autoit]
Willst Du es dann später vergrößern:
ReDim $array[20]
[/autoit]Anderes Beispiel:
[autoit]Global $array
;
...
;
$array = StringSplit (...)
Gruß
Greenhorn
Das Ergebnis stimmt mich zuversichtlich, dass die deutsche Hilfe gerne gesehen und auch benötigt wird.
Dazu möchte ich anmerken, daß das Umfrageergebnis lediglich die Meinung der registrierten Forennutzer widerspiegelt.
Ich glaube, daß von den unregistrierten AutoIt'lern wesentlich mehr Leute die Übersetzung nutzen und schätzen.
Gruß
Greenhorn
Wo bleibt ihr
Gib mir noch ein wenig Zeit, mein Bester.
Im Moment habe ich den Kopf nicht frei dafür.
Gruß
Greenhorn
Kleines Update und ein paar Bugfixes ...
Gruß
Greenhorn
Hi,
AutoIt konvertiert manchmal die Daten automatisch, darauf würde ich mich aber nicht verlassen !
$Test1 = "10"
$Test2 = 288
; Funktioniert, ist aber nicht explizit
; und daher nicht zuverlässig
$Bestand = ($Test1*1000)+$Test2
ConsoleWrite ("----------------------" & @crlf)
ConsoleWrite ("+> Bestand = "&$Bestand & @crlf)
ConsoleWrite ("----------------------" & @crlf)
Exit (0)
[/autoit]
Dieses Beispiel funktioniert zwar und gibt 10288 aus, aber wie gesagt, ich würde mich nicht darauf verlassen.
Daher sollte man, wie Andy bereits erwähnte, die Variablen korrekt deklarieren und auch nur die entsprechenden Funktionen darauf anwenden.
D.h. bei Zahlen keine String Funktionen anwenden und umgekehrt.
Sollte dies jedoch nicht zu vermeiden sein - kann ja mal wirklich sein - , dann sollte man die Datentypen mit den entsprechenden Funktionen "casten".
$test = 100
[/autoit][autoit][/autoit][autoit]If (IsInt ($test)) Then
ConsoleWrite ("+> IsInt" & @crlf)
EndIf
$test = StringReplace ($test, "1", "2")
[/autoit][autoit][/autoit][autoit]If (Not IsInt ($test)) Then
ConsoleWrite ("!> Not IsInt" & @crlf)
$test = Int ($test)
EndIf
If (IsInt ($test)) Then
ConsoleWrite ("+> IsInt" & @crlf)
EndIf
Exit (0)
[/autoit]Gruß
Greenhorn
Nochmal komplett ...
;
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $hGUI
Global $hGUI2
Global $Label1, $Label2, $Label3
[/autoit] [autoit][/autoit] [autoit]$hGUI = GUICreate("Form1", 254, 185, 344, 251)
$Pic2 = GUICtrlCreatePic("C:\Bild.jpg", 3, 6, 249, 157, BitOR($SS_NOTIFY,$WS_GROUP,$WS_BORDER,$WS_CLIPSIBLINGS), $WS_EX_CLIENTEDGE)
$MenuItem1 = GUICtrlCreateMenu("&Menü")
$Message= GUICtrlCreateMenuItem("Message", $MenuItem1)
GUISetState(@SW_SHOW)
Func AboutDlg ( )
[/autoit] [autoit][/autoit] [autoit]$hGUI2 = GUICreate("Info", 139, 107, 328, 363, _
BitOR ($WS_VISIBLE, $DS_MODALFRAME, $WS_CAPTION, $WS_SYSMENU), _
$WS_EX_DLGMODALFRAME, $hGUI)
GUICtrlCreateGroup("Info:", 6, 4, 127, 97)
$Label1 = GUICtrlCreateLabel("01", 16, 48, 90, 17)
$Label2 = GUICtrlCreateLabel("02", 16, 24, 112, 17)
$Label3 = GUICtrlCreateLabel("03", 16, 72, 83, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndFunc
[/autoit] [autoit][/autoit] [autoit]While (True)
$aMsg = GUIGetMsg (True)
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
If ($aMsg[1] == $hGUI) Then
ExitLoop
ElseIf ($aMsg[1] == $hGUI2) Then
GUIDelete ($hGUI2)
EndIf
Case $Message
AboutDlg ( )
EndSwitch
WEnd
Exit (0)
;
Gruß
Greenhorn
Hi,
;
While (True)
$aMsg = GUIGetMsg (True)
Switch $aMsg[0]
Case $GUI_EVENT_CLOSE
If ($aMsg[1] == $GUI) Then
ExitLoop
ElseIf ($aMsg[1] == $GUI2) Then
GUIDelete ($GUI2)
EndIf
Case $Message
GUISetState(@SW_SHOW, $GUI2)
EndSwitch
WEnd
Exit (0)
;
Gruß
Greenhorn
Hi,
ohne Skript, ehrlich gesagt: Nein, ich weiß es nicht.
Gruß
Greenhorn
Hallo
Ich würde gern eine Msg zu GuiGetMsg() hinzufügen also wie $GUI_EVENT_CLOSE
z.b wenn die maus an der position 0,0 ist soll der sagen bin bei 0,0
geht das???
danke im voraus
Nein, das geht nicht soweit ich weiß. Jedenfalls nicht wirklich ...
Du kannst es aber so lösen ...
;
Global Const $WM_APP = 0x8000
Global Const $WM_MOUSEUPPERLEFT = $WM_APP + 1
Opt("MouseCoordMode", 2)
[/autoit] [autoit][/autoit] [autoit]$hwnd = GUICreate ("WM_APP Test")
[/autoit] [autoit][/autoit] [autoit]; Erste Möglichkeit
$MAUS_IST_LINKSOBEN = GUICtrlCreateDummy ( )
; Zweite Möglichkeit
GUIRegisterMsg ($WM_MOUSEUPPERLEFT, "WM_MOUSEUPPERLEFT")
GUISetState (@SW_SHOW, $hwnd)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While (True)
Switch (GUIGetMsg (False))
Case $GUI_EVENT_CLOSE
ExitLoop
Case $MAUS_IST_LINKSOBEN
ConsoleWrite ("+> Maus ist links-oben." & @crlf)
Case Else
CheckMousePos ( )
EndSwitch
WEnd
Func CheckMousePos ( )
[/autoit] [autoit][/autoit] [autoit]Local $aPos = MouseGetPos ( )
; Wenn Maus in der linken-oberen Ecke des Anwendungsbereichs
If ($aPos[0] == 0 and $aPos[1] == 0) Then
; Eine Nachricht an das Fenster senden.
SendMessage ($hwnd, $WM_MOUSEUPPERLEFT, 0, 0)
; Eine Nachricht an das Dummy-Steuerelement senden.
GUICtrlSendToDummy ($MAUS_IST_LINKSOBEN)
EndIf
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func WM_MOUSEUPPERLEFT ( )
[/autoit] [autoit][/autoit] [autoit]Local $sMsgTitle = "WM_MOUSEUPPERLEFT"
Local $sMsgText = "Die Maus befindet sich links-oben im Anwendungsbereich."
MsgBox (266304, $sMsgTitle, $sMsgText)
Return 0
EndFunc
[/autoit] [autoit][/autoit] [autoit]Func SendMessage ($hWnd, $Msg, $wParam, $lParam)
[/autoit] [autoit][/autoit] [autoit]Local $aRes = DllCall ('user32.dll', 'ulong', 'SendMessage', _
'hwnd', $hWnd, _
'uint', $Msg, _
'wparam', $wParam, _
'lparam', $lParam)
If @error Then _
Return @error
Return $aRes[0]
[/autoit] [autoit][/autoit] [autoit]EndFunc
;
1) Über ein "Dummy-Steuerelement" kannst Du Nachrichten per GUIGetMsg erhalten.
2) Eine eigene Nachricht definieren ($WM_APP + X) und diese dann an das betreffende Fenster senden.
Gruß
Greenhorn
