Beiträge von oh-ha

moin moin,

kann es sein das bei " GUI-Referenz - OnEvent Modus " die " #include " vergessen worden sind oder ist das beabsichtigt ?
Da steht einfach nur " #include ".

mfg
oh-ha

habe es jetzt so gemacht.

;IniWrite(@DesktopDir & "\AutoIt-Test.ini","Allgemein","$Radioaus3",GUICtrlRead($Radioaus3))
If IniRead(@DesktopDir & "\AutoIt-Test.ini","Allgemein","$Radioaus3", "1") = 1 Then
GUICtrlSetState($Radioaus3, $GUI_CHECKED)
EndIf

Geht jetzt auch so weit Dank euch.

mfg
oh-ha

jo Danke werde das mal Testen.

mfg
oh-ha

jo das habe ich in der Hilfe auch gefunden und ein paar mehr nur blicke ich da nicht durch.
Wie kann ich denn den Status einer Checkbox da reinschreiben.

Edit: Was muß ich denn da reinschreiben von diesen Zeilen ?

$Radioaus3 = GUICtrlCreateRadio("Daten", 225, 305, 113, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetState($Radioaus3, $GUI_CHECKED)

mfg
oh-ha

Ups, genau das ist mein Problem ich weis nicht wie man so etwas macht.
Hatte mir nur gedacht das man es über eine *.ini machen kann nur habe ich keinen blassen Schimmer wie man den Status
zum einen in die *.ini schreibt und zum anderen wieder einliest.

mfg
oh-ha

Hallo,

Die Werte sollen nach dem Klick auf "Speichern" gespeichert werden und dann beim nächsten Programm Start wieder eingesetzt werden.

Kann man das über eine *.ini Datei machen ? und wenn ja wie.
Oder ist das so nicht möglich?

Ist nur ein Beispiel
[Blockierte Grafik: http://img1.bildupload.com/19455c8484491fbccde614d231964ce9.jpg]

mfg
ho-ha

Oh DANKE dir,

nehme das gerne und mit Freuden an dein Skript, hatte so was gesucht aber nichts vergleichbares gefunden.
Erspart mit echt eine menge Arbeit.

Setze ich das hier mal auf gelöst.

mfg
oh-ha

moin moin,

habe mal ein wenig getestet und das ist dabei rausgekommen.

While 1
$td = _NowTime(4) ;(4) = zeigt nur Stunden und Minuten an zB 10:00
If $td = ("09:31") Then
MsgBox(1, "geht", _NowTime(4))
If $td = ("09:31") Then ; nur zum Testen
ExitLoop
EndIf
EndIf
Sleep(100)
WEnd

Das geht jetzt auch so weit zumindest schon mal mit der Zeit.

mfg
jojono

Hallo AutoBert

oh ha das sind etwas über 2000 Zeilen mit etwas sensiblen Daten drin.
in der Logliste.log steht einfach nur das drin.
Logliste.log:
Gesendet
Freitag
10.00
Werde mir das mal in der Hilfe mit _nowCalc und _DateDiff durchlesen.

Edit: Denke mal ich weiss jetzt wie du das meinst. Einen Timer im Skript laufen lassen der bei erreichten Sekunden eine Aktion auslöst.
Dann wäre jeder angegebene Wochen-Tag = 604800sec und bei jeden Tag = 86400sec, müßte man nur noch den Startpunkt bestimmen wenn es denn so gehen sollte.
Puh wie bekommt man denn so was hin???

mfg
oh-ha

sorry für die späte Rückmeldung,

@ Zacharja
ja irgendwie in dieser Richtung muss es wohl sein weiss halt nur nicht wie.

@Leon
hatte das mal so getestet aber er greift die Zeit einfach nicht ab. Muss man das nicht in eine Schleife packen?

mfg
oh-ha

Hallo,

ich mal wieder.
Wie bekommt man es hin das man nach der Systemzeit eine Aktion auslöst oder bessser gesagt nach den ausgewählten kriterien ?

Habe mir drei Listen gemacht die man über Combo Boxen auswählen kann.

Daraus mache ich wiederum eine Liste "Logliste.log" mit den ausgewählten Einträgen.

Angezeigt werden diese in 3 List Boxen

Aber wie bekomme ich es hin das die Aktion dann auch nach Zeit und Datum ausgeführt wird ?
Ähm bevor das hier aufkommt, traue mir noch nicht zu das ganze mit einen Array zu machen.

mfg
oh-ha

man was für ein Forum hier

Habe es jetzt mit deinen Skript für das Automatische Versenden gemacht, das konnte ich einbauen und nehme das andere mit Gui halt für das Versenden von Hand.

Danke dir noch mal.

mfg
oh-ha

sorry hatte ich noch den zweiten Teil vergessen die Zeilen.

Ist auch direkt aus meinen Skript.

;####### Nun wird alles am Ende abegschnitten #######
Dim $lZeile, $lZeile2
$lZeile = $oExcel.ActiveSheet.Cells($oExcel.Rows.Count, 1).End(-4162).Row
$lZeile2 = $oExcel.Cells($oExcel.Rows.Count, 1).SpecialCells(11).Row
$oExcel.Range("A" & $lZeile +2, "AZ" & $lZeile2).Select
$oExcel.Selection.Delete.Shift= -4162 ;xlUp = -4162
;MsgBox(0, "Zeilenanzahl", $lZeile); nur zur kontrolle
;ENDE alles am Ende abschneiden

mfg
oh-ha

Hi,

hatte selbiges Problem und das so gelöst.
Ist aus meinen Skript musst du noch anpassen

; ####### Hier wird ermittelt wie viele Spalten es sind und diese dann gelöscht ########
Dim $Spaltenanzahl, $oExcel
$Spaltenanzahl = $oExcel.ActiveSheet.Cells(10, $oExcel.Columns.Count).End( -4159).Column
;MsgBox(0, "Spaltenanzahl", $Spaltenanzahl); nur zur kontrolle
_ExcelColumnDelete($oExcel, $Spaltenanzahl, 100)
;ENDE Spalten löschen

Hoffe mal das Hilft dir erst einmal weiter.

mfg
oh-ha

Danke dir,
kenne das Skript ist dem was ich benutze ähnlich.
Hmm, muss ich wohl mal sagen was ich bezwecke mit meinen Programm.
Das Programm von mir arbeitet Excel Tabellen die von einer Anlage ausgegeben werden auf und soll diese Automatisch zu
eingestellten Zeiten Verschicken. Aber man muss dieses auch von Hand machen können deshalb das Email Skript mit eigener Gui.

Gibt es denn keine Möglichkeit dieses mit dem Skript zu machen was ich schon habe ?

mfg
oh-ha

hehe, naja das mit dem Einbauen schreibe ich mal meiner Unwissenheit (Dummheit) in bezug auf Autoit zu.
Das Email Skript rennt einwandfrei nur muß ich halt selber auf "Email Abschicken" klicken und das soll ja Automatisch passieren.

mfg
oh-ha

moin moin,

habe mir dieses Email Skript Klick mich runtergeladen und versuche es nun automatisch zu Starten.

Der Aufruf mit "ShellExecute" geht ja noch, nur wie bekomme ich es hin das es auch von selber die E-Mail sendet ?
Die Daten werden alle von meinen Skript plus Anhang da rein geschrieben. Es sollte nur noch die Email automatisch verschickt werden.

Hier mal der Aufruf mit "ShellExecute"

ShellExecute("E-Mail-Sender.au3","", @ScriptDir, "")

Also quasi den " Email Abschicken " Button

PS: Das Email Skript in meinen Skript einzubauen hatte nicht geklappt, waren ein paar zu viele Fehlermeldungen.

mfg
oh-ha

Nur um das abzuschließen.

Der fehler lag in der Printanweisung: Zeile 36 und 46

.

.PrintQuality = 200

und

.PrintErrors = 0 ; xlPrintErrorsDisplayed = 0

habe diese beiden einfach gelöscht und nun rennt es auch auf Excel 97.

mfg
oh-ha

Hallo ojo,

hmm muss ich also autoit auf den anderen Rechner Installieren.
Puh wird meiner Tochter aber gar nicht gefallen
Danke dir erst einmal, werde das mal so machen und dann mal weiterschauen.

mfg
oh-ha

naja die habe ich gar nicht in meinen Skript das hat nur ca. 2000 Zeilen und in der Excel Tabelle ist es eine ganz normale Zeile wie alle anderen auch.
Versuche ich eine andere Tabelle zu öffnen bekomme ich die Line 8371 als Fehler angezeigt.

mfg
oh-ha