Beiträge von chip

**chip**

Spoiler anzeigen

[autoit]

#include <Inet.au3>
$fehler = "Fehler"
$dateipfad = @ScriptDir & "\test.txt"

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

$s_SmtpServer = "Server z.b. smtp.ispdomain.com"
$s_FromName = "Abendsernamer"
$s_FromAddress = "Absender E-Mail Adresse"
$s_ToAddress = "Empfänger E-Mail Adresse"
$s_Subject = "Fehlermeldung"
Dim $as_Body[2]
$as_Body[0] = "Ein Fehler in aufgetreten."

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

$file = FileRead($dateipfad)

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

If StringInStr($file, $fehler) > 0 Then
$Response = _INetSmtpMail($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
EndIf

[/autoit]

**chip**

Genau aus diesem Grunde habe ich das hier geschrieben: klick mich wurde inzwischen auch im offiziellen Patchthread von Rom verlinkt: Patch-thread

**chip**

Warum machst nicht einfach den Fenstertital in deine Variabel rein also z.b. $HausfensterOk, $BaumschuleOK usw., dann siehst auch auf den ersten Blick zu was es nun genau gehört.

**chip**

Andy Ja die Idee ist gut, werde ich machen.

**chip**

Du hast die das Script das ich oben gepostet habe nicht wirklich angeschaut oder? Weil dann wüsstest es das es mit WinSetTrans geht.

**chip**

Hi

in der Autoit-Hilfe befindet sich folgendes Scriptbeispiel um ein PNG einzubinden:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <WinAPI.au3>

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

Global $hGUI, $hImage, $hGraphic, $hImage1

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

; GUI erstellen
$hGUI = GUICreate("PNG zeigen", 250, 250)

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

; PNG Bild laden
_GDIPlus_Startup()
$hImage = _GDIPlus_ImageLoadFromFile("..\GUI\Torus.png")
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)

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

GUIRegisterMsg($WM_PAINT, "MY_WM_PAINT")
GUISetState()

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE

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

; Ressourcen aufräumen
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)
_GDIPlus_Shutdown()

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

; PNG Bild zeichnen
Func MY_WM_PAINT($hWnd, $msg, $wParam, $lParam)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_UPDATENOW)
_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0)
_WinAPI_RedrawWindow($hGUI, 0, 0, $RDW_VALIDATE)
Return $GUI_RUNDEFMSG
EndFunc ;==>MY_WM_PAINT

[/autoit]

Wie kann ich das Bild aber nun anklickbar machen? Bei GUICtrlCreatePic geht es ja so:

Spoiler anzeigen

[autoit]

$Coverleft = GUICtrlCreatePic(@ScriptDir & "\front.jpg", 0, 0, 460, 460)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Coverleft
MsgBox(0,"","ja")
EndSwitch
WEnd

[/autoit]

Aber wie kann ich das bei einem Bild das mit GDIPlus erstellt wurde machen?

**chip**

Ja mit

[autoit]

FileInstall

[/autoit]

**chip**

Zitat von PrideRage

2. solltest du auch einen Sleep einbauen, da die Prozessorleistung sonst zu hoch steigt.

Braucht man nicht.

**chip**

https://autoit.de/index.php?page=Thread&threadID=15415

**chip**

Danke funktioniert perfekt.

**chip**

Die URL ganz oben. Zwei verschiedene Songtexte. Wobei wie gesagt beide richtig in den Array $lyritext geladen werden nur dann nach _ArrayToString beim zweiten Beispiel sehr viel vom Text der vorher noch in $lyritext stand fehlt.

**chip**

Hi,

ich habe ein Script geschrieben um Liedtexte von einer Seite auszulesen. Zum Prüfen ob die Daten auch alles richtig erkannt wurden habe ich noch ein ArrayDisplay engefügt.

Hier funktioniert alles perfekt:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <String.au3>
$lyricurl = InetRead ("http://lyrics.wikia.com/Rammstein:Benzin")
$lyricode = _StringBetween(BinaryToString($lyricurl),"alt='phone' width='16' height='17'/></a></div>","<!--")
$lyricode = StringReplace($lyricode[0], "&#", "")
$lyricode = StringReplace($lyricode, " ", " ;")
$lyritext = StringSplit($lyricode, ";", 2)

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

