Beiträge von Pandteranodon

Hallo AutoIt,

ich habe mal eine Frage, diese steht zwar als Thema aber trotzdem.

Ist es ürgendwie möglich Bilder in einer ListView anzeigen zu lassen?
Wenn ja wie kann man dies umsetzen?

Weil ich lese aus einer Textdatei (selbst erstellt) bestimmte Daten aus, diese werden in einer ListView dann aufgelistet. Nur würde ich dann in einem Bestimmten Feld "Farbe" eine oder mehrere Farben darstellen lassen.

Ich hoffe dies kann man ürgendwie umsetzen.

mfg.
Jochen | Tak

Danke Andy klappt alles wunderbar.

Ich find das Board hier klasse respekt, so schnell hab ich mit der Lösung nicht gedacht

thx thx thx nochmal

Ist glaube auch besser, da lässt sich die Zahl wirklich schön ändern.

Hallo Comm,

jaja mal wieder ich mit einem Problemchen. Und zwar versuche ich in einer Extra Datei eine Zahl zu ändern. Dort soll aber nur +1 gerechnet werden.

Wenn halt z.B. 2 in der Datei steht soll aus der 2 nach dem Eintragen eine 3 werden.

Mit _FileWriteToLine weiss ich wie man eine Zeile löscht, aber das ist auch alles. Neueinträge bekomm ich nicht hin, und auslesen tut er es, was vorher in der Datei steht.

Code:

#NoTrayIcon

Global $File, $AnzDownloads, $DownloadFile[90000][5]

