Beiträge von General Kaboom

Wie wärs damit...ist nur die Nautilus (eine der vielen Versionen) aber Nemo wird ja auch als "Pirat" eingestuft also kommt das dem was du suchst doch recht nahe ;-).
Kleiner Tipp...vom U-Boot muss man ja nicht ALLES sehen denn die schweben ja nicht in der Luft...es reicht wenn man die Luke oben sieht.
[Blockierte Grafik: http://www.imgbox.de/users/Yukimura/varia_nautilus_fertig.jpg]

Dann komme ich dir doch mal zuvor moritz
Habe noch nicht damit gearbeitet aber sieh dir doch mal QuickDraw an.
Sieht für GDI+-Laien (wie mich) recht vielversprechend aus.

Sowas würde mich mal in 3D interessieren (also mit Irrlicht), kenne mich mit der Engine leider überhaupt nicht aus sonst würde ich das schon selbst machen xD

Aber was bis jetzt ist gefällt mir sehr gut (bei mir hat der download aber nicht funktioniert, da habe ich mit deinem script etwas zusammengebastelt das deiner Darstellung recht ähnlich sieht das editorkonzept ist sehr einfach gehalten aber mehr brauchts vorläufig auch nicht...etwas wär da noch: in den meisten bomberman-spielen gibt es wände die zerstört werden können und andere die fest stehen und unzerstörbar sind...das ist meiner Meinung nach schon noch ein wichtiges detail. Etwas eher unwichtiges sind powerups für grössere Eplosionen und der Fähigkeit abgelegte bomben (auch fremde) wegkicken zu können...wenn du willst kann ich dir auch mal ein Beispiel für ein richtig gutes Bomberman spiel bringen (muss aber zuerst wieder etwas danach suchen)

Mir ist da gerade noch etwas aufgefallen...warum funktioniert dieser Codeteil?

$clients = FileOpen("data\clients.csv") ;Öffnet die Clientliste
While True ;Endlosschleife
$line = FileReadLine($clients) ;Liest die nächste Linie
If $line = @error Then ;Wenn beim lesen ein Fehler aufgetreten ist
GUICtrlCreateListViewItem($line, $Form1ListView1) ;Liste füllen
Else ;Sobald kein Fehler mehr auftritt
ExitLoop
EndIf
WEnd
FileClose($clients)

eigentlich sollte es ja so sein das Aktion 1 nur ausgeführt wird wenn KEIN Fehler auftritt und er soll nur dann rauspringen, wenn die Datei zu Ende ist. Allerdings tritt beim Lesen kein Fehler auf also sollte Aktion 1 so wie sie hier steht gar nicht ausgeführt werden sondern direkt wieder ins Hauptprogramm gesprungen werden? Sehr verwirrend das alles stört mich aber nicht besonders solange es so funktioniert micht interessiert nur WIESO es funktioniert. Übrigends das ist bereits von einer Überarbeiteten Version des Programms von Post 1.

Tach

Hab mal ein kleines Progrämmchen zusammengebastelt das den Fernzugriff bei TightVNC etwas vereinfacht sodass nur noch der Client und die Verbindungsart ausgewählt werden muss.

Installation:
Einfach den ZIP-Ordner im Anhang runterladen, extrahieren und die VNCExplorer.au3 öffnen
Dann an den im Script kommentierten Stellen die entsprechenden Passwörter einfügen, kompilieren und fertig!

Nutzung:
Um neue Clients zu erfassen auf den "Hinzufügen"-Butten klicken und dort die IP und den Clientnamen einschreiben und auf "Speichern" drücken. Besteht der Client bereits, wird gefragt ob die neue Konfigurration anstelle der alten benutzt werden soll. Um Clients zu löschen diese markieren und auf "Löschen" klicken.
Zur Remote-Verbindung (mit Steuerung) zum Client ganz einfach markieren und auf "Remote" klicken.
Zur Überwachung (ohne Inputsteuerung) wieder den Client markieren und auf "Überwachung" klicken.

Info:
Die Verbindung mit unterschiedlichen Clients funktioniert nur, wenn bei allen das gleiche Passwort benutzt wurde.
Die Passwörter die im Config stehen sind verschlüsselt, deshalb solltet ihr zuerst die Config einer manuellen Verbindung abspeichern und dann das Passwort aus dieser Config in die .au3 kopieren.

Bei weiteren Fragen oder Problemen stehe ich (gerne) zur Verfügung.

Source:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <Process.au3>
#include <GuiListView.au3>
#include <File.au3>

If FileExists("c:\programme\TightVNC") Then
$Form1_1 = GUICreate("VNCExplorer", 410, 284, 235, 336)
$Form1Button1 = GUICtrlCreateButton("Remote", 272, 16, 129, 25)
$Form1Button2 = GUICtrlCreateButton("Überwachen", 272, 48, 129, 25)
$Form1Button3 = GUICtrlCreateButton("Hinzufügen", 272, 80, 129, 25)
$Form1Button4 = GUICtrlCreateButton("Schliessen", 272, 144, 129, 25)
$Form1Button5 = GUICtrlCreateButton("Löschen", 272, 112, 129, 25)
$Form1ListView = GUICtrlCreateListView("Name|IP-Adresse", 24, 16, 241, 249)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 100)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 137)
GUISetState(@SW_SHOW)
$configs = _FileListToArray("data\configfiles")
_ArrayDelete($configs, 0)
$counter = UBound($configs)
$line = 0
While $counter > 0
$current = $configs[$line]
$file = FileOpen($current, 0)
$host = FileReadLine("data\configfiles\" &$current, 2)
$host = StringTrimLeft($host, 5)
$cfg = StringTrimRight($configs[$line], 4)
GUICtrlCreateListViewItem($cfg &"|" &$host, $Form1ListView)
$line = $line + 1
$counter = $counter - 1
WEnd
While True
$nMsg = GUIGetMsg()
If $nMsg = $Form1Button1 Then
$selected = GUICtrlRead(GUICtrlRead($Form1ListView))
$selected = StringTrimRight($selected, 1)
$filename = StringSplit($selected, "|")
$name = $filename[1] &".vnc"
$remote = FileOpen("data\configfiles\" &$name, 0)
$text = FileRead($remote)
FileClose($remote)
$text = StringReplace($text, "viewonly=", "viewonly=0")
$text = StringReplace($text, "password=", "password=PASSWORT") ;bei PASSWORT das Passwort für Remote-Zugriffe einfügen
$remote = FileOpen("data\configfiles\" &$name, 2)
FileWrite($remote, $text)
FileClose($remote)
_RunDOS("start c:\programme\TightVNC\vncviewer.exe -config data\configfiles\" &$name)
$remote = FileOpen("data\configfiles\" &$name, 1)
$text = FileRead($remote)
$text = StringReplace($text, "viewonly=0", "viewonly=")
$text = StringReplace($text, "password=PASSWORT", "password=") ;bei PASSWORT das Passwort für Remote-Zugriffe einfügen
FileWrite($remote, $text)
FileClose($remote)
EndIf
If $nMsg = $Form1Button2 Then
$selected = GUICtrlRead(GUICtrlRead($Form1ListView))
$selected = StringTrimRight($selected, 1)
$filename = StringSplit($selected, "|")
$name = $filename[1] &".vnc"
$view = FileOpen("data\configfiles\" &$name, 0)
$text = FileRead($view)
FileClose($view)
$text = StringReplace($text, "viewonly=", "viewonly=1")
$text = StringReplace($text, "password=", "password=PASSWORT") ;bei PASSWORT das Passwort für Überwachungs-Zugriffe einfügen
$view = FileOpen("data\configfiles\" &$name, 2)
FileWrite($view, $text)
FileClose($view)
_RunDOS("start c:\programme\TightVNC\vncviewer.exe -config data\configfiles\" &$name)
$view = FileOpen("data\configfiles\" &$name, 1)
$text = FileRead($view)
$text = StringReplace($text, "viewonly=1", "viewonly=")
$text = StringReplace($text, "password=PASSWORT", "password=") ;bei PASSWORT das Passwort für Überwachungs-Zugriffe einfügen
FileWrite($view, $text)
FileClose($view)
EndIf
If $nMsg = $Form1Button3 Then
$Form2 = GUICreate("Neu", 195, 118, 385, 490)
$Form2Button1 = GUICtrlCreateButton("Speichern", 8, 88, 81, 25)
$Form2Button2 = GUICtrlCreateButton("Schliessen", 104, 88, 81, 25)
$Form2IPAddress = _GUICtrlIpAddress_Create($Form2, 72, 48, 113, 25)
_GUICtrlIpAddress_Set($Form2IPAddress, "0.0.0.0")
$Form2Input = GUICtrlCreateInput("Name", 72, 16, 113, 21)
$Form2Label1 = GUICtrlCreateLabel("IP-Adresse:", 8, 56, 58, 17)
$Form2Label2 = GUICtrlCreateLabel("Name:", 8, 16, 35, 17)
GUISetState(@SW_SHOW)
While True
$nMsg = GUIGetMsg()
If $nMsg = $Form2Button1 Then
$config = FileOpen("data\original.vnc", 0)
If $config = -1 Then
MsgBox(0, "Error", "Could not find original.vnc. File does not exist.")
Exit
EndIf
$name = GUICtrlRead($Form2Input)
If FileExists("data\configfiles\" &$name &".vnc") Then
$ask = MsgBox(17, "Client existiert bereits!", "Dieser Client wurde bereits erfasst. Wenn Sie fortfahren, wird die Konfigurierung überschrieben. Möchten Sie dennoch fortfahren?")
If $ask = 1 Then
FileDelete("data\configfiles\" &$name &".vnc")
Else
GUIDelete($Form2)
ExitLoop
EndIf
EndIf
$read = FileRead($config)
$IP = _GUICtrlIpAddress_Get($Form2IPAddress)
$new = FileOpen("data\configfiles\" &$name &".vnc", 1)
$read = StringReplace($read, "host=", "host=" &$IP)
FileWriteLine($new, $read)
FileClose($new)
_GUICtrlListView_DeleteAllItems ($Form1ListView)
$configs = _FileListToArray("data\configfiles")
_ArrayDelete($configs, 0)
$counter = UBound($configs)
$line = 0
While $counter > 0
$current = $configs[$line]
$file = FileOpen($current, 0)
$host = FileReadLine("data\configfiles\" &$current, 2)
$host = StringTrimLeft($host, 5)
$cfg = StringTrimRight($configs[$line], 4)
GUICtrlCreateListViewItem($cfg &"|" &$host, $Form1ListView)
$line = $line + 1
$counter = $counter - 1
WEnd
GUIDelete($Form2)
ExitLoop
EndIf
If $nMsg = $Form2Button2 Then
GUIDelete($Form2)
ExitLoop
EndIf
WEnd
EndIf
If $nMsg = $Form1Button5 Then
$selected = GUICtrlRead(GUICtrlRead($Form1ListView))
$array = StringSplit($selected, "|")
$del = $array[1]
FileDelete("data\configfiles\" &$del &".vnc")
GUICtrlDelete(GUICtrlRead($Form1ListView))
EndIf
If $nMsg = $Form1Button4 Then
Exit
EndIf
WEnd
Else
$msg = MsgBox(5, "TightVNC nicht installiert", "TightVNC wurde nicht auf ihrem Computer gefunden, möchten Sie TightVNC installieren? Andernfalls wird das Programm beendet!")
If $msg = 7 Then
Exit
Else
ShellExecute("http://www.tightvnc.com/", "", "", "", @SW_MAXIMIZE)
EndIf
EndIf

Schon mal mit neu downloaden versucht?
Vieleicht solltest du acuh mal in der Registry nach "iTunes" suchen und einfach alles mögliche rausschmeissen (funktioniert bei VLC-Player zumindest xD)

Zitat von hauke96

cool^^, mal eine frage, wie hast du den sound da eingebunden?

War gar nicht so schwer (die 0 ist, dass das Programm weiterfahren kann auch wenn der Sound noch läuft):

SoundPlay ( "filename", 0 )

Keine Angst...es macht nichts böses (so weit ich weiss)...hab leider den sourcecode irgendwo verlegt wer sich traut soll es anklicken, wer nicht: ich zwinge euch nicht dazu...aber ich kann euch versprechen, dass dies KEIN scherzprogramm ist

Zitat von TheShadowAE

Vielen dank an alle, auch an die die noch kommen

Natürlich...so ist man mit einem "dankeschön" fein aus der Sache raus
Jedenfalls alles gute

Wird wahrscheinlich eine von BugFix sein...vermutlich eine aus der arraymore-serie .D

xD danke...habs auch gerade gefunden...war leider nicht das was ich suchte aber vieleicht kann ich die irgendwann doch mal brauchen

wo krieg ich diese arraymore denn her?

Also...hier mal der aktuelle Code:

Naja...deine Funktion macht schonmal das richtige...aber leider ist da immernoch irgendwo ein fehler in meinem programm, denn die Eingabefiles haben ca. 100 linien (das file das aus der Funktion kommt auch) aber das Ausgabefile enthält nur noch die erste linie...wenigstens ist das ReadLine-Problem verschwunden...schonmal danke LuBu, dir auch Junkie

Whops...jetzt hab ich genau wieder eine Endlosschlaufe im Program...sprich: es beendet sich nicht mehr und das ausgabefile wird nicht vollständig geschrieben

Hmmm....nein die Zahl stimmt...ich glaube das da irgendetwas beim öffnen des Files schiefgelaufen ist....der FileClose ist ja in Unix2Dos in einer Endlosschleife und ich glaube, dass diese nach der Funktion das File Unaufhaltsam immer wieder schliesst und somit das öffnen Sinnlos macht...kann das sein???

Ähm...das ist nun nicht so ganz so kompliziert wie deins aber mir gefällts trotzdem

Edit: Ja, ich weiss das die Generierungszeit gefaked ist, aber wo bleibt denn sonst die Spannung

danke werd ich mal versuchen...die .csv-daten sind zwar nicht geheim (alle namen wurden ausgetauscht) aber damit hier kein falscher Eindruck von mir entsteht :D...das mit listline hab ich auch schonmal so drinn gehabt, war mir nur nicht sicher ob das so geht xD

Debug protokoll gelöscht, damit ich hier nicht als menschliches facebook abgestempelt werde

Sagt dir das was? Der gibt mir einfach die komplette csv wieder

nee...sieh es dir mal an

Func Unix2Dos(ByRef $in, ByRef $outpath) ;Neue Funktion einleiten
#include <file.au3>
$line = 1
$lines = _FileCountLines($in)
While True ;Endlosschlaufe
$output = FileOpen($outpath, 1)
$instring = FileReadLine($in, $line) ;Zeile in String lesen
If @error Then ;Bei Fehler Wiederholung beenden
ExitLoop
EndIf
$instring = StringReplace($instring, Chr(32), "") ;Leerschläge entfernen
FileWriteLine($output, $instring) ;Konvertierten Text in Datei schreiben
$lines = $lines - 1
$line = $line + 1
FileClose($output) ;File muss geschlossen werden, da das Unterprogramm anstonsten nicht volständigt ausgeführt wird
WEnd
EndFunc ;==>Unix2Dos

Es schliesst das File sogar in den Zwischenschritten (aus irgendeinem Grund funktioniert das ganze sonst nicht, aber ich weiss auch nicht wieso )
Unix2Dos ist übrigends nur eine Funktion, weil das File sonst erst fertig geschrieben wird wenn das Program beendet ist, es hält einfach bei 12kb (von den schlussendlichen 13kb) an und schreibt nach dem beenden noch ca 2-5 Zeilen, auch hier weiss ich nicht wieso aber es funktioniert ja auch anders