Beiträge von autoBert

**autoBert**

doch

[autoit]

#Include <Timers.au3>

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

$hGui = GUICreate("")
$Timer = _Timer_SetTimer($hGui, 1000, "_UpdateMsgBox")
MsgBox(262144 + 64, "Countdown", 10, 10)
_Timer_KillTimer($hGui, $Timer)

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

Func _UpdateMsgBox($hWnd, $Msg, $iIDTimer, $dwTime)
Local $sText = ControlGetText("Countdown", "", "Static2")
ControlSetText("Countdown", "", "Static2", $sText - 1)
EndFunc

[/autoit]

ist von funkey (dank Sufu mit CountDown MsgBox gefunden)

mfg (Auto)Bert

**autoBert**

Hallo MrMultiBot,

so sollte es funktionieren:

Spoiler anzeigen

[autoit]

#include <sound.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <date.au3>

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

#region ### START Koda GUI section ### Form=
;NebenForm

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

$Form1_1 = GUICreate("Wecker...by...Mr.Multibot", 373, 73, 192, 127)
GUISetIcon("Icon.ico")
$Input2 = GUICtrlCreateInput("", 264, 8, 97, 21)
$Label1 = GUICtrlCreateLabel("Aktuelle Zeit: " & _NowTime(), 8, 8, 145, 21)
$Label2 = GUICtrlCreateLabel("Weckzeit", 184, 8, 61, 17)
$Button3 = GUICtrlCreateButton("!!!!START!!!!", 8, 40, 353, 25, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$State_NF = GUISetState(@SW_SHOW)

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

;Hauptform
$Form1 = GUICreate("Wecker...by...Mr.Multibot", 251, 201, 243, 148)
GUISetIcon("Icon.ico")
$Pic1 = GUICtrlCreatePic("Bild.gif", 8, 8, 233, 153, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("SLEEP", 8, 168, 113, 25, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$Button2 = GUICtrlCreateButton("STOP", 128, 168, 113, 25, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
;$State_HF = GUISetState(@SW_HIDE)
#endregion ### END Koda GUI section ###

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

$Soundopen = _SoundOpen("Weck_sound.wav")
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1_1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button3
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $Form1_1)
$Weckzeit = GUICtrlRead($Input2)
While 1
If _NowTime(4) = $Weckzeit Then ;ursprünglich 5
AdlibRegister("Aufwachen",5000)
;$State_HF = GUISetState(@SW_SHOW)
ExitLoop
EndIf
Sleep(40)
WEnd
EndSwitch
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_SoundStop($Soundopen)
$Slummerzeit = IniRead("option.txt", "Schlummer Funktion", "", "")
; $State_NF = GUISetState(@SW_HIDE)
AdlibUnRegister("Aufwachen")
Sleep($Slummerzeit)
AdlibRegister("Aufwachen",5000)
; $State_NF = GUISetState(@SW_SHOW)
Case $Button2
AdlibUnRegister("Aufwachen")
_SoundClose($Soundopen)
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form1_1)
EndSwitch
EndSwitch
WEnd

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

Func Aufwachen()
ConsoleWrite("Aufwachen" & @CRLF)
_SoundPlay($Soundopen)
EndFunc ;==>Aufwachen

[/autoit]

mfg (Auto)Bert

**autoBert**

das liegt wohl daran, dass der Aufruf von http://local.yahooapis.com/.... mindestens PLZ und Stadt benötigt. Du solltest also anstelle einer Input-Box eine Such-Gui erstellen (analog zu OWB)

mfg (Auto)Bert

**autoBert**

Hallo delcox,

das Skript sollte sich beenden, da du ja am Ende

[autoit]

Exit

[/autoit]

stehen hast. Wie aber L3viathan schon erwähnte gibt es auch mächtige Funktionen in der Excel.au3. In der Hilfe findest du dies unter benutzerdefinierte Funktionen Referenz | Excel Management

mfg (Auto)Bert

**autoBert**

Zitat von Josi

In Summe sind das ca. 70.000 Email Adressen.

Hört sich an, als benötigst du es für kommerzielle Zwecke, also könntest du es in der JobBörse (mit Gegenleistung) posten, kleiner Auszug aus Log-File (Adressen bitte anoymisieren) nicht vergessen.
Oder du nimmst dir die Zeit und lernst es anhand von z.B.:
http://www.bug-fix.info/PathCheck.htm
StringRegExp Tutorial / Reguläre Ausdrücke in AutoIt

mfg (Auto)Bert

**autoBert**

Zitat von Craolez

Ich Bekomme es aber einfach nicht hin ich habe eine include file im internet gefunden mit der das möglich ist aber ich kenn die befehle nicht dazu...

ich auch nicht, üblicherweise richtet man in diesem Fall eine Anfrage an den Author.
Um was für eine Anwendung handelt es sich denn

mfg (Auto)Bert

**autoBert**

Hallo inferior,

ich habe dort auch noch einmal editiert:

Spoiler anzeigen

[autoit]

_FolderToZip("C:\Programme\AutoIt3\Deutsche Hilfe\")

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

func _FolderToZip($spath)
;einziger Parameter der Pfad zu dem Ordner der gepackt werden soll mit abschliessenden \
$s_a_ToZip = _FileListToArray($sPath,"*")
for $i = 1 to $s_a_ToZip[0]
$s_a_ToZip[$i] = $sPath & $s_a_ToZip[$i]
Next
_BuildInZIP(StringTrimRight($sPath,1) & ".ZIP",$s_a_ToZip,False,1) ;func von BugFix aufrufen
EndFunc

[/autoit]

Oder poste doch einfach einmal das aktuelle komplette Skript (ich habe den Thread nicht von Anfang an gelesen), dann baue ich dir das noch ein,

mfg (Auto)Bert

**autoBert**

Hallo inferior,

der Aufruf wie ich ihn dort mache, packt alle Dateien eines Ordner in ein Zip-File,

mfg (Auto)Bert

**autoBert**

Hallo Inferior,

schau dir noch einmal ZIP - Packen / Entpacken mit Windows eigener Funktion an, ich habe dort nach kleinen Verständnisschwierigkeiten und nach Hinweis von Oscar die Einfachkeit von BugFix func _BuildInZIP erkannt, sollte dir als Beispiel reichen,

mfg (Auto)Bert

**autoBert**

Zitat von ProblemUser

Jedoch kann ich das Script nicht testen da es immer Verschwindet!

Ich auch nicht, da es sich direkt nach der Eingabe eines Wohnortes verabschiedet! (Längen-Breitengrad falsch!)

Zitat von ProblemUser

Das Script hat mehr als 100.000 Zeichen darum ist es nun bei PasteBin:

dann kürze es um alle unnötige funcs, sind sicher noch mehr:

Spoiler anzeigen

[autoit]

#include <INet.au3>
#include <GDIPlus.au3>
#include <Misc.au3>
#include <WinAPI.au3>
#include <ListViewConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <GuiListView.au3>
#include <SliderConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <String.au3>

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

$IE = _IECreateEmbedded()
Global $picexit
Local $mExit, $mSettings, $picsettings, $picabout, $About, $Wetter, $sonne, $Anzeige
Global $html
Local $sFileName = "start.html"
Local $1FileName = "seastart.html"
Local $nBytesRead = @extended
Dim $adr, $stre, $plz, $stadt, $aland
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$map = 100

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

$Form1 = GUICreate("Open World Browser by Simon K. - EUROS4YOU.COM", 1204, 836, 118, 112)
$Pic1 = GUICtrlCreateObj($IE, 0, 136, 1201, 697)
$city = GUICtrlCreateInput("", 16, 24, 201, 21)
$street = GUICtrlCreateInput("", 16, 48, 201, 21)
$num = GUICtrlCreateInput("", 224, 48, 57, 21)
$zip = GUICtrlCreateInput("", 288, 48, 65, 21)
$Group1 = GUICtrlCreateGroup("Stadt, Straße, Hausnummer, Postleitzahl", 8, 8, 361, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Land", 376, 8, 241, 73)
$land = GUICtrlCreateInput("", 384, 24, 225, 21)
$search = GUICtrlCreateButton("Suche", 384, 48, 227, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Zum Mond", 664, 8, 529, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zur Welt", 664, 38, 529, 25, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Zur See Karte", 664, 67, 529, 25, $WS_GROUP)
$Button4 = GUICtrlCreateButton("About/Über", 664, 96, 529, 25, $WS_GROUP)
$OWBFunks = GUICtrlCreateMenu("Funktionen")
$OWBWetter = GUICtrlCreateMenuItem("Wetter AN/AUS", $OWBFunks)
GUISetState(@SW_SHOW)

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

_GDIPlus_Startup()
Dim $hTrayAbout, $hTrayBlank2, $hTrayExit, $hTrayAnzeigen, $hTrayBlank3, $hTrayEinstellungen
Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)

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

$Color = 0x545454
$vGUIColor = 0x161616
$Title = "Desktop Wetter"
;~ $Sliderwert = 250
$INI = @ScriptDir & "\Data\Einstellungen.ini"
$setting1 = IniRead($INI, "Setting 1", "run", "")
$setting2 = IniRead($INI, "Setting 2", "run", "")
$ausrichtung = IniRead($INI, "Ausrichtung", "Wert", "")
$abstand = IniRead($INI, "Abstand", "Wert", "")
$zent = IniRead($INI, "Zentrierung", "Wert", "")
$Postleitzahl = IniRead($INI, "PLZ", "Wert", "")

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

If $Postleitzahl = "1337" Then
If Not IsDeclared("sInputBoxAnswer") Then Local $sInputBoxAnswer
$Postleitzahl = InputBox("Ihre Postleitzahl", "Da Sie das Programm zum ersten mal starten, sind Sie aufgefordert Ihre Postleitzahl zu schreiben." & @CRLF & @CRLF & "So wird das Programm ihr Persöhnliches Wetter herraus finden und ihren Ort anzeigen!" & @CRLF & @CRLF & "Viel Spaß " & @CRLF & "© Alexander F. (Wetter) & Simon K. (Open World)", "Ihre Postleitzahl", " ", "350", "260", "-1", "-1")
Select
Case @error = 0 ;OK - The string returned is valid

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

Case @error = 1 ;The Cancel button was pushed
Exit
Case @error = 3 ;The InputBox failed to open
Exit
EndSelect
IniWrite($INI, "PLZ", "Wert", $Postleitzahl)
;~ MsgBox(0,"","" & $sInputBoxAnswer)
EndIf
$Funkstart = _Wohnort()
_IENavigate($IE, @ScriptDir & "/start.html")

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

If Not FileExists(@ScriptDir & "\Data\") Then
DirCreate(@ScriptDir & "\Data\")
EndIf
If Not FileExists(@ScriptDir & "\Data\Bilder\") Then
DirCreate(@ScriptDir & "\Data\Bilder")
EndIf
If Not FileExists($INI) Then
IniWrite($INI, "Copyright", "Titel", "(C) Alexander F. 2010 - 2011")
EndIf

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

Global $hGui, $hImage, $hGraphic, $hImage1, $Slider1, $sliderzent, $sliderabstand, $Combo1

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

Local $Sonst[5] = ["Stadt: N/A", "WetterStatus: N/A", "Temperatur: N/A", "Wind: N/A", "Luftfeuchtigkeit: N/A"]
Global $Pcode[1][2] = [[$Postleitzahl, ""]]

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

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $picexit, $mExit ; ,$exitContext
GUISetState(@SW_HIDE, $hGui)
Case $mSettings, $picsettings
_Einstellungen()
Case $picabout, $About
_About()
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
$map = 100
_IENavigate($IE, @ScriptDir & "/start.html")
Case $Button3
$map = 10
_IENavigate($IE, @ScriptDir & "/seastart.html")
Case $search
If $map = 10 Then
$func = _Sea()
Else
$func = _World()
EndIf
Case $Button4
_About()
Case $OWBFunks
If $Wetter = 1 Then
GUISetState(@SW_HIDE, $hGui)
Else
_Weather()
EndIf
EndSwitch
WEnd
Func _Exit()
Exit
EndFunc

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

Func _Weather()
; ====== GUI =======
$hGui = GUICreate("Desktop Wetter", 160, 245, @DesktopWidth - 160, (@DesktopHeight - 245) / 2, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOOLWINDOW));,$WS_EX_CONTROLPARENT))
If $ausrichtung = "Rechts" Then
;~ WinMove("Desktop Wetter", "", @DesktopWidth - 160, (@DesktopHeight - 245) / 2)
WinMove("Desktop Wetter", "", @DesktopWidth - 160 - $abstand, $zent)
EndIf
If $ausrichtung = "Links" Then
;~ WinMove("Desktop Wetter", "", 0, (@DesktopHeight - 245) / 2)
WinMove("Desktop Wetter", "", $abstand, $zent)
EndIf
If $setting1 = "yes" Then
WinSetOnTop("Desktop Wetter", "", 1)
EndIf
If $setting2 = "yes" Then
WinSetOnTop("Desktop Wetter", "", 0)
EndIf
TraySetIcon(@ScriptDir & "\Weather.ico")

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

$Menu = GUICtrlCreateContextMenu()
$mSettings = GUICtrlCreateMenuItem("Einstellungen...", $Menu)
$mExit = GUICtrlCreateMenuItem("Wetter Beenden...", $Menu)
GUICtrlCreateMenuItem("", $Menu)
$About = GUICtrlCreateMenuItem("Über Uns...", $Menu)
GUISetBkColor($Color, $hGui)
;~ Global $Gruppe[1] = [GUICtrlCreateGroup("", 4, 8, 185, 129)]
;~ Global $Anzeige[1] = [GUICtrlCreateEdit("", 8, 24, 150, 75, BitOR($ES_AUTOHSCROLL, $ES_NOHIDESEL,$ES_READONLY,$ES_WANTRETURN), 0)]

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

Global $Anzeige[1] = [GUICtrlCreateListView("", 8, 14, 140, 95, BitOR($LVS_LIST, $LVS_SHOWSELALWAYS))]
_GUICtrlListView_SetExtendedListViewStyle(-1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))
GUICtrlSetFont(-1, 10)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlSetBkColor(-1, $Color)

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

; KLAPPT NET !
$contextmenu = GUICtrlCreateContextMenu($Anzeige)
$Context = GUICtrlCreateMenuItem("Einstellungen...", $contextmenu)
$exitContext = GUICtrlCreateMenuItem("Wetter Beenden...", $contextmenu)
GUICtrlCreateMenuItem("", $contextmenu)
$aboutcontext = GUICtrlCreateMenuItem("Über Uns...", $contextmenu)

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

; == BILDER ==
$sonne = GUICtrlCreatePic("", 15, 110, 0, 0);,$WS_EX_CONTROLPARENT)

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

$picmenu = GUICtrlCreateContextMenu($sonne)
$picsettings = GUICtrlCreateMenuItem("Einstellungen...", $picmenu)
$picexit = GUICtrlCreateMenuItem("Wetter Beenden...", $picmenu)
GUICtrlCreateMenuItem("", $picmenu)
$picabout = GUICtrlCreateMenuItem("Über Uns...", $picmenu)

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

$Sliderwert = IniRead($INI, "Slider", "Wert", "")
WinSetTrans($hGui, "", $Sliderwert)

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

GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_NOTIFY, "_WM_NOTIFY")
Update()
AdlibRegister("Update", 60000) ; Jede Minute

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

TraySetToolTip("" & $Title)
TraySetClick(16)
TraySetOnEvent(-13, "_Doubleclick") ;Doubleclick
TraySetOnEvent(-9, "_Rightclick") ;Rightclick
TraySetOnEvent(-7, "")
$Wetter = 1
EndFunc ;==>_Weather
Func Update()
For $i = 0 To 0
SetData($i)
Next
;~ WinSetTitle("Desktop Wetter", "", "Desktop Wetter | " & @HOUR & ":" & @MIN)
EndFunc ;==>Update
Func SetData($index)
$aTmp = _getXML_Weather_data($Pcode[$index][0])
If IsArray($aTmp) Then
;~ GUICtrlSetData($Gruppe[$index], $Pcode[$index][1])

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

Switch $aTmp[1]
; ==============================================================================
Case "Meistens Bewölkt"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "29.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
Case "Bewölkt"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "26.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
Case "Klar"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "33.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
Case "Leichter Regen"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "11.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
Case "Regen"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "12.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
Case "Teils Bewölkt"
$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "30.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)

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

; ==============================================================================
EndSwitch
;~ GUICtrlSetData($Anzeige[$index], $aTmp[1] & @CRLF & $aTmp[2] & @CRLF & $aTmp[3] & @CRLF & $aTmp[4] & @CRLF)
_GUICtrlListView_AddItem($Anzeige[$index], $aTmp[1]); & @CRLF & $aTmp[2] & @CRLF & $aTmp[3] & @CRLF & $aTmp[4] & @CRLF)
_GUICtrlListView_AddItem($Anzeige[$index], $aTmp[2])
_GUICtrlListView_AddItem($Anzeige[$index], $aTmp[3])
_GUICtrlListView_AddItem($Anzeige[$index], $aTmp[4])

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