#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Download Hinzufügen", 408, 235, 193, 125)
$Group1 = GUICtrlCreateGroup("Download Hinzufügen:", 0, 32, 410, 169)
$Input1 = GUICtrlCreateInput("Download Manager", 208, 40, 121, 21)
$Input2 = GUICtrlCreateInput("DowMan", 208, 72, 121, 21)
$Input3 = GUICtrlCreateInput(".exe/.rar/.zip/.tar.gz", 208, 104, 121, 21)
$Input4 = GUICtrlCreateInput("/downloads/", 208, 136, 121, 21)
$Input5 = GUICtrlCreateInput("*", 208, 168, 121, 21)
$Label1 = GUICtrlCreateLabel("Endzeichen (Wird nicht angezeigt):", 8, 176, 169, 17)
$Label6 = GUICtrlCreateLabel("Restliche URL wo der Download liegt:", 8, 144, 184, 17)
$Label2 = GUICtrlCreateLabel("Die Dateiendung (z.B. DownMan.exe)", 8, 112, 183, 17)
$Label3 = GUICtrlCreateLabel("Programm Name (Auf Ihrem Server):", 8, 80, 173, 17)
$Label4 = GUICtrlCreateLabel("Download Name (Dient zur Orientierung):", 8, 48, 197, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label5 = GUICtrlCreateLabel("Download Manager - Download Hinzufügen", 8, 0, 379, 27)
GUICtrlSetFont(-1, 12, 400, 4, "Arial Black")
$Button1 = GUICtrlCreateButton("Hinzufügen", 128, 208, 163, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$msg = GUIGetMsg()
If $msg=$GUI_EVENT_CLOSE Then
Exit
EndIf

If $msg=$Button1 Then
$File=FileOpen(@ScriptDir&"\datei.txt", 2)
$AnzDownloads=FileReadLine($file, 1)
FileReadLine($file)
_FileWriteToline($file, 1, $AnzDownloads, 2)
_FileWriteToLine($file, 1, $AnzDownloads+1, 0)
FileWriteLine(@ScriptDir&"\datei.txt", "")
FileWriteLine(@ScriptDir&"\datei.txt", GUICtrlRead($Input1))
FileWriteLine(@ScriptDir&"\datei.txt", GUICtrlRead($Input2))
FileWriteLine(@ScriptDir&"\datei.txt", GUICtrlRead($Input3))
FileWriteLine(@ScriptDir&"\datei.txt", GUICtrlRead($Input4))
FileWriteLine(@ScriptDir&"\datei.txt", GUICtrlRead($Input5))
EndIf

WEnd

Was in der Text Datei steht:

3 ;<------- Diese Zeile soll später +1 gerechnet werden
Name, Name auf dem Server, Dateiendung(mit "."), restliche URL*
Download 1
Down1
.exe
/downloads/
*
Download2
Down2
.rar
/downloads/
*
Download3
Down3
.zip
/downloads/
*
;<--------- Dort soll später ein neuer Download eingetragen werden

Hoffe mir kann da einer helfen

EDIT: Verklickt eigendlich erst Vorschau

Danke AutoBert,
das hab ich gestern auch gemerkt das das Script nicht läuft.

Alleine weil die Funktion "Ausnahme" nicht deklariert war.

Aber ich bedanke mich schonmal für deine Antwort, kann es zum Glück nachher mal ausprobieren.

Das

Const $IniPath = @ScriptDir & "\data\confic.ini" ;erspart Tipparbeit und ist leichter zu ändern (nur 1 Stelle)
if not FileExists(@ScriptDir & "\data") then DirCreate(@ScriptDir & "\data") ;damit der Ordner auch wirklich vorhanden ist

wusste ich zum Besipiel nicht das man es so Lösen kann.

Naja man lernt nie aus

#include-once

<--- hatte ich nur drinne, weil ich erst dachte das es nur für Administratoren änder bar ist.

Naja #RequireAdmin war glaube hier das richtige xD

aber thx nochmal, werde es wenn möglich ausprobieren.

mfg.
Tak|Jochen

Hiho Community,

hab da mal 2 fragen.

1 Frage: Und zwar will ich bestimmte GUI Einträge (handelt um das Geburtsdatum) so umwandeln, das in der Ini einmal das Geburtsdatum steht und das aktuelle Alter. Nur weiss ich nicht wie ich dies umsetzen soll.

2 Frage: Nachdem oben das in der ini Eingetragen wurde, soll sich das mit dem Computer Datum vergleichen und wenn der PC User unter 16 ist eine Fehlermeldung ausgeben.

Dies soll eine kleine Massnahme sein um unter 16 Jährige das Spiel wie Serious Sam zu verbieten (Beim Starten oder beim Installieren).

Hier mal der Code

Ich bedanke mich schonmal im Vorraus für Tipps wie ich dies lösen könnte.

mfg.
Tak|Jochen

While 1
$file = FileOpen("test.txt", 0)

; Wurde file geöffnet?
If $file = -1 Then
MsgBox(0, "Error", "File konnte nicht geöffnet werden!")
Exit
EndIf

$text = FileReadLine($file,-1)

If $text = "wert=1" Then
MsgBox(0, "Success", "gefunden")
Else
MsgBox(0, "Failure", "nicht gefunden")
EndIf

FileClose($file)
Sleep(1800000)
WEnd

Kann aber sein das das mit Sleep etwas länger dauert als 30mins, müsstest du mal prüfen xD

jo hat geklappt, thx nuts und Xeno

jetzt klappt es einwandfrei

mfg.

Klasse hat geklappt, nur ein Prob gibt es jetzt immernoch.

[Blockierte Grafik: http://img171.imageshack.us/img171/4710/loln.gif]

Bei "Nächster Spawn" ist das Datum falsch, dort müsste eigendlich 09/06/19 stehen, aber naja bisschen falsch

Aber danke für die bisherigen Lösungen

Uii, hatte ich eben übersehen

Und ja es funzt, danke dir.
Muss man es mit dem Datum auch etwa so machen wie mit der Zeit?

mfg.

okay, das wird dan ein wenig happig AutoIt das beizubringen

naja, dann mal auf gut Glück und hoffen das es funktioniert

Ich frage mich was daran Bot ähnlich sein soll.
Er rechnet nur Zeiten aus wann mal ein Boss kommt, und es gibt viele Calculatoren die mit Excel und OpenOffice Calc geschrieben sind.

Wie gesagt, er rechnet nur Zeiten aus, mehr nicht.

Er hackt sich nicht in ürgend nen Server ein, oder guckt ob die HP leiste voll oder fast leer ist.

Er rechnet nur nicht mehr nicht weniger

EDIT: nochmal. hatte in zeile 75 was vergessen

Case $msg[0] = $calc
GUICtrlSetData($spawnnext, (GUICtrlRead($respawntime1) + GUICtrlRead($time1))) ; <--- dort soll er die neue Zeit berechnen

So sieht Zeile 75 richtig aus

Hallo AutoIt Comm,
wiedermal stehe ich vor einem Rätsel, es geht darum ein InputFeld zu berechnen.

Ich schick am besten mal den Code, ist ein wenig bescheiden zu erklären.

#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
;---------------------------------;

#Region ### START Koda GUI section ### Form=
$calculator = GUICreate("Boss Calculator", 311, 201, 193, 125)
$bosse = GUICtrlCreateCombo("Boss Wählen", 8, 8, 153, 25)
GUICtrlSetData(-1, "Aden Fregatte|Ghoetheborg|Bartolomew|Hawkins|General Charlie Will|General Cruz")
$nextrespawn = GUICtrlCreateLabel("Nächster Spawn:", 168, 56, 101, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$respawntime = GUICtrlCreateLabel("Respawn Zeit:", 168, 8, 86, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$time = GUICtrlCreateLabel("Zeit:", 8, 40, 30, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$date = GUICtrlCreateLabel("Datum:", 8, 72, 44, 17)
GUICtrlSetFont(-1, 8, 800, 4, "MS Sans Serif")
$calc = GUICtrlCreateButton("Berechnen", 8, 168, 107, 25, 0)

$time1 = GUICtrlCreateInput("00:00:00", 64, 40, 57, 21)
GUICtrlSetData(-1, @HOUR&":"&@MIN&":"&@SEC)
$date1 = GUICtrlCreateInput("TT.MM", 64, 72, 57, 21)
GUICtrlSetData(-1, @MDAY&"."&@MON)
; -------^---Dort wird die Aktuelle PC Zeit&Datum ausgelesen---^------- ;

$respawntime1 = GUICtrlCreateInput("00:00:00", 168, 32, 73, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$spawnnext = GUICtrlCreateInput("00:00:00", 168, 80, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$spawnnext1 = GUICtrlCreateInput("00:00:00", 168, 104, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$spawnnext2 = GUICtrlCreateInput("00:00:00", 168, 128, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$spawnnext3 = GUICtrlCreateInput("00:00:00", 168, 152, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$spawnnext4 = GUICtrlCreateInput("00:00:00", 168, 176, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$ttmm = GUICtrlCreateInput("TT.MM", 232, 80, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$ttmm1 = GUICtrlCreateInput("TT.MM", 232, 104, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$ttmm2 = GUICtrlCreateInput("TT.MM", 232, 128, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$ttmm3 = GUICtrlCreateInput("TT.MM", 232, 152, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
$ttmm4 = GUICtrlCreateInput("TT.MM", 232, 176, 57, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
; ------^--Dort sollen die neuen daten eingetragen werden --^------ ;

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$msg = GUIGetMsg(1)
Select

Case $msg[0] = $bosse ; <---- Hier wird der gewünschte Boss mit der jeweiligen ReSpawn Zeit rausgesucht
If GUICtrlRead($bosse) = "Aden Fregatte" Then
GUICtrlSetData($respawntime1, "6:50:00")
ElseIf GUICtrlRead($bosse) = "Ghoetheborg" Then
GUICtrlSetData($respawntime1, "6:50:00")
ElseIf GUICtrlRead($bosse) = "Bartolomew" Then
GUICtrlSetData($respawntime1, "10:04:00")
ElseIf GUICtrlRead($bosse) = "Hawkins" Then
GUICtrlSetData($respawntime1, "09:04:00")
ElseIf GUICtrlRead($bosse) = "General Cruz" Then
GUICtrlSetData($respawntime1, "19:20:00")
ElseIf GUICtrlRead($bosse) = "General Charlie Will" Then
GUICtrlSetData($respawntime1, "13:45:00")
Else
GUICtrlSetData($respawntime1, "00:00:00")
EndIf

Case $msg[0] = $calc
GUICtrlSetData($spawnnext, (GUICtrlRead($respawntime1))) ; <--- dort soll er die neue Zeit berechnen

Case $msg[0] = $GUI_EVENT_CLOSE
If $msg[1] = $calculator Then Exit

EndSelect
WEnd

Also er soll das neue Datum+Zeit in die Input felder eintragen. Aber wenn er $respawntime1 mit $time1 addieren soll, spuckt er mir entweder eine Fehlermeldung raus, oder da steht ne Dicke "0".

Hoffe Ihr könnt mir helfen.

mfg.

So, da ich übersehen hatte, das es ja noch die "ExitLoop" funktion gibt, habe ich die auch nochmal schnell eingebaut.

Problem aber hierbei ist, wenn das Script ausgeführt wird, sagt er ich müsste noch einen Nicknamen eintragen, obwohl schon einer vorhanden ist.

Script Abschnitt:

Do
$admin1 = IniRead("ini/confic.udf", "antragssteller", "name", 0)
GuiCtrlSetData($admin, $admin1)
ExitLoop
Until Not FileExists("ini/confic.udf")
$nick = InputBox("Nickname", "Nickname anlegen!")
IniWrite("ini/confic.udf", "antragssteller", "name", $nick) ; <--- Wird in UDF Geschrieben
$admin2 = IniRead("ini/confic.udf", "antragssteller", "name", 0)
GUICtrlSetData($admin, $admin2)

Zwar kann ich dan das fenster schliessen, nur soll er mich nach keinem Nick fragen, wenn schon einer in der "UDF" datei angegeben ist.

Help pls komm einfach nicht mehr weiter....

mfg.
Jochen

O.o

Danke das erpsart absofort viel Schreib arbeit xD

Einmal ein: FETTES DANKE

Das Problem mit ganz oben hat sich nun erledigt, habe es mit Do und Until gelöst.

Nur das andere Problem ist jetzt, wenn der aus der ini laden soll, lässt sich die GUI nicht mehr schliessen.
Anscheinend versucht das Programm es andauernt zu aktualisieren ob sich da was geändert hat.

Ich weiss das es mit der GUI ein paar probs gab (siehe Posts darüber), aber ich hoffe Ihr habt ne lösung und könnt mir helfen.

und nochmal sry simon wegen dem Missverständniss

Mommentanes Script

Absenden funzt nicht, hab ich wieder sicherheitshalber ausgeklammert

mfg.
Jochen

Meine Güte du hast mich jezt richtig erschreckt.

Den Vorletzten Post werde ich mal sicherheitshalber löschen

Zitat von simon

@Tak es ging mir ja darum das kein Antrag gestellt wurde da ich es nicht will bitte lösche es

Also es wurde kein Antrag gestellt, die komplette URL war falsch, da brauchst du keine Angst haben

Also funzen tuts schon, aber Adresse ist falsch

Aber: Ich hab das jetzt eingefügt wie du gesagt hast.
Nur soll, wenn das Programm geladen wird (Öffnen wie auch immer) das er aus der INI lädt, das ins $admin Feld einträgt (Wenn INI Vorhanden ist) und dann grad auf Disable.

Wen aber keine INI vorhanden ist, soll es auf ENABLE stehen und mann kann dort den Namen eintragen, und beim nächsten ausführen (siehe zwei Zeilen drüber) geht das?

Erstes Ausführen: Name eintragen, in Ini Schreiben, und Feld auf DISABLE
Zweites Ausführen: Überprüfen ob INI Vorhanden ist, Ini Laden, ins Feld eintragen und Feld auf DISABLE

Möglich?

Zitat von simon

Unter den iniread musst du GUICtrlSETstate($controllid,$GUI_DISABLE) Dann iniread und dann per guictrlsetdata den wert hineinschreiben

Öhm.... joa, wie soll ich das da einfügen und wo?

EDIT: Hat sich erledigt, nun hab ichs raus, thx