Beiträge von autoBert

Hallo MrB,

ich würde so ändern:

Func fullinfo()
$file = FileOpen($pfadconfig, 0)
$line = FileReadLine($file, 274)
FileClose($file)
$line2 = StringSplit($line, "" & Chr(34))
If IsArray($line2) Then
_ArrayDisplay($line2) ;macht nur Sinn, wenn es ein Array gibt
If $line2[0] > 2 then
If $line2[2] = 1 Then
$full = "JA"
Else
$full = "NEIN"
EndIf
Return $full

Else
Return "Nein" ;bei Bedarf auf JA ändern
EndIf
Else
MsgBox(0, "Fehler", "Array Fehler: Func fullinfo()")
EndIf

EndFunc ;==>fullinfo

Stell doch bitte die Daten die ArrayDisplay ausgibt hoch,

mfg (Auto)Bert

Hallo Com,

neues Update 0.8.2.2 ist ein kleines Update, das letzte grosse Update war 0.8.2.1, hier wurden erstmals die Playerfunktionen eingefügt.

Zitat von UEZ

Das Problem mit dem Fenster tritt auch unter WinXP SP3 auf!

1. starte dein Programm
2. klicke auf das Maximieren Icon (3. von rechts) -> nun sollte die GUI maximiert sein
3. mache ein Doppeltklick auf die Titel Leiste neben dem "Hilfe" Text
4. nun sollte die GUI mit dem Bild verkleinert sein und die andere GUI noch maximiert
5. klickst du wieder auf das 3. Icon (minimieren), wird auch die 2. GUI verkleinert

im nächsten Update verbreitere ich einfach meine eigene Titelleiste, dann funktioniert der Doppelklick nicht mehr. Der Fehler tritt aber bei mir nicht auf.

Zitat von UEZ

Nützliches Tool für meine Tochter! Sie wird jetzt bei YouTube einiges umwandeln...

Schön dass es jemand gebrauchen kann. Dann kann ich nur für dich hoffen, dass die Bandbreite deines Anschlusses gross genug für euch beide ist

mfg (Auto)Bert

Hallo @ideas2code,

Zitat von ideas2code

Bei mir tritt dieser Bug allerdings nicht auf. Kompiliert auf Win7 Ultimate x64 und ausgeführt auf WinXP Pro x86.

Wie funktioniert eine x64 EXE auf x86

mfg (Auto)Bert

Zitat von m-obi

Was war jetzt eigentlich an meiner Funktion noch fehlerhaft? Ich hatte das jetzt nicht verstanden.

Zitat von stinger2k

garnichts es fehlte nur die 2. for schleife um auch mehrere kopierte items als solche zu trennen.
Siehe meinen Screenshot nach deinem Post.

Ich sagte ja dein "Grundgerüst" war goldwert. Nur das deine func nicht mehrere items berücksichtigt, und nur eines einfügt auch bei mehreren kopierten...

@m-obi nichts ab Beispiel in #14 funktioniert sie

Ich habe noch einmal geändert, damit man auch noch den Zeilentrenner mit übergeben kann:

Hallo UEZ,

Zitat von UEZ

Zitat von AutoBert Post #1

HowTo:

• JaYT-DwiMP3-P starten
• auf Tab Downloader wechseln
• Rechtsklick auf zu downloadende Linkadresse danach Linkadresse kopieren auswählen YaYT-D ermittelt darauf hin den echten Download-Link (für alle gewünschten Lieder wiederholen)
• In YaYT-D Button Go klicken, das wars die Dateien werden als MP4 heruntergeladen und anschliessend mit FFMPEG je nach gewählen Einstellungen in MP3 und/oder MPEG gewandelt die ausgewähleten Typen werden danach in den ausgewählten Ordner laut Einstellungen verschoben
• Unter Datei|Einstellungen kann man die gewünschten Musikformate auswählen und den Ordner in dem gespeichert werden soll bestimmen. Achtung wird bei Programmstart automatisch übernommen.
• Mit F6 könnt ihr die GUI verstecken un auch wieder anzeigen

lassen

.

Zitat von UEZ

Folgenden Dinge sind mir noch aufgefallen:

