Beiträge von autoBert

**autoBert**

Hallo killax2x

Schau dir [gelöst] Daten an Email senden
an. Im gleichen Thread in Post #14 sind weitere Informationen

mfg (Auto)Bert

**autoBert**

schön kurz. Naja: RegEx ist wie Quantenphysik - Niemand versteht es zu 100%, aber alle wissen dass es irgendwie funktioniert!

**autoBert**

Zitat von ProblemUser

Hier ist die XML was die das bringen soll verstehe ich icht da eine XML meißtens gleich istaber ok..

Zitat von ProblemUser

Danke jedoch gibt es immer noch ein Problem.
Da sich die XML immer ändert, muss sie immer neu geladen werden!
...
Jedoch kommt dann immer die Meldung:

Dann scheinen diese XML's nicht mit dem von dir geposteten Schema übereinzustimmen. Poste doch bitte eine wo dieser Fehler auftritt,

mfg (Auto)Bert

**autoBert**

Hallo ProblemUser,

hier mein Skriptvorschlag:

Spoiler anzeigen

[autoit]

#Include <String.au3>
#Include <File.au3>
;#Include <Array.au3>

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

;Local $sData = InetRead($url)
;Local $nBytesRead = @extended
Local $sFileName = "start.html"

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

$sData = '<?xml version="1.0"?>'&@CRLF
$sData &= '<Ausgabe xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"><Latitude>0.00000</Latitude><Longitude>0.00000</Longitude></Ausgabe>'
$xmllon = _stringbetween($sData, "<Longitude>","</Longitude>")
if IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0,"Fehler","Longitude nicht in XML gefunden!")
EndIf
$xmllat = _stringbetween($sData, "<Latitude>", "</Latitude>")
if IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0,"Fehler","Latitude nicht in XML gefunden!")
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)

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

$hFile = FileOpen($sFileName,0)
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _stringbetween($sText, "var lon =", ";")
if IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0,"Fehler","Longitude nicht in HTML gefunden!")
EndIf
$Lat = _stringbetween($sText, "var lat =", ";")
if IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0,"Fehler","Latitude nicht in HTML gefunden!")
EndIf
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $lon & " " & $lat & @CRLF)
$hFile = FileOpen($sFileName,2)
FileWrite($hFile,$sText)
FileClose($hFile)

[/autoit]

viel Spass bei der Schatzsuche

mfg (Auto)Bert

**autoBert**

Hallo ProblemUser,

da ich in dem Thread bisher auch die ausgebene XML nicht finden konnte und bisher von Geo-Caching ausging, wobei ich dir ja gerne geholfen hätte, bleibt mir nur noch der Hinweis auf die Hilfe dort solltest du dir ganz besonders alle Funktionen in "Zeichenketten, Strings Funktion Referenz" und "String Benutzerdefinierte Funktion Referenz" durchlesen. Die richtigen Funktionen, die du benötigst sind dort mit sicherheit enthalten,

mfg (Auto)Bert

**autoBert**

Hallo DarkOwning,

du kannst ja mit Hilfe von

[autoit]

IniReadSections

[/autoit]

zuerst alle Sections in einem Treeview darstellen, danach stellst du für jede Section die Keys mit Value dar z.B. Value=Key.

[autoit]

IniReadSection

[/autoit]

Dadurch kannst du dann mit

[autoit]

_GUICtrlTreeView_FindItem

[/autoit]

.nach dem Text suchen. Anderer Ansatz benutze ein 3D-Array

mfg (Auto)Bert

**autoBert**

Zitat von ProblemUser

Ohne den API Key kommt ein Error also was willst du mit der Seite?

Könnte doch durchaus sein, dass ich dort Member bin und den Key habe

**autoBert**

Zitat von ProblemUser

Die Website benötigt einen Key, den ich nicht preisgebe da es sonst zu viel unsinn damit gemacht werden kann

Aber die Adresse ist doch wohl kein Geheimniss

mfg (Auto)Bert

**autoBert**

Hallo baam,

kann es sein dass du

[autoit]

GUICtrlRead

[/autoit]

vergessen hast?

mfg (Auto)Bert

**autoBert**

Hallo ProblemUser,

dann poste doch bitte das komplette Skript mit der dazugehörigen WebSite-Adresse,
dann wird es einfacher,

mfg (Auto)Bert

**autoBert**

Hallo,

du benötigst GuiGetMSg(1) für deine 2 Guis. Hier das angepasste Skript:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#region ### START Koda GUI section ### Form=

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