Else
;~ GUICtrlSetData($Gruppe[$index], $Sonst[0])
;~ GUICtrlSetData($Anzeige[$index], $Sonst[1] & @CRLF & $Sonst[2] & @CRLF & $Sonst[3] & @CRLF & $Sonst[4] & @CRLF)

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

_GUICtrlListView_AddItem($Anzeige[$index], $Sonst[1]); & @CRLF & $Sonst[2] & @CRLF & $Sonst[3] & @CRLF & $Sonst[4] & @CRLF)
_GUICtrlListView_AddItem($Anzeige[$index], "Bitte gehen Sie in die")
_GUICtrlListView_AddItem($Anzeige[$index], "Einstellungen...")
;~ _GUICtrlListView_AddItem($Anzeige[$index], $aTmp[2])
;~ _GUICtrlListView_AddItem($Anzeige[$index], $aTmp[3])
;~ _GUICtrlListView_AddItem($Anzeige[$index], $aTmp[4])

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

$image = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\Data\Bilder\" & "NA.png")
$hImage = _GDIPlus_BitmapCreateHBITMAPFromBitmap($image)
_SetBitmapToCtrl($sonne, $hImage)
EndIf
EndFunc ;==>SetData
Func _getXML_Weather_data($Pcode)
$Source = _INetGetSource("http://www.google.com/ig/api?weather=" & $Pcode & '&hl=de')
$ntype = _StringBetween($Source, '<problem_cause data="', '"/>')
If IsArray($ntype) Then
MsgBox(64, "Error", "Die Postleitzahl wurde nicht gefunden oder falsch geschrieben." & @CRLF & @CRLF & "Daher gehen Sie bitte in die Einstellungen" & @CRLF & "und schreiben eine neue Postleitzahl," & @CRLF & "damit das Programm diese erkennt." & @CRLF & @CRLF & "Dankeschön Ihr Team")
;~ options()
Return
EndIf

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

