Beiträge von Kev

Kev

Zitat

root@84-23-76-104:/home/JTS3ServerMod# screen
root@84-23-76-104:/home/JTS3ServerMod# java -jar JTS3ServerMod.jar
JTS3ServerMod 3.5.0 Final (13.02.2011) Instance Manager started...
clan: Virtual bot instance "clan" starts now
clan: Successful connected to 84.23.76.104!
clan: Login as "serveradmin" successful!
clan: Successful selected virtual server on port 1337!
clan: All new connecting clients get the default welcome message
clan: Advertising will be send to virtual server every 30 minutes (1 messages found)
clan: Clients will be moved into Channel "~~~AFK~~~" (37) after being idle for 20 minutes
clan: Clients with away status will be moved to Channel "~~~AFK~~~" (37) after 500 seconds
clan: Creating client database cache...
clan: Bot started and connected successful, write !botinfo in server chat to get an answer!
clan: Client database cache created, 10 clients in cache.

Alles anzeigen

TS3 Autoit.de Bot läuft.
Banner sind drin.

Kev

er nimmt wahrscheinlich an man könne es nicht decompilen wenn man denn möchte :pinch:

so ich habs mal eben nachgebastelt. Die Commands an den Prozess übergeben funktioniert noch nicht so wirklich, aber sieht etwas schicker aus darfst du gerne übernehmen, hatte bloß grad lust und laune, gebrauch habe ich aber keinen. Und ja ohne decompilen

