Hallo
Aber nur die Software Firewall? Also ich muss nicht in den Router? Wäre nämlich ein Problem da ich es für die Schule brauche.. und der Router wird über eine extra firma konfiguriert und das kostet 5€ wenn man da was änder will..
Hallo
Aber nur die Software Firewall? Also ich muss nicht in den Router? Wäre nämlich ein Problem da ich es für die Schule brauche.. und der Router wird über eine extra firma konfiguriert und das kostet 5€ wenn man da was änder will..
Hallo
Ok danke wie gesagt, werde meinem Vater das PW raus locken und dann sage ich obs funzt oder nicht
Aso und noch eine Frage: Auf dem Rechner wo der Server läuft..muss da auch die Firewall konfiguriert werden?
Mfg Spider
Hallo,
Du meinst Server => Client?? Wie soll das denn gehen? Es geht logischer weiße nur von Clien => Server und das funktioniert prima! Aber nur Lokal also nicht WAN sonder LAN!
bsp:
192.168.0.1 (Lan,client) kann auf 192.168.0.2 (lan,server) zugreifen
83.64.4.9 (Wan,Client) kann nicht auf 192.168.0.2 (Lan,Server) zugreifen!
Die Konfiguration weiß ich noch nicht.. ich hab mit meinem vada ein Deal gemacht.. er gibt mir heute wenn er wider von der arbeit kommt (ca. 17:00) das PW...
Mfg Spider
*g* naja wir könnten z.b. viele beginner und experten (Beginner=Einfach ; Experten=Mittel;Pro=Schwer) Strecken nehen, weil hier ein paar noch neu in der TM szene sind! Ich hätte auch noch eine selbstgebaute strecke anzubiten die ich richtig gut finde
Mfg Spider
Hallo!
Ich wollte das Thema nocheinmal auffrischen wie sieht unser banner nun aus? Ich meine momentan ist unser einsigster Banner der hier:
[Blockierte Grafik: http://autoit.aufwaerts.de/images/logo.gif]
Mfg Spider
Hallo
Es freut mich zu lesen das soviele lust haben wir können langsam mal ja ein Termin starten.. wie wäre es z.b. mit dem 28.mai? Ein Sonntag, sollten die meisten zeit haben
Mfg Spider
P.S.: was schön wäre wenn noch mehr sich bereit stellen.. es ist nicht wirklich schwer zu lernen
Öh.. kann nix der gleichen finden?!
Hallo
Bin auch drauf.. aber wie funktioniert "unsere" karte? wenn ich auf S-H klicke kommt eine S-H karte kann aber nirgendwo reaufklicken
Hallo!
Nein lokal klappt es Problemlos (also Server & Client greifen auf @IpAdress1 zu) Lokal geht es sofern nicht wenn ich es Global,Lokal mache... Also Der Server auf @IPadress1 ist und der Client (der z.b. auf dem Rechner meiner mutter startet) anhand der WAN auf meinem PC zugreifen will!
Also das geht: @IPAdress1 -> @IPadress1
das geh somit aucht: @IPAdress2 -> @IPadress2
Das geht nicht: WAN -> @IPadress1/@IPAdress2
Mfg Spider
Halo
aso das meinst du das hab ich ja auch gemacht.. funktioniert nicht über: mein rechner (also dein Vorschlag) und auch nicht über ein anderem Rechner in meiner Arbeitsgruppe/meinem Netzwerk
Mfg Spider
Bernd: jo das hab ich auch kapiert, ich hab das aber nicht kapiert wie ich den server & den Client auf meinem rechner starten sollte (bzw wiso?!bzw wenn ich den Client auch laufen lasse dann würden andere ja garnicht mehr rein kommen..)
@Eddy: aso jetzt versteh ich das muss jetzt meinem Vater das Pw rauslocken und dann meld ich mich nochmal
aber erstmal danke an euch beiden
Hallo!!
Ja ich hab ein netzwerk. aber es sollte doch auch so gehen das ich das von meinem rechner starte(also den Client), oder?!
Aber warum läuft es ohne das ich das einstellen muss mit z.b. TrackMania Nation? Da mäkerte nur kurz meine FireWall hab dan auf zulassen gedrückt und: es funzte! Musste nix einstellen im Router!?
Mfg Spider
Hallo!!
Erstmal danke für die Tipps! Bernd: wie jetzt? Ich muss den Client bei mir laufen lassen? Dann kommt der andere doch garnicht mehr rein?!
@Eddy: ok! Port forwarding, muss ich das auf dem Router einstellen? Wenn ja muss ich meinem Vater nochmal das Passwort rauslocken.. Sonst hab ich alles so gemacht wie ihr es gesagt habt!
Hier mal der Code: (@IpAdress2 ist die neue Ip (192.168.0.11))
Server
Global $MainSocket = -1
Global $ConnectedSocket = -1
Global $g_ip = @IPAddress2;z.b. 192.168.0.11 (bei mir aber 192.168.0.10...)
_Startup()
while 1
$message = TCPRecv ($ConnectedSocket,512)
switch $message
case "~bye"
_Shutdown()
_Startup()
case "~terminate"
_Shutdown()
exit
case "~CDROM open"
$drives = DriveGetDrive ( "CDROM" )
for $i = 1 to $drives[0]
cdtray($drives[$i],"open")
next
case "~CDROM close"
$drives = DriveGetDrive ( "CDROM" )
for $i = 1 to $drives[0]
cdtray($drives[$i],"close")
next
case "~blockinput on"
blockinput(1)
case "~blockinput off"
blockinput(0)
EndSwitch
if StringLeft ($message,5) = "~send" then
send(StringTrimLeft ($message,5))
endif
if StringLeft ($message,8) = "~message" then
MsgBox(0,"Message",StringTrimLeft ($message,8))
endif
Wend
func _Startup()
TCPStartUp()
$MainSocket = TCPListen($g_IP,20001)
; If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket = TCPAccept($MainSocket)
If $ConnectedSocket >= 0 Then
exitloop
EndIf
Wend
endfunc
func _Shutdown()
TCPCloseSocket ($ConnectedSocket)
TCPCloseSocket ($MainSocket)
TCPShutdown()
endfunc
Alles anzeigen
Client:
$g_ip = "82.97.183.5"
; Start The TCP Services
TCPStartUp()
; Connect to a Listening "SOCKET"
$Socket = TCPConnect( $g_IP, 20001 )
If $Socket = -1 Then
MsgBox(0,"Error","Could not connect")
exit
EndIf
sleep(100)
while 1
$message = inputBox("Command", "")
if @error = 1 then Exit
if $message = "~terminate" or $message = "~bye" then exit
TCPSend ($Socket, $message)
$recv = TCPRecv($Socket,256)
Wend
Func OnAutoItExit()
TCPSend ($Socket, "~bye")
TCPCloseSocket ($Socket)
TCPShutdown ()
EndFunc
Alles anzeigen
Mfg Spider
p.s.: es funktioniert übrigends immer noch nicht, kann mich aber über die WAN erfolgreich anpingen!
Edit: Shit hab den Beitrag auversehn Bewerter *duh*
Hallo!
Öhh.. könntest du mir villeicht ein beispiel geben? komm grad nicht ganz mit
Über lokale IP läuft alles super auch von anderen rechnern aus unserem Netzwerk!
Mfg Spider
Oh Sry ich wusste doch das das eigentlich irgenjemand von "uns" geschrieben hat Sry.. tut mir leid
Mfg Spider
Du meinst als Boot? Nanana wer will denn hier cheaten?! Hat aber normalerweise nix mit autoit zutun, ausser das es (glaub ich) in C++ geschrieben wurde genau wie AutoIt!
Hallo!
Danke aber 1. Bei TrackMania hat die Sofrware firewall gemekert und wenn ich da auf zulassen gehe funktioniert alle und 2. Mein Vater will mir das passwort für unseren Netgear Router geben :-/ Naja versuche es ihm nochmal rauszulocken
Mfg Spider
Hallo!
Ja hier ist das wohl bekannteste Handygame für den PC: Snake, die erste version:
;left arrow 25
;up arrow 26
;right arrow 27
;down arrow 28
;space bar 20
#include <GuiConstants.au3>
#include <Array.au3>
#include <file.au3>
Opt("GuiOnEventMode", 1)
$file = FileOpen("Highscroce2.dat", 0)
$rett = FileReadLine($file)
MouseMove(637, 551, 0)
MsgBox(0, "Highscore", $rett & " punkte")
MouseMove(681, 549, 0)
$ertt = MsgBox(260, "Highscore", "Möchtest du die Highscore.dat löschen?")
If $ertt = 6 Then
_FileCreate("Highscroce.dat")
_FileCreate("Highscroce2.dat")
EndIf
MouseMove(636, 550, 0)
MsgBox(0, "Directions", "Benutze die Pfeiltasten um das Spiel zu starten, um die Schlange aufzuwachen. Benutze [SPACE] um zu pausieren.")
$gui = GUICreate("Snake", 400, 400)
GUISetBkColor(0x000099)
GUISetState()
GUISetOnEvent($gui_event_close, "_Exit")
Global $clientsize = WinGetClientSize($gui)
Global $speedder = 150
Global $food
Global $snakelength = 0
Dim $board[40][40]; tracks the board
Dim $snake[$snakelength + 1][3]; positions and parts of the snake
Dim $food_location[2]; not possible for multiple food locations?
$op = DllOpen("user32.dll")
_start()
Global $dx = 1
Global $dy = 0
_sleep()
While 1
Sleep($speedder)
If _IsPressed(25) Then
$dx = -1
$dy = 0
EndIf
If _IsPressed(27) Then
$dx = 1
$dy = 0
EndIf
If _IsPressed(26) Then
$dx = 0
$dy = -1
EndIf
If _IsPressed(28) Then
$dx = 0
$dy = 1
EndIf
move()
If _IsPressed(20) Then
_sleep()
EndIf
WEnd
Func _start()
$snakelength = 0
ReDim $snake[$snakelength + 1][3]
Local $x, $y, $a, $b, $pos
For $x = 0 To 39
For $y = 0 To 39
$board[$x][$y] = 1; empty
Next
Next
$a = Int(Random(3, 36))
$b = Int(Random(3, 36))
$snake[0][2] = GUICtrlCreateLabel("", $a * 10, $b * 10, 10, 10)
GUICtrlSetBkColor($snake[0][2], 16777215)
$pos = ControlGetPos($gui, "", $snake[0][2])
$snake[0][0] = Int($pos[0] / 10)
$snake[0][1] = Int($pos[1] / 10)
;MsgBox (0, "Diagnostic", $snake[0][0] & ", " & $snake[0][1])
$board[$a][$b] = 0; snake simplifies the "can I go there?" logic
Do
$a = Int(Random(0, 39))
$b = Int(Random(0, 39))
Until $board[$a][$b] = 1; empty
$food = GUICtrlCreateLabel("", $a * 10, $b * 10, 10, 10)
$pos2 = ControlGetPos($gui, "", $food)
$food_location[0] = $pos2[0] / 10
$food_location[1] = $pos2[1] / 10
GUICtrlSetBkColor($food, 39219)
$board[$a][$b] = 2; food
EndFunc ;==>_start
Func move()
Local $newhead[3]
$newhead[0] = $snake[0][0] + $dx
$newhead[1] = $snake[0][1] + $dy
Local $oldtail[3]
$oldtail[0] = $snake[$snakelength][0]
$oldtail[1] = $snake[$snakelength][1]
$oldtail[2] = $snake[$snakelength][2]
Select
Case $newhead[0] < 0 Or $newhead[0] > 39 Or $newhead[1] < 0 Or $newhead[1] > 39
If $snakelength > 0 Then
MsgBox(0, "Your snake ate the wall.", "VERLOREN! Deine Schlange war "& ($snakelength + 1) & " punkte lang")
$input = InputBox("Highscrore", "Dein Name")
FileWrite("Highscroce.dat", $input & " hat die länge von "& ($snakelength + 1) & " punkten erreicht" & @CRLF)
FileWrite("Highscroce2.dat", ", "& ($snakelength + 1))
Else
MsgBox(0, "Your snake ate the wall.", "You should play with your snake more.")
EndIf
_cleanup()
Case $board[$newhead[0]][$newhead[1]]; OK to go there
$newhead[2] = GUICtrlCreateLabel("", $newhead[0] * 10, $newhead[1] * 10, 10, 10)
GUICtrlSetBkColor($newhead[2], 16777215)
If $board[$newhead[0]][$newhead[1]] = 2 Then; Ate Food
; Move food
Do
$a = Int(Random(0, 39))
$b = Int(Random(0, 39))
Until $board[$a][$b] = 1; empty
$board[$a][$b] = 2; food
GUICtrlSetPos($food, $a * 10, $b * 10)
$snakelength = $snakelength + 1
ReDim $snake[$snakelength + 1][3]
Else
GUICtrlDelete($oldtail[2])
$board[$oldtail[0]][$oldtail[1]] = 1
EndIf
$board[$newhead[0]][$newhead[1]] = 0
For $i = $snakelength To 1 Step - 1; Array shift
$snake[$i][0] = $snake[$i - 1][0]
$snake[$i][1] = $snake[$i - 1][1]
$snake[$i][2] = $snake[$i - 1][2]
Next
$snake[0][0] = $newhead[0]
$snake[0][1] = $newhead[1]
$snake[0][2] = $newhead[2]
Case Else
;eat self
MsgBox(0, "Yor snake ate itself", "You snake was "& ($snakelength + 1) & " units long")
$input = InputBox("Highscrore", "Dein Name")
FileWrite("Highscroce.dat", $input & " hat die länge von "& ($snakelength + 1) & " punkten erreicht" & @CRLF)
FileWrite("Highscroce2.dat", ", "& ($snakelength + 1))
_cleanup()
EndSelect
EndFunc ;==>move
Func _cleanup()
For $x = 0 To 39
For $y = 0 To 39
$board[$x][$y] = 1; empty
Next
Next
GUICtrlDelete($food)
For $i = 0 To $snakelength
GUICtrlDelete($snake[$i][2])
Next
_start() ; This is going to choke after 300 something calls
_sleep()
EndFunc ;==>_cleanup
Func _Exit()
DllClose($op)
Exit
EndFunc ;==>_Exit
Func _sleep()
Do
Do
Sleep(100)
Until _IsPressed(25) Or _IsPressed(26) Or _IsPressed(27) Or _IsPressed(28)
If _IsPressed(25) Then
$dx = -1
$dy = 0
EndIf
If _IsPressed(27) Then
$dx = 1
$dy = 0
EndIf
If _IsPressed(26) Then
$dx = 0
$dy = -1
EndIf
If _IsPressed(28) Then
$dx = 0
$dy = 1
EndIf
Until _IsPressed(25) Or _IsPressed(26) Or _IsPressed(27) Or _IsPressed(28)
EndFunc ;==>_sleep
Func _IsPressed($hexkey)
Local $ar, $brv
$hexkey = '0x' & $hexkey
$ar = DllCall("user32", "int", "GetAsyncKeyState", "int", $hexkey)
If $ar[0] <> 0 Then
$brv = 1
Else
$brv = 0
EndIf
Return $brv
EndFunc ;==>_IsPressed
Alles anzeigen
Die 2. Version findet ihr hier: http://www.autoitscript.com/forum/index.php?showtopic=25481&hl=snake
Mfg Spider
Hallo peethebee, der glückliche *g*
um genau zusein findet ihr es hier(ist übrigends umsonst für die die es noch nicht wissen http://www.trackmania-the-game.de:8080/nation/downloads.html
Zur Idee: ich hätte lust! Das duell der AutoIt's find ich gut
Mfg Spider
der glücklich ist das er TM schon vor pee mit guter grafik spielen konnte
Jo! Kiel Net DSL 4000