For $i = 0 To UBound($lyritext) - 1
If $lyritext[$i] = " " or $lyritext[$i] = "" or $lyritext[$i] = "" Then
Else
$lyritext[$i] = Chr($lyritext[$i])
EndIf
Next

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

_ArrayDisplay($lyritext)
$erg = _ArrayToString($lyritext, "")
$erg = StringReplace($erg, " ", @CRLF)
MsgBox(0, "", $erg)

[/autoit]

Hier aber werden zwar alle Daten richtig ins Array geladen. Allerdings nach _ArrayToString fehlt dann der größte Teil plötzlich in $erg:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <String.au3>
$lyricurl = InetRead ("http://lyrics.wikia.com/E_Nomine:Mitternacht")
$lyricode = _StringBetween(BinaryToString($lyricurl),"alt='phone' width='16' height='17'/></a></div>","<!--")
$lyricode = StringReplace($lyricode[0], "&#", "")
$lyricode = StringReplace($lyricode, " ", " ;")
$lyritext = StringSplit($lyricode, ";", 2)

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

For $i = 0 To UBound($lyritext) - 1
If $lyritext[$i] = " " or $lyritext[$i] = "" or $lyritext[$i] = "" Then
Else
$lyritext[$i] = Chr($lyritext[$i])
EndIf
Next

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

_ArrayDisplay($lyritext)
$erg = _ArrayToString($lyritext, "")
$erg = StringReplace($erg, " ", @CRLF)
MsgBox(0, "", $erg)

[/autoit]

**chip**

Hi,

ich habe folgenden Code geschrieben. (Es wird ei CDDB-UDF benötigt):

Spoiler anzeigen

[autoit]

#include <CDDB.au3>
#include <Array.au3>

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

While 1
;Auslesen der CD-Laufwerke auf dem Rechner
$drives = DriveGetDrive('CDROM')
;Durchlaufen aller gefunden CD-Laufwerke
For $i = 1 To $drives[0]
;Prüfen ob eine CD im Laufwerk ist
If DriveStatus($drives[$i]) = 'READY' Then
;Laufwerk in dem die Musik-CD ist
$abfrage = _CDDBCreateQuery($drives[$i])
;Abfrage wird durchgeführt
$sDatabase = _FreeDBRecvDB($abfrage)

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

;Prüfen ob mehr als ein Treffer gefunden wurde
If StringInStr($sDatabase, "211 Found inexact matches") Or StringInStr($sDatabase, "210 Found exact matches") Then
;Aufsplitten der gefundene Treffer in einem Array. Es werden von FreeDB nur die ersten 5 Treffer zurückgegeben
$treffer = StringSplit($sDatabase, @CRLF, 3)

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

;Durchlaufen des Arrays
For $x = 1 To 5 Step 1
;Aufschlüssel der Abfrage
$aQuery = StringSplit($abfrage, " ")

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

;Aufschlüssel des Treffers
$diskid = StringSplit($treffer[$x], " ")
;Ersetzen der Id in der Abfrage durch die neue id aus den Treffern
$read = "cddb read " & $diskid[1] & " " & $diskid[2]
Local $hSocket
TCPSend($hSocket, $read & @CRLF)
$sDatabase = __TCPRecv2($hSocket)
;Prüfen ob mehr als ein Treffer gefunden wurde
If StringInStr($sDatabase, "211 Found inexact matches") Or StringInStr($sDatabase, "210 Found exact matches") Then

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

Else

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

;Speichern der CD-Daten
_FreeDBSplit($sDatabase)
ExitLoop (3)
EndIf
Next
EndIf
EndIf
Next
WEnd

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

Func _FreeDBSplit($sDatabase)
;Aufschlüssel der FreeDB rückgabe in einzelne Arrayelemente
Local $ergebnis = StringSplit($sDatabase, @CRLF, 3)

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

;Auslesen der Interpreten und des Albumtitels
Local $gruppealbum = _diskinfo("DTITLE", $ergebnis)
$gruppealbum = StringSplit($gruppealbum, " / ", 3)

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

