Beiträge von Schnuffel

**Schnuffel**

komisch, bei mir geht das auch so ?!?!

Edit:
da war wohl gestern abend der Wurm bei mir drin. Sorry.
Das konnte so gar nicht gehen, da es die referenzierte Datei gar nicht gab.
Ich habe jetzt bei wachem Verstand das Script auf das notwendige gekürzt und natürlich getestet.

Spoiler anzeigen

[autoit]

Global $ping = "http://www.autoit.de/"

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

_InternetDateienDownloaden("http://translation.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip")

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

;Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
Func _InternetDateienDownloaden($download)

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

;Prüft ob Verbindung zum Internet besteht
If Ping($ping,500) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 10
Exit 10
EndIf

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

;Dateien werden herruntergeladen

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

;data.txt wird heruntergeladen

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

;Prüft ob die Datei heruntergeladen wurde

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

If InetGet($download,@DesktopDir&"\test.zip",1,1) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht heruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 11
Exit 11
EndIf
EndFunc

[/autoit]

**Schnuffel**

alles Gute Euch beiden ...

**Schnuffel**

Naja, mein ich ja

so, hab das mal etwas komprimiert ...

Spoiler anzeigen

[autoit]

$default = Default
Global $ftp = "http://www.autoit.de/"
Global $download = "autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip"
_InternetDateienDownloaden($ftp)

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

;Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
Func _InternetDateienDownloaden($ftp)

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

;Prüft ob Verbindung zum Internet besteht

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

If Ping($ftp,500) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")

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

;Exit Code Tabelle Nr. 10
Exit 10
EndIf

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

;Dateien werden herruntergeladen

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

;data.txt wird heruntergeladen

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

;Prüft ob die Datei herruntergeladen wurde
If InetGet($ftp & $download,"test.zip",1,1) = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")
;Exit Code Tabelle Nr. 11
Exit 11
EndIf
EndFunc

[/autoit]

**Schnuffel**

Du musst bei InetGet die Option angeben, dass die Funktion nicht warten soll, bis die Datei geladen ist, da ansonsten die Abfrage nach $default schneller kommt als die Wertzuweisung.
siehe:

Spoiler anzeigen

[autoit]

$default = Default
Global $ftp = "http://www.autoit.de/"

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

_InternetDateienDownloaden($ftp)

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

Global $download = "autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip"

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

;Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
Func _InternetDateienDownloaden($ftp)

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

;Prüft ob Verbindung zum Internet besteht
$default = Ping($ftp,500)
MsgBox(0, '', $default)
If $default <> 0 Then
;Fortsetzen des Programmes ohne weitere Einstellungen
sleep(1)

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

Else
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")

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

;Exit Code Tabelle Nr. 10
Exit 10
EndIf

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

;Dateien werden herruntergeladen

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

;data.txt wird heruntergeladen
$default = InetGet("http://www.autoit.de/autoitinfo/hilfedateien/AutoIt-Hilfe-Deutsch-3.3.0.0-Stand-16_09_09.zip","test.zip",1,1)
MsgBox(0, '', $default)
;Prüft ob die Datei herruntergeladen wurde
If $default = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")

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

;Exit Code Tabelle Nr. 11
Exit 11
EndIf

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

EndFunc

[/autoit]

Edit: nicht warten soll

**Schnuffel**

also bei mir kommt die Pingzeit zurück ...

und wenn es unter https://autoit.de/www.google.de/ die Datei data.txt nicht gibt, dann kann die auch nicht geladen werden

**Schnuffel**

schau mal das Ergebnis meiner MsgBox an und denk darüber nach ...

Spoiler anzeigen

[autoit]

$default = Default
Global $ftp = "http://www.google.de/"
_InternetDateienDownloaden($ftp)

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

;Dateien die aus dem Internet herruntergeladen werden sollen, werden in dieser Funktion eingebettet.
Func _InternetDateienDownloaden($ftp)

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

;Prüft ob Verbindung zum Internet besteht
$default = Ping($ftp,500)
MsgBox(0, '', $default)
If $default Then
;Fortsetzen des Programmes ohne weitere Einstellungen
sleep(1)

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

Else
;Fehlermeldung für User
MsgBox(48,"Fehler","Sie haben keine Verbindung zum Internet!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")

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

;Exit Code Tabelle Nr. 10
Exit 10
EndIf

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

;Dateien werden herruntergeladen

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

;data.txt wird heruntergeladen
$default = InetGet($ftp & 'data.txt',@TempDir & "/data.txt",1)

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

;Prüft ob die Datei herruntergeladen wurde
If $default = 0 Then
;Fehlermeldung für User
MsgBox(48,"Fehler","Wichtige Dateien konnten nicht herruntergeladen werden!" & @CRLF & "Deshalb sind wir gezwungen das Programm zu beenden.")

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