* Datei -> öffen -> Abbruch löscht das aktuelle Bild
* wenn ich das Fenster maximiere und per Doppeltklick auf die Windows Titelleiste verkleinere, wird nur die Haupt GUI verkleinert (siehe Bild) -> getestet auf Vista x32 und Win7 x64 (VM)

das das Hintergrundbild gelöscht wird, habe ich jetzt gefixed. Den 2. Fehler kann ich mit WinXP SP3 leider nicht nachvollziehen, habe aber versucht ihn zu beheben, bitte Rückmeldung Danke

mfg (Auto)Bert

Hallo stinger2k,

habe die func etwas angepasst, damit man das Trennzeichen freiwählen kann.:

mfg (Auto)Bert

Hallo

schau dir [ gelöst ] Daten an email senden an,

mfg (Auto)Bert

Hallo Higggiii,

schau dir einmal die verschiedenen Control-Befehle in der Hilfe an, ganz speziell

ControlListView

,

mfg (Auto)Bert

Zitat von Tecoist

Hallo,

Gibt es eine möglichkeit einen bestimmten Punkt der Gui zu löschen, also alles was sich dort befindet.

GuiDelete($Gui,$x,$y,$width,$height) <= so mein ich das

An diesem Punkt muss alles gelöscht werden, buttons,pics bla...

Ist sowas möglich ?

Ja aber was soll das denn werden Spassviren werden nicht supported, siehe http://www.autoit.de/index.php?page=Forumrules

mfg (Auto)Bert

Hallo Flitzer,

@progandy hat eine rmchart.au3 geschrieben, schau am besten hier [ offen ] Liniendiagramm dann weiter zu Post #19. Dazu habe ich mir damals dieses Skript heruntergeladen (Link unbekannt):

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.3.1.0 (beta)
Author: Prog@ndy

Script Function:
Moving chart

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here
#include<rmchart.au3>

$hGUI = GUICreate("Chart Test", 700,500)
_RMC_LoadDLL("rmchart.dll")

$ChartID = 2101
_RMC_CreateChart($hGUI, $ChartID ,10,10,300,200,$ColorBlack,0,0,"","",100)

_RMC_AddRegion($ChartID,0,5,-5,0)

_RMC_AddGrid($ChartID,1, $ColorBlack)
_RMC_AddDataAxis($ChartID,1,$RMC_DATAAXISLEFT, 0, 100 , 0 , 0, $ColorWhite , $ColorWhite ,$RMC_LINESTYLEDOT,0,"","")
_RMC_AddLabelAxis($ChartID,1,0, 1, 5, 0, 0, 0, 0, 0, $RMC_LINESTYLENONE,"")

Local $text = Random(1,100,1)
For $i = 1 To 99
$text &= "|" & Random(1,100,1)
Next
Global $struct
_RMC_Split2Double($text, $struct)
_RMC_AddLineSeries($ChartID, 1, $Struct, 100, 0, 0, $RMC_AREA, $RMC_AREA_FLAT , 0, True, $ColorGreen, 0, 0, 0, 0)

_RMC_Draw($ChartID)

GUISetState()

AdlibRegister("_Update",1000)
Func _Update()
$ping= Ping("www.Ping.de", 250)
ConsoleWrite($ping & @CRLF)
; $text = StringTrimLeft($text, StringInStr($text, "|")) & "|" & Random(1,100,1)
$text = StringTrimLeft($text, StringInStr($text, "|")) & "|" & $ping
_RMC_Split2Double($text, $struct)
_RMC_SetSeriesData($ChartID, 1, 1, $struct, 100)
_RMC_Draw($ChartID)
EndFunc

While 1
Switch GUIGetMsg()
Case -3
Exit

EndSwitch
WEnd

mfg (Auto)Bert

Hallo Gres,

du solltest dir die Hilfe zu

ControlSend
ControlClick

anschauen, vielleicht hilft dir ja auch [ gelöst ] text an minimiertes fenster weiter (geht zwar nicht um SAP) aber könnte interessant sein,

mfg (Auto)Bert

Zitat von Darter