;Speicherort der Musikdaten
DirCreate(@ScriptDir & "\" & $gruppealbum[0])
Local $diskspeicher = @ScriptDir & "\" & $gruppealbum[0] & "\" & $gruppealbum[1] & ".ini"

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

;Auslesen der Gesamtmusiklänge
Local $gesamtlaenge = _ArraySearch($ergebnis, "# Disc length: ", 0, 0, 0, 1)
$gesamtlaenge = StringReplace($ergebnis[$gesamtlaenge], "# Disc length: ", "")

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

;Speichern der CD-ID
IniWrite($diskspeicher, "Info", "id", _diskinfo("DISCID", $ergebnis))
;Speichern des Interpreten
IniWrite($diskspeicher, "Info", "interpret", $gruppealbum[0])
;Speichern das Albumnames
IniWrite($diskspeicher, "Info", "album", $gruppealbum[1])
;Speichern des Erscheinungsjahres
IniWrite($diskspeicher, "Info", "jahr", _diskinfo("DYEAR", $ergebnis))
;Speichern des Genres
IniWrite($diskspeicher, "Info", "genre", _diskinfo("DGENRE", $ergebnis))
;Speichern der Gesamtmusiklänge
IniWrite($diskspeicher, "Info", "laenge", $gesamtlaenge)

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

;Auslesen des Musiktitel
Local $titelid = _ArrayFindAll($ergebnis, "TTITLE", 0, 0, 0, 1)
;Auslesen des Titeloffsets
Local $offsetsstart = _ArraySearch($ergebnis, "# Track frame offsets:", 0, 0, 0, 1)

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

Local $offsetid = $offsetsstart

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

;Durchlauf des Musiktitelaaray
For $titel In $titelid
$offsetid += 1
Local $offsetend = $offsetid + 1
;Auslesen des Endoffsets zum passenden Startoffsets
$offetend = StringReplace($ergebnis[$offsetend], "# ", "")
;Beim letzten Titel wird als Endoffsets die Musikgesamtdauer gesetzt
If @extended = 0 Then
$offetend = $gesamtlaenge * 75
EndIf

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

;Auslesen des Titels
Local $name = StringSplit($ergebnis[$titel], "=", 2)
;Berechnen der Titellänge
Local $titellaenge = Floor(($offetend - StringReplace($ergebnis[$offsetid], "# ", "")) / 75)
;Speichern von Titelnamen und Titellänge
IniWrite($diskspeicher, "Titel", $name[1], $titellaenge)
Next
EndFunc ;==>_FreeDBSplit

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

;Funktion zum aussplitten der FreeDB-Daten
Func _diskinfo($typ, $ergebnis)
Local $return = StringReplace($ergebnis[_ArraySearch($ergebnis, $typ, 0, 0, 0, 1)], $typ & "=", "")
Return $return
EndFunc ;==>_diskinfo

[/autoit]

Nun wollte ich noch den Inhalt der While in eine Funktion machen, doch wenn ich das hier mache:

Spoiler anzeigen

[autoit]

#include <CDDB.au3>
#include <Array.au3>

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

While 1
_test()
WEnd

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

Func _test()
;Auslesen der CD-Laufwerke auf dem Rechner
$drives = DriveGetDrive('CDROM')
;Durchlaufen aller gefunden CD-Laufwerke
For $i = 1 To $drives[0]
;Prüfen ob eine CD im Laufwerk ist
If DriveStatus($drives[$i]) = 'READY' Then
;Laufwerk in dem die Musik-CD ist
$abfrage = _CDDBCreateQuery($drives[$i])
;Abfrage wird durchgeführt
$sDatabase = _FreeDBRecvDB($abfrage)

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

;Prüfen ob mehr als ein Treffer gefunden wurde
If StringInStr($sDatabase, "211 Found inexact matches") Or StringInStr($sDatabase, "210 Found exact matches") Then
;Aufsplitten der gefundene Treffer in einem Array. Es werden von FreeDB nur die ersten 5 Treffer zurückgegeben
$treffer = StringSplit($sDatabase, @CRLF, 3)

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

;Durchlaufen des Arrays
For $x = 1 To 5 Step 1
;Aufschlüssel der Abfrage
$aQuery = StringSplit($abfrage, " ")

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

;Aufschlüssel des Treffers
$diskid = StringSplit($treffer[$x], " ")
;Ersetzen der Id in der Abfrage durch die neue id aus den Treffern
$read = "cddb read " & $diskid[1] & " " & $diskid[2]
Local $hSocket
TCPSend($hSocket, $read & @CRLF)
$sDatabase = __TCPRecv2($hSocket)
;Prüfen ob mehr als ein Treffer gefunden wurde
If StringInStr($sDatabase, "211 Found inexact matches") Or StringInStr($sDatabase, "210 Found exact matches") Then

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

Else

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

;Speichern der CD-Daten
_FreeDBSplit($sDatabase)
ExitLoop (3)
EndIf
Next
EndIf
EndIf
Next
EndFunc ;==>_test

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

Func _FreeDBSplit($sDatabase)
;Aufschlüssel der FreeDB rückgabe in einzelne Arrayelemente
Local $ergebnis = StringSplit($sDatabase, @CRLF, 3)

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

;Auslesen der Interpreten und des Albumtitels
Local $gruppealbum = _diskinfo("DTITLE", $ergebnis)
$gruppealbum = StringSplit($gruppealbum, " / ", 3)

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

;Speicherort der Musikdaten
DirCreate(@ScriptDir & "\" & $gruppealbum[0])
Local $diskspeicher = @ScriptDir & "\" & $gruppealbum[0] & "\" & $gruppealbum[1] & ".ini"

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

;Auslesen der Gesamtmusiklänge
Local $gesamtlaenge = _ArraySearch($ergebnis, "# Disc length: ", 0, 0, 0, 1)
$gesamtlaenge = StringReplace($ergebnis[$gesamtlaenge], "# Disc length: ", "")

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

;Speichern der CD-ID
IniWrite($diskspeicher, "Info", "id", _diskinfo("DISCID", $ergebnis))
;Speichern des Interpreten
IniWrite($diskspeicher, "Info", "interpret", $gruppealbum[0])
;Speichern das Albumnames
IniWrite($diskspeicher, "Info", "album", $gruppealbum[1])
;Speichern des Erscheinungsjahres
IniWrite($diskspeicher, "Info", "jahr", _diskinfo("DYEAR", $ergebnis))
;Speichern des Genres
IniWrite($diskspeicher, "Info", "genre", _diskinfo("DGENRE", $ergebnis))
;Speichern der Gesamtmusiklänge
IniWrite($diskspeicher, "Info", "laenge", $gesamtlaenge)

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

;Auslesen des Musiktitel
Local $titelid = _ArrayFindAll($ergebnis, "TTITLE", 0, 0, 0, 1)
;Auslesen des Titeloffsets
Local $offsetsstart = _ArraySearch($ergebnis, "# Track frame offsets:", 0, 0, 0, 1)

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

Local $offsetid = $offsetsstart

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

;Durchlauf des Musiktitelaaray
For $titel In $titelid
$offsetid += 1
Local $offsetend = $offsetid + 1
;Auslesen des Endoffsets zum passenden Startoffsets
$offetend = StringReplace($ergebnis[$offsetend], "# ", "")
;Beim letzten Titel wird als Endoffsets die Musikgesamtdauer gesetzt
If @extended = 0 Then
$offetend = $gesamtlaenge * 75
EndIf

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

;Auslesen des Titels
Local $name = StringSplit($ergebnis[$titel], "=", 2)
;Berechnen der Titellänge
Local $titellaenge = Floor(($offetend - StringReplace($ergebnis[$offsetid], "# ", "")) / 75)
;Speichern von Titelnamen und Titellänge
IniWrite($diskspeicher, "Titel", $name[1], $titellaenge)
Next
EndFunc ;==>_FreeDBSplit

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

;Funktion zum aussplitten der FreeDB-Daten
Func _diskinfo($typ, $ergebnis)
Local $return = StringReplace($ergebnis[_ArraySearch($ergebnis, $typ, 0, 0, 0, 1)], $typ & "=", "")
Return $return
EndFunc ;==>_diskinfo

[/autoit]

kommt immer dieser Fehler und ich finde einfach nicht den Grund dafür:

Zitat

: ==> Array variable subscript badly formatted.:
Local $return = StringReplace($ergebnis[_ArraySearch($ergebnis, $typ, 0, 0, 0, 1)], $typ & "=", "")
Local $return = StringReplace($ergebnis[^ ERROR

Edit: Ok hab den Fehler gefunden. Problem war das $hSocket.

**chip**

Öhm will jetzt nicht hier irgendwie die Euphorie dämpfen, aber das gibts es schon nennt sich Subversion. klick mich

**chip**

Ah ok also so:

Spoiler anzeigen

[autoit]

#include <Excel.au3>
#include <Array.au3>
$oExcel = _ExcelBookOpen(@ScriptDir & "\Test.xls")
$aArray = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 0, True)

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

For $a = 2 To $aArray[0][0] Step 1
$platzhalte = "C:/Zeile1/Zeile3/Zeile4.wav"
For $b = 0 To $aArray[0][1] -1 Step 1
$platzhalte = StringReplace($platzhalte,$aArray[1][$b],$aArray[$a][$b],1)
Next
MsgBox(0,"",$platzhalte)
Next
_ExcelBookClose($oExcel)

[/autoit]

In dem Fall würde also Zeile2 ignoriert weil sie nicht im §platzhalter-Pfad drin ist.

**chip**

Meinst das vielleicht so:

Spoiler anzeigen

[autoit]

#include <Array.au3>
$oExcel = _ExcelBookOpen(@ScriptDir & "\Test.xls")
$aArray = _ExcelReadSheetToArray($oExcel, 1, 1, 0, 0, True)

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

For $a = 1 To $aArray[0][0] Step 1
$pfad = "C:"
For $b = 0 To $aArray[0][1] -1 Step 1
$pfad = $pfad & "/" & $aArray[$a][$b]
Next
$pfad = $pfad & ".wav"
MsgBox(0,"",$pfad)
Next

[/autoit]

**chip**

Du willst also Platzhalte in den Pfad machen und diese dann mit den Echtdaten ersetzen lassen? Dann ist StringRepalce das richtige.

**chip**

Hier: https://autoit.de/index.php?page…1841#post121841

**chip**

Hi,

es gibt ein Programm das MiniLyrics heißt: http://www.crintsoft.com damit ist es möglich während ein Lied läuft den Text dazu anzeigen zu lassen und zwar im Karaoke-Stiel also der passende Text zum grade gesungengen.
Es gibt dafür auch ein schönes SDK: http://www.crintsoft.com/mlplugin.htm aber leider wie so oft ist das in C/C++ geschrieben.
Suche nun jemanden der das SDK nach Autoit portiert.

mfg

**chip**

Zitat von Sprenger120

Für eine Skriptsprache hat AutoIt viel zu viel drauf. Außerdem hat es einen 'Compiler' (obwohl es hier relativ zu sehen ist) daher eine vollwertige Programmiersprache.

Da weißt du scheinbar sogar mehr als die Entwickler von Autoit ;).

Zitat

AutoIt v3 is a freeware BASIC-like scripting language designed for automating the Windows GUI and general scripting.

Beiträge von chip

Bei Fehler E-Mail versenden.

Problem mit download

ultimative Variablenfunktion

GUIGetMsg bei GDIPlus Grafik

Eingabe bis zur Eingabe von Passwort blocken?

GUIGetMsg bei GDIPlus Grafik

Frage - in au3 einbinden?

Der kleine Player

FF.au3 - Auslesen, auf welcher Seite man ist

Problem mit Array in String umwandeln

Problem mit Array in String umwandeln

Problem mit Array in String umwandeln

Code geht in Funktion nichtmehr

WeScriptTogether / Programmidee

GUI Variablen in Input "verknüpfen"

GUI Variablen in Input "verknüpfen"

GUI Variablen in Input "verknüpfen"

netzwerkaktivität erfassen

MiniLyrics

Endlich geschaft ;D