;Exit Code Tabelle Nr. 11
Exit 11
EndIf

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

EndFunc

[/autoit]

**Schnuffel**

ich wünsch Dir alles, alles Gute

**Schnuffel**

oder so:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Herunterfahren", 362, 155, 236, 123, "", $WS_EX_TOOLWINDOW)
$Radio5 = GUICtrlCreateRadio("&Countdown", 32, 74, 87, 17)
$Button1 = GUICtrlCreateButton("&Initialisieren", 130, 10, 100, 30)
$Button2 = GUICtrlCreateButton("&Schließen", 230, 10, 100, 30)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$counter = 0
$input = 0
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $Button2
Exit
Case $msg = $Button1
If GUICtrlRead($Radio5) = $GUI_CHECKED Then
;Für den Countdown zuständig
$progress = GUICtrlCreateProgress(0, 0, -1, -1)
$hProgress = GUICtrlGetHandle($progress)
_GUICtrlStatusBar_EmbedControl($StatusBar1, "", $hProgress)
GUICtrlSetData($progress, 0)
$r = GUICtrlRead($input)
For $i = 1 To 100
GUICtrlSetData($progress, $i)
Sleep($r*10)
Next
MsgBox(0, "Fertig!", "Hat geklappt!" &@CRLF& "Zeitdauer: "&$r & " Sek.")
Exit
;Ende des Countdown-Bereichs
EndIf
;Buttons auf Klick abfragen start
Case $msg = $Radio5
$counter = $counter + 1
$input = GUICtrlCreateInput("", 140, 74, 50, 20)
$Updown = GUICtrlCreateUpdown($input)
EndSelect
WEnd

[/autoit]

**Schnuffel**

26

**Schnuffel**

ich denke so:

Spoiler anzeigen

[autoit]

$Text = "hihihi"
$count = StringLen ($Text)
For $i = 0 to $count
ConsoleWrite(StringMid($Text,1,$i)&@CRLF)
Next

[/autoit]

**Schnuffel**

Der_Doc meinte eigentlich, dass Du Dein Script in die "Geplanten_Task" eintragen sollst, damit es um 03:50Uhr startet.
Was Dein Script dann macht bleibt dann Dir überlassen ...

*Edit: Schreibfehler korrigiert

**Schnuffel**

Deinen Code wird wohl so niemand lesen wollen...

**Schnuffel**

einfach mal die Suche-Funktion benutzen:http://www.autoit.de/index.php?page=Thread&postID=48404#

**Schnuffel**

oder einfach so:

Spoiler anzeigen

[autoit]

#Include <GUIMenu.au3>

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

$hForm = GUICreate('MyGUI')
$hMenu = _GUICtrlMenu_GetSystemMenu($hForm)
_GUICtrlMenu_EnableMenuItem($hMenu, $SC_CLOSE, $MF_GRAYED, False)
GUISetState()

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

Do
Until GUIGetMsg() = -3

[/autoit]

**Schnuffel**

kannst aber auch gerne meine UDF verwenden...
Link

**Schnuffel**

versuch das mal mit IniReadSection & _ArraySort

**Schnuffel**

deine .ini sollte so aussehen,

[autoit]

[Latein]
sol=die Sonne

[/autoit]

bei mir funktioniert es ohne Pfadangabe, wenn die ini im Scriptpfad liegt.

Spoiler anzeigen

[autoit]

$a = InputBox ("Vokabel","Vokabel eingeben")
$input_ini = IniRead("test.ini", "Latein", $a&" ", "Gibts (noch) nicht")
MsgBox(0,"",$input_ini)

[/autoit]

**Schnuffel**