Ah da wor ich wohl etwas zu schnell und hab nicht genau geschaut. Und ne auspribiert hab ich es tatsächlich nicht, da ich es nur schnell gemacht hab.

Klar nach meiner lösung müsste man eben die 2 GUI auch starten und HIDEn.

dickes Sorry

Hallo Darter, bei deiner Lösung wird auch bei jedem Aufruf der Func profilfinder()
eine neue Gui erzeugt, damit überschreibst du alle vorhandenen bereits eingebenen Werte, naja wenigstens löschst du die Gui bei der Message $GUI_EVENT_CLOSE, das darauf folgende ExitLoop beendet dann zwangsläufig das Programm.

stinger2k, die Lösung von Tecoist ist wenn wann nicht auf Ressorcen schauen muss idealer, da der Source leichter zu lesen ist (auch wenn ich beim 1. Überfliegen die aufrufende GUI glatt übersehen habe),

mfg (Auto)Bert

Hallo Darter,

Zitat

So Funktionierts !
Wie Seubo schon sage mit guigetmsg(1)
So wie du es aufgebaut hast ist es klar, dass er im ersten Fenster nichts mehr macht er ist ja auch nicht in der Schleife um das zu überprüfen. Also alles schön in einer Schleife machen und mit dem dem jeweligen Fensterhandle arbeiten. Ist recht unkompliziert, funktioniert einwandfrei und ist einfach die Beste Lösung mener meinung nach

AutoBerts Idee ist auch nicht schlecht aber ich finde zu umständlich.

nein es funktioniert nicht:

C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(19,71) : WARNING: $Form1_1handle: possibly used before declaration.
        Case $msg[0] = $GUI_EVENT_CLOSE  And $msg [1] = $Form1_1handle
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(22,33) : WARNING: $Input1: possibly used before declaration.
        Case $msg[0] = $Input1  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(23,33) : WARNING: $Input2: possibly used before declaration.
        Case $msg[0] = $Input2  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(24,33) : WARNING: $Input3: possibly used before declaration.
        Case $msg[0] = $Input3  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(25,33) : WARNING: $Input4: possibly used before declaration.
        Case $msg[0] = $Input4  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(26,33) : WARNING: $Input5: possibly used before declaration.
        Case $msg[0] = $Input5  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(27,33) : WARNING: $Input6: possibly used before declaration.
        Case $msg[0] = $Input6  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(28,33) : WARNING: $Input7: possibly used before declaration.
        Case $msg[0] = $Input7  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(29,33) : WARNING: $Input8: possibly used before declaration.
        Case $msg[0] = $Input8  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(30,33) : WARNING: $Input9: possibly used before declaration.
        Case $msg[0] = $Input9  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(31,40) : WARNING: $Profil_finden: possibly used before declaration.
        Case $msg[0] = $Profil_finden  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3(33,36) : WARNING: $Abbrechen: possibly used before declaration.
        Case $msg[0] = $Abbrechen  And
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3 - 0 error(s), 12 warning(s)
->09:45:53 AU3Check ended.rc:1
>Running:(3.3.6.0):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3"    
C:\Programme\AutoIt3\Examples\Tests\Stinger2k\2GUIsDarter.au3 (22) : ==> Variable used without being declared.:
Case $msg[0] = $Input1  And $msg [1] = $Form1_1handle
Case $msg[0] = ^ ERROR
->09:45:54 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 4.080

du hast es nicht ein einziges Mal gestartet, sonst hättest du auch diesen Absturz gehabt, der sich nur mit der Deklaration aller Variablen der 2. Gui, die in der Func erstellt wird, lösen lässt. Was ist an meinem Skript umständlich Es funktioniert und ich habe Stinger2K hingewiesen dass es

Zitat von AutoBert

eine Möglichkeit (falls du die 2. Gui nur bei Bedarf erzeugen möchtest):
...
normalerweise solltest du sie aber am Anfang erzeugen und HIDEn,

Dies wäre meines Erachtens die optimale Methode.

@m-obi: ich bevorzuge auch den OnEvent-Modus,
@Tecoist: da du die Reihenfolge der GUIs vertauscht hast, habe ich die aufrufende GUI beim überffliegen übersehen, sonst hätte ich meine nicht mehr gepostet,

