Hallo Ilse,
das Problem liegt daran das die Rückgabe von GUICtrlRead($txtPage) als String interpretiert wird (warum auch immer). Wenn du also Zeile 41 so abwandelst funktioniert es:
[autoit]$GeheZu = int(GUICtrlRead($txtPage))
[/autoit]mfg autoBert
Falls das hilfreich ist: der Wertetyp ist 2-byte.
Mindestens genauso hilfreich wäre der Name der Anwednung,
mfg autoBert
Exe-Dateien mit Editor-Programmen zu öffnen ergibt keinen Sinn,
mfg autoBert
Hallo Julien,
dann stelle doch einfach einmal die Datei ein, damit man sehen kann welche Codierung verwendet wird,
mfg autoBert
Hallo Scheilo,
am einfachsten ist es zu lösen wenn du für die ControlId's und die Beschriftung derCheckBoxen ein 2D-Array verwendest:
#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]Opt('MustDeclareVars', 1)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Global $msg, $idChk[6][2], $idBtnOK
$idChk[0][1] = "Ich bin die erste"
$idChk[1][1] = "Zweite, ausserdem sind 3 und 4 von mir abhängig"
$idChk[2][1] = "dritte"
$idChk[3][1] = "vierte"
$idChk[3][1] = "fünfte"
$idChk[5][1] = "letzte, wie immer"
GUICreate("Meine GUI abhängigen Checkboxen und abhängiger Button") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
for $i = 0 to 5
$idChk[$i][0] = GUICtrlCreateCheckbox($idChk[$i][1], 10, 10+$i*25, 320, 20)
Next
$idBtnOK = GUICtrlCreateButton("&OK",10,170)
_CheckOK()
GUISetState() ; Zeigt eine Dialogbox mit 1 Checkbox an
; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
case $idChk[0][0] to $idChk[5][0]
_CheckOK()
EndSwitch
WEnd
Func _CheckOK()
Local $bOK = False
for $i = 0 to 5
if BitAND(GUICtrlRead($idChk[$i][0]),$GUI_CHECKED) Then
$bOK =True
ExitLoop
EndIf
Next
if $bOK Then
GUICtrlSetState($idBtnOK,$GUI_ENABLE)
Else
GUICtrlSetState($idBtnOK,$GUI_DISABLE)
EndIf
if BitAND(GUICtrlRead($idChk[1][0]),$GUI_CHECKED) Then
GUICtrlSetState($idChk[2][0],$GUI_ENABLE)
GUICtrlSetState($idChk[3][0],$GUI_ENABLE)
Else
GUICtrlSetState($idChk[2][0],$GUI_DISABLE)
GUICtrlSetState($idChk[3][0],$GUI_DISABLE)
EndIf
EndFunc
mfg autoBert
Auch von mir die besten Wünsche, besonders Gesundheit, Glück und Erfolg in allen Lebenslagen. Mach eine grosse 
und halte dich von Koalas fern
autoBert
Hallo famaro,
schau dir https://autoit.de/index.php?page…4707#post144707 an, mit dem dortigen Skript inkl. UDF und den Daten aus Post #14 kann ich problemlos Daten über Hotmail versenden (gerade nochmal getestet).
mfg autoBert
Hallo Julien,
ich hab das Skript mal abgeändert:
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <File.au3>
#include <Array.au3>
#include <Crypt.au3>
#include <Inet.au3>
HttpSetUserAgent("Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.2.7) Gecko/20100713 Firefox/3.6.16")
$Form1 = GUICreate("Miniloader", 615, 294, 186, 214)
$ProgressGesamt = GUICtrlCreateProgress(8, 232, 598, 17)
$ProgressEinzeln = GUICtrlCreateProgress(8, 272, 598, 17)
$LabelDatei = GUICtrlCreateLabel("Datei", 8, 256, 445, 17)
$LabelTotalfortschritt = GUICtrlCreateLabel("Totalfortschritt", 8, 208, 443, 17)
Global $WebspaceAdresse = "MeinWebspaceName", $ProgressStatusGesamt = 0, $PDatalist = @ScriptDir & "\Data\DataList.txt", $Lines
GUISetState(@SW_SHOW)
#Region Datalist Überprüfung und gegebenenfalls Aktualisierung
If InetGetSize($WebspaceAdresse & "DataList.txt") <> FileGetSize(@ScriptDir & "\Data\DataList.txt") Then
InetGet($WebspaceAdresse & "DataList.txt", @ScriptDir & "\Data\DataList.txt")
If @error Then MsgBox(64, "Fehler", "Fehler beim herunterladen der Datalist.txt von :" & $WebspaceAdresse & "DataList.txt")
ElseIf Not FileExists(@ScriptDir & "\Data\DataList.txt") Then
InetGet($WebspaceAdresse & "DataList.txt", @ScriptDir & "\Data\DataList.txt")
If @error Then MsgBox(64, "Fehler", "Fehler beim herunterladen der Datalist.txt von :" & $WebspaceAdresse & "DataList.txt")
EndIf
#EndRegion Datalist Überprüfung und gegebenenfalls Aktualisierung
#Region Datalist.txt öffnen und lesen
$OpenDatalist = FileOpen(@ScriptDir & "\Data\DataList.txt")
$ReadDatalist = FileRead($OpenDatalist)
#EndRegion Datalist.txt öffnen und lesen
#Region Gesamtbytes ermitteln und Md5 Hashes überprüfen
If StringInStr($ReadDatalist, 'Gesamt: "') Then
$BytesGesamt = _StringBetween($ReadDatalist, 'Gesamt: "', '"')
ConsoleWrite("Gesamtbytes : " & $BytesGesamt[0] & @CRLF)
_FileReadToArray($PDatalist, $Lines)
$iDowbloaded = 0 ;<=============bereits heruntergeladene Bytes initialisieren
For $i = 1 To _FileCountLines($PDatalist) - 1
$SplitLine = StringSplit($Lines[$i], '|')
GUICtrlSetData($LabelDatei, "Überprüfen von " & $SplitLine[1])
If Not FileExists($SplitLine[1]) Or Not (_Crypt_HashFile($SplitLine[1], $CALG_MD5) == $SplitLine[2]) Then
Local $DownloadData = InetGet($WebspaceAdresse & $SplitLine[1], @ScriptDir & '\' & $SplitLine[1], 0, 1)
If @error Then MsgBox(64, "Fehler", "Die Datei " & $SplitLine[1] & " konnte nicht heruntergeladen werden.")
GUICtrlSetData($LabelDatei, "Downloaden von " & $SplitLine[1])
Do
GUICtrlSetData($ProgressEinzeln, (100 / $SplitLine[3]) * InetGetInfo($DownloadData, 0))
;$ProgressStatusGesamt += (100/$BytesGesamt)*InetGetInfo($DownloadData)
$ProgressStatusGesamt = 100 / $BytesGesamt[0] * (InetGetInfo($DownloadData, 0) + $iDowbloaded) ;<=============
GUICtrlSetData($ProgressGesamt, $ProgressStatusGesamt)
Until InetGetInfo($DownloadData, 2)
GUICtrlSetData($ProgressEinzeln, 100)
;Else
;$ProgressStatusGesamt += (100/$BytesGesamt)*$SplitLine[3]
;GuiCtrlSetData($ProgressGesamt,$ProgressStatusGesamt)
EndIf
$iDowbloaded += $SplitLine[3] ;<============= zu bereits heruntergeladenen Btes dazuzählen
$ProgressStatusGesamt = 100 / $BytesGesamt[0] * $iDowbloaded ;<=============
GUICtrlSetData($ProgressGesamt, $ProgressStatusGesamt)
Next
GUICtrlSetData($LabelTotalfortschritt, "Patchvorgang erfolgreich abgeschlossen")
GUICtrlSetData($LabelDatei, "")
While 1
Sleep(20)
WEnd
Else
ConsoleWrite($ReadDatalist & @CRLF)
MsgBox(64, "Fehler", "Es fehlt die Angabe der Gesamtbytes in der DataList.txt")
EndIf
die Zeilen in denen ich Änderungen vorgenommen bzw.eingefügt habe sind mit ;<=== gekennzeichnet
mfg autoBert
Gibt es da eine Möglichkeit?
Ja, benutze einfach in einer eigenen Func die String...-Funktionen um Datum/Zeit in das Format "YYYY/MM/DD HH:MM:SS" umzuwandeln.Danach kannst du mit
_DateDiff
[/autoit]die Differenz zu
[autoit]_NowCalc
[/autoit]ermitteln. Wenn die Differenz innerhalb einer gewissen Toleranz ist gibst du mit Return 1 ansonsten 0 zurück,
mfg autoBert
Edit: autobert dein Beispiel ist net so sehr um die Ecke gedacht wie meins.
Es geht aber auch ohne eine Childgui.
Bei meinem Beispiel muss er noch herausfinden wie die Haupt-Gui den Focus nicht verliert. Ich weiss dass es geht dass die Titelleiste nicht inaktiv wird, meine grauen Gehirnzellen weigern sich aber das Ergebnis zu finden.
Beide Lösungen zu einer und dann ist es kurz und passt:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIComboBoxEx.au3>
$hGui = GUICreate("", 578, 381, 192, 124)
GUISetBkColor(0xFFFF15)
$tab = GUICtrlCreateTab(0, 0, 578, 20)
$tab_server = GUICtrlCreateTabItem("hallo")
$hCombo = _GUICtrlComboBoxEx_Create($hGui, "1|2|3|4", 30, 30)
GUISwitch($hGui)
$tab_server2 = GUICtrlCreateTabItem("hallo2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW, $hGui)
GUISetState(@SW_SHOW, $hCombo)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $tab
$iTab = GUICtrlRead($tab)
If $iTab = 0 Then
_WinAPI_ShowWindow($hCombo, @SW_SHOW)
Else
_WinAPI_ShowWindow($hCombo, @SW_HIDE)
EndIf
EndSwitch
WEnd
Was mich wundert ist dass bei _GUICtrlComboBoxEx_Create mehrere Einträge auswählbar sein sollen ich es aber weder über die Shift oder STRG-Taste hinbekomme mehrere zu wählen.
mfg autoBert
Meine Glaskugel meint, du verwendest Win7 64-bit und hast deine Exe 32-bit kompiliert und mit upx gepackt. Lass das upx-packen weg, die Ladezeiten werden dadurch schneller. Im Endeffekt ist es dein Virenscanner der das Laden verzögert,
Nachtrag 1,1 GByte Dateigrösse ist sehr gross. Bei meinem grössten Projekt hatte ich gearde einmal 2 MB, allerdings die Bilddateien extra.
mfg autoBert
Hallo Silvester,
das kannst du mit einer ChildGui lösen:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIComboBoxEx.au3>
$hGui = GUICreate("", 578, 381, 192, 124)
GUISetBkColor(0xFFFF15)
$tab = GUICtrlCreateTab(0, 0, 578, 20)
$tab_server = GUICtrlCreateTabItem("hallo")
$hGuiCombo = GUICreate("Cimbo", 150, 21, 30, 30, $WS_POPUP, $WS_EX_MDICHILD, $hGui)
_GUICtrlComboBoxEx_Create($hGuiCombo, "1|2|3|4", 2, 0, 146)
GUISwitch($hGui)
$tab_server2 = GUICtrlCreateTabItem("hallo2")
GUICtrlCreateTabItem("")
GUISetState(@SW_SHOW, $hGui)
GUISetState(@SW_SHOW, $hGuiCombo)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $tab
$iTab = GUICtrlRead($tab)
If $iTab = 0 Then
GUISetState(@SW_SHOW, $hGuiCombo)
WinActivate($hGui)
Else
GUISetState(@SW_HIDE, $hGuiCombo)
WinActivate($hGui)
EndIf
EndSwitch
WEnd
mfg autoBert
Dabei entpackt er die Datei aber , das möchte ich eben nicht, sondern dass dies quasi miteinander verbunden wird.
Genau dieses nicht erkennbare Ausführen hat Christoph54 ja auf seine Idee gebracht. Mir fällt auch nur dies und das schmücken mit fremden Federn ein. Es gibt für mich keinen vernünftigen Grund warum diese EXE nicht (zumindest kurzfristig) auf der Festplatte temorär abgelegt werden soll,
mfg autoBert
Hast du denn einen SMTP-Server der keine Anmeldung (Passwort) benötigt? Wenn nein benutze die Sufu mit dem Stichwort _INetSmtpMailCom. Ich habe erst vor kurzem einen Beitrag dazu geschrieben,
mfg autoBert
Hallo Kracky,
schau dir doch einfach das Beispiel in der Hilfe zu
[autoit]GUICtrlCreateTab
[/autoit]an. Wenn du nicht willst dass der rab2 als 1. aktiv ist musst du die Zeile 1 löschen. Wichtig ist auch das Abschliesse der Tabdefinition (Zeile 35),
mfg autoBert
Joa und genau dieses Preischild hast bei der Googel Api2 sogar groß in roter Schrifft ;).
Bei dem von 2$Billie geposteten Link aber nicht,wenn ich dem Link folge und den darauf befindlichen Link http://www.google.de/url?source=transpromo&rs=rssf&q=http://translate.google.de/about/intl/de_ALL/ aufrufe erfahre ich:
Was ist Google Übersetzer?
Google Übersetzer ist ein kostenloser Dienst für sofortige Übersetzungen in und aus 58 verschiedenen Sprachen. Google Übersetzer kann Wörter, Sätze oder ganze Webseiten übersetzen - und das zwischen beliebigen Kombinationen unserer unterstützten Sprachen. Mit Google Übersetzer möchten wir Informationen für alle zugänglich und nutzbar machen - unabhängig von der Sprache, in der sie verfasst sind.
Wer greift denn in einem Laden zu dem Angebot zu 5€, wenn es gleich daneben das gleiche Produkt um sonst zu bekommen ist. Solange der Ladeninhaber beides in seinem Angebot hat, darf er sich nicht wundern wenn das kostenpflichtihe nicht (oder selten)genommen wird,
mfg autoBert
Der Link funktioniert nicht, ichlande auf einer Seite die 5 SSekunden herunterzählt und danach eine Schaltfläche für Werbung ünerspringen anzeigt. Wenn ich diese klicke lande ich auf http://www.mediafire.com/
Da du nicht bereit ist deine Dateien hier im Forum hochzuladen bzw. so hochzuladen dass man sie auch ohne nervende Werbung zu sehen bekommt, sollten sich alle angewöhnen bei zukünftigen Hilfeersuchen deinerseits ähnliche Praktiken zu nutzen oder diese ganz zu ignorieren,
mfg autoBert
Mit _FTP_FileGet() werden auch die Dateien im TIF-Ordner gecached. Hab da schon alles probiert.
Ich habe es mit dem Beispiel aus der Hilfe getestet, es landet bei mir nichts im Ordner C:\Dokumente und Einstellungen\MeinUserName\Lokale Einstellungen\Temporary Internet Files,
mfg autoBert
Gibt es eine Möglichkeit InetGet() oder _FTP_FileGet() so zu verwenden, das Dateien nicht in den TIF-Ordner gecached werden?
InetGet: nein
_FTP_FileGet: ja, die Dateien werden in das angegebene Lokale Verzeichnis gespeichert.
Was diese Anfrage allerdings in Programmieranfragen soll ist mir schleierhaft, MoD bitte verschieben,
mfg autoBert
