Beiträge von TheLuBu

TheLuBu

siehste, ein komma vergesen

die 2te Fehlermeldung ist ja ausm compilierten Zustand, was sagt der denn wenn du das über Scite laufen lässt?

-EDIT- Probiers mal mit der Funktion

[autoit]

Func Getdata()
Local $avArray
_FileReadToArray("server.log", $avArray)
If IsArray( $avArray) Then
For $i = 1 To $avArray[0]
$data = GUICtrlRead($OVERVIEW)
GUICtrlSetData($OVERVIEW $data & @CRLF & $avArray[$i])
EndIf
EndFunc

[/autoit]

TheLuBu

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

; ================================;
; Bukkit Server Manager
; Made by Kazu
; © 2011 Kazu Mikura
; ================================;

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
;~ $hFile = FileOpen("server.log")
#Region ### START Koda GUI section ### Form=d:\autoit\bukkit server manager\gui.kxf
$GUI = GUICreate("Bukkit Server Manager", 684, 405, 192, 124)
$OVERVIEW= GUICtrlCreateEdit("", 8, 48, 665, 305)
$START = GUICtrlCreateButton("Start", 8, 8, 81, 25, $WS_GROUP)
$STOP = GUICtrlCreateButton("Stop", 104, 8, 81, 25, $WS_GROUP)
$RESTART = GUICtrlCreateButton("Restart", 200, 8, 81, 25, $WS_GROUP)
$SAVEALL = GUICtrlCreateButton("Save-All", 296, 8, 81, 25, $WS_GROUP)
$RELOAD = GUICtrlCreateButton("Reload", 392, 8, 81, 25, $WS_GROUP)
$INPUT = GUICtrlCreateInput("", 8, 368, 665, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $START
;~ $Process = Run("craftbukkit-0.0.1-SNAPSHOT.jar", "", default,0x3 )
$Process = Run(@ProgramFilesDir&'\Java\jre6\bin\java.exe -Xms1024M -Xmx1024M -jar craftbukkit-0.0.1-SNAPSHOT.jar ', '', '', 0x9)
AdlibRegister(Getdata())
Case $STOP
StdinWrite ( $Process, "stop" )
Case $RESTART

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

Case $SAVEALL
StdinWrite ( $Process, "save-all" )
Case $RELOAD
StdinWrite ( $Process, "reload" )
EndSwitch

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

;~ If ProcessExists( $Process) Then
;~ Do
;~ $data = StdoutRead($Process)
;~ If $data <> "" Then
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $data = ' & $data & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
;~ FileWrite($hFile, $data&@CRLF)
;~ EndIf
;~ Until @error <> 0
;~ EndIf
WEnd

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

Func Getdata()
Local $avArray
_FileReadToArray("server.log", $avArray)
For $i = 1 To $avArray[0]
$data = GUICtrlRead($OVERVIEW)
GUICtrlSetData($OVERVIEW $data & @CRLF & $avArray[$i])
EndIf
EndFunc

[/autoit]

TheLuBu

Poste bitte nochmal deinen COde

TheLuBu

Teste mal, ob du, während der server läuft,

[autoit]

$hFile = FileOpen("server.log")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hFile = ' & $hFile & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

[/autoit]

nutzen kannst, oder ob du dabei einen error erhälst.
Wenn du den error erhälst, nutzt der server das Filehandle und es wird schwierig die Datei auszulesen

TheLuBu

So ich hab mir mal die MInecraft-server.jar runtergeladen und es mal hiermit getestet:

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

; ================================;
; Bukkit Server Manager
; Made by Kazu
; © 2011 Kazu Mikura
; ================================;

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
$hFile = FileOpen ("C:\Test.txt", 1)
$Process = 0
#Region ### START Koda GUI section ### Form=d:\autoit\bukkit server manager\gui.kxf
$GUI = GUICreate("Bukkit Server Manager", 684, 405, 192, 124)
$OVERVIEW= GUICtrlCreateEdit("", 8, 48, 665, 305)
$START = GUICtrlCreateButton("Start", 8, 8, 81, 25, $WS_GROUP)
$STOP = GUICtrlCreateButton("Stop", 104, 8, 81, 25, $WS_GROUP)
$RESTART = GUICtrlCreateButton("Restart", 200, 8, 81, 25, $WS_GROUP)
$SAVEALL = GUICtrlCreateButton("Save-All", 296, 8, 81, 25, $WS_GROUP)
$RELOAD = GUICtrlCreateButton("Reload", 392, 8, 81, 25, $WS_GROUP)
$INPUT = GUICtrlCreateInput("", 8, 368, 665, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $START
;~ $Process = Run("craftbukkit-0.0.1-SNAPSHOT.jar", "", default,0x3 )
$Process = Run(@ProgramFilesDir&'\Java\jre6\bin\java.exe -Xms1024M -Xmx1024M -jar C:\Freigegeben\minecraft_server.jar ', '', '', 0x9)
Case $STOP
StdinWrite ( $Process, "stop" )
Case $RESTART

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

Case $SAVEALL
StdinWrite ( $Process, "save-all" )
Case $RELOAD
StdinWrite ( $Process, "reload" )
EndSwitch
If ProcessExists( $Process) Then
Do
$data = StdoutRead($Process)
If $data <> "" Then
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $data = ' & $data & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
FileWrite($hFile, $data&@CRLF)
EndIf
Until @error <> 0
EndIf
WEnd

[/autoit]

Habe dabei das hier rausgebekommen: (Aus der Test.txt)

Spoiler anzeigen

Code

2011-03-10 23:04:40 [INFO] Starting minecraft server version Beta 1.3


2011-03-10 23:04:40 [INFO] Loading properties


2011-03-10 23:04:40 [INFO] Starting Minecraft server on *:25565


2011-03-10 23:04:40 [INFO] Preparing level "world"


2011-03-10 23:04:40 [INFO] Preparing start region


2011-03-10 23:04:41 [INFO] Done (1046365111ns)! For help, type "help" or "?"


2011-03-10 23:04:43 [INFO] Stopping server
2011-03-10 23:04:43 [INFO] Saving chunks

Alles anzeigen

Also soweit sogut, lesen geht

TheLuBu

Run(@ProgramFilesDir&'\Java\jre6\bin\java.exe -Xms1024M -Xmx1024M -jar craftbukkit-0.0.1-SNAPSHOT.jar',Workingdir, '', 0x3)

Workindfir muss das Verzeichnis sein, indem die Jar datei liegt, grade mit nem anderen Programm getestet

TheLuBu

Was für einen Fehler kriegst du denn dabei?

TheLuBu

Spoiler anzeigen

[autoit]

#NoTrayIcon

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

; ================================;
; Bukkit Server Manager
; Made by Kazu
; © 2011 Kazu Mikura
; ================================;

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

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <File.au3>
$hFile = FileOpen ("C:\Test.txt", 1)
#Region ### START Koda GUI section ### Form=d:\autoit\bukkit server manager\gui.kxf
$GUI = GUICreate("Bukkit Server Manager", 684, 405, 192, 124)
$OVERVIEW= GUICtrlCreateEdit("", 8, 48, 665, 305)
$START = GUICtrlCreateButton("Start", 8, 8, 81, 25, $WS_GROUP)
$STOP = GUICtrlCreateButton("Stop", 104, 8, 81, 25, $WS_GROUP)
$RESTART = GUICtrlCreateButton("Restart", 200, 8, 81, 25, $WS_GROUP)
$SAVEALL = GUICtrlCreateButton("Save-All", 296, 8, 81, 25, $WS_GROUP)
$RELOAD = GUICtrlCreateButton("Reload", 392, 8, 81, 25, $WS_GROUP)
$INPUT = GUICtrlCreateInput("", 8, 368, 665, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $START
$Process = Run("craftbukkit-0.0.1-SNAPSHOT.jar", "", default,0x3 )
Case $STOP
StdinWrite ( $Process, "stop" )
Case $RESTART

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

Case $SAVEALL
StdinWrite ( $Process, "save-all" )
Case $RELOAD
StdinWrite ( $Process, "reload" )

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

EndSwitch
Do
FileWrite($hFile, StdoutRead($Process)&@CRLF)
Until @error <> 0
WEnd

[/autoit]

Probiers mal so, in der Test.txt sollte, wenn es klappt, das stehen, was du in Overview haben willst

TheLuBu

Ich bin mir nicht sicher, da ich selbst keienn Minecraft server habe, aber du könntest es mal statt mit SHell Execute mit Run versuchen und dann mit

[autoit]

StdoutRead

[/autoit]

und

[autoit]

Stdinwrite

[/autoit]

versuchen. Ich bin mir aber nicht sicher ob es so klappt

TheLuBu

Da is nix rot markiert und vielleicht solltest du zeigen, welcher Teil des Scripts in ner 2ten Whileschleife laufen soll

TheLuBu

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

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

#region - GUI Create
GUICreate('Test')
$Deutsch = GUICtrlCreateIcon(@ScriptDir&"\deutsch.ico", "Deutsch", 1, 1)
$Englisch = GUICtrlCreateIcon(@ScriptDir&"\englisch.ico", "Englisch", 1, 1)
GUISetState()
#endregion

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

#region - GUI SelectLoop
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Deutsch
Changelanguage ("DEUTSCH")
Case $Englisch
Changelanguage ("ENGLISCH")
EndSwitch
WEnd
#endregion

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

Func Changelanguage ($SelectedLanguage)
$LTitle = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"Title","Titel")
$LIEold = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"IEOld","Internet Explorer zu alt. Mindestens Version 7")
$LNoAdmin = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"NoAdmin","Keine Administratorenrechte.")
$LError = IniRead(@ScriptDir & "\Languages\Languages.ini",$SelectedLanguage,"Error","Fehler")

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