mfg (Auto)Bert

Hallo dpjeezy89,

Wenn du dein Beispiel so abänderst:

erkennst du den Effekt, den funkey bereits beschrieben hat. Sieht wirklich nicht schön aus. Wenn man die Sterne nicht auf die Spaltenbreite anpasst wird es etwas besser:

Func _ListView_CreateRating($hWndListView, $Index, $SubItemIndex, $pImgFull, $pImgHalf, $Rating)
Local $CurrentStep, $Half
$Window = _ListView_InsertWindow($hWndListView, $Index, $SubItemIndex)
GUISetBkColor(0xFFFFFF, $Window)
$WindowSize = WinGetClientSize($Window)

$Step = Round($WindowSize[0] / Ceiling($Rating))
$CurrentStep = 0
$Half = Mod($Rating, Int($Rating))

For $i = 1 To Int($Rating)
GUICtrlCreatePic($pImgFull, $CurrentStep, 3, 11, 10)
$CurrentStep += $Step
Next

If $Half <> 0 Or $Half <> '' Then
GUICtrlCreatePic($pImgHalf, $CurrentStep, 3, 11, 10)
EndIf
EndFunc

Sie müssten jetzt nur noch eine fixe Position (left) haben, dann wäre es optimal,

mfg (Auto)Bert

Hallo Stinger2k,

eine Möglichkeit (falls du die 2. Gui nur bei Bedarf erzeugen möchtest):

normalerweise solltest du sie aber am Anfang erzeugen und HIDEn,

mfg (Auto)Bert

Hallo king.ralph,

ich würde dafür die Datei mit

_FileReadToArray

einlesen. Im Array nach der Zeile suchen, diese bearbeiten (Stringmanipulationen) und danach mit

_FileWriteFromArray

wieder abspeichern,

Das mit dem Variablenproblem bei FileReadLine irritiert mich etwas, das hat bei mir immer einwandfrei geklappt,

mfg (Auto)Bert

Neues Update: Version 0.8.1.1 siehe Post #1

@K1773R: Ja gerne, wäre wirklich nett wenn du JaYT-DwiP_0812.zip und den dazugehörigen Link für FFMPeg http://sourceforge.net/projects/mplay…628.7z/download auf deinen Server legen würdet. Vielen Dank für die Mühe.

@all: Antworten auf diese beiden Fragen interessieren mich derzeit am meisten:

• Laufen die Downloads durch, hier habe ich nämlich öfters Probleme die warscheins in meinem INet-Zugang begründet liegen Web'n'Walk (zurzeit max. ca. 12 KB/s)
• werden evtl. Lieder unterschlagen weil im Dateinamen noch ungültige Zeichen sind? Hierfür verwende ich folgendes:[autoit] $sFileName = @ScriptDir & "\Downloaded\" & StringRegExpReplace($sTitle, "((?<!.)([a-zA-Z]\:\\)(?!\s)(([\w-+.]*" & _
  "((?<!\s)(\s{1})(?!\\)|(?<!\\)(\\{1})(?!\s))*)*)(\\?)(?!.))", "")[/autoit]ist leider nicht von mir kenn mich mit RegEx & Co. gar nicht aus

mfg (Auto)Bert

Hallo Aquaplant,

mit InetGet das Passwort zu übergeben klappt bei dieser Seite bei mir leider auch nicht, mit FF- und IE-Automation habe ich mich bis jetzt auch nur oberflächlich beschäftigt. Lies [ gelöst ] Auf einer Website automatisch ein logen ab diesem Post bis zum Ende des Threads.
Vielleicht hilft dir ja einer der IE-Spezialisten,

mfg (Auto)Bert

Hallo Aquaplant,

poste doch bitte einmal den Link zu der Seite, falls sie nicht kostenpflichtig ist schaue ich es mir einmal genauer an,

mfg (Auto)Bert

Ja, geht in Ordnung (siehe JaYT-DwiMP3P v 0.8.0.7 (kleines Update)) Spätestens ab Version 1.X.X.X ist dann auch ein Hilfesystem integriert, dass die Bedienung erläutert,

mfg (Auto)Bert