$Api = "http://www.google.com/ig/api?weather=" & $Pcode & '&hl=de'
$XML_Source = _INetGetSource($Api)
$city = _StringBetween($XML_Source, '<city data="', '"/>')
$Wstatus = _StringBetween($XML_Source, '<condition data="', '"/>')
$Temp = _StringBetween($XML_Source, '<temp_c data="', '"/>')
$Wind = _StringBetween($XML_Source, '<wind_condition data="', '"/>')
$Humidity = _StringBetween($XML_Source, '<humidity data="', '"/>')
Local $MyWeather[5] = [$city[0], $Wstatus[0], $Temp[0] & " °C", $Wind[0], $Humidity[0]]
Return $MyWeather

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

EndFunc ;==>_getXML_Weather_data
; =========================== WETTER VORBEI ==============================
; =========================== BILDER =====================================
Func _SetBitmapToCtrl($CtrlId, $HBITMAP)
Local Const $STM_SETIMAGE = 0x0172
Local Const $STM_GETIMAGE = 0x0173
Local Const $BM_SETIMAGE = 0xF7
Local Const $BM_GETIMAGE = 0xF6
Local Const $IMAGE_BITMAP = 0
Local Const $SS_BITMAP = 0x0E
Local Const $BS_BITMAP = 0x0080
Local Const $GWL_STYLE = -16

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

Local $hWnd, $hPrev, $Style, $iCtrl_SETIMAGE, $iCtrl_GETIMAGE, $iCtrl_BITMAP

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

; determine control class and adjust constants accordingly
Switch _WinAPI_GetClassName($CtrlId)
Case "Button" ; button,checkbox,radiobutton,groupbox
$iCtrl_SETIMAGE = $BM_SETIMAGE
$iCtrl_GETIMAGE = $BM_GETIMAGE
$iCtrl_BITMAP = $BS_BITMAP
Case "Static" ; picture,icon,label
$iCtrl_SETIMAGE = $STM_SETIMAGE
$iCtrl_GETIMAGE = $STM_GETIMAGE
$iCtrl_BITMAP = $SS_BITMAP
Case Else
Return SetError(1, 0, 0)
EndSwitch

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

$hWnd = GUICtrlGetHandle($CtrlId)
If $hWnd = 0 Then Return SetError(2, 0, 0)

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

; set SS_BITMAP/BS_BITMAP style to the control
$Style = _WinAPI_GetWindowLong($hWnd, $GWL_STYLE)
If @error Then Return SetError(3, 0, 0)
_WinAPI_SetWindowLong($hWnd, $GWL_STYLE, BitOR($Style, $iCtrl_BITMAP))
If @error Then Return SetError(4, 0, 0)

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

; set image to the control
$hPrev = _SendMessage($hWnd, $iCtrl_SETIMAGE, $IMAGE_BITMAP, $HBITMAP)
If @error Then Return SetError(5, 0, 0)
If $hPrev Then _WinAPI_DeleteObject($hPrev)

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

Return 1
EndFunc ;==>_SetBitmapToCtrl
; =========================== EINSTELLUNGEN ==============================
Func _Einstellungen()
$vGUIColor = 0x161616

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

Opt("GUIOnEventMode", 0)

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

;~ GUISetState(@SW_HIDE, $hGui)
_SM_SetVisualStyle(1)
$settinggui = GUICreate("Settings", 555, 226, -1, -1, -1, BitOR(0x00000080, 0x00000010), $hGui)
_SM_SetVisualStyle(0)
GUISetBkColor($vGUIColor, $settinggui)
$cancel = GUICtrlCreateButton("Exit", 303, 200, 247, 20)
$save = GUICtrlCreateButton("Save", 10, 200, 247, 20)

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