GUICtrlSetData( $Button1, $LTitle)
GUICtrlSetData( $Button2, $LIEold)
GUICtrlSetData( $Button3, $LNoAdmin)
GUICtrlSetData( $Button4, $LError)
EndFunc

[/autoit]

Quick & Dirty

TheLuBu

Hallo waro,

[autoit]

Case $btn_play
Global $video = GUICtrlRead($input_video)
Global $intervall = (GUICtrlRead($input_zeit)*60)*1000

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

_video()

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

EndSwitch
WEnd

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

Func _video()
$videoplay = RunWait('"' & $vlc & '"' & " " & '"' & $video & '"')
ProcessWaitClose($videoplay)
sleep($intervall)
_video()
EndFunc

[/autoit]

Du führst eine Endlosschleife aus, video() startet video(). Das ganze läuft in einem Switch Case, das wird ausgeführt und das Script solange angehalten.

Du drückst auf den Knopf, Case $btn_play tritt ein, und es wird video gestartet, dann wieder video gestartet, etc. DU kommst nicht mehr in die While 1 Schleife des GUI´s zurück, da du immernoch im Case $btn_play bist.

TheLuBu

Wie genau es gehen könnte weiß ich jetzt nicht,
aber BugFix hatte vor kurzem eine VBA Referenz verlinkt, da ist unter anderem auch Word dabei, vielleicht findest du da das passende

