Beiträge von johnnyboyy

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_SaveSource=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiListView.au3>
#include <GuiTreeView.au3>

Global $Pic1
$operations = 0
Global $TempFolder
$folderinfile=""
$ViewList=""
$splitstring = ""

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Anime Sammlung", 615, 438, 192, 124)
;;$List1 = GUICtrlCreateList("", 8, 8, 153, 409)
$Open = GUICtrlCreateButton("Ordner öffnen", 528, 392, 75, 25)
$Label1 = GUICtrlCreateLabel("", 180, 0, 700, 51)
GUICtrlSetFont(-1, 20, 100, 0, "Segoe Print")
$TreeView = _GUICtrlTreeView_Create($Form1,8, 8, 175, 409)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Listnames = _FileListToArray(@ScriptDir&"Anime")
;~ Global $ListSubFolders
global $this
global $ListSubFolders[1]
$desktopini =_ArraySearch($Listnames,"desktop.ini")

For $a=0 to $Listnames[0] step 1
if $Listnames[$a]="desktop.ini" then
$operations+=1
_ArrayDelete($Listnames,$desktopini)
$Listnames[0] = $Listnames[0]-$operations
ExitLoop
EndIf
next

For $dir=1 to $Listnames[0] step 1
$TempFolder=_FileListToArray(@ScriptDir&"Anime"&$Listnames[$dir]&_FileListToArray(@ScriptDir&"Anime"&$Listnames[$dir]))
$hHandle = _GUICtrlTreeView_Add($TreeView,"",$Listnames[$dir])
For $dirin = 1 to $TempFolder[0] step 1
if FileGetAttrib(@ScriptDir&"Anime"&$Listnames[$dir]&""&$TempFolder[$dirin]) = "D" Then
_ArrayAdd($ListSubFolders,$Listnames[$dir]&""&$TempFolder[$dirin])

;~ _GUICtrlTreeView_Add($TreeView,"",$Listnames[$dir]&""&$TempFolder[$dirin])
_GUICtrlTreeView_AddChild($TreeView,$hHandle,$TempFolder[$dirin])
$ListSubFolders[0]+=1

EndIf
Next
;~ _ArrayDisplay($ListSubFolders)
Next

while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Open

EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <GuiListView.au3>
#include <GuiTreeView.au3>

Global $Pic1
$operations = 0
$TempFolder=""
$folderinfile=""
$ViewList=""
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Anime Sammlung", 615, 438, 192, 124)
;;$List1 = GUICtrlCreateList("", 8, 8, 153, 409)
$Open = GUICtrlCreateButton("Ordner öffnen", 528, 392, 75, 25)
$Label1 = GUICtrlCreateLabel("", 180, 0, 700, 51)
GUICtrlSetFont(-1, 20, 100, 0, "Segoe Print")
$TreeView = _GUICtrlTreeView_Create($Form1,8, 8, 175, 409)
;$TreeView1 = GUICtrlCreateTreeView(8, 8, 175, 409)
$naru = _GUICtrlTreeView_Add($TreeView,"","Naruto")
_GUICtrlTreeView_AddChild($TreeView,$naru,"Shippuuden")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

$Listnames = _FileListToArray(@ScriptDir&"Anime")

$desktopini =_ArraySearch($Listnames,"desktop.ini")

For $a=0 to $Listnames[0] step 1
if $Listnames[$a]="desktop.ini" then
$operations+=1
_ArrayDelete($Listnames,$desktopini)
$Listnames[0] = $Listnames[0]-$operations
ExitLoop
EndIf
next

For $dir=1 to $Listnames[0] step 1
$TempFolder=_FileListToArray(@ScriptDir&"Anime"&$Listnames[$dir]&_FileListToArray(@ScriptDir&"Anime"&$Listnames[$dir]))
For $dirin = 1 to $TempFolder[0] step 1
if FileGetAttrib(@ScriptDir&"Anime"&$Listnames[$dir]&""&$TempFolder[$dirin]) = "D" Then
_ArrayAdd($Listnames,$Listnames[$dir]&""&$TempFolder[$dirin])

$Listnames[0]+=1
EndIf
Next
Next

For $ordner=1 to $Listnames[0] step 1
if FileGetAttrib($TempFolder=_FileListToArray(@ScriptDir&"Anime"&$Listnames[$ordner]))="D" Then
MsgBox("","",$TempFolder[$ordner])
EndIf
Next