$Form1 = GUICreate("Sender hinzufügen", 369, 183, 192, 124)
GUISetBkColor(0x2B2B2B)
$Input1 = GUICtrlCreateInput("", 24, 40, 329, 21)
$Input2 = GUICtrlCreateInput("", 24, 96, 329, 21)
$Label1 = GUICtrlCreateLabel("Sendername", 24, 16, 120, 17)
$Label2 = GUICtrlCreateLabel("Senderadresse", 24, 72, 120, 17)
$Button1 = GUICtrlCreateButton("OK", 144, 136, 97, 33, $WS_GROUP)
GUISetState(@SW_HIDE)

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

$webradio = GUICreate("Webradioplayer | F6 hide/show F7 close", 386, 250, 482, 253)
GUISetBkColor(0x2B2B2B)
$IE = _IECreateEmbedded()
GUICtrlCreateObj($IE, 8, 112, 369, 137)
$ListeGUI = GUICtrlCreateList("", 8, 8, 209, 97)
GUICtrlSetData(-1, "")
$LoadGUI = GUICtrlCreateButton("Load", 248, 16, 41, 41)
$StopGUI = GUICtrlCreateButton("Stop", 312, 16, 41, 41)
$HinzufuegenGui = GUICtrlCreateButton("Hinzufügen", 248, 80, 105, 17, $WS_GROUP)
GUISetState(@SW_SHOW)
HotKeySet("{F6}", "_hide")
HotKeySet("{F6}", "_show")
HotKeySet("{F7}", "_exit")
#endregion ### END Koda GUI section ###

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

If Not FileExists("Sender.ini") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
Else
$Liste = ""
$Sections = IniReadSection("Sender.ini", "Sender")
If IsArray($Sections) Then
For $i = 1 To $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($ListeGUI, $Liste)
EndIf
EndIf

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

While 1
$nMsg = GUIGetMsg(1)
If $nMsg[1] = $webradio Then
Switch $nMsg[0]

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

Case $GUI_EVENT_CLOSE
Exit

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

Case $ListeGUI

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

Case $LoadGUI
If Not GUICtrlRead($ListeGUI) = "" Then
$sSender = IniRead("Sender.ini", "Sender", GUICtrlRead($ListeGUI), "")
_IENavigate($IE, $sSender)

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

EndIf
Case $StopGUI
_IENavigate($IE, "about:blank")

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

Case $GUI_EVENT_CLOSE
Exit

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

Case $HinzufuegenGui
;evntuell Inputs leeren
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $webradio)
EndSwitch
Else ;Gui Form1
Switch $nMsg[0]
Case $Button1
IniWrite("Sender.ini", "Sender", GUICtrlRead($Input1), GUICtrlRead($Input2))

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

If Not FileExists("Sender.ini") Then
MsgBox(16, "Radio-Streamer", "Die URL Liste Existiert Nicht!")
Else
$Liste = ""
$Sections = IniReadSection("Sender.ini", "Sender")
For $i = 1 To $Sections[0][0]
$Liste &= $Sections[$i][0] & "|"
Next
GUICtrlSetData($ListeGUI, $Liste)
EndIf
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $webradio)
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $webradio)
EndSwitch
EndIf
WEnd

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

Func _hide()
GUISetState(@SW_HIDE, $webradio)
HotKeySet("{F6}", "_show")
EndFunc ;==>_hide

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

Func _show()
GUISetState(@SW_SHOW, $webradio)
HotKeySet("{F6}", "_hide")
EndFunc ;==>_show

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

Func _exit()
Exit 0
EndFunc ;==>_exit

[/autoit]

lies dir dazu auch die Hilfe zu GuiGetMsg durch,

mfg (Auto)Bert

**autoBert**

Hallo sido47,

[autoit]