BugFix Link VBA Referenz

TheLuBu

Als Beispiel mal
@Compiled Gibt 1 zurück, wenn das Skript eine kompilierte exe-Datei ist; ansonsten wird 0 zurückgegeben

[autoit]

If Not @compiled Then
Do
Sleep(10)
Until 1
EndIf

[/autoit]

Selbes Ergebnis

[autoit]

If @compiled <> 1 Then
Do
Sleep(10)
Until 1
EndIf

[/autoit]

Das geht aber nur wenn du einen Wert hast der Wahr oder Falsch bzw. 1 oder 0 zurückgibt,
wenn du Unterschiede eines Wertes haben willst, sind im Normalfall eigentlich die Vergleichsoperatoren besser

TheLuBu

Hallo liebe Community,
ich habe eine Frage an euch.
Ich habe bereits einen Server und Client, diese kommunizieren auch miteinander. Nun möchte ich aber einen weiteren Client schreiben, der je nach PC andere Daten empfangen soll und auf ca. 60 PC´s laufen soll. Muss ich dafür nun einen neuen TCPStartup benutzen, bzw. einen komplett neuen Socket nutzen?

Und zur Verständnis da ich relativ neu bei TCP bin, wie kann ich die verschiedenen Clients unterscheiden? Bzw. wie kann ich abfragen, wieviele Clients gerade verbunden sind.
Ich habe für den aktuell laufenden Server ein Logfile eingebaut, welches die IP-Adresse und den Benutzernamen am PC speichert, aber ich komme nicht dahinter, wie ich unterschiedliche Daten dann senden kann.