For $i=1 to $Listnames[0] step 1
if StringInStr("Apple","Apple") Then
;MsgBox("","",$Listnames[$i])
EndIf
If StringInStr($Listnames[$i],$Listnames[$i]&"") Then MsgBox("","",_GetListName($Listnames,1))
_GUICtrlTreeView_Add($TreeView,"",$Listnames[$i])
Next

while 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Open

EndSwitch
WEnd

Func addtolist()
GUICtrlDelete($List1)
Sleep(1000)
$List1 = GUICtrlCreateList("", 40, 24, 329, 253)
Sleep(1000)
RunWait(@ComSpec & " /c megals --reload");, @ScriptDir, @SW_HIDE)
$items = Run(@ComSpec & " /c megals", @ScriptDir, "", $STDERR_CHILD + $STDOUT_CHILD)
Sleep(450)
$output = StdoutRead($items)
$array = StringSplit($output, "/")
For $ar = 1 To $array[0]
If StringInStr($array[$ar], ".") And $ar + 1 < $array[0] Then
$out &= $array[$ar] & @CRLF & "/"
Else
$out &= $array[$ar] & "/"
EndIf
Next
$out = StringTrimRight($out, 1)
$out = StringSplit($out, @CRLF)
For $i = 1 To $out[0]
If $out[$i] <> "" Then
_GUICtrlListBox_AddString($List1, $out[$i])
TrayTip("Structure found:",$out[$i],0.2)
Sleep(200)
EndIf
Next
EndFunc ;==>addtolist

For $ar = 1 To $array[0]
if StringInStr($array[$ar],".") and $ar+1 < $array[0] Then
;~ GUICtrlSetData($List1,$ar&@CRLF&"/")
$out &= $array[$ar] & @CRLF &"/"
Else
;~ GUICtrlSetData($List1,$ar&"/")
$out &= $array[$ar]&"/"
EndIf
;~ $out &= $array[$ar]
Next
$out = StringTrimRight($out,1)
;~ MsgBox(0,"",$out)
GUICtrlSetData($List1,$out)

RunWait(@ComSpec & " /c megals --reload", @ScriptDir)
$items = Run(@ComSpec & " /c megals", @ScriptDir,@SW_HIDE, $STDOUT_CHILD)
Sleep(350)
$output = StdoutRead($items)
$array = StringSplit($output,"/",1)
For $ar In $array
If IsNumber($ar) Or "" Then
Else
GUICtrlSetData($List1,"/"&$ar)
EndIf
Next