ich hätte es so gelöst:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 871, 221, 191, 137)
GUISetBkColor(0x000000)
$Pic1 = GUICtrlCreatePic("0.bmp", 0, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("0.bmp", 140, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("0.bmp", 300, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("0.bmp", 440, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("0.bmp", 600, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic6 = GUICtrlCreatePic("0.bmp", 740, 0, 130, 220, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label1 = GUICtrlCreateLabel(":", 272, 60, 23, 95)
GUICtrlSetFont(-1, 72, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel(":", 571, 60, 23, 111)
GUICtrlSetFont(-1, 72, 400, 0, "Arial")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Global $pics[10] = ["0.bmp","1.bmp","2.bmp","3.bmp","4.bmp","5.bmp","6.bmp","7.bmp","8.bmp","9.bmp"]
Global $TimeH_old, $TimeM_old, $TimeS_old,$TimeH, $TimeM, $TimeS
AdlibEnable("time_aktuell",1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
Sleep(10)
WEnd

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

Func time_aktuell()
$TimeH = @Hour
$TimeM = @Min
$TimeS = @Sec
If $TimeH_old <> $TimeH Then
GUICtrlSetImage($Pic1,$pics[StringLeft($TimeH,1)])
GUICtrlSetImage($Pic2,$pics[StringRight($TimeH,1)])
EndIf
If $TimeM_old <> $TimeM Then
GUICtrlSetImage($Pic3,$pics[StringLeft($TimeM,1)])
GUICtrlSetImage($Pic4,$pics[StringRight($TimeM,1)])
EndIf
If $TimeS_old <> $TimeS Then
GUICtrlSetImage($Pic5,$pics[StringLeft($TimeS,1)])
GUICtrlSetImage($Pic6,$pics[StringRight($TimeS,1)])
EndIf
$TimeH_old = $TimeH
$TimeM_old = $TimeM
$TimeS_old = $TimeS
EndFunc

[/autoit]

**Schnuffel**

zum Beispiel so:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
GUICreate('')
$Button1 = GUICtrlCreateButton("1",10,10,100,20)
$Button2 = GUICtrlCreateButton("2",10,30,100,20)
$Button3 = GUICtrlCreateButton("3",10,50,100,20)
GUISetState()
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1, $Button2, $Button3
MsgBox(0, '', "Test")
EndSwitch
WEnd

[/autoit]

**Schnuffel**

von BugFix:

Zitat

Da muß ich meinem Vorredner gleich mal widersprechen.

da muss ich gleich mal was richtig stellen
In der Philosophie kann ich eine Meinung haben , aber widersprechen kann ich eigentlich nicht.
Dies würde bedingen, dass der andere Recht hat.
Auf eine Diskussion auf Basis von "Recht haben" will ich mich bei diesem Thema nicht einlassen.
Sorry

vonBugFix:

Zitat

... so zeugt es nur mal wieder von der nicht enden wollenden Selbstüberschätzung ...

genau diese Einstellung bringt dich an den Punkt,
Dinge abzustreiten, von denen Du nicht wissen kannst, ob es sie gibt..
Ich lasse zumindest (da ich es nicht besser weiß) offen, was es gibt und was nicht.

von GtaSpider:

Zitat

Würde mich auch mal interessieren was du als Seele definierst. Meinst du damit das Bewusstsein?

Nein, das Bewusstsein hat meiner Meinung nach nichts mit der Seele zu tun.
Wie BugFix richtig sagte, dient das Bewusstsein einzig der Möglichkeit sich seiner selbst bewusst zu sein und Entscheidungen zu treffen (Ratio usw...)

Die Seele ist (meiner Meinung nach) etwas, dass nicht an einen Körper (stofflich) gebunden ist.
Manche (wissenschaftlich angehauchte) bezeichnen dies als Energiefeld oder auch Aura.
Ich bin eher der Meinung, das das eine Art Lebensform ist, die ohne stoffgebundenen Körper existieren kann. (Leider bisher nicht beweisbar, was die Thematik so ungemein schwierig macht)
In unseren menschl. Körpern ist das wie eine Symbiose.
Dass wir Menschen (dabei meine ich als Mensch die Summe aller Seelen in menschl. Körpern) nichts über den Ablauf wissen, warum wir (Seelen) in einem stofflichen Körper gebunden sind, ist wohl gewollt so.
Stell Dir vor, du wüsstest, dass Du eigentlich nicht sterben kannst, da Deine Seele unverwundbar ist. Wie würdest Du mit Deinem Leben umgehen?
Ich schweife aber schon zu weit aus. Jetzt würde es Paranormal oder Religiös werden.
Ich denke das gehört nicht mehr hier her...

von Understood:

Zitat

... oder durch Komplikationen mit einem anderen Menschen.

schöner Spruch
In diesem Sinne:
Liebet Euch und seid nett zueinander denn:
Man sieht sich immer zweimal im Leben (oder im nächsten ...)

Beiträge von Schnuffel

Funkion funkioniert nicht wie gewollt

Doppelgeburtstag

Funkion funkioniert nicht wie gewollt

Funkion funkioniert nicht wie gewollt

Funkion funkioniert nicht wie gewollt

Funkion funkioniert nicht wie gewollt

Geburtstag von Raupi

Progress in Statusleiste aktualisieren

[spiel] Autoit.de kann nicht bis 100 zählen

[String] Programm funktioniert nicht...

Um x Uhr Skript starten. Wie?

GuiCtrlSetOnEvent / GuiSetOnEvent ()

Verzeichnis downloaden

GUI control Close [X] Deaktivieren

Ergänzung für _INetSmtpMail

Ini Datei Ergebnisse sortieren --- Befehl vorhanden?

[Iniread] Keiner mag lesen!

warum flackern die Zahlen?

Mehrere Buttons gleichzeitig Abfragen -> SELBE Aktion

Wiedergeburt?!