Beiträge von Greenhorn

**Greenhorn**

Ups, zu spät ...

Spoiler anzeigen

[autoit]

#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$USER_ENVIRONMENT = "HKCU\Environment"

[/autoit] [autoit][/autoit] [autoit]

$GLOBAL_ENVIRONMENT = "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment"

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

RegListKey ($USER_ENVIRONMENT)

[/autoit] [autoit][/autoit] [autoit]

RegListKey ($GLOBAL_ENVIRONMENT)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func RegListKey ($keyname)

[/autoit] [autoit][/autoit] [autoit]

Local $aKeyList [100][2]

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

For $i = 1 To 99

[/autoit] [autoit][/autoit] [autoit]

$aKeyList[$i][0] = RegEnumVal ($keyname, $i)

[/autoit] [autoit][/autoit] [autoit]

If (@error) Then _
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

$aKeyList[$i][1] = RegRead ($keyname, $aKeyList[$i][0])

[/autoit] [autoit][/autoit] [autoit]

$aKeyList[0][0] = $i - 1

[/autoit] [autoit][/autoit] [autoit]

ReDim $aKeyList [$i][2]

[/autoit] [autoit][/autoit] [autoit]

_ArrayDisplay ($aKeyList)

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

EDIT:
Und nicht vergessen, ein Neustart ist nötig ...

Gruß
Greenhorn

**Greenhorn**

Hi,

vielleicht ist das ein Ansatz ...

Spoiler anzeigen

[autoit]

$sFileJPG = ""

[/autoit] [autoit][/autoit] [autoit]

$sPath = "D:\ToSrv\"

[/autoit] [autoit][/autoit] [autoit]

$hSearch = FileFindFirstFile($sPath & "*.*")

[/autoit] [autoit][/autoit] [autoit]

If ($hSearch = -1) Then
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

While (TRUE)

[/autoit] [autoit][/autoit] [autoit]

$sFile = FileFindNextFile($hSearch)

[/autoit] [autoit][/autoit] [autoit]

If @error Then ExitLoop

[/autoit] [autoit][/autoit] [autoit]

$sAttrib = FileGetAttrib ($sPath & $sFile)

[/autoit] [autoit][/autoit] [autoit]

; Prüfen, ob sFile ein Verzeichnis ist.
If (StringInStr ($sAttrib, 'D')) Then

[/autoit] [autoit][/autoit] [autoit]

; Bilddatei im Subverzeichnis suchen.
$sFileJPG = FindJPG ($sPath & $sFile)

[/autoit] [autoit][/autoit] [autoit]

MsgBox ($MB_ICONINFORMATION, "JPEG", $sFileJPG)

[/autoit] [autoit][/autoit] [autoit]

; TODO: Umbenennen und verschieben

[/autoit] [autoit][/autoit] [autoit]

EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func FindJPG ($path)

[/autoit] [autoit][/autoit] [autoit]

Local $hSearch
Local $sFile

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$hSearch = FileFindFirstFile($path & "\*.JPG")

[/autoit] [autoit][/autoit] [autoit]

If ($hSearch = -1) Then
Exit
EndIf

[/autoit] [autoit][/autoit] [autoit]

While (TRUE)

[/autoit] [autoit][/autoit] [autoit]

$sFile = FileFindNextFile($hSearch)

[/autoit] [autoit][/autoit] [autoit]

If @error Then ExitLoop

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

Return $sFile

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit] [autoit][/autoit] [autoit][/autoit]

Ansonsten sieh dir mal die _File... Funktionen in den UDFs an, z.B. _FileListToArray.

Gruß
Greenhorn

**Greenhorn**

Absolute Spitze !

Gruß
Greenhorn

**Greenhorn**

AutoIt3 Beta herunterladen ...

Gruß
Greenhorn

**Greenhorn**

Wenn ich die Dokumentation richtig interpretiere, dann musst Du den Fehler über @InetBytesRead abfragen, wenn der "background" Parameter gesetzt ist.

