BinDannMalWeg
das hört sich doch super an, hast du dazu mal ein Beispielscript wie das Funktionieren könnte?
Beiträge von Facemix
-
-
Hallo,
da wir alle ja nun auf Weihnachten eingestellt sind und sämtliche Scripte schon für weihnachten fleißig geschrieben werden, wollte ich mich nun auch mal in die Runde der Weihnachtsscripter setzen.
In GDI+ möchte ich zunächst erstmal ein kleines Schneegestöber schreiben. Ich hatte es mit einem Schneeflockenbild versucht das von oben nach unten fällt aber erstens fänd ich es schöner wenn es einfach kleine PixelPunkte sind die eben wie im Schneegestöber quer durch den Bildschirm fliegen, da es recht langweilog aussieht wenn es einfach stur von oben nach unten fällt.
Fält euch da auf die schnelle ein kleiner Code dafür ein?
-
Sieht Youtube ähnlich
Lustiges Script
Buffering dauert bei mir um die 5 Sekunden
-
-
BinDannMalWeg
erstmal danke für den Link, ich habe das Tutorial dazu soweit verstanden, jetzt ist dieFrage wo ich die Registry Finde, so sehr ich mich auch anstrenge ich finde sie nicht -
Hallo Forum,
ich schreibe mir gerade so zum Zeitvertreib ein kleines Script zusammen, es ist eigentlich sehr einfach nur eine Sache macht mir Probleme:
Man schreibt in dem Programm einfach einen Text ganz simple und wenn man es abspeichert, dann speichert es mit der Endung .et ab (ist schon gewollt) das abspeicher schön und gut, nur soll das Programm auch wieder diese Datei öffnen können was es bisher leider nicht kann. Kann mir jemand helfen?
Code hier:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1_1 = GUICreate("Form1", 616, 383, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 593, 305)
GUICtrlSetData(-1, "")
$Button1 = GUICtrlCreateButton("Schließen", 104, 328, 121, 41)
$Button2 = GUICtrlCreateButton("Speichern", 240, 328, 121, 41)
$Button3 = GUICtrlCreateButton("Öffnen", 376, 328, 121, 41)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit] [autoit][/autoit] [autoit]
ExitCase $Button2
[/autoit] [autoit][/autoit] [autoit]
_save()
Case $Button3
_open()
EndSwitch
WEndFunc _save()
[/autoit] [autoit][/autoit] [autoit]
Local $sFile = FileSaveDialog("Datei Speichern", @DesktopDir & "", "Eigener Text (*.et)", 16)If @error Then
[/autoit] [autoit][/autoit] [autoit]
MsgBox(0,"Abbruch", "Speichervorgang abgebrochen!")
Else
FileWrite($sFile & ".et","")
EndIf
EndFuncFunc _open()
[/autoit] [autoit][/autoit] [autoit]
Local $oFile = FileOpenDialog("Datei öffnen", @DesktopDir & "", "Eigener Text (*.et)",16)
Local $dFile = FileRead($oFile)If @error Then
[/autoit] [autoit][/autoit] [autoit][/autoit]
MsgBox(0,"Abbruch", "Keine Dateien ausgewählt!")
Else
GUICtrlSetData($Edit1, $dFile)
EndIf
EndFuncMfG
Facemix
-
Alles gute euch beiden auch von mir.
-
Auch ich möchte dich Herzlich Willkommen heissen.
Ich habe das Scripten mit AutoIt durch lesen der Hilfe und durch im Internet veröffentlichte Tutorials gelernt, es sind mittlerweile wirklich gute Tutorials mit sehr guter erklärung im Internet zu finden!
Angefangen habe ich mit den ganz einfachen MessageBoxen und Weitergemacht mit den Inputboxen, dazu dann die If-Bedingung gelernt und so habe ich mich immer mehr gesteigert! Auf jedenfall solltest du für das Lernen von AutoIt viel Geduld haben, denn du schaust dir nicht einmal ein Script an und verstehst sofort dessen Funktionen, das kommt mit der Zeit. Am besten kannst du eine Funktion verstehen, indem du mal eine hernimmst und selbst versuchst, diese Funktion richtig zu schreiben. Dazu musst du natürlich wissen wofür man diese Funktionen einsetzt, dies ist aber immer sehr gut in der Hilfe beschrieben. So habe ich AutoIt gelernt.
Wie auch schon von Shadowigor gesagt, wenn die Hilfe oder das Internet dich nicht mehr weiterbringen, hier im Forum findest du bestimmt Hilfe
MfG
Facemix -
mein Beitrag hilft jetzt nicht, dein Script auf Vista laufen zu bringen, ich gebe dir mal einen Hinweiß, bezüglich deinen Includes. von denen hast du nämlich ein paar doppelt drin, das muss nicht sein schaut unschön aus! Nochdazu kannst du dein ganzes Script ein bisschen schöner schreiben!
Zitatdas kommt wohl davon, dass dir die entsprechende INI Datei Fehlt in der noch informationen gespeichert sind, die sich das script dann holt!! aber darum geht es nicht ich weis nicht was genau bei Win Vista nicht funktioniert man sieht da einach gar nichts ohne eine fehlermeldung, tut das script auf Vista gar nichts!!
Hänge die INI datei noch an den ersten Post dran!!
Wenn du wirklich Hilfe erwartest, dann solltest du alles was zum Script gehört auf Anhieb Posten oder zur Verfügung stellen und nicht erst wenn jemand dich darauf aufmerksam macht!
Musste mal gesagt werden
Was dein Vista Problem angeht, bin ich genauso Ratlos wie du, denn meine Scripte wurden bisher nur auf Win7 Rechnern ausgeführt, deshalb habe ich mit Vista keine Erfahrung!!
Aber ich meinte in der Hilfe mal etwas über Win Vista gelesen zu haben, vielleicht schaust du dich da einmal um!
-
-
Melde mich auch mal als Betatester wenn du noch welche gebrauchen kannst
-
Das sieht klasse aus und Funktioniert auch bei mir 100% flüssig
Zitat
EIne Frage: Gibts irgendwo ein WinAPI Tutorial für AutoIt?das wäre auch mal meine Frage
-
von mir auch alles gute nachträglich
-
ah ok danke, das Funktioniert gut
habe in der Zeit auch selbst noch ein Wenig experimentiert, und bin auch auf eine Lösung gekommen.
[autoit]
diese sieht so aus:Case $Button2
[/autoit][autoit][/autoit][autoit]
$hlist = _GUICtrlComboBoxEx_GetCurSel($hCombo1)If $hlist = 0 Then
[/autoit]
IniWrite($ini_file, "Settings", "bgcolor", "0xFF0000")
ElseIf $hlist = 1 Then
IniWrite($ini_file, "Settings", "bgcolor", "0x00FF00")
ElseIf $hlist = 2 Then
IniWrite($ini_file, "Settings", "bgcolor", "0x0000FF")
ElseIf $hlist = 3 Then
IniWrite($ini_file, "Settings", "bgcolor", "0x000000")
EndIfFunktioniert ebenfalls aber danke für die Hilfe
-
wie könnt ich des dann in meinem Fall einbauen, bei mir will es immernoch nicht ganz funktionieren
-
oh tut mir leid klar also mein Code sieht bisher so aus!!
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>Local $Form1, $hImage1, $hImage2, $hCombo1, $hCombo2
[/autoit] [autoit][/autoit] [autoit]Global Const $ini_file = @ScriptDir & "\test.ini"
[/autoit] [autoit][/autoit] [autoit]
If FileExists($ini_file) Then
$bgcolor = Int(IniRead($ini_file, "Settings", "bgcolor", 0x000000))
$txtcolor = Int(IniRead($ini_file, "Settings", "txtcolor", 0x000000))
EndIf#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Einstellungen", 362, 401, 192, 124)
$Label1 = GUICtrlCreateLabel("Wählen Sie hier die Hintergrundfarbe und die Textfarbe aus!", 8, 8, 346, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Hintergrundfarbe:", 8, 56, 103, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$hCombo1 = _GUICtrlComboBoxEx_Create($Form1, "", 8, 88, 337, 200)$hImage1 = _GUIImageList_Create(16, 16, 5, 5)
[/autoit] [autoit][/autoit] [autoit]
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x0000FF, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x000000, 16, 16))
_GUICtrlComboBoxEx_SetImageList($hCombo1, $hImage1)_GUICtrlComboBoxEx_AddString($hCombo1, "Rot", 0, 0)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlComboBoxEx_AddString($hCombo1, "Grün", 1, 1)
_GUICtrlComboBoxEx_AddString($hCombo1, "Blau", 2, 2)
_GUICtrlComboBoxEx_AddString($hCombo1, "Schwarz", 3, 3)$Label3 = GUICtrlCreateLabel("TextFarbe:", 8, 136, 65, 17)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$hCombo2 = _GUICtrlComboBoxEx_Create($Form1, "", 8, 168, 337, 200)$hImage2 = _GUIImageList_Create(16, 16, 5, 5)
[/autoit] [autoit][/autoit] [autoit]
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x0000FF, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x000000, 16, 16))
_GUICtrlComboBoxEx_SetImageList($hCombo2, $hImage2)_GUICtrlComboBoxEx_AddString($hCombo2, "Rot", 0, 0)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlComboBoxEx_AddString($hCombo2, "Grün", 1, 1)
_GUICtrlComboBoxEx_AddString($hCombo2, "Blau", 2, 2)
_GUICtrlComboBoxEx_AddString($hCombo2, "Schwarz", 3, 3)$Button1 = GUICtrlCreateButton("Abbrechen", 56, 264, 75, 25)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Button2 = GUICtrlCreateButton("Übernehmen", 200, 264, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit]
Case $Button2
IniWrite($ini_file, "Settings", "bgcolor", GUICtrlRead($hCombo1))
EndSwitch
WEndhier habe ich jetzt nur die erste Combo an diese Funktion gehängt die bei mir sowieso nicht funktioniert
-
-
hallo,
ein Anliegen hätte ich noch, jetzt Funktionieren ja meine ComboBoxen einwandfrei! es sind ja Comboboxen mit Farbauswahl, jetzt möchte ich, dass die Ausgewählte Farbe als HexCode in einer Ini gespeichert wird!
dies macht man ja mit "IniWrite"
ich habe da schon einen Versuch gestartet, Farbauswahl und danach der Buttonclick funktioniert, nur an der stelle an der die Farbe als HexCode stehen sollte, steht eine einfache "0"
Bitte um Hilfe
-
ok das ist jetzt wirklichpeinlich aber danke
-
Hallo,
ich habe ein Problem mit meinen ComboImageListen, wenn man die ComboBoxen öffnet, dann ist die Liste vielleicht 2mm hoch, was bedeutet, ich kann keinen inhalt sehen obwohl er vorhanden ist.
Hier der Code, ich hoffe ihr könnt helfen...
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiComboBoxEx.au3>
#include <GuiImageList.au3>
#include <GuiConstantsEx.au3>Local $Form1, $hImage1, $hImage2, $hCombo1, $hCombo2
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$Form1 = GUICreate("Einstellungen", 362, 401, 192, 124)
$Label1 = GUICtrlCreateLabel("Wählen Sie hier die Hintergrundfarbe und die Textfarbe aus!", 8, 8, 346, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Hintergrundfarbe:", 8, 56, 103, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$hCombo1 = _GUICtrlComboBoxEx_Create($Form1, "", 8, 88, 337, 25)$hImage1 = _GUIImageList_Create(16, 16, 5, 5)
[/autoit] [autoit][/autoit] [autoit]
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x0000FF, 16, 16))
_GUIImageList_Add($hImage1, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo1, 0x000000, 16, 16))
_GUICtrlComboBoxEx_SetImageList($hCombo1, $hImage1)_GUICtrlComboBoxEx_AddString($hCombo1, "Rot", 0, 0)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlComboBoxEx_AddString($hCombo1, "Grün", 1, 1)
_GUICtrlComboBoxEx_AddString($hCombo1, "Blau", 2, 2)
_GUICtrlComboBoxEx_AddString($hCombo1, "Schwarz", 3, 3)$Label3 = GUICtrlCreateLabel("TextFarbe:", 8, 136, 65, 17)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$hCombo2 = _GUICtrlComboBoxEx_Create($Form1, "", 8, 168, 337, 25)$hImage2 = _GUIImageList_Create(16, 16, 5, 5)
[/autoit] [autoit][/autoit] [autoit]
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0xFF0000, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x00FF00, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x0000FF, 16, 16))
_GUIImageList_Add($hImage2, _GUICtrlComboBoxEx_CreateSolidBitMap ($hCombo2, 0x000000, 16, 16))
_GUICtrlComboBoxEx_SetImageList($hCombo2, $hImage2)_GUICtrlComboBoxEx_AddString($hCombo2, "Rot", 0, 0)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlComboBoxEx_AddString($hCombo2, "Grün", 1, 1)
_GUICtrlComboBoxEx_AddString($hCombo2, "Blau", 2, 2)
_GUICtrlComboBoxEx_AddString($hCombo2, "Schwarz", 3, 3)$Button1 = GUICtrlCreateButton("Abbrechen", 56, 264, 75, 25)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Button2 = GUICtrlCreateButton("Übernehmen", 200, 264, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit]
Case $Button2
EndSwitch
WEnd