$settings = GUICtrlCreateGroup("Einstellungen", 8, 8, 537, 185)
GUICtrlSetColor(-1, 0xFFFFFF)
$label123 = GUICtrlCreateLabel("Immer einblenden ?", 16, 32, 94, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus1 = GUICtrlCreateRadio("Aktivieren", 16, 56, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus2 = GUICtrlCreateRadio("Deaktivieren", 16, 80, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Icon1 = GUICtrlCreateIcon("", -0, 32, 104, 32, 32)
$Label1 = GUICtrlCreateLabel("Ausrichtung des Docks", 16, 112, 114, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
_SM_SetVisualStyle(1)
Global $Combo1 = GUICtrlCreateCombo(IniRead($INI, "Ausrichtung", "Wert", ""), 16, 144, 129, 25)
If $ausrichtung = "Rechts" Then
GUICtrlSetData($Combo1, "Links")
EndIf
If $ausrichtung = "Links" Then
GUICtrlSetData($Combo1, "Rechts")
EndIf
;~ GUICtrlSetData(-1, "Links|Rechts")
$Label2 = GUICtrlCreateLabel("Unsichtbarkeit", 184, 27, 75, 20)
GUICtrlSetColor(-1, 0xFFFFFF)

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

Global $Slider1 = GUICtrlCreateSlider(176, 56, 100, 21, $TBS_NOTICKS) ; Unsichtbarkeit
GUICtrlSetLimit($Slider1, 255, 75)
GUICtrlSetBkColor($Slider1, $vGUIColor)
GUICtrlSetData($Slider1, IniRead($INI, "Slider", "Wert", ""))

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

Global $sliderabstand = GUICtrlCreateSlider(308, 56, 100, 21, $TBS_NOTICKS) ; Abstand
GUICtrlSetBkColor($sliderabstand, $vGUIColor)
GUICtrlSetData($sliderabstand, IniRead($INI, "Abstand", "Wert", ""))

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

Global $sliderzent = GUICtrlCreateSlider(176, 120, 100, 21, $TBS_NOTICKS) ; Zentrierung
GUICtrlSetBkColor($sliderzent, $vGUIColor)
GUICtrlSetLimit($sliderzent, @DesktopHeight)
GUICtrlSetData($sliderzent, IniRead($INI, "Zentrierung", "Wert", ""))

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

_SM_SetVisualStyle(0)
$Label3 = GUICtrlCreateLabel("Abstand des Bildschirms", 308, 24, 118, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Label4 = GUICtrlCreateLabel("Zentrierung des Bildschirms", 184, 88, 133, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Group1 = GUICtrlCreateGroup("Deine Postleitzahl", 320, 96, 209, 81)
GUICtrlSetColor(-1, 0xFFFFFF)
Global $plz1 = GUICtrlCreateInput("", 328, 128, 97, 21)
GUICtrlSetData($plz1, IniRead($INI, "PLZ", "Wert", ""))
$Absenden = GUICtrlCreateButton("Absenden", 440, 128, 75, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)

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

If $setting1 = "yes" Then
GUICtrlSetState($modus1, 1)
;~ GUICtrlSetState($modus1, $GUI_DISABLE)
EndIf

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

If $setting2 = "yes" Then
GUICtrlSetState($modus2, 1)
;~ GUICtrlSetState($modus2, $GUI_DISABLE)
EndIf

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

GUISetState(@SW_SHOW, $settinggui)
AdlibRegister("MoveWindow", 20)

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

While 1
Switch GUIGetMsg($settinggui)
Case -3
ExitLoop
Case $cancel
ExitLoop

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

Case $Absenden
IniWrite($INI, "PLZ", "Wert", GUICtrlRead($plz1))
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($Anzeige[0]))

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

$neuePLZ = GUICtrlRead($plz1)
Global $Pcode[1][2] = [[$neuePLZ, ""]]
Update()
Case $modus1
BitAND(GUICtrlRead($modus1), $GUI_CHECKED) ;= $GUI_CHECKED
Case $modus2
BitAND(GUICtrlRead($modus2), $GUI_CHECKED) ;= $GUI_CHECKED

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

Case $save
IniWrite($INI, "Ausrichtung", "Wert", GUICtrlRead($Combo1))
IniWrite($INI, "Slider", "Wert", GUICtrlRead($Slider1))

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

IniWrite($INI, "Abstand", "Wert", GUICtrlRead($sliderabstand))
IniWrite($INI, "Zentrierung", "Wert", GUICtrlRead($sliderzent))
IniWrite($INI, "PLZ", "Wert", GUICtrlRead($plz1))

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

If GUICtrlRead($modus1) = 1 Then
IniWrite($INI, "Setting 1", "run", "yes")
$setting1 = "yes"
Else
IniWrite($INI, "Setting 1", "run", "no")
$setting1 = "no"
EndIf

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

If GUICtrlRead($modus2) = 1 Then
IniWrite($INI, "Setting 2", "run", "yes")
$setting2 = "yes"
Else
IniWrite($INI, "Setting 2", "run", "no")
$setting2 = "no"
EndIf
If $setting1 = "yes" Then
WinSetOnTop("Desktop Wetter", "", 1)
EndIf
If $setting2 = "yes" Then
WinSetOnTop("Desktop Wetter", "", 0)
EndIf
ExitLoop
;Exit

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

EndSwitch
Sleep(10)
WEnd

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

GUIDelete($settinggui)
AdlibUnRegister("MoveWindow")
Sleep(100)

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

GUISetState(@SW_ENABLE, $hGui)
GUISetState(@SW_SHOW, $hGui)

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

_SM_SetVisualStyle(1)
EndFunc ;==>_Einstellungen
Func MoveWindow()
$read1 = GUICtrlRead($sliderzent)
$read2 = GUICtrlRead($sliderabstand)
Switch GUICtrlRead($Combo1)
Case "Rechts"
WinMove("Desktop Wetter", "", @DesktopWidth - 160 - $read2, $read1)
Case "Links"
WinMove("Desktop Wetter", "", $read2, $read1)
EndSwitch
EndFunc ;==>MoveWindow
Func _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyle
Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
#forceref $hWnd, $iMsg, $iwParam
Local $hWndFrom, $iCode, $tNMHDR
$nNotifyCode = BitShift($iwParam, 16)
$nID = BitAND($iwParam, 0x0000FFFF)
$Pos = GUICtrlRead($nID)
If $nID = $Slider1 Then
$Trans = GUICtrlRead($Slider1)
WinSetTrans($hGui, "", $Trans)
EndIf
GUIRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')
Return $GUI_RUNDEFMSG
EndFunc ;==>_WM_NOTIFY
; ============ TRAY ================
Func _Rightclick()
TrayItemDelete($hTrayBlank3)
TrayItemDelete($hTrayBlank2)
TrayItemDelete($hTrayAbout)
TrayItemDelete($hTrayExit)
TrayItemDelete($hTrayAnzeigen)
TrayItemDelete($hTrayEinstellungen)

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

$hTrayEinstellungen = TrayCreateItem("Einstellungen")
TrayItemSetOnEvent($hTrayEinstellungen, "_Einstellungen")
$hTrayAnzeigen = TrayCreateItem("Anzeigen")
TrayItemSetOnEvent($hTrayAnzeigen, "_Doubleclick")
$hTrayBlank3 = TrayCreateItem("")
$hTrayAbout = TrayCreateItem("About")
TrayItemSetOnEvent($hTrayAbout, "_About")
$hTrayBlank2 = TrayCreateItem("")
$hTrayExit = TrayCreateItem("Exit")
TrayItemSetOnEvent($hTrayExit, "_Exit")
EndFunc ;==>_Rightclick
Func _Doubleclick()
If BitAND(WinGetState($hGui), 2) Then
GUISetState(@SW_HIDE, $hGui)
Else
GUISetState(@SW_SHOW, $hGui)
WinActivate($hGui)
EndIf

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

EndFunc ;==>_Doubleclick
; ================================ ABOUT FENSTER ===================================
Func _About()
$AAAbout = FileOpen("about.owb", 0)
$aabout = FileRead($AAAbout)
FileClose($AAAbout)
MsgBox(64, "Über OpenWorldBrowser", $aabout)
EndFunc ;==>_About
Func _SM_GUICtrlCreateLabel($L_Text, $L_X, $L_Y, $L_Width = Default, $L_Height = 17, $L_Style = -1, $L_ExStyle = -1, $L_Color = 0xFFFFFF, $L_BkColor = Default)
Local $L_HWnd = GUICtrlCreateLabel($L_Text, $L_X, $L_Y, $L_Width, $L_Height, $L_Style, $L_ExStyle)
If $L_Color <> Default And $L_Color <> -1 Then GUICtrlSetColor($L_HWnd, $L_Color)
If $L_BkColor <> Default And $L_BkColor <> -1 Then
GUICtrlSetBkColor($L_HWnd, $L_BkColor)
Else
GUICtrlSetBkColor($L_HWnd, -2) ;$GUI_BKCOLOR_TRANSPARENT
EndIf
Return $L_HWnd
EndFunc ;==>_SM_GUICtrlCreateLabel

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

Func LoadImageFrom_BinaryData($BinaryData, $GDIPlus_ShutDown = True)
; $GDIP_IMAGETYPE_BITMAP - Bitmap types: BMP, PNG, GIF, JPEG, TIFF, ICO, EXIF [Return HBITMAP Handle AND imageobject[Bitmap Handle]]
;$GDIP_IMAGETYPE_METAFILE - Metafile types: EMF, WMF [Return HENHMETAFILE Handle (AND\OR) imageobject]
;$GDIP_IMAGETYPE_UNKNOWN [Return new object]
Local $tSize = StringLen($BinaryData) + 1
Local $DATA = DllStructCreate("byte[" & $tSize & "]")
DllStructSetData($DATA, 1, $BinaryData)
Local $uFlags = 0x0002, $dwBytes = DllStructGetSize($DATA)
Local $hMemory = DllCall("Kernel32.dll", "hwnd", "GlobalAlloc", "long", $uFlags, "long", $dwBytes)
If @error Then
Return -1
Else
$hMemory = $hMemory[0]
If $hMemory = 0 Then Return -1
EndIf
Local $hLock = DllCall("Kernel32.dll", "ptr", "GlobalLock", "hwnd", $hMemory)
If @error Then
Return -2
Else
$hLock = $hLock[0]
If $hLock = 0 Then Return -2
EndIf
Local $Destination = $hLock, $Source = DllStructGetPtr($DATA), $Length = $dwBytes
DllCall("Kernel32.dll", "none", "RtlMoveMemory", "ptr", $Destination, "ptr", $Source, "long", $Length)
If @error Then
Return -3
EndIf
Local $fDeleteOnRelease = True, $Status, $ppstm, $Error
Local $Error = DllCall("Ole32.dll", "int", "CreateStreamOnHGlobal", "ptr", $hLock, "int", $fDeleteOnRelease, "ptr*", 0)
If @error Then
Return -4
Else
If Not ($Error[0] = 0) Then Return -4
$ppstm = $Error[3]
EndIf
Local $gdiplusOpen = DllOpen("gdiplus.dll")
Local $ImageType = 0, $ImageWidth = 0, $ImageHeight = 0, $struct_GdiplusStartupInput, $Input, $LPInput, $VOID _
, $LPVOID_token, $Status, $HBITMAP, $HENHMETAFILE, $GdiPlus_Dll_Hwnd, $GdiPlus_Token
$struct_GdiplusStartupInput = _
"int GdiplusVersion;" & _
"int DebugEventCallback;" & _
"int SuppressBackgroundThread;" & _
"int SuppressExternalCodecs;"
$Input = DllStructCreate($struct_GdiplusStartupInput)
DllStructSetData($Input, "GdiplusVersion", 1)
DllStructSetData($Input, "DebugEventCallback", 0)
DllStructSetData($Input, "SuppressBackgroundThread", 0)
DllStructSetData($Input, "SuppressExternalCodecs", 0)
$LPInput = DllStructGetPtr($Input)
$VOID = DllStructCreate("int")
$LPVOID_token = DllStructGetPtr($VOID)
$Status = DllCall($gdiplusOpen, "int", "GdiplusStartup", "ptr", $LPVOID_token, "ptr", $LPInput, "ptr", 0)
If @error Then
Return -5
Else
If Not ($Status[0] = 0) Then Return -5
$LPVOID_token = $Status[1]
EndIf
Local $stream = $ppstm, $image = 0
$Status = DllCall($gdiplusOpen, "int", "GdipLoadImageFromStream", "ptr", $stream, "int*", $image)
If @error Then
Return -6
Else
If Not ($Status[0] = 0) Then Return -6
$image = $Status[2]
EndIf
$Status = DllCall($gdiplusOpen, "int", "GdipGetImageWidth", "hwnd", $image, "int*", 0)
If Not @error Then
If $Status[0] = 0 Then $ImageWidth = $Status[2]
EndIf
$Status = DllCall($gdiplusOpen, "int", "GdipGetImageHeight", "hwnd", $image, "int*", 0)
If Not @error Then
If $Status[0] = 0 Then $ImageHeight = $Status[2]
EndIf
$Status = DllCall($gdiplusOpen, "int", "GdipGetImageType", "hwnd", $image, "int*", 0)
If Not @error Then
Local $CaseMsg = $Status[2]
Select
Case $CaseMsg = 0
$ImageType = "ImageTypeUnknown"
Case $CaseMsg = 1
$ImageType = "ImageTypeBitmap"
$Status = DllCall($gdiplusOpen, "int", "GdipCreateHBITMAPFromBitmap", "hwnd", $image, "int*", 0, "int", 0)
If Not @error Then
if ($Status[0] = 0) Then $HBITMAP = $Status[2]
EndIf
Case $CaseMsg = 2
$ImageType = "ImageTypeMetafile"
Local $metafile = $image
$Status = DllCall($gdiplusOpen, "int", "GdipGetHemfFromMetafile", "hwnd", $metafile, "int*", 0)
If Not @error Then
if ($Status[0] = 0) Then $HENHMETAFILE = $Status[2]
EndIf
EndSelect
EndIf
If $GDIPlus_ShutDown = True Then
DllCall($gdiplusOpen, "int", "GdiplusShutdown", "ptr", $LPVOID_token)
DllClose($gdiplusOpen)
$GdiPlus_Dll_Hwnd = 0
$GdiPlus_Token = 0
Else
$GdiPlus_Dll_Hwnd = $gdiplusOpen
$GdiPlus_Token = $LPVOID_token
EndIf
Dim $ImageArray[2][8]
$ImageArray[0][0] = "imageobject"
$ImageArray[0][1] = "HBITMAP"
$ImageArray[0][2] = "HENHMETAFILE"
$ImageArray[0][3] = "ImageType"
$ImageArray[0][4] = "ImageWidth"
$ImageArray[0][5] = "ImageHeight"
$ImageArray[0][6] = "GdiPlus Dll Hwnd "
$ImageArray[0][7] = "GdiPlus Token"
$ImageArray[1][0] = $image
$ImageArray[1][1] = $HBITMAP
$ImageArray[1][2] = $HENHMETAFILE
$ImageArray[1][3] = $ImageType
$ImageArray[1][4] = $ImageWidth
$ImageArray[1][5] = $ImageHeight
$ImageArray[1][6] = $GdiPlus_Dll_Hwnd
$ImageArray[1][7] = $GdiPlus_Token
Return $ImageArray
EndFunc ;==>LoadImageFrom_BinaryData
Func STATIC_SETBITMAP($hWnd, $HandleImage)
Local $GWL_STYLE = (-16), $SS_BITMAP = 0x0000000E, $SS_ICON = 0x00000003, $STM_SETIMAGE = 0x0172
If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd)
If Not BitAND(_WinAPI_GetWindowLong($hWnd, $GWL_STYLE), $SS_BITMAP) = $SS_BITMAP Then
_WinAPI_SetWindowLong($hWnd, $GWL_STYLE, _WinAPI_GetWindowLong($hWnd, $GWL_STYLE) + $SS_BITMAP)
ElseIf BitAND(_WinAPI_GetWindowLong($hWnd, $GWL_STYLE), $SS_ICON) = $SS_ICON Then
_WinAPI_SetWindowLong($hWnd, $GWL_STYLE, _WinAPI_GetWindowLong($hWnd, $GWL_STYLE) - $SS_ICON)
EndIf
Return _SendMessage($hWnd, $STM_SETIMAGE, 0, $HandleImage)
EndFunc ;==>STATIC_SETBITMAP
Func _World()
$stre = GUICtrlRead($street)
$plz = GUICtrlRead($zip)
$stadt = GUICtrlRead($city)
$aland = GUICtrlRead($land)
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$oData = InetRead($url)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!1")
Exit
EndIf

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

$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!2")
Exit
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", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf

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

$Lat = _StringBetween($sText, "var lat =", ";")
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!4")
Exit
EndIf

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

$Zoom = _StringBetween($sText, "var zoom = ", ";")
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf
If Not $aland = 0 Then
$sZoom = 5
Else
$sZoom = 7
EndIf

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

If Not $stadt = 0 Then
$sZoom = 10
Else
$sZoom = 7
EndIf

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

$sText = StringReplace($sText, $Zoom, $sZoom)
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($sFileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
_IENavigate($IE, @ScriptDir & "/start.html")
EndFunc ;==>_World
Func _Sea()
$stre = GUICtrlRead($street)
$plz = GUICtrlRead($zip)
$stadt = GUICtrlRead($city)
$aland = GUICtrlRead($land)
$url0 = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&address=" & $adr
$url1 = "&street=" & $stre
$url2 = "&zip=" & $plz
$url3 = "&state=" & $stadt
$url4 = "&country=" & $aland
$url = $url0 & $url1 & $url2 & $url3 & $url4
$oData = InetRead($url)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!1")
Exit
EndIf

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

$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!2")
Exit
EndIf
ConsoleWrite("XML " & $xmllon & " " & $xmllat & @CRLF)

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

$hFile = FileOpen($1FileName, 0)
$sText = FileRead($hFile)
FileClose($hFile)
$Lon = _StringBetween($sText, "var lon =", ";")
If IsArray($Lon) Then
$Lon = $Lon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf

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

$Lat = _StringBetween($sText, "var lat =", ";")
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!4")
Exit
EndIf

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

$Zoom = _StringBetween($sText, "var zoom = ", ";")
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!3")
Exit
EndIf
If Not $aland = 0 Then
$sZoom = 5
Else
$sZoom = 7
EndIf

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

If Not $stadt = 0 Then
$sZoom = 10
Else
$sZoom = 7
EndIf

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

$sText = StringReplace($sText, $Zoom, $sZoom)
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($1FileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
_IENavigate($IE, @ScriptDir & "/seastart.html")
EndFunc ;==>_Sea

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

Func _Wohnort()
$Wohnort = InputBox("Ihr Wohnort", "Da Sie das Programm zum ersten mal starten, sind Sie aufgefordert Ihren Wohnort zu schreiben." & @CRLF & @CRLF & "So wird das Programm ihr Persöhnliches Wetter herraus finden und ihren Ort anzeigen!" & @CRLF & @CRLF & "Viel Spaß " & @CRLF & "© Alexander F. (Wetter) & Simon K. (Open World)", "Ihren Wohnort", " ", "360", "260", "-1", "-1")
$urlort = "http://local.yahooapis.com/MapsService/V1/geocode?appid=YD-9G7bey8_JXxQP6rxl.fBFGgCdNjoDMACQA--&city=" & $Wohnort
ClipPut($urlort)
$oData = InetRead($urlort)
$sData = $nBytesRead & @CRLF & @CRLF & BinaryToString($oData)
$xmllon = _StringBetween($sData, "<Longitude>", "</Longitude>")
If IsArray($xmllon) Then
$xmllon = $xmllon[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf

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

$xmllat = _StringBetween($sData, "<Latitude>", "</Latitude>")
If IsArray($xmllat) Then
$xmllat = $xmllat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
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", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf

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

$Lat = _StringBetween($sText, "var lat =", ";")
If IsArray($Lat) Then
$Lat = $Lat[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$Zoom = _StringBetween($sText, "var zoom = ", ";")
If IsArray($Zoom) Then
$Zoom = $Zoom[0]
Else
MsgBox(0, "Fehler", "Es wurde kein Längen oder Breitegrad gefunden! Das Programm wird nun Geschlossen!")
Exit
EndIf
$sZoom = 10
$sText = StringReplace($sText, $Zoom, $sZoom)
$sText = StringReplace($sText, $Lon, $xmllon)
$sText = StringReplace($sText, $Lat, $xmllat)
ConsoleWrite("HTML " & $Lon & " " & $Lat & @CRLF)
$hFile = FileOpen($sFileName, 2)
FileWrite($hFile, $sText)
FileClose($hFile)
EndFunc ;==>_Wohnort

[/autoit]

Auch in diesem Board kann man Dateianhänge machen, PasteBin ist unnötig.

Wenn du schon mit copy & Paste programmierst, solltest du auch die Geduld zum Austesten haben. Ebenso gehört es zum Guten Stil Funktionen, die man aus anderen Skripten (Tuttis) ünernommen hat im Quellcode als solche zu kennzeichnen,

mfg (Auto)Bert

**autoBert**

Hallo diePfeile,

Hallo,

man kan dir am besten helfen, wenn du uns sagst, was du am Ende erreichen willst und was bis jetzt funktioniert (bitte kompletten Code dazu posten, falls vorhanden). Dann man sich Gedanken über den besten Weg dorthin machen.
Üblicherweise werden solche Sachen in INI's gespeichert

mfg (Auto)Bert

**autoBert**

Hallo Oscar ,

danke für den Hinweis (hätte wohl den Eröffnungspost besser lesen sollen). So klappt's:

Spoiler anzeigen

[autoit]

#Include <File.au3>

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

_FolderToZip("C:\Programme\AutoIt3\Deutsche Hilfe\")

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

func _FolderToZip($spath)
;einziger Parameter der Pfad zu dem Ordner der gepackt werden soll mit abschliessenden \
$s_a_ToZip = _FileListToArray($sPath,"*")
for $i = 1 to $s_a_ToZip[0]
$s_a_ToZip[$i] = $sPath & $s_a_ToZip[$i]
Next
_BuildInZIP(StringTrimRight($sPath,1) & ".ZIP",$s_a_ToZip,False,1)
EndFunc

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

;===============================================================================
; Function Name: _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
; Description: Erstellt aus einer Datei od. einem Array von Dateien eine ZIP-Datei
; mit Hilfe der Windows eigenen ZIP-Funktion
; Parameter(s): $sPath Pfad der zu erstellenden ZIP-Datei // Bestehenden ZIP-Datei
; $s_a_ToZip String der Einzeldatei oder Array der zu zippenden Dateien
; // Pfad des Zielordners, in den entpackt werden soll
; $fUnZip=True Entpacken=True, Packen=False (Standard)
; $iIndexBase Index Basis (erstes Element mit Pfad) des übergebenen Arrays (0 od.1)
; $fOverwrite Falls $sPath existiert ==> Überschreiben (Standard=True)
; Return Value(s): Erfolg 1
; Fehler set @error 1 - Überschreiben aus, aber Zieldatei existiert
; 2 - Zieldatei endet nicht auf ".zip"
; 3 - zu komprimierende Datei existiert nicht
; @extended: Anzahl der fehlenden Dateien
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=False, $iIndexBase=1, $fOverwrite=True)
Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
$sPath = FileGetLongName($sPath, 1)
If $fUnZip Then
Local $temp, $objZip
If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
$temp = $objShell.Namespace($s_a_ToZip)
$objZip = $objShell.Namespace($sPath)
$temp.CopyHere($objZip.Items)
Return 1
EndIf
If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1,0,0)
If StringRight($sPath, 4) <> '.zip' Then Return SetError(2,0,0)
For $i = 1 To 18
$sNul &= Chr(0)
Next
$sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
$fh = FileOpen($sPath, 10)
FileWrite($fh, $sZIPHeader)
FileClose($fh)
$objZipOrdner = $objShell.Namespace($sPath)
If Not IsArray($s_a_ToZip) Then
If Not FileExists($s_a_ToZip) Then Return SetError(3,1,0)
$objZipOrdner.CopyHere($s_a_ToZip)
Sleep(1000)
Return 1
EndIf
For $i = $iIndexBase To UBound($s_a_ToZip) -1
If Not FileExists($s_a_ToZip[$i]) Then
$err += 1
ContinueLoop
EndIf
$objZipOrdner.CopyHere($s_a_ToZip[$i])
Sleep(1000)
Next
If $err Then Return SetError(3,$err,0)
Return 1
EndFunc ;==>_BuildInZIP

[/autoit]

mfg (Auto)Bert

**autoBert**

Hallo BugFix,

bin gerade am Testen deiner Func. Bekomme leider folgende Fehlermeldung:

Spoiler anzeigen

Code

>"C:\Programme\AutoIt3\SciTE\AutoIt3Wrapper\AutoIt3Wrapper.exe" /run /prod /ErrorStdOut /in "C:\Programme\AutoIt3\Downloads\BugFix\BuildInZIP.au3" /autoit3dir "C:\Programme\AutoIt3" /UserParams    
+>20:00:49 Starting AutoIt3Wrapper v.2.0.1.24    Environment(Language:0407  Keyboard:00000407  OS:WIN_XP/Service Pack 3  CPU:X86 OS:X86)
>Running AU3Check (1.54.19.0)  from:C:\Programme\AutoIt3
+>20:00:49 AU3Check ended.rc:0
>Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\BugFix\BuildInZIP.au3"    
C:\Programme\AutoIt3\Downloads\BugFix\BuildInZIP.au3 (32) : ==> The requested action with this object has failed.:
$temp.CopyHere($objZip.Items)
$temp.CopyHere($objZip.Items)^ ERROR
->20:00:54 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 7.016

Hier das Skript das diese Meldung verursacht:

Spoiler anzeigen

[autoit]

#Include <File.au3>
#Include <Array.au3>
$s_a_ToZip = _FileListToArray("C:\Programme\AutoIt3\Deutsche Hilfe\","*")
_ArrayDisplay($s_a_ToZip)
_BuildInZIP("C:\Programme\AutoIt3\Deutsche Hilfe.ZIP",$s_a_ToZip,True,1)

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

;===============================================================================
; Function Name: _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=True, $iIndexBase=1, $fOverwrite=True)
; Description: Erstellt aus einer Datei od. einem Array von Dateien eine ZIP-Datei
; mit Hilfe der Windows eigenen ZIP-Funktion
; Parameter(s): $sPath Pfad der zu erstellenden ZIP-Datei // Bestehenden ZIP-Datei
; $s_a_ToZip String der Einzeldatei oder Array der zu zippenden Dateien
; // Pfad des Zielordners, in den entpackt werden soll
; $fUnZip=True Entpacken=True, Packen=False (Standard)
; $iIndexBase Index Basis (erstes Element mit Pfad) des übergebenen Arrays (0 od.1)
; $fOverwrite Falls $sPath existiert ==> Überschreiben (Standard=True)
; Return Value(s): Erfolg 1
; Fehler set @error 1 - Überschreiben aus, aber Zieldatei existiert
; 2 - Zieldatei endet nicht auf ".zip"
; 3 - zu komprimierende Datei existiert nicht
; @extended: Anzahl der fehlenden Dateien
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _BuildInZIP($sPath, $s_a_ToZip, $fUnZip=False, $iIndexBase=1, $fOverwrite=True)
Local $fh, $sNul = '', $sZIPHeader, $objShell = ObjCreate("Shell.Application"), $objZipOrdner, $err = 0
$sPath = FileGetLongName($sPath, 1)
If $fUnZip Then
Local $temp, $objZip
If Not FileExists($s_a_ToZip) Then DirCreate($s_a_ToZip)
$temp = $objShell.Namespace($s_a_ToZip)
$objZip = $objShell.Namespace($sPath)
$temp.CopyHere($objZip.Items)
Return 1
EndIf
If (Not $fOverwrite) And FileExists($sPath) Then Return SetError(1,0,0)
If StringRight($sPath, 4) <> '.zip' Then Return SetError(2,0,0)
For $i = 1 To 18
$sNul &= Chr(0)
Next
$sZIPHeader = Chr(80) & Chr(75) & Chr(5) & Chr(6) & $sNul
$fh = FileOpen($sPath, 10)
FileWrite($fh, $sZIPHeader)
FileClose($fh)
$objZipOrdner = $objShell.Namespace($sPath)
If Not IsArray($s_a_ToZip) Then
If Not FileExists($s_a_ToZip) Then Return SetError(3,1,0)
$objZipOrdner.CopyHere($s_a_ToZip)
Sleep(1000)
Return 1
EndIf
For $i = $iIndexBase To UBound($s_a_ToZip) -1
If Not FileExists($s_a_ToZip[$i]) Then
$err += 1
ContinueLoop
EndIf
$objZipOrdner.CopyHere($s_a_ToZip[$i])
Sleep(1000)
Next
If $err Then Return SetError(3,$err,0)
Return 1
EndFunc ;==>_BuildInZIP

[/autoit]

was mache ich falsch Ich wollte deine Funktion testen, damit ich hier: [ offen ] Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden) helfen kann,

mfg (Auto)Bert

**autoBert**

doch,

BugFix hat im Forum Skripte ZIP - Packen / Entpacken mit Windows eigener Funktion veröffentlicht, schau dir das einfach einmal an,

mfg (Auto)Bert

**autoBert**

Hallo Buraksz,

mach es so:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#region ### START Koda GUI section ### Form=C:\Users\Burak\Desktop\Programme\AutoIt v3\Projekte\Text ver(ent)schlüsseler\Form1.kxf
$Form1 = GUICreate("Text Ver- und Entschlüsseler", 834, 630, 193, 75)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$MenuItem5 = GUICtrlCreateMenuItem("Verstecken", $MenuItem1)
$MenuItem4 = GUICtrlCreateMenuItem("Minimieren", $MenuItem1)
$MenuItem2 = GUICtrlCreateMenuItem("Schließen", $MenuItem1)
$Menu2 = GUICtrlCreateMenuItem("&Einstellungen", -1)
GUISetFont(11, 400, 0, "Calibri")
GUISetBkColor(0x99B4D1)
$Label1 = GUICtrlCreateLabel("Text zum verschlüsseln:", 8, 8, 151, 22)
$Edit1 = GUICtrlCreateEdit("", 8, 40, 817, 105, $ES_WANTRETURN)
GUICtrlSetData(-1, "")
GUICtrlSetCursor(-1, 5)
$Label2 = GUICtrlCreateLabel("Passwort:", 184, 8, 64, 22)
$Input1 = GUICtrlCreateInput("", 248, 8, 121, 26, $ES_PASSWORD)
GUICtrlSetCursor(-1, 5)
$Button1 = GUICtrlCreateButton("Verschlüsseln", 384, 8, 91, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button2 = GUICtrlCreateButton("Leeren", 488, 8, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Label3 = GUICtrlCreateLabel("Text zum entschlüsseln:", 8, 160, 152, 22)
$Label4 = GUICtrlCreateLabel("Passwort:", 185, 160, 64, 22)
$Input2 = GUICtrlCreateInput("", 249, 160, 121, 26, $ES_PASSWORD)
GUICtrlSetCursor(-1, 5)
$Button3 = GUICtrlCreateButton("Entschlüsseln", 385, 160, 91, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button4 = GUICtrlCreateButton("Leeren", 489, 160, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Edit2 = GUICtrlCreateEdit("", 8, 192, 817, 105, $ES_WANTRETURN)
GUICtrlSetCursor(-1, 5)
$Label5 = GUICtrlCreateLabel("Verschlüsselter Text:", 8, 312, 134, 22)
$Edit3 = GUICtrlCreateEdit("", 8, 344, 817, 105, BitOR($ES_READONLY, $ES_WANTRETURN))
GUICtrlSetCursor(-1, 5)
$Label6 = GUICtrlCreateLabel("Entschlüsselter Text:", 8, 464, 132, 22)
$Edit4 = GUICtrlCreateEdit("", 8, 496, 817, 105, BitOR($ES_READONLY, $ES_WANTRETURN))
GUICtrlSetCursor(-1, 5)
$Button5 = GUICtrlCreateButton("Leeren", 488, 312, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button6 = GUICtrlCreateButton("Kopieren", 384, 312, 91, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button7 = GUICtrlCreateButton("Kopieren", 384, 464, 91, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button8 = GUICtrlCreateButton("Leeren", 488, 464, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button9 = GUICtrlCreateButton("Einfügen", 576, 8, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button10 = GUICtrlCreateButton("Einfügen", 576, 160, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button11 = GUICtrlCreateButton("Alles leeren", 736, 8, 83, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
GUISetState(@SW_SHOW, $Form1)
#endregion ### END Koda GUI section ###

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

#region ### START Koda GUI section ### Form=c:\users\burak\desktop\programme\autoit v3\projekte\text ver(ent)schlüsseler\form2.kxf
$Form2 = GUICreate("Einstellungen", 610, 130, 192, 124)
GUISetFont(11, 400, 0, "Calibri")
GUISetBkColor(0x99B4D1)
$Checkbox1 = GUICtrlCreateCheckbox("Allgemeines Passwort festlegen", 8, 8, 217, 17)
$Label7 = GUICtrlCreateLabel("Passwort für alle Verschlüsselungen:", 24, 32, 231, 22)
$Input3 = GUICtrlCreateInput("", 264, 24, 121, 26, $ES_PASSWORD)
GUICtrlSetCursor(-1, 5)
$Label8 = GUICtrlCreateLabel("HotKey für das Anzeigen (nach Verstecken) des Programms:", 8, 64, 372, 22)
$Input4 = GUICtrlCreateInput("F7", 392, 56, 121, 26, $ES_READONLY)
GUICtrlSetCursor(-1, 5)
$Button12 = GUICtrlCreateButton("&Ändern", 528, 56, 75, 25);, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button13 = GUICtrlCreateButton("Speichern", 208, 96, 75, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
$Button14 = GUICtrlCreateButton("Nicht speichern", 296, 96, 107, 25, $WS_GROUP)
GUICtrlSetBkColor(-1, 0x00FFFF)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Input1) = "" Then
MsgBox(0, "Fehler", "Kein Passwort eingetragen!")
ContinueLoop
ElseIf GUICtrlRead($Edit1) = "" Then
MsgBox(0, "Fehler", "Kein Text eingetragen!")
ContinueLoop
Else
GUICtrlSetData($Edit3, _StringEncrypt(1, GUICtrlRead($Edit1), GUICtrlRead($Input1)))
EndIf
Case $Button2
GUICtrlSetData($Input1, "")
GUICtrlSetData($Edit1, "")
Case $Button3
If GUICtrlRead($Input2) = "" Then
MsgBox(0, "Fehler", "Kein Passwort eingetragen!")
;ContinueLoop
ElseIf GUICtrlRead($Edit2) = "" Then
MsgBox(0, "Fehler", "Kein Text eingetragen!")
;ContinueLoop
Else
GUICtrlSetData($Edit4, _StringEncrypt(0, GUICtrlRead($Edit2), GUICtrlRead($Input2)))
EndIf
Case $Button4
GUICtrlSetData($Input2, "")
GUICtrlSetData($Edit2, "")
Case $Button5
GUICtrlSetData($Edit3, "")
Case $Button6
ClipPut(GUICtrlRead($Edit3))
Case $Button7
ClipPut(GUICtrlRead($Edit4))
Case $Button8
GUICtrlSetData($Edit4, "")
Case $Button9
GUICtrlSetData($Edit1, ClipGet())
Case $Button10
GUICtrlSetData($Edit2, ClipGet())
Case $Button11
GUICtrlSetData($Edit1, "")
GUICtrlSetData($Edit2, "")
GUICtrlSetData($Edit3, "")
GUICtrlSetData($Edit4, "")
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
Case $MenuItem5
GUISetState(@SW_HIDE, $Form1)
Case $MenuItem4
GUISetState(@SW_MINIMIZE, $Form1)
Case $MenuItem2
Exit
Case $Menu2
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form2)
EndSwitch
Case $Form2
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Checkbox1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
GUICtrlSetState($Input3, $GUI_ENABLE)
GUICtrlSetState($Label7, $GUI_ENABLE)
Else
GUICtrlSetState($Input3, $GUI_DISABLE)
GUICtrlSetState($Label7, $GUI_DISABLE)
EndIf
Case $Button12
ConsoleWrite("Button12" & @CRLF)
MsgBox(0, "", "")
EndSwitch
EndSwitch
WEnd

[/autoit]

und es klappt.

Zitat von aus Hilfe zu switch...case

Ein Ausdruck, welcher einen Wert zurückgibt. Der Wert dieses Ausdruckes wird dann mit jedem Fall (case) verglichen, bis eine Übereinstimmung gefunden wurde. Dieser Ausdruck wird für jeden Durchlauf der Switch-Struktur genau ein Mal berechnet.

. So wie du den switch....case aufgebaut hattest, ist schon vorher ein Bedingung (checked oder unchecked) erfüllt gewesen., es wurde also gar nicht mehr auf nachfolgende Bedingungen überprüft, ansonsten (bis auf die Variablennamen, da bevorzuge ich eindeutige Namen z.B. $idbtnChange) schöner sauberer Programmierstil,

mfg (Auto)Bert

**autoBert**

Hallo n00b69,

meine Glaskugel ist defekt Wie soll man ohne den Inhalt der Variablen zu kennen, erkennen wo der Fehler liegt. Poste also bitte

das komplette Skript
die dazugeörigen Ini-Files
eine genaue Beschreibung, was du erreichen möchtest (Reihenfolge der zu öffnenden URL's)

mfg (Auto)Bert

**autoBert**

Hallo AntiSpeed,

nach 64 Minuten schon pushen, wird in diesem Forum gar nicht gerne gesehen und du solltest deinem Namen zu Ehre dich etwas mehr in Geduld üben.
Deine speziellen Frage sieht verdächtig nach etwas aus, was unseren Forenregeln widerspricht. Falls du denkst, dass der Verdacht unbegründet ist, erkläre bitte genau, wozu das Skript dienen soll.

mfg (Auto)Bert

**autoBert**

Hallo nono,

so sollte es klappen, wenn du deine eigenen Angaben entsprechend anpasst:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>

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

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

;##################################
; Variables
;##################################
$SmtpServer = "smtp.web.de" ; address for the smtp-server to use - REQUIRED
$FromName = "nono" ; name from who the email was sent
$FromAddress = "nono@web.de" ; address from where the mail should come
$ToAddress = "########" ; destination address of the email - REQUIRED
$AttachFiles = "" ; the file you want to attach- leave blank if not needed
$CcAddress = "" ; address for cc - leave blank if not needed
$BccAddress = "" ; address for bcc - leave blank if not needed
$Importance = "Normal" ; Send message priority: "High", "Normal", "Low"
$Username = "nono@web.de" ; username for the account used from where the mail gets sent - REQUIRED
$Password = "nonosPasswort" ; password for the account used from where the mail gets sent - REQUIRED
$IPPort = 587 ; port used for sending the mail normaly 25
$ssl = 0 ; enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465 ; GMAIL port used for sending the mail
;~ $ssl=1 ; GMAILenables/disables secure socket layer sending - put to 1 if using httpS

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

#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("#######", 501, 357, 192, 124)
$Pic1 = GUICtrlCreatePic(@ScriptDir & "\########", 0, 0, 500, 356)
GUICtrlSetState(-1, $GUI_DISABLE)
$Label1 = GUICtrlCreateLabel("To Adress", 40, 24, 100, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Subject", 40, 64, 69, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Body", 40, 104, 124, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("########", 40, 144, 198, 24)
GUICtrlSetFont(-1, 13, 400, 0, "MS Sans Serif")
$Input1 = GUICtrlCreateInput("", 256, 24, 225, 21)
$Input2 = GUICtrlCreateInput("", 256, 64, 225, 21)
$Input3 = GUICtrlCreateInput("", 256, 104, 225, 21)
$Input4 = GUICtrlCreateInput("", 256, 144, 225, 21)
$Button1 = GUICtrlCreateButton("Senden", 128, 200, 235, 65)
GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif")
$Progress1 = GUICtrlCreateProgress(8, 312, 478, 17)
$Button2 = GUICtrlCreateButton("Credits", 400, 224, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$ToAddress = GUICtrlRead($Input1) ; destination address of the email - REQUIRED <==========???????
$Subject = GUICtrlRead($Input2) ; subject from the email - can be anything you want it to be
$Body = GUICtrlRead($Input3) ; the messagebody from the mail - can be left blank but then you get a blank mail
$rc = _INetSmtpMailCom($SmtpServer, $FromName, $FromAddress, $ToAddress, $Subject, $Body, $AttachFiles, $CcAddress, $BccAddress, $Importance, $Username, $Password, $IPPort, $ssl)
If @error Then
MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
EndIf
EndSwitch
WEnd

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

;##################################
; Script
;##################################

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

;============================================================================================================================================

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

;##################################
; Include
;##################################

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

;http://www.autoitscript.com/forum/index.ph…ndpost&p=166575
; The UDF
Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Importance = "Normal", $s_Username = "", $s_Password = "", $IPPort = 25, $ssl = 0)
Local $objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body, "<") And StringInStr($as_Body, ">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $x = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull($S_Files2Attach[$x])
ConsoleWrite('@@ Debug(62) : $S_Files2Attach = ' & $S_Files2Attach & @LF & '>Error code: ' & @error & @LF) ;### Debug Console
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment($S_Files2Attach[$x])
Else
ConsoleWrite('!> File not found to attach: ' & $S_Files2Attach[$x] & @LF)
SetError(1)
Return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
If Number($IPPort) = 0 Then $IPPort = 25
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $ssl Then
$objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Set Email Importance
Switch $s_Importance
Case "High"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"
Case "Normal"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Normal"
Case "Low"
$objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "Low"
EndSwitch
$objEmail.Fields.Update
; Sent the Message
$objEmail.Send
If @error Then
SetError(2)
Return $oMyRet[1]
EndIf
$objEmail = ""
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description, 3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

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

mfg (Auto)Bert

**autoBert**

Hallo nono,

für web.de muss $IPPort = 587 gesetzt sein. Du scheinst aber auch noch einen groben Syntax-Fehler zu haben, denn dies (am Ende des Skriptes)

[autoit]

EndFunc

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

EndSwitch
WEnd

[/autoit]

darf in dieser Reihenfolge nicht vorkommen.
Schau dir auch [gelöst] Daten an Email senden
an. Im gleichen Thread in Post #14 sind weitere Informationen

mfg (Auto)Bert

**autoBert**

Hallo DarkOwning,

hier ein Beispiel um eine INI im TreeView anzeigen zulassen:

Spoiler anzeigen

[autoit]

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiTreeView.au3>
#include <GuiImageList.au3>
#include <WindowsConstants.au3>

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

Opt('MustDeclareVars', 1)
Opt("GUIOnEventMode", 1)

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

$Debug_TV = False ; Check ClassName being passed to functions, set to True and use a handle to another control to see it work

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

Global $hGui, $hImage, $hStateImage, $hTreeView, $hbtnInfo, $iItemIndex = -99, $iItemIndexOld = 0, $aSectionNames, $aSection

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

main()
Func main()

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

Local $hItem[10], $hChildItem[99], $iYItem = 0, $sIni = @ScriptDir & "\Test.ini"
Local $iStyle = BitOR($TVS_TRACKSELECT, $TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS)

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

GUICreate("TreeView Ini Amzeiger", 400, 350)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

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

$hTreeView = GUICtrlCreateTreeView(2, 2, 396, 268, $iStyle, $WS_EX_CLIENTEDGE)
Global $sSuche = "Standard=100" ;muss natürlich per Einagbefelder erzeugt werden
$hbtnInfo = GUICtrlCreateButton("&Suchen", 2, 320, 100, 25)
GUICtrlSetOnEvent(-1, "_Info")
GUISetState()

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

$aSectionNames = IniReadSectionNames($sIni)
_GUICtrlTreeView_BeginUpdate($hTreeView)
For $x = 1 To $aSectionNames[0]
$hItem[$x - 1] = _GUICtrlTreeView_Add($hTreeView, 0, $aSectionNames[$x]);, $x-1), 4, 5)
$aSection = IniReadSection($sIni, $aSectionNames[$x])
For $y = 1 To $aSection[0][0]
$hChildItem[$iYItem] = _GUICtrlTreeView_AddChild($hTreeView, $hItem[$x - 1], $aSection[$y][0] & "=" & $aSection[$y][1]);, 0, 3)
$iYItem += 1
Next
Next
_GUICtrlTreeView_EndUpdate($hTreeView)

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

_GUICtrlTreeView_SelectItem($hTreeView, $hItem[0])
$iItemIndex = 0
; Idle-Loop
While 1
Sleep(1000)
WEnd
EndFunc ;==>main

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

Func _Exit()
Exit
EndFunc ;==>_Exit

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

Func _Info()
Local $iItemIndex = _GUICtrlTreeView_FindItem($hTreeView, $sSuche)
ConsoleWrite($iItemIndex & @CRLF)
MsgBox(0, "Information Child" & $iItemIndex, _GUICtrlTreeView_GetText($hTreeView, $iItemIndex), 0, $hGui)
$iItemIndex = _GUICtrlTreeView_GetParentHandle($hTreeView, $iItemIndex)
ConsoleWrite($iItemIndex & @CRLF)
MsgBox(0, "Information Parent" & $iItemIndex, _GUICtrlTreeView_GetText($hTreeView, $iItemIndex), 0, $hGui)
EndFunc ;==>_Info

[/autoit]

Die Suche ist bist jetzt noch "fest verdrahtet" auf ein bestimmtes Item. Das musst du natürlich noch mit 2 Input-Conbtrols die du zusammenstringst lösen, aber das ist ja das kleinste Problem. Hier noch die dazugehörige INI (weil "fest verdrahtet"):

Spoiler anzeigen

Code

[Pos]
x=0
y=0
width=768
height=485
PIC=
Tab=1
[DL]
Col[0]=60
Col[1]=480
Col[2]=48
Col[3]=150
Col[4]=68
Col[5]=66
[Player]
Col[0]=572
Col[1]=12
Col[2]=83
[Volume]
Standard=100
JaYT-D=22
[speichern]
MP3=1
MP4=1
MPeg=1
JPG=1
Pfad=C:\Programme\AutoIt3\MyProjects\MP3_Batchdownloader\Downloaded
[Update]
Date=158
Automatisch=1
Status=Update OK

Alles anzeigen

mfg (Auto)Bert

Beiträge von autoBert

Counter

Wecker

InetRead Problem (mal wieder)

Script beendet sich nicht sondern startet immer wieder neu.

Textfile filtern in ein neues File

java applet window controlsend

Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

InetRead Problem (mal wieder)

einfaches dauerhaftes speichern von optionen

ZIP - Packen / Entpacken mit Windows eigener Funktion

ZIP - Packen / Entpacken mit Windows eigener Funktion

Ordner aus einem Pfad ausfiltern und isolieren (batch umsetzung vorhanden)

Button(s) im zweiten GUI funktioniert/funktionieren nicht

Schleifen frage

PixelGetColor Frage! - Keine NoobFrage

Problem mit E-mail

Problem mit E-mail

Mit Key & Value die Section einer .ini herausfinden