Spoiler anzeigen

[autoit]

#include <Constants.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$temp = InetGet("MichGibsNicht.Takatukaland", @ScriptDir & "\MichWirdsNichtGeben", 1, 1)
; Script wird fortgesetzt...

[/autoit] [autoit][/autoit] [autoit]

While (@InetGetActive)

[/autoit] [autoit][/autoit] [autoit]

Sleep(25)
Wend

[/autoit] [autoit][/autoit] [autoit]

; Wenn Fehler, dann Meldung ausgeben.
If (@InetGetBytesRead == -1) Then

[/autoit] [autoit][/autoit] [autoit]

$sMsgText = StringFormat ("Fehler!\n\nGelesene Bytes: %g", @InetGetBytesRead)

[/autoit] [autoit][/autoit] [autoit]

MsgBox ($MB_ICONEXCLAMATION, "Fehler", $sMsgText)
EndIf

[/autoit]

Gruß
Greenhorn

**Greenhorn**

So funktioniert es bei mir ...

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

Global $IDC_EXIT [1] ; Hier die IDs der "EXIT" Schaltflächen speichern

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 251, 120, -1, -1)
$Button1 = GUICtrlCreateButton("Make GUI", 48, 32, 155, 49, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While (WinExists($Form1)) ; solange das Hauptfenster existiert ...

[/autoit] [autoit][/autoit] [autoit]

Local $nMsg
Local $i

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg(TRUE)

[/autoit] [autoit][/autoit] [autoit]

Switch $nMsg[0]

[/autoit] [autoit][/autoit] [autoit]

Case 0
ContinueLoop

[/autoit] [autoit][/autoit] [autoit]

Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1])

[/autoit] [autoit][/autoit] [autoit]

Case $Button1

[/autoit] [autoit][/autoit] [autoit]

$i = UBound($IDC_EXIT)

[/autoit] [autoit][/autoit] [autoit]

ReDim $IDC_EXIT[$i + 1]
$IDC_EXIT[0] = $i

[/autoit] [autoit][/autoit] [autoit]