Ich würde mich über eine Antwort freuen

TheLuBu

Wenn du dir die Beispiele für TCPIP, also Server und client, mal ansiehst und dann beide compilierst und ausführst, siehst du das es doch geht
Einzig SocketToIP im Beispiel liefert 0 zurück und nicht die IP Adresse, sonst gehts aber

TheLuBu

Zitat von Aquaplant

Hi,

kurz vorweg; ist das Möglich:
Case 2 To 6
? Ich habe so eine Schreibweise zuvor nie gesehen.
Wenn ich den Kommentar im Server richtig verstehe, hat der Server und dein Client die gleiche IP? Das klappt nicht, zum testen brauchst du mindestens zwei verschiedene Rechner.

Was mir noch beim Überfliegen des Servers aufgefallen ist:
[autoit]
Do
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket <> -1 Then
$clientconnected = 1
ExitLoop
EndIf
Until @Min = $Minutes
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
$Minutes wurde nie vorher deklariert. Das kann aber auch daran liegen, dass du nur einen Ausschnitt gepostet hast.

Aquaplant

Alles anzeigen

Zu Case 2 To 6:
kommt auf den Switch an, bei @WDay ja, kannst dir das Beispiel zu Switch ansehen
Server und Client haben eine unterschiedliche IP, im client wird nur die ServerIP festgelegt
$minutes wird deklariert ;), ist ja nur ein Ausschnitt

Habe übrigens den Fehler gefunden, war die Firewall, die das Senden an den Server geblockt hat

TheLuBu

Hallöchen liebe Community,
Ich habe einen Server und einen Client gescriptet. Der Server liefert die Daten und der Client liest sie dann aus.
Der Server speichert die Daten als textfiles ab, der Client liest sie dann aus.
Jetzt möchte ich, das man den Server über den Client steuern kann (Beenden, Neustarten und Daten aktualiseren). Dafür will ich TCP/IP nutzen
Ich habe mir die Beispiele in der Hilfedatei angesehen und ich denke, soweit ist ist alles korrekt, ich kriege aber immer einen Timeout vom Client bei TCPConnect()
Das Serverscript läuft auf einem Server, die Clients jeweils auf verschiedenen PC´s

Hier die Teile vom Serverscript:

Spoiler anzeigen

[autoit]

Dim $szIPADDRESS = @IPAddress1 ;192.168.1.10
Dim $nPORT = 33891
TCPStartUp()
$MainSocket = TCPListen($szIPADDRESS, $nPORT, 1)
$ConnectedSocket = -1

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