case Else
If $serverl Then
$data = StdOutRead($serverl)
$open = FileOpen("server.log")
$log = FileRead($open)
If $data Then GUICtrlSetData($console,$log & GUICtrlRead($console) & $data)
FileClose($open)
EndIf

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
global $serverl,$servertp
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("minecraft server tool", 789, 484, 192, 114)
$startserver = GUICtrlCreateButton("Start Server", 8, 8, 115, 25, $WS_GROUP)
$servertype = GUICtrlCreateCombo("choose the server type", 128, 8, 145, 25)
GUICtrlSetData(-1, "Normalx86|Normalx64|Hey0x86|Hey0x64")
$console = GUICtrlCreateEdit("", 8, 40, 769, 409)
GUICtrlSetData(-1, "<The Minecraft Server Tool>")
$command = GUICtrlCreateInput("", 8, 456, 649, 21)
$send = GUICtrlCreateButton("Send", 664, 454, 75, 25, $WS_GROUP)
$cmds = GUICtrlCreateButton("cmds", 744, 454, 35, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("Open Server properties", 656, 8, 123, 25, $WS_GROUP)
$restart = GUICtrlCreateButton("Restart Server", 384, 8, 75, 25, $WS_GROUP)
$reload = GUICtrlCreateButton("Reload everything", 280, 8, 91, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

local $serverl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
if ProcessExists("java.exe") then
ProcessClose("java.exe")
Exit
EndIf

case $restart
GUICtrlSetData($console,"")
if ProcessExists("java.exe") then ProcessClose("java.exe")
if $servertp = "1" Then
$serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
ElseIf $servertp = "2" Then
$serverl = Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
ElseIf $servertp = "3" Then
$serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar Minecraft_Mod.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
ElseIf $servertp = "4" Then
$serverl = Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
EndIf
case $startserver
$servert = GUICtrlRead($servertype)
if ProcessExists("java.exe") then ProcessClose("java.exe")
If $servert = "Normalx86" Then
$serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
;~ $serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui');, "", @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD)
$servertp = "1"
ElseIf $servert = "Normalx64" Then
$serverl = Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
$servertp = "2"
ElseIf $servert = "Hey0x86" Then
$serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar Minecraft_Mod.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
$servertp = "3"
ElseIf $servert = "Hey0x64" Then
$serverl = Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui', "", @SW_HIDE, $STDERR_CHILD + $STDIN_CHILD + $STDOUT_CHILD)
$servertp = "4"
EndIf
case $send
$incmd = GUICtrlRead($command)
StdinWrite($serverl,$incmd &"{enter}")
case Else
If $serverl Then
$data = StdOutRead($serverl)
If $data Then
GUICtrlSetData($console, GUICtrlRead($console) & $data)
EndIf
EndIf

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("minecraft server tool", 789, 484, 192, 114)
$startserver = GUICtrlCreateButton("Start Server", 8, 8, 115, 25, $WS_GROUP)
$servertype = GUICtrlCreateCombo("choose the server type", 128, 8, 145, 25)
GUICtrlSetData(-1, "Normalx86|Normalx64|Hey0x86|Hey0x64")
$console = GUICtrlCreateEdit("", 8, 40, 769, 409)
GUICtrlSetData(-1, "<The Minecraft Server Tool>")
$command = GUICtrlCreateInput("", 8, 456, 649, 21)
$send = GUICtrlCreateButton("Send", 664, 454, 75, 25, $WS_GROUP)
$cmds = GUICtrlCreateButton("cmds", 744, 454, 35, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("Open Server properties", 656, 8, 123, 25, $WS_GROUP)
$restart = GUICtrlCreateButton("Restart Server", 384, 8, 75, 25, $WS_GROUP)
$reload = GUICtrlCreateButton("Reload everything", 280, 8, 91, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

local $serverl = 0
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
if ProcessExists("java.exe") then ProcessClose("java.exe")
Exit
case $startserver
;~ local $serverl = Run("server.exe", "", "", $STDERR_CHILD + $STDOUT_CHILD)
;~ #cs
$servert = GUICtrlRead($servertype)
If $servert = "Normalx86" Then
local $serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui',"",@SW_HIDE,$STDERR_CHILD + $STDOUT_CHILD)
MsgBox("","Started","Press ok to continue")
ElseIf $servert = "Normalx64" Then
Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui')
EndIf
;~ #ce
case Else
If $serverl Then
$data = StdOutRead($serverl)
If $data Then GUICtrlSetData($console, $data)
EndIf
EndSwitch
WEnd

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("minecraft server tool", 789, 484, 192, 114)
$startserver = GUICtrlCreateButton("Start Server", 8, 8, 115, 25, $WS_GROUP)
$servertype = GUICtrlCreateCombo("choose the server type", 128, 8, 145, 25)
GUICtrlSetData(-1, "Normalx86|Normalx64|Hey0x86|Hey0x64")
$console = GUICtrlCreateEdit("", 8, 40, 769, 409)
GUICtrlSetData(-1, "<The Minecraft Server Tool>")
$command = GUICtrlCreateInput("", 8, 456, 649, 21)
$send = GUICtrlCreateButton("Send", 664, 454, 75, 25, $WS_GROUP)
$cmds = GUICtrlCreateButton("cmds", 744, 454, 35, 25, $WS_GROUP)
$Button1 = GUICtrlCreateButton("Open Server properties", 656, 8, 123, 25, $WS_GROUP)
$restart = GUICtrlCreateButton("Restart Server", 384, 8, 75, 25, $WS_GROUP)
$reload = GUICtrlCreateButton("Reload everything", 280, 8, 91, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
if ProcessExists("java.exe") then ProcessClose("java.exe")
Exit
case $startserver
$servert = GUICtrlRead($servertype)
If $servert = "Normalx86" Then
local $serverl = Run('"'&@ProgramFilesDir&'\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui',"",@SW_HIDE)
MsgBox("","Started","Press ok to continue")
ElseIf $servert = "Normalx64" Then
Run('"'&@ProgramFilesDir&'(x86)\Java\jre6\bin\java.exe" -Xms1024M -Xmx1024M -jar minecraft_server.jar nogui')
EndIf
case $reload
$data = StdOutRead($serverl)
GUICtrlSetData($console,$data)
EndSwitch
WEnd