GUICreate("andere GUI", 246, 166, 192, 124)
$Button2 = GUICtrlCreateButton("Button", 32, 80, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("LABEL", 64, 16, 37, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Control", 120, 40, 97, 17)
$IDC_EXIT[$i] = GUICtrlCreateButton("EXIT", 152, 128, 75, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

Case Else

[/autoit] [autoit][/autoit] [autoit]

If ($IDC_EXIT[0]) Then

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To $IDC_EXIT[0]

[/autoit] [autoit][/autoit] [autoit]

If ($nMsg[0] == $IDC_EXIT[$i]) Then _
GUIDelete($nMsg[1])
Next
EndIf
EndSwitch

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit]

Exit (0)

[/autoit]

Gruß
Greenhorn

**Greenhorn**

Hi,

sieh dir doch einmal das Beispiel von _GUICtrlListView_SubItemHitTest an, das müsste es sein, was Du suchst ...

Gruß
Greenhorn

**Greenhorn**

Also wenn ich folgendes ausführe, dann schliesst sich das zweite Fenster, wenn ich auf EXIT klicke ...

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$Form1 = GUICreate("Form1", 251, 120, -1, -1)
$Button1 = GUICtrlCreateButton("Make GUI", 48, 32, 155, 49, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$button3 = -1

[/autoit] [autoit][/autoit] [autoit]

While (WinExists($Form1)) ; solange das Hauptfenster existiert ...

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg(TRUE)

[/autoit] [autoit][/autoit] [autoit]

Switch ($nMsg[0])

[/autoit] [autoit][/autoit] [autoit]

Case $Button3
ContinueCase
Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1]) ; !

[/autoit] [autoit][/autoit] [autoit]

Case $Button1
$Form2 = GUICreate("andere GUI", 246, 166, 192, 124)
$Button2 = GUICtrlCreateButton("Button", 32, 80, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("LABEL", 64, 16, 37, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Control", 120, 40, 97, 17)
$Button3 = GUICtrlCreateButton("EXIT", 152, 128, 75, 25, $WS_GROUP)
;~ GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Exit (0)

[/autoit]

EDIT: @simon
Geht mir auch immer so ...

**Greenhorn**

Was genau funktioniert denn nicht ..., Code ?!

Gruß

**Greenhorn**

Ja, warum nicht ?

In der Schleife war noch ein Bug, so muss die Nachrichtenschleife aussehen, damit Du da auch wieder herauskommst:

Spoiler anzeigen

[autoit]

While (WinExists($Form1)) ; solange das Hauptfenster existiert ...

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg(TRUE)

[/autoit] [autoit][/autoit] [autoit]

Switch ($nMsg[0])

[/autoit] [autoit][/autoit] [autoit]

Case $Button3
ContinueCase
Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1]) ; !

[/autoit] [autoit][/autoit] [autoit]

Case $Button1
$Form2 = GUICreate("andere GUI", 246, 166, 192, 124)
$Button2 = GUICtrlCreateButton("Button", 32, 80, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("LABEL", 64, 16, 37, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Control", 120, 40, 97, 17)
$Button3 = GUICtrlCreateButton("EXIT", 152, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Gruß

**Greenhorn**

Moin,

Du hast die Lösung doch schon in deinem ersten Skript stehen !?!

Spoiler anzeigen

[autoit]

While (TRUE)

[/autoit] [autoit][/autoit] [autoit]

$nMsg = GUIGetMsg(TRUE)

[/autoit] [autoit][/autoit] [autoit]

Switch ($nMsg[0])

Case $GUI_EVENT_CLOSE
GUIDelete($nMsg[1]) ; !

Case $Button1
$Form2 = GUICreate("andere GUI", 246, 166, 192, 124)
$Button2 = GUICtrlCreateButton("Button", 32, 80, 75, 25, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("LABEL", 64, 16, 37, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Control", 120, 40, 97, 17)
$Button3 = GUICtrlCreateButton("EXIT", 152, 128, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

Case $Button3
GUIDelete ($nMsg[1]) ; !

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

Gruß
Greenhorn

**Greenhorn**

@simon
[ offen ] Eigene Dll erstelen

Gruß

**Greenhorn**

[autoit]

$aRes = DllCall($dll, 'int:cdecl', 'AddNumbers', 'int', 10, 'int', 20)

[/autoit][autoit][/autoit][autoit][/autoit]

**Greenhorn**

http://www.henkessoft.de/C++/WinAPI/WinAPI Kapitel 1 bis 6/api6.htm

Gruß

**Greenhorn**

Sieh dir bitte mal das hier an, Simon.

Gruß

**Greenhorn**

Nun, wenn ich dich richtig verstanden habe, dann möchtest Du eine DLL erstellen, die ausführbaren Code enthält.
D.h. Du wirst dich als erstes wohl oder übel mit einer anderen Programmiersprache auseinandersetzen müssen.

Da hast du nun die freie Wahl.

EDIT: @eF_Hacks
Sieh dir mal die IDE von Code::Blocks an, die kann mit allen gängigen C und C++ Compilern umgehen, ist schlank, und gibt es für Linux, Mac und Windoof.
Code::Blocks
Features

Gruß
Greenhorn

**Greenhorn**

Wenn Du nur eine DLL erstellst, dann kannst Du diese nicht debuggen, weil Du keine Anwendung (EXE) erstellt hast, die diese DLL einbindet.

@eF_Hacks
Bloodshed solltest Du nicht benutzen, der Compiler wird schon seit Jahren nicht mehr weiterentwickelt und war damals schon fehlerhaft.

Gruß
Greenhorn

**Greenhorn**

Ja, da hast Du wohl Recht, Andy.

Bei der c't Redaktion melden, hmmm. Wäre eine Überlegung wert, aber ich habe auch schon in den heise.de Foren über das fiepen gelesen, es scheint also allgemein bekannt zu sein.

Und mein Händler ist ja auch nicht das Problem, der würde die Karte natürlich einschicken und reklamieren, wenn ich darauf bestehe, aber er sagte halt letzten Endes das gleiche wie das zitierte Fazit.

Naja, wie auch immer, ich werde in den nächsten Tagen die Karte mal wieder einbauen und das Konzert aufnehmen, dann haben wir ein wenig Abwechslung ...

Ich werde das Ding auch noch einmmal in dem alten Rechner testen, ob's da genauso ist, wer weiß ...

Gruß
Greenhorn

**Greenhorn**

Ging es da nicht um die Berechnung von Ostern ???

Diese Funktion bräuchtest Du auch, ebenso für alle anderen "nicht-festen" Feiertage.

Meine Mathe-Künste sind leider nicht so dolle ...
Das wäre doch etwas für Mega, oder !?

Gruß
Greenhorn

**Greenhorn**

Ja, aaaaaaber ...

Spoiler anzeigen

2. Situation - Nach Vertragsschluss, Karte wurde bereits gekauft

Viel schwieriger wird es das Fiepen nach Vertragsschluss und ohne Vereinbarung über das Fiepen dieses als Sachmangel geltend zu machen. Wir lesen dazu §434 I S.2 Nr.1 und Nr.2 BGB.

Da wichtig die Formulierung "vorausgesetze Verwendung". Das ist einfach gesagt, bei einer Grafikkarte, dass sie Bilder auf den Bildschirm zaubert. Nicht mehr, nicht weniger. Das tun leider die Karten mit Fiepen anstandslos. Dieser Passus zwingt uns leider von dem Gesetzestext etwas weg zu gehen.

Es sei darauf hingewiesen, dass nachfolgende Argumentationen keinen gesicherten Weg darstellen, um daraus auch einen Sachmangel abzuleiten.

Das Fiepen könnte ein erster Anschein sein, dass ein defekt in Zukunft zu erwarten ist. Diese negative Zukunftserwartung könnte als Argumentation herhalten, dass ein Sachmangel vorliegt. Spannungswandler werden übermäßig belastet.

Der erhöhte Geräuschpegel durch das Fiepen verursacht, könnte abweichend sein, von der Beschaffenheit, die man nach der Verkehssitte erwarten kann. Der Vergleich mit einem Lüfter, dessen Kugellager defekt ist, könnte hier treffend sein.

Die Äußerungen des Händlers (insbesondere, wenn man diesen auf das Fiepen angesprochen hat) könnten auch hinsichtlich §434 I S.2 Nr.2 BGB in Verbindung mit §434 I S.3 BGB zuwiderlaufen. Hierbei aber die Ausnahmen im Gesetzestext beachten.

Fazit: Rücktritt eher unwahrscheinlich, wegen fehlender Vereinbarung der Beschaffenheit

s. Link oben.

Gruß
Greenhorn

Beiträge von Greenhorn

Eintrag zum Windows Path permanent hinzufügen

Dateien suchen und verändern

Mein Jump n' Run Spiel mit der Irrlich Engine - Neue Version!

InetGet kein Error - background = 1

InetGet kein Error - background = 1

mehr als 2 GUIs (GUIGETMSG)

Click in Listbox - Beispiel gesucht

mehr als 2 GUIs (GUIGETMSG)

mehr als 2 GUIs (GUIGETMSG)

mehr als 2 GUIs (GUIGETMSG)

mehr als 2 GUIs (GUIGETMSG)

Eigene Dll erstelen

Eigene Dll erstelen

Eigene Dll erstelen

Eigene Dll erstelen

Eigene Dll erstelen

Eigene Dll erstelen

GeForce GTX260 Problem

Nettoarbeitstage berechnen

GeForce GTX260 Problem