autoBert: Was für ein lied xDDD
na ja Heintje wollt ich ihm nicht antun, bei Hans Söllner war ich mir nicht sicher, ob er diese Fremsprache kann und von Freddy Quinn hab ich nichts gefunden
GtaSpider , ich hoffe du hast es verkraftet = bereits ausgiebig in deinen Geburtstag gefeiert
MoD, da nicht autoit spezifisch bitte nach OffTopic verschieben
danke (Auto)Bert
Hallo DeepRed92,
danke für den Hinweis. Aber mein Player heisst NeMP3-P. Ich habe schon dahin umbenannt da Wunschname (siehe ScreenShot in #1) evtl. mit Trademark belegt ist und AutoBertsMP3-Player zu trivial ist,
mfg (Auto)Bert
Hallo sydios,
Ich hab den Titel des Fensters schon mit Windows Info bekommen, aber der Titel ändert sich je nach Inhalt nur die ersten 10 Zeichen sind immer gleich, kann man da auch Fenstername* benutzen?
Das ganze soll alle 4 Minuten passieren. Und wenn man auf Stop klickt soll die Schleife stoppen.
Lies dir dazu in der Hilfe Fenster-Titel und -Text (erweitert) [Modus 2] und
[autoit]AdlibRegister
[/autoit]durch.
Hier gibt es ein Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial Sehr hilfreich ist auch das Buch von peethebee
mfg (Auto)Bert
Hallo kleiner27,
WAV's könnten auch jetzt schon abgespielt werden. Dazu muss nur
...
Case ".MP3", ".WMV", ".WAV"
...
und
...
Local $var = FileOpenDialog($message, $sMp3Dir," (*.mp3;*.wmv;*.wav)", 1 + 4)
...
angepasst werden,
mfg (Auto)Bert
Da ich nicht singen kann, halt so: Alles Gute Zum GeburtstagViel Glück, Gesundheit und einen guten Einstieg ins Studium bzw. Berufsleben
wünscht (Auto)Bert
Hallo SeuBo,
ich musste #include <GDIP.au3> auskommentieren, damit es lief, danach folgendes Ergebnis:
mfg (Ato)Bert
Hallo,
ich möchte mir ein Script schreiben das mir eine Fakemail macht (bei 10minutenmail.com)
Hört sich nach Spam-Bot an.
Deine Treads
erhärten diesen Verdacht.
Lies dir daher bitte noch einmal die Forenregeln durch.
mfg (Auto)Bert
Hallo vassilis,
du kannst auch WinList nehmen um eine aktuelle Fensterliste zu bekommen. Schau dir dazu mein ScreenShot-Beispiel an,
mfg (Auto)Bert
Hallo btton421,
du merkst dir ja nur den/die Titelnamen, zum abspielen benötigst du aber den kompletten Pfad merken. Hier ein Beispiel anhand eines JPG-Viewers:
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#Include <GuiListBox.au3>
#include <File.au3>
#include <array.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Global $msg, $message, $var, $aFiles, $idfrmMain, $sSourcePath, $sItem
Global $szDrive, $szDir, $szFName, $szExt
$idfrmMain = GUICreate("JPG-Viewer", 512, 460)
Local $idfilemenu = GUICtrlCreateMenu("&Datei")
Local $idfileitem = GUICtrlCreateMenuItem("Öffnen", $idfilemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $idexititem = GUICtrlCreateMenuItem("Beenden", $idfilemenu)
Local $idLB_Files = GUICtrlCreateList("",5,5,502,140)
Local $idbtnShow = GUICtrlCreateButton("&Zeige Bild",5,150,150,25)
Local $idPic = GUICtrlCreatePic("",5,180,256,256)
;_GUICtrlListView_SetColumnWidth($idLB_Files,1,0) ;zweite Spalte versteckt
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $idfileitem
$message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."
[/autoit] [autoit][/autoit] [autoit]$var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
$aFiles = StringSplit($var,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Bild
;$aFiles[n+1] enthält n. Bild
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
For $i = 2 to $aFiles[0]
_GUICtrlListBox_AddString($idLB_Files,$aFiles[1] & "\" & $aFiles[$i])
Next
Else
ConsoleWrite($aFiles[1] & @crlf)
_GUICtrlListBox_AddString($idLB_Files,$aFiles[1])
EndIf
EndIf
Case $idbtnShow
$sItem = _GUICtrlListBox_GetText($idLB_Files,_GUICtrlListBox_GetCurSel($idLB_Files))
If $idPic = 0 then
$idPic = GUICtrlCreatePic($sItem,5,180,256,256)
;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
Else
GUICtrlSetImage($idPic,$sItem)
;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
EndIf
Case $GUI_EVENT_CLOSE, $idexititem
Exit
EndSwitch
WEnd
Hier ein Beispiel für ListView (dieses ist vorzuziehen, da auch aus mehreren Katalogen, Dateien aufgenommen werden können):
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#Include <GuiListView.au3>
#include <File.au3>
#include <array.au3>
Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit]Global $msg, $message, $var, $aFiles, $idfrmMain, $sSourcePath, $aItem
Global $szDrive, $szDir, $szFName, $szExt
$idfrmMain = GUICreate("JPG-Viewer", 266, 450)
Local $idfilemenu = GUICtrlCreateMenu("&Datei")
Local $idfileitem = GUICtrlCreateMenuItem("Öffnen", $idfilemenu)
GUICtrlSetState(-1, $GUI_DEFBUTTON)
Local $idexititem = GUICtrlCreateMenuItem("Beenden", $idfilemenu)
Local $idLV_Files = GUICtrlCreateListView("Name: |Pfad",5,5,256,140)
Local $idbtnShow = GUICtrlCreateButton("&Zeige Bild",5,150,150,25)
Local $idPic = GUICtrlCreatePic("",5,180,256,256)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $idfileitem
$message = "Um mehrere Dateien auszuwählen, ist die Strg-Taste oder die Shift-Taste zu drücken."
[/autoit] [autoit][/autoit] [autoit]$var = FileOpenDialog($message, @MyDocumentsDir & "", "Bilder (*.jpg;*.bmp)", 1 + 4)
If @error Then
MsgBox(4096, "", "Keine Datei(en) ausgewählt")
Else
_GUICtrlListView_BeginUpdate($idLV_Files)
$aFiles = StringSplit($var,"|")
if $aFiles[0] > 1 then ;trifft nur bei Mehrfachauwal zu
;$aFiles[0] enthält Anzahl der Strings
;$aFiles[1] enthält den Pfad für alle ausgewählten Bilder
;$aFiles[2] enthält 1. Bild
;$aFiles[n+1] enthält n. Bild
;Rückgabe des Fileopenialogs in einzzenlne Strings für Array splitten
;_ArrayDisplay($aFiles) ;Array anzeigen nur zu Verständnisuwecken evtl. aktivieren
For $i = 2 to $aFiles[0]
GUICtrlCreateListViewItem($aFiles[$i]&"|" & $aFiles[1],$idLV_Files)
Next
Else ;nur eine Datei ausgewählt
ConsoleWrite($aFiles[1] & @crlf)
_PathSplit($aFiles[1], $szDrive, $szDir, $szFName, $szExt)
GUICtrlCreateListViewItem($szFName & $szExt & "|" & $szDrive & $szDir,$idLV_Files)
EndIf
_GUICtrlListView_SetColumnWidth($idLV_Files,0,$LVSCW_AUTOSIZE)
;setzt die 1 Spalte auf die benötigte Breite des längsten Eintrags
_GUICtrlListView_SetColumnWidth($idLV_Files,1,0) ;zweite Spalte versteckt
_GUICtrlListView_EndUpdate($idLV_Files)
EndIf
Case $idbtnShow
$aItem = _GUICtrlListView_GetItemTextArray($idLV_Files)
;$aItem[0] enthält Anzahl der Spalten [$aIem[1] die 1. Spalte usw.
;_ArrayDisplay($aItem) nur zu Verständnisuwecken evtl. aktivieren
ConsoleWrite("Pfad zur Datei:" & $aItem[2] & "\" & $aItem[1] & @CRLF) ;nur zu Verständnisuwecken evtl. deaktivieren
If $idPic = 0 then
$idPic = GUICtrlCreatePic($aItem[2]&"\"&$aItem[1],5,180,256,256)
;es gibt noch kein Control das ein Bild aufnehmen kann, also erzeugen
;nur vorichtshalber (in füheren Versionen wurde ohne Filenamen kein Pic-Control angelegt)
Else
GUICtrlSetImage($idPic,$aItem[2]&"\"&$aItem[1])
;es bereits ein Control das ein Bild aufnehmen kann, also anderes Bild anzeigen
EndIf
Case $GUI_EVENT_CLOSE, $idexititem
Exit
EndSwitch
WEnd
mfg (Auto)Bert
Gallo subzero007,
schau dir
[autoit]_ExcelReadArray
[/autoit]mfg (Auto)Bert
Aber bei mir flackert es leider
.
Hallo qixx, das flackern (ist mir nur für die Anzeige des Spielstandes aufgefallen) kannst du abstellen in den du ihn nur bei Änderung updates:
:
if $Score <> $OldScore Then
GUICtrlSetData($Label_Score, "Spielstand: " & $Score)
$OldScore = $Score
EndIf
mfg (Auto)Bert
Schade das Grafiken nicht geladen werden die in der HTML datei verarbeitet sind.
das liegt wohl daran das die Verweise auf die Bilder nicht stimmen,
mfg (Auto)Bert
Heute dürfen wir einen Doppelgeburtstag von aktiven Usern feiern:
Anno2008 wird heute 18 und SeuBo 20. Herzlichen Glückwunsch ihr beiden. Am Wochenende eine schöne Feier. Trinkt einen auf mein Wohl mit ihr Jungspunde, so jung möchte ich auch noch einmal sein,
weitere Geburtstage glencairn wird 40, FerD wird 17 und zwergerl0 23. Auch euch einen herzlich Glückwunsche, lasst euch wieder einmal hier sehen,
nein nichts dergleichen^^
Für was denn dann 
#include <GUIConstants.au3> Func Start() Select Case $Taste = "f1" Sleep(10000) While 1 Send("{F1}{ENTER}") Sleep($Zeit1) Wend ....So und btw. Danke für eure Hilfe und eure Geduld mit mir
für was braucht man den soetwas Etwa für einen Spiele- oder SpamBOT Lies dir daher bitte noch einaml die Forenregeln durch
mfg (AutoBert
Das ist ein Bot für ein Programm !
Nein, das ist ein Installationsscript, zwar automatiisiert aber kein negativer Bot im Sprachgebrauch dieses Forums.
AutoIt wurde ursprünglich für "PC-Rollout"-Situationen entwickelt, bei denen tausende PCs auf die gleiche Weise konfiguriert werden müssen.
na ja, tausende werden es bei Forsetti wohl nicht sein, aber immerhin soviele dass sich der Aufwand lohnt.
mfg (Auto)Bert
Hallo Data,
Zitat von dataIch kann es selbst nicht testen, da ich aus Sicherheitsgründen nur mit MacOSX ins Netz gehe und auf diesem OS läuft mein Programm logischerweise nicht
. Mein Windows ist nicht Internetreif. Natürlich sind die Dateien, die ihr laden würdet, keine Viren
wie kannst du dann verlangen, dass jemand deine Software testet. Aber
Zitat von peethebeeZum Selbsttesten: Virtuelle Maschien mit Windows unter Mac installieren
hat dir ja einen Lösungsweg gezeigt. Zum Thema Viren, auch schlecht programmierte Skripte können ein System zum Aufhängen bringen (vor allem mit BlockInpt & Co) und dann ist es sehr ärgerlich wenn man seine eigenen Skripte, da dummerweise nicht gespeichert durch den (Hardware)-Reset verliert.
Zitat von data@Alle Aber den Haken, weshalb es manchmal klappt und manchmal nicht (also bei der *.exe) hab ich immer noch nich gefunden. An der veralteten AutoIt Version kanns ja nicht liegen. Der Compiler setzt es ja korekt um
du kannst nicht erwarten, dass andere User downgraden oder gar dein Skript updaten und den Fehler findet man nun mit Skript einfacher, alles andere ist Kaffeesatzleserei. Siehe [ offen ] Tutorial: Wie man Script-Fehler erfolgreich sucht/findet bzw. richtig debuggt
Du solltest also dein Skript updaten und dann mit der von pee genannten Methode selbst testen. Wenn du dann noch Probleme hast meldest du dich wieder,
mfg (Auto)Bert
Hallo Oscar,
trotzdem danke fürs finden und posten. In den Credits der Exe werde ich dich trotzdem lassen, nur meinen Eröffnungspost auf Author unbekannt ändern,
mfg (Auto)Bert
Zitat von stayawayknightÄhm, ich versteh grad leider nicht ganz was du damit meinst, sorry, eine Progressbar oder was?
eine Werkzeugmenuleiste speziell für Formatbefehle, sorry einfügen des Bildes klappt nicht (also nur im Anhang)
vielleicht auch so: [Blockierte Grafik: http://www.autoit.de/index.php?page=Attachment&attachmentID=9873&h=80e6d8825e0429053c20b0627f0b5cb20e3d5b15]
mfg (Auto)Bert