[Blockierte Grafik: http://img15.imageshack.us/img15/3115/unbe2nannt.png]

[Blockierte Grafik: http://img857.imageshack.us/img857/6248/unbenanntsz.png]

Qcode:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <File.au3>
#include <Constants.au3>
#include <Date.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

_checkdir()

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

Global $config, $cache, $cache1, $cache2, $cache3, $cache4, $cache5, $cache6, $cache7, $cache8, $cache9, $cache10, $cache11, $cache12, $Process
test()
Global $cnt2 = 0
GUICreate("Minecraft Manager", 750, 450) ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird
GUICtrlCreateTab(-2, 0, 760, 20)
GUICtrlCreateTabItem("Management")
GUICtrlCreateLabel("Server Management", 30, 40, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$start = GUICtrlCreateButton("Server starten", 30, 60, 100, 25)
$stop = GUICtrlCreateButton("Server stoppen", 30, 90, 100, 25)
$savea = GUICtrlCreateButton("Welt speichern", 30, 120, 100, 25)
$autoon = GUICtrlCreateButton("Auto Save On", 30, 150, 100, 25)
$autooff = GUICtrlCreateButton("Auto Save Off", 30, 180, 100, 25)
$time = GUICtrlCreateButton("Zeit ändern", 30, 210, 100, 25)
GUICtrlCreateLabel("Server Information", 35, 260, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$version = GUICtrlCreateButton("Server Version", 30, 290, 100, 25)
$list = GUICtrlCreateButton("Wer ist online?", 30, 320, 100, 25)
GUICtrlCreateLabel("Admin Controls", 225, 260, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
$kick = GUICtrlCreateButton("Kick Player", 225, 290, 100, 25)
$ban = GUICtrlCreateButton("Ban Player", 225, 320, 100, 25)
$reban = GUICtrlCreateButton("Ban aufheben", 225, 350, 100, 25)
;#################################################
$message = GUICtrlCreateButton("Nachricht senden", 335, 290, 100, 25)
$banip = GUICtrlCreateButton("Ban IP", 335, 320, 100, 25)
$rebanip = GUICtrlCreateButton("IP Ban aufheben", 335, 350, 100, 25)
;##################################################
$opon = GUICtrlCreateButton("OP Rechte geben", 445, 290, 100, 25)
$opweg = GUICtrlCreateButton("OP Rechte nehmen", 445, 320, 100, 25)
$tele = GUICtrlCreateButton("Teleport Player", 445, 350, 100, 25)
;####################################################
GUICtrlCreateLabel("Server Whitelist", 620, 260, 200, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
;##################################################
$whiteon = GUICtrlCreateButton("Whitelist an/aus", 610, 290, 100, 25)
$whitechange = GUICtrlCreateButton("Whitelist add/rem", 610, 320, 100, 25)
$whiteshow = GUICtrlCreateButton("Whitelist anzeigen", 610, 350, 100, 25)
$whitereload = GUICtrlCreateButton("Whitelist neuladen", 610, 380, 100, 25)
;######################################################
$console = GUICtrlCreateEdit("", 150, 40, 550, 200)
$exit = GUICtrlCreateButton("Beenden", 610, 420, 100, 25)
GUICtrlCreateTabItem("Server Einstellungen")
_FileReadToArray(@ScriptDir & "\server.properties", $config)
GUICtrlCreateLabel("Name der Welt:", 10, 50, 100, 25)
$name = GUICtrlCreateInput($cache[2], 10, 80, 100, 25)
GUICtrlCreateLabel("Höllenwelt:", 10, 115, 100, 25)
$hell = GUICtrlCreateInput($cache2[2], 10, 140, 100, 25)
GUICtrlCreateLabel("Monster aktivieren:", 10, 175, 100, 25)
$monster = GUICtrlCreateInput($cache3[2], 10, 200, 100, 25)
GUICtrlCreateLabel("Online Modus:", 150, 50, 100, 25)
$online = GUICtrlCreateInput($cache4[2], 150, 80, 100, 25)
GUICtrlCreateLabel("Tiere aktivieren:", 150, 115, 100, 25)
$tiere = GUICtrlCreateInput($cache5[2], 150, 140, 100, 25)
GUICtrlCreateLabel("Anzahl Spieler:", 150, 175, 100, 25)
$gamers = GUICtrlCreateInput($cache6[2], 150, 200, 100, 25)
GUICtrlCreateLabel("Server IP:", 290, 50, 100, 25)
$serverip = GUICtrlCreateInput($cache7[2], 290, 80, 100, 25)
GUICtrlCreateLabel("PVP aktivieren", 290, 115, 100, 25)
$PVP = GUICtrlCreateInput($cache8[2], 290, 140, 100, 25)
GUICtrlCreateLabel("Level Seeds", 290, 175, 100, 25)
$seeds = GUICtrlCreateInput($cache9[2], 290, 200, 100, 25)
GUICtrlCreateLabel("Server Port", 430, 55, 100, 25)
$port = GUICtrlCreateInput($cache10[2], 430, 80, 100, 25)
GUICtrlCreateLabel("Whitelist aktivieren", 430, 115, 100, 25)
$whitelist = GUICtrlCreateInput($cache11[2], 430, 140, 100, 25)
$save = GUICtrlCreateButton("Speichern", 10, 250, 100, 25)
GUISetState(@SW_SHOW) ; Zeigt das leere GUI-Fenster

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

; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst
While 1
$msg = GUIGetMsg()
Switch $msg
Case $exit
Exit
Case $save
_save()
Case $start
$Process = Run('C:\Program Files (x86)\Java\jre6\bin\java.exe -Xms1024M -Xmx1024M -jar ' & @ScriptDir & "\minecraft_server.jar", '', '', 0x9)
AdlibRegister("Getdata", 2000)
AdlibRegister("delgui", 1000)
Case $stop
StdinWrite($Process, "stop")
Case $savea
StdinWrite($Process, "save-all")
Case $autoon
StdinWrite($Process, "save-on")
Case $autooff
StdinWrite($Process, "save-off")
Case $savea
StdinWrite($Process, "save-all")
Case $time
$lol = InputBox("Weltzeit setzen, zwischen 0 und 24000","")
StdinWrite($Process, GUICtrlRead($lol))
Case $version
StdinWrite($Process, "version")
Case $list
StdinWrite($Process, "list")
Case $kick
$lol = InputBox("Welcher Spieler soll gekickt werden?","")
StdinWrite($Process, GUICtrlRead($lol))
Case $ban
$lol = InputBox("Welcher Spieler soll gebannt werden?","")
StdinWrite($Process, GUICtrlRead($lol))
Case $reban
$lol = InputBox("Welcher Spieler soll entbannt werden?","")
StdinWrite($Process, GUICtrlRead($lol))
Case $message
$lol = InputBox("Nachricht hier eingeben","")
StdinWrite($Process, GUICtrlRead($lol))
Case $banip
$lol = InputBox("Welcher Spieler soll gebannt werden? IP Adresse !","")
StdinWrite($Process, GUICtrlRead($lol))
Case $banip
$lol = InputBox("Welcher Spieler soll entbannt werden? IP Adresse !","")
StdinWrite($Process, GUICtrlRead($lol))
Case $opon
$lol = InputBox("Welcher Spieler soll OP werden?","")
StdinWrite($Process, GUICtrlRead($lol))
Case $opweg
$lol = InputBox("Von welchem Spieler soll der OP genommen werden?","")
StdinWrite($Process, GUICtrlRead($lol))
Case $tele
$lol = InputBox("Name von dem Spieler, welcher teleportiert werden soll.","")
$lol2 = InputBox("Name des Spielers, zu dem der erste Spieler teleportiert werden soll.","")
StdinWrite($Process, GUICtrlRead($lol) & "" & GUICtrlRead($lol2))
Case $whiteon
$lol = InputBox("Whitelist on oder off?","")
StdinWrite($Process, GUICtrlRead($lol))
EndSwitch
WEnd

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

Func test()
_FileReadToArray(@ScriptDir & "\server.properties", $config)
$cache = StringSplit($config[3], "=")
$cache2 = StringSplit($config[4], "=")
$cache3 = StringSplit($config[5], "=")
$cache4 = StringSplit($config[6], "=")
$cache5 = StringSplit($config[7], "=")
$cache6 = StringSplit($config[8], "=")
$cache7 = StringSplit($config[9], "=")
$cache8 = StringSplit($config[10], "=")
$cache9 = StringSplit($config[11], "=")
$cache10 = StringSplit($config[12], "=")
$cache11 = StringSplit($config[13], "=")
EndFunc ;==>test

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

Func _save()
FileDelete(@ScriptDir & "\server.properties")
FileWrite(@ScriptDir & "\server.properties", "#Minecraft server properties" & @CRLF & "#Thu Apr 14 18:32:54 CEST 2011" & @CRLF & "level-name=" & GUICtrlRead($name) & @CRLF & "hellworld=" & GUICtrlRead($hell) & @CRLF & "spawn-monsters=" & GUICtrlRead($monster) & @CRLF & "online-mode=" & GUICtrlRead($online) & @CRLF & "spawn-animals=" & GUICtrlRead($tiere) & @CRLF & "max-players=" & GUICtrlRead($gamers) & @CRLF & "server-ip=" & GUICtrlRead($serverip) & @CRLF & "pvp=" & GUICtrlRead($PVP) & @CRLF & "level-seed=" & GUICtrlRead($seeds) & @CRLF & "server-port=" & GUICtrlRead($port) & @CRLF & "white-list=" & GUICtrlRead($whitelist))
EndFunc ;==>_save

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

Func _checkdir()
If FileExists(@ScriptDir & "\server.properties") = 0 Then
MsgBox(0, "Achtung", "Server.properties wurde nicht gefunden, falsches Verzeichnis?")
Exit
EndIf
If FileExists(@ScriptDir & "\minecraft_server.jar") = 0 Then
MsgBox(0, "Achtung", "minecraft_server.jar konnte nicht gefunden werden, falsches Verzeichnis?")
Exit
EndIf
EndFunc ;==>_checkdir

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

Func Getdata()
Local $avArray
$cnt = _FileCountLines("server.log")
If $cnt <> $cnt2 Then
_FileReadToArray("server.log", $avArray)
If IsArray($avArray) Then
$data = GUICtrlRead($console)
For $i = $cnt2 To $avArray[0]
GUICtrlSetData($console, $data & @CRLF & $avArray[$i] & @CRLF)
$data = GUICtrlRead($console)
Next
$cnt2 = $cnt
EndIf
EndIf
_GUICtrlEdit_LineScroll($console, 0, _GUICtrlEdit_GetLineCount($console))
EndFunc ;==>Getdata

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

Func _Start()
$foo = True
$dir = @ScriptDir
$cmd = 'java -Xms1024M -Xmx1024M -jar minecraft_server.jar'
FileChangeDir($dir)
$foo = Run(@ComSpec & " /c " & $cmd, $dir, 1, $STDIN_CHILD + $STDOUT_CHILD)
EndFunc ;==>_Start

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

Func delgui()
WinSetState("Minecraft server", "", @SW_HIDE)
EndFunc ;==>delgui

[/autoit]

Greez

Kev

Hey Miteinander,

ich bin im Besitz eines Vroot Servers und habe seit kurzer Zeit keinen Nutzen mehr dafür. Daher habe ich mich entschieden, ihn für die Community in Form eines Teamspeak 3 Servers mit momentan 130 Slots zu vergeben.

~~Channel werden noch etwas angepasst.~~
Desweiteren folgen noch Autoit Banner.
Verlinkungen zur Homepage/Hilfe etc.pp.
~~Und evntl. noch ein paar weitere Channel.~~

Ich werde auch noch Gruppen anlegen für die "Aufpasser/Supporter". Diese werden dann einen Admin Token erhalten. Alles weitere wird sich dann noch ergeben denke ich. Ich bitte um zahlreiche Beteiligung damit der Server nicht leer steht

Die Daten zum Server:

TS3 down, da zuwenig Nutzung.

Server läuft auf:
3.0.0-beta30 [Build: 12998]
Ubuntu 10.04 LTS Minimal (Linux)

Anregungen/Vorschläge sowie Kritik bin ich gerne offen.

[Blockierte Grafik: http://img850.imageshack.us/img850/6141/unbenannthv.png]

Grüße

Kev

//Edit

umfrage.

Kev

Schick mal bitte den ganzen Quellcode und arbeite mit Syntaxhighlighting.

das wäre dieses Zeichen hier:

Danach sehn wir weiter

Kev

Naja Grundprinzip ist, ich öffne keine .exe ohne den Inhalt zu kennen
Daher: "schaut schonmal nicht schlecht aus"...

Kev

Alles Gute

Kev

sieht schonmal nicht schlecht aus.

wie schauts aus mitm qCode?

greez

Kev

Habe das ganze mal für nen Privatserver gebaut.
Komplettinstallation incl patchen bis patchstand des Servers. Geb das SCript ungern her hat ja nur 2000 Zeilen.

hab dir mal nen Teil rauskopiert.

Spoiler anzeigen

[autoit]

;____EoF - reportviaftp()____________________________________________________________
;####################################################################################
;____Func - Installwowpfad()_____________________________________________________
Func Installwowpfad()
$installation = FileSelectFolder($language[57], "", 1)
If @error = 1 Then
Exit
Else
$msgboxts = MsgBox(4, "", $language[59] & $installation & @CRLF & $language[60])
EndIf
If $msgboxts = 6 Then
Installwow()
Else
Global $installation = FileSelectFolder($language[57], "", 1)
If @error = 1 Then
Exit
Else
Installwow()
EndIf
EndIf

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

EndFunc ;==>Installwowpfad
;_________________________________________________________
;###################################################################################
;____InstallWoW()____________________________________________________________________
Func Installwow()
logfile("Neu Installation WoW Verzeichnis: " & $installation)
InetGet("http://download.4fansites.de/world_of_warcraft/client/installwow_dede_pc.zip", @TempDir & "\installwow_dede_pc.zip")
If Not @error Then
logfile("Download WoW Install erfolgreich")
Else
logfile("Download WoW Install fehler: " & @error)
MsgBox(0, "RG WoW Installer", $language[61])
EndIf
TrayTip("RG WoW Installer", $language[44], 3, 1)
_zip_unzipall(@TempDir & "\installwow_dede_pc.zip", @TempDir & "\installwow_dede_pc\", 0)
Run(@TempDir & "\installwow_dede_pc\InstallWoW.exe")
BlockInput(1)
WinWait('"World of Warcraft"-Installationsprogramm', "World of Warcraft: Wrath of the Lich King")
WinActivate('"World of Warcraft"-Installationsprogramm', "World of Warcraft: Wrath of the Lich King")
ControlClick('"World of Warcraft"-Installationsprogramm', "OK", "Button1")
ProcessWaitClose("InstallWoW.exe")
TrayTip("RG Wow Installer", $language[80], 5, 2)
$i = 30
Do
MsgBox(0, "Please wait 30 Seconds", $i, 1)
$i = $i - 1
Until $i = 0
Imagesearch()
Sleep(2000)
Imagesearchok()
WinWait("Endbenutzerlizenzvereinbarung")
Sleep(1000)
MouseClick("left")
Send("{Down 180}")
Sleep(1000)
ControlClick("Endbenutzerlizenzvereinbarung", "&Zustimmen", "Button1")
WinWait("Installationsverzeichnis")
Sleep(1000)
Send("{TAB 2}")
Send($installation)
ControlClick("Installationsverzeichnis", "&OK", "Button1")
BlockInput(0)
ProcessWait("Launcher.exe")
ProcessClose("Launcher.exe")
ProcessClose("Installer.exe")
logfile("World of Warcraft installed: " & $installation)
MsgBox(0, "", $language[79], 3)

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

$wowpath = $installation
Patchstatus()
EndFunc ;==>Installwow

[/autoit]

Kev

danke habs

Kev

UEZ geht soweit danke, bloß ChrW(17) = ◄ ChrW(13) = ♪ aber ChrW(16) was ► sein sollte ist ‡ -.-

//Edit

überzeug dich selbst

[autoit]

for $i = 0 to 2000
Msgbox(0,"","ChrW " & $i & ChrW($i),1)
Next

[/autoit]

Kev

Okay stückchen schlauer, danke. Ich nehme an es gibt also keine Möglichkeit?

Kev

Hey,

würde gerne ein Label mti dem Ascii code 0x16 = ► ausstatten.
Aber im Editor krieg ich immer nur nen "?"

Jemand ne Idee?

Greez

Kev

Kev

Zitat von Darter

Eine popup GUI tranzparent machen, das Herz drauf Zeichen und dann die Pos dieser Gui um die Hauptgui verschieben

Klingt nicht schlecht, dennoch. Dann sieht es so aus als wäre es ein Herz welches um meine GUI herrumfliegt, ich möchte sogesagt das sich mehrere Herzen auch in der GUI bewegen und überall sprich den ganzen Hintergrund belegen.

Zitat

Möglich ist das schon nur musst du halt ne transparente gui unter die eigentliche setzen es gibt da ne funktion un den guihintergrund durchsichtig zu machen wart ma kurz...

Sieht schonmal gut aus, kanns mir nacher genauer anschauen, ein Bsp wäre dennoch nett
Bzw. ich bezweifel das es das obengenannte erfüllt
Naja mal schauen

//Edit

yep Win7 kompatibel bitte

Kev

Hallo Zusammen,

lange ists her. Ich bastel gerade an einem Progrämmchen für meine Maus
Werde es noch später unter Scripte posten, sobald es fertig ist, werden sicherlich einige benötigen können.

Nun zu meiner Frage. Ist es möglich, das sobald mein Programm startet, (als bsp. bzw ideal wäre es) Herzen um mein Programm auf dem Desktop fliegen zu lassen? Transparent.

Nicht drüber oder drunter, obwohl wäre auch eine Möglichkeit aber am besten außenrum
Wenn ja wie würdet ihr das Ganze angehen? Kennt ihr eine Möglichkeit?

Grüßle

Kev

Kev

geht doch

die firma dankt

Kev

hey,

lange ists her..

hab vor mir nen wecker zu basteln...

jetz is die frage..

[autoit]

$time = "00:05"
$timer = @Hour & ":" & @Min
$timenew = $timer + $time

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

Msgbox(0,"","aktuelle zeiet: " & $timer)
msgbox(0,"","aktuelle zeit + 5 minuten " & $timenew)

[/autoit]

qcode sollte alles sagen

klappt aber leider nicht so wie ich das will.

//edit

da keiner die lösung so schnell raushaut wie ich eig erwartet hatte und ich zu eingerostet bin...
Der ließt mir die Zeit aus und sieht das Ganze aber nicht als int. Sprich nicht als Zahl, somit kann ich nicht addieren.
Wie stell ich das nun am besten an? Ich will die Zeit ausgelesen haben und dann diese Zeit + 5 minuten, in eine neue variable packen und ausgeben.

Thx Kev

Kev

Zitat von Kleiner

Hi!

Ich nutze dafür BT4!

LG Kleiner

ich bezweifel das er mit nem unix wie backtrack klar kommt...

Kev

[Blockierte Grafik: http://www.spiegel.de/images/image-136833-galleryV9-flec.jpg]

Kev

Benutz doch bitte Syntax Highlighting dann sieht das Ganze schon anders aus.
Dafür gibs den Button.

[autoit]

#Include <Misc.au3>
$Eintrag1= "1"
$Eintrag2= "2"
Do
If _IsPressed ($Eintrag1) then
Send("^c")
$text = ClipGet()
MsgBox(4096,"test",$text)
;IniWrite($openini,"Rasse",$i,$text)
EndIf
If _IsPressed ($Eintrag2) then
Send("^c")
$text = ClipGet()
;IniWrite($openini,"Alter",$i,$text)
EndIf
Until _IsPressed("{esc}")

[/autoit]

Und wie Schnitzel schon sagst du makierst nichts, also kann nichts kopiert werden so wird das nix.
Desweiteren drückst du ja nicht

[autoit]

$Eintrag1

[/autoit]

, du makierst nur
Das Script an sich ist etwas fail. Du brächtest sowas wie _isHighlighted, was es meines Wissens nicht gibt.

//edit 1

Zitat

Edit1:

Und du benutz Spoiler

und du machst keine doppelposts

Kev

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.2.0
Author: myName

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

; Script Start - Add your code below here

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

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ComboConstants.au3>
#include <Array.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <String.au3>
#include <EditConstants.au3>

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

Global $checkthebutton = "1"

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

;***********************************************
If @MON = "01" Then $month = "Januar"
If @MON = "02" Then $month = "Februar"
If @MON = "03" Then $month = "März"
If @MON = "04" Then $month = "April"
If @MON = "05" Then $month = "May"
If @MON = "06" Then $month = "Juni"
If @MON = "07" Then $month = "Juli"
If @MON = "08" Then $month = "August"
If @MON = "09" Then $month = "September"
If @MON = "10" Then $month = "Oktober"
If @MON = "11" Then $month = "November"
If @MON = "12" Then $month = "Dezember"

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

If @WDAY = 1 Then $day = "Sonntag"
If @WDAY = 2 Then $day = "Montag"
If @WDAY = 3 Then $day = "Dienstag"
If @WDAY = 4 Then $day = "Mittwoch"
If @WDAY = 5 Then $day = "Donnerstag"
If @WDAY = 6 Then $day = "Freitag"
If @WDAY = 7 Then $day = "Samstag"
;************************************************

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

;***********************************************

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

GUICreate("Kontomanager " & $day & ", der " & @MDAY & "." & $month & " " & @YEAR, 650, 400)
$ok = GUICtrlCreateButton("OK", 310, 30, 50, 20)
$enable = GUICtrlCreateButton("ändern", 370, 30, 80, 20)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateLabel("Tag", 10, 10, 100, 25)
GUICtrlCreateLabel("Monat", 110, 10, 100, 25)
GUICtrlCreateLabel("Jahr", 210, 10, 100, 25)
GUICtrlCreateLabel("___________________________________________________________________________________________________________________________________________________", 0, 50, 800, 15)
GUICtrlSetState(-1, $GUI_DISABLE)
$Jahr = GUICtrlCreateCombo("", 210, 30, 80, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "2010|2011|2012|2013|2014|2015|2016|2017|2018|2019|2020")
$Monat = GUICtrlCreateCombo("", 110, 30, 80, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "Januar|Februar|März|April|Juni|Juli|August|September|Oktober|November|Dezember")
$Tag = GUICtrlCreateCombo("", 10, 30, 80, 25, $CBS_DROPDOWNLIST)
GUICtrlSetData(-1, "2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|21|22|23|24|25|26|27|28|29|30|31")
$exit = GUICtrlCreateButton("Beenden", 545, 370, 100, 25)
GUICtrlCreateLabel("Betrag:", 350, 70, 100, 25)
$betrag = GUICtrlCreateInput("", 350, 90, 50, 20,$ES_NUMBER)
GUICtrlCreateLabel("€", 405, 90, 50, 25)
GUICtrlSetFont(-1, 12)
GUICtrlCreateLabel("Grund der Geldausgabe:", 500, 70, 200, 25)
$grund = GUICtrlCreateInput("", 420, 90, 200, 20)
GUICtrlSetData($Monat, $month)
GUICtrlSetData($Tag, @MDAY)
GUICtrlSetData($Jahr, @YEAR)
$ausgaben = GUICtrlCreateRadio("Ausgaben", 550, 10, 100, 25)
GUICtrlSetState(-1, $GUI_CHECKED)
$einkommen = GUICtrlCreateRadio("Einkommen", 550, 35, 100, 25)
$hinzu = GUICtrlCreateButton("Hinzufügen", 350, 120, 80, 25)
$save = GUICtrlCreateButton("Speichern", 450, 120, 80, 25)
GUICtrlCreateLabel("Ihre Ausgaben:", 10, 70, 100, 20)
GUICtrlCreateLabel("Aktueller Geldstand: ", 350, 160, 100, 25)
$money = Guictrlcreatelabel("noch nicht berechnet",455,160,200,25)
$multi = GUICtrlCreateButton("berechnen", 350, 180, 100, 20)
Guictrlsetstate(-1,$GUI_DISABLE)
GUISetState(@SW_SHOW)

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

$listview = GUICtrlCreateListView("Betrag|Information ", 10, 90, 300, 300)
$frage = Msgbox(4,"Achtung","Möchten Sie den alten Geldstand importieren?")
if $frage = 6 Then
$read = Fileread(@scriptdir & "\Daten\config.dat")
LoadLV($listview)
Endif
While 1
$msg = GUIGetMsg()
Switch $msg
Case $exit
Exit
Case $ok
GUICtrlSetState($Jahr, $GUI_DISABLE)
GUICtrlSetState($Monat, $GUI_DISABLE)
GUICtrlSetState($Tag, $GUI_DISABLE)
GUICtrlSetState($ok, $GUI_DISABLE)
GUICtrlSetState($enable, $GUI_ENABLE)
$checkthebutton = "0"
Case $enable
GUICtrlSetState($Jahr, $GUI_ENABLE)
GUICtrlSetState($Monat, $GUI_ENABLE)
GUICtrlSetState($Tag, $GUI_ENABLE)
GUICtrlSetState($ok, $GUI_ENABLE)
GUICtrlSetState($enable, $GUI_DISABLE)
$checkthebutton = "1"
Case $hinzu
If $checkthebutton = "1" Then
MsgBox(0, "Achtung", "Bitte erst das Datum bestätigen ! ")
Else
If GUICtrlRead($ausgaben) = 1 Then
GUICtrlCreateListViewItem("- " & GUICtrlRead($betrag) & " €" & "|" & GUICtrlRead($grund), $listview)
GUICtrlSetData($grund, "")
GUICtrlSetData($betrag, "")
Else
GUICtrlCreateListViewItem("+ " & GUICtrlRead($betrag) & " €" & "|" & GUICtrlRead($grund), $listview)
GUICtrlSetData($grund, "")
GUICtrlSetData($betrag, "")
EndIf
EndIf
Case $save
DirCreate(@ScriptDir & "\Daten\" & @YEAR & "\" & $month)
$tpday = @ScriptDir & "\Daten\" & @YEAR & "\" & $month & "\" & $month & ".txt "
Traytip("Speichern","Erfolgreich in " &@crlf & $tpday & "gespeichert.",2,1)
SaveLV($listview)
$lol = _Listview_GetItemsArray2($listview)
;_arraydisplay($lol)
For $a = 1 To $lol[0][0]
FileWrite(@ScriptDir & "\Daten\" & @YEAR & "\" & $month & "\" & $month & ".txt", $lol[$a][0] & " -------------> " & $lol[$a][1] & @CRLF)
Next
Guictrlsetstate($multi,$GUI_ENABLE)
Case $multi
$omg = _Listview_GetItemsArray($listview)
Guictrlsetdata($money,$omg & " €")
FileWrite(@ScriptDir & "\Daten\" & @YEAR & "\" & $month & "\" & $month & ".txt","Aktueller Geldstand: " & Guictrlread($money) &@crlf)
Filewrite(@scriptdir & "\Daten\config.dat",Guictrlread($money))
EndSwitch
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

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

Func _Listview_GetItemsArray($listview)
Local $iCount = _GUICtrlListView_GetItemCount($listview)
Local $iColum = _GUICtrlListView_GetColumnCount ($listview)
Local $aListview[$iCount]
For $i = 1 To $iCount
$aTmp = _GUICtrlListView_GetItemTextArray($listview, $i-1)
$aListview[$i-1] = StringStripWS(StringTrimRight($aTmp[1], 1),
Next
;_ArrayDisplay($aListview)
$result = Execute(_ArrayToString($aListview,""))
Return $result
EndFunc

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

Func _Listview_GetItemsArray2($listview)
Local $iCount = _GUICtrlListView_GetItemCount($listview)
Local $iColum = _GUICtrlListView_GetColumnCount ($listview)
Local $aListview2d[$iCount+1][$iColum]
$aListview2d[0][0] = $iCount
For $i = 1 To $iCount
$aTmp = _GUICtrlListView_GetItemTextArray($listview, $i-1)
For $i2 = 1 To $aTmp[0]
$aListview2d[$i][$i2 - 1] = $aTmp[$i2]
Next
Next
Return $aListview2d
EndFunc

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

Func SaveLV($sFile)
Local $hFileOut, $aItem
$hFileOut = FileOpen($sFile, 2)
For $j = 0 To _GUICtrlListView_GetItemCount($listview) - 1
$aItem = _GUICtrlListView_GetItemTextString($listview, $j)
FileWriteLine(@scriptdir & "\Daten\" & $Monat & "\" & $Monat & ".txt", $aItem)
Next
FileClose($hFileOut)
EndFunc ;==>SaveLV

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

Func LoadLV($sFile)
Local $aItems
If FileExists(@scriptdir & "\Daten\" & $Monat & "\" & $Monat & ".txt") Then
_FileReadToArray($sFile, $aItems)
If IsArray($aItems) Then
_GUICtrlListView_DeleteAllItems($listview)
_ArrayDisplay($aItems)
For $j = 1 To $aItems[0]
GUICtrlCreateListViewItem($aItems[$j], $listview)
Next
EndIf
EndIf
EndFunc ;==>LoadLV

[/autoit]

irgendwie will das nicht so wie ich will.
kann man auch irgendwie den Endbetrag wieder importieren, das der beim start da weitermacht wo er aufgehört hat? wenns der gleiche monat is...

Beiträge von Kev

[Teamspeak 3] Autoit.de - Online Community

Minecraft CraftBukkit GUI Version 1.2.1 release

[Teamspeak 3] Autoit.de - Online Community

bild in gui anzeigen und wechseln lassen

Minecraft CraftBukkit GUI Version 1.2.1 release

Happy Birthday i2c :)

Minecraft CraftBukkit GUI Version 1.2.1 release

World of Warcraft Autoinstaller

Ascii in au3

Ascii in au3

Ascii in au3

Ascii in au3

Programm löst Bildschirmanimation aus.

Programm löst Bildschirmanimation aus.

time zähler

time zähler

[HDD] Kein Zugriff

Stuttgart 21

Text mit Taste kopieren

Berechnung Listview - Arrays