$infile = @ScriptDir & "Sido der Himmel soll warten.mp4"
FileMove($inFile, @ScriptDor & "Test.mp4, 9)
$outfile = @ScriptDir & "Sido der Himmel soll warten.mp3"

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

ShellExecuteWait(@ScriptDir & "\ffmpeg -i " & $tmpFile & " -y " & "Test.mp3", @ScriptDir, @SW_HIDE)
FileMove(@ScriptDir & "\Test.mp3", $infile& $outFile, 9)

[/autoit]

PS.: da du anscheinend nur Code-Teile zusammenkopierst ohne sie zu verstehenempfehle ich dir die Hilfe herunterladen und zu lesen. Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/Tutorial
Sehr hilfreich ist auch das Buch von peethebee ,

mfg (Auto)Bert

**autoBert**

Hallo king.ralph,

falls du das Event kennst, dass vom Browser ausgelöst wird wenn man die Datei spiechert kannst du es it

[autoit]

$SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_

[/autoit]

und

[autoit]

Func IEEvent_ProgressChange($Progress, $ProgressMax)
$percent = Int(($Progress * 100) / $ProgressMax)
If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
EndFunc ;==>IEEvent_ProgressChange

[/autoit]

lösen. Siehe [Beispiel] Internetbrowser mit Ladebalken
Du musst nur ProgressChange gegen den Eventname austauschen.

mfg (Auto)Bert

**autoBert**

Zitat von nuts

besser so:
[autoit]
$wert = $oHWP.Table("ADR")
$ret=$wert.Anzahl
[/autoit]

[autoit][/autoit]

funktioniert dass denn auch nicht?

mfg (Auto)Bert

**autoBert**

Hallo kfl42ai,

schau dir auch einmal AutoItObject - OOP für AutoIt

mfg (Auto)Bert

**autoBert**

Zitat von kfl42ai

Der Herstlerr der Software behaupptet nun natürlich, wenn es unter VBA / VBS ohne Fehler funktioniert, so ist seine Schnittstelle in Ordnung

damit hat er recht => Beweis ist erbracht.

Um welche Software handelt es sich denn

**autoBert**

Hallo sido47sido47,
ich habe es in meinem Downloader so gelöst, da ffmpeg mit Leerstellen in Dateiamen nicht zurechtkommt:

[autoit]

If $bMP3 = 1 Then
GUICtrlSetData($idlblPrcnt, "konvertiere nach MP3")
RunWait(@ScriptDir & "\ffmpeg -i " & "Test.mp4 -y " & "Test.mp3", @ScriptDir, @SW_HIDE)
FileMove(@ScriptDir & "\Test.mp3", $sFileName & ".mp3", 9)
EndIf

[/autoit]

mfg(Auto)Bert

**autoBert**

Schau einmal in meinen Downloader(siehe Signatur), dort ist in #1 ein Link zum Downloaden von ffmpeg inkl. Dokumentation. Falls du ffmpeg weiter gibts, musst du auch alle Files dieses Downloads weitergeben (siehe COPYING.GPLv3.txt im entpackten Download)

mfg (Auto)Bert

**autoBert**

@m-obi,

dann setzte doch einfach einmal mehrere Statis, und lass es dir danach ausgeben

[autoit]

#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Add_Constants=n
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <Constants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>

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

Global $oldStatus

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

GUICreate("Test checkBox ", 300, 300)
Local $idchkTest = GUICtrlCreateCheckbox("checkBox", 20, 40, 60)
Local $idbtnTest = GUICtrlCreateButton("&Test", 150, 190, 130)
GUISetState(@SW_SHOW)
$oldStatus = -1
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $idbtnTest
MsgBox(0, "", GUICtrlGetState($idchkTest))
GUICtrlSetState($idchkTest, BitOR($GUI_CHECKED,$GUI_Hide,$GUI_Enable))
If GUICtrlRead($idchkTest) = BitAND($GUI_CHECKED, $GUI_Enable, $GUI_Show) Then
MsgBox(0, "CheckBox", "ist angeCHECKED, sichtbar und aktiviert")
Else
MsgBox(0, "CheckBox", "ist entweder nicht angeCHECKED, oder nicht sichtbar oder nicht aktiviert")
EndIf
EndSwitch
WEnd

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

mfg (Auto)Bert

**autoBert**

Zur Vervollständigung http://blogs.technet.com/b/sieben/archi…end-ersatz.aspx

mfg (Auto)Bert

Beiträge von autoBert

Email Proble

Wetter

FileWrite bzw. Open

FileWrite bzw. Open

FileWrite bzw. Open

Mit Key & Value die Section einer .ini herausfinden

FileWrite bzw. Open

FileWrite bzw. Open

Datei öffnen

FileWrite bzw. Open

Radioplayer Problem =P

Autoit als Converter (FFmpeg)

Komplette Internetseite Speichern

COM / OLE Objekte - Fehler 80020003, Mitglied nicht gefunden

COM / OLE Objekte - Fehler 80020003, Mitglied nicht gefunden

COM / OLE Objekte - Fehler 80020003, Mitglied nicht gefunden

Autoit als Converter (FFmpeg)

Autoit als Converter (FFmpeg)

Fettes Problem

MessageBox wie der "netsend"-Befehl