Switch @WDAY
Case 2 To 6
Switch @HOUR
Case 8 To 21
Do
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket <> -1 Then
$clientconnected = 1
ExitLoop
EndIf
Until @Min = $Minutes
If $clientconnected = 1 Then
Dim $szIP_Accepted = SocketToIP($ConnectedSocket)
Dim $msg, $recv
While 1
$recv = TCPRecv( $ConnectedSocket, 2048 )
If @min = $Minutes Then
ExitLoop
ElseIf $recv <> "" Then
If $recv = "Shutdown" Then
_FileWriteLog(@ScriptDir & "\server.log", "Server wurde heruntergefahren von "&$szIP_Accepted)
TCPCloseSocket( $ConnectedSocket )
TCPShutDown()
Exit
ElseIf $recv = "Restart" Then
_FileWriteLog(@ScriptDir & "\server.log", "Server wurde neugestartet von "&$szIP_Accepted)
TCPCloseSocket( $ConnectedSocket )
TCPShutDown()
Run (@ScriptName)
Exit
ElseIf $recv = "Refresh" Then
_FileWriteLog(@ScriptDir & "\server.log", "Server Daten werden aktualisert. Refresh gestartet von "&$szIP_Accepted)
ExitLoop
EndIf
EndIf
WEnd
EndIf
EndSwitch
Case Else
Do
Sleep(28800000)
Until @WDAY = 2
EndSwitch

[/autoit]

Und der Client:

Spoiler anzeigen

[autoit]

Global $szIPADDRESS = "192.168.1.10", $nPORT = 33891
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Adminrefresh
If $admin = 1 Then
TCPStartup()
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
Else
TCPSend($ConnectedSocket, "r3fr35h")
If @error Then
MsgBox(4112, "Error", "TCPSend failed with WSA error: " & @error)
EndIf
EndIf
TCPShutdown()
EndIf
Case $Adminrestart
If $admin = 1 Then
TCPStartup()
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
Else
TCPSend($ConnectedSocket, "r357ar7")
If @error Then
MsgBox(4112, "Error", "TCPSend failed with WSA error: " & @error)
EndIf
EndIf
TCPShutdown()
EndIf
Case $Adminexit
If $admin = 1 Then
TCPStartup()
$ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT)
If @error Then
MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error)
Else
TCPSend($ConnectedSocket, "5hu7d0wn")
If @error Then
MsgBox(4112, "Error", "TCPSend failed with WSA error: " & @error)
EndIf
EndIf
TCPShutdown()
EndIf
EndSwitch
WEnd

[/autoit]

Der Error ist 10060 (Timeout)

Kennt sich jemand damit aus?

TheLuBu

Falls ihr mal 2007+ benutzen solltet,

[autoit]

With $oExcel
.Application.DisplayAlerts = False
.ActiveWorkBook.SaveAs("Dateipfad.xls", 56) ; 56 ist das Numberformat für xls Dateien
.ActiveWorkBook.SaveAs("Dateipfad.csv", 6) ; 6 ist das Numberformat für csv Dateien
.ActiveWorkbook.Close
.Quit
EndWith

[/autoit]

aber es hilft mir nicht weiter bei meinem Problem

TheLuBu

naja wenns so einfach wäre
1. Ist das ja nicht das was ich möchte, als csv. speichern liefert für die Weiterverarbeitung etwas falsches zurück, dafür brauchen wir ja das Makro
2. Ist _ExcelBookSaveAs veraltet (funktioniert nicht mehr mit Office 2007+) durch eine Umstellung der Parameter (FileFormat wurde Pflicht)
(vgl. _hier)

Ich möchte das Makro in Autoit ausführen, nicht eine Exceldatei als csv. speichern

Beiträge von TheLuBu

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Minecraft Server Manager

Script mit 2 while Schleifen.

Spachauswahl auf GUI

While schleife verlassen

Fenster ab bestimmte Zeile auslesen

Unterschied zwischen "Not" und "<>" ?

TCP Server Frage/Problem

TCP Problem

TCP Problem

TCP Problem

Excel Makro in Autoit umsetzen

Excel Makro in Autoit umsetzen