Hallo,
Ich würde gerne wissen, wie man Rechner erreichen kann, die nicht im eigenem Netzwerk stehen, um herauszufinden, ob sie online sind.
Ein Freund von mir möchte nämlich auf einen Server von mir zugreifen, der immer und nur denn online ist, wenn ich es auch bin.
Wär nett, wenn mir jemand helfen kann, dieses Problem zu Lösen, da ich nur Rechner im eigenen Netzwerk an Pingen kann.
MfG: MasterOfTime
$iPing = Ping('Deine IP')
If $iPing = 0 Then
MsgBox(0,"","Offline!")
Else
MsgBox(0,"","Online!")
EndIf
Funktioniert Ping nicht?
Das is ja das Problem xD
Wenn die Rechner in meinem Netzwerk stehen kann ich die anpingen, wenn die nicht da stehen, denn gehts auch net o_O
liegt denke ich daran, dass du die falsche ip benutzt...
du musst die public-ip benutzten fürs anpingen...
Dafür gibt es auch _GetIP() ;).
was wenig nützt, wenn er einen anderen anpingen will 
ok danke, jetz klappts.
Hab nur noch ein Problem...
Die IP ändert sich immer von Zeit zu Zeit...
Kann man das nicht so machen, das man beim öffnen des Programms seine IP an einen Server mit fester IP sendet?
Von da aus kann man sich denn doch wieder die aktuellen Adressen herunterladen, oder?
kannst du schon^^
z.b. per tcp^^ (z.b html oder eigenes client-server-system)
oder benutzt ftp.. sollte am einfachsten sein^^
Für sowas gibt es die Website: http://www.dyndns.com/ (wenn die IP sich andauernd ändert)
Wsa zur hälle macht AMrK hier ?
Der größte AutoItBotter ?
Wsa zur hälle macht AMrK hier ?
Der größte AutoItBotter ?
So lange er sich hier an die Regeln hält, hast du seine Anwesenheit nicht anzuzweifeln 
.
Ach ja, und achte mal auf deine Rechtschreibung... Das kann man ja kaum lesen 
.
Falls du noch eine GUI brauchst..
Ich hatte sowas auch mal programmiert.
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("{END}", "stop")
[/autoit][autoit][/autoit][autoit]AdlibEnable ("_OnlineCheck", 10000)
[/autoit][autoit][/autoit][autoit]#Region ### START Koda GUI section ###
$Form1 = GUICreate("Wer ist Online?", 611, 340, 366, 327, BitOR($WS_EX_TOOLWINDOW, $WS_EX_WINDOWEDGE))
$Label1 = GUICtrlCreateLabel("Welcher PC ist Online?", 104, 32, 382, 41)
GUICtrlSetFont(-1, 24, 800, 2, "Lucida Fax")
$Label2 = GUICtrlCreateLabel("Benedikt", 192, 104, 105, 31,$SS_NOTIFY)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Label3 = GUICtrlCreateLabel("Franzsika", 192, 144, 114, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Label4 = GUICtrlCreateLabel("Max", 192, 184, 51, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Label5 = GUICtrlCreateLabel("Victoria", 192, 224, 99, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Label6 = GUICtrlCreateLabel("Mama", 192, 264, 68, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Franziska = GUICtrlCreateLabel("Online", 352, 144, 120, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Mama = GUICtrlCreateLabel("Online", 352, 264, 120, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Max = GUICtrlCreateLabel("Online", 352, 184, 120, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Victoria = GUICtrlCreateLabel("Online", 352, 224, 120, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
$Benedikt = GUICtrlCreateLabel("Online", 352, 104, 120, 31)
GUICtrlSetFont(-1, 16, 400, 0, "Showcard Gothic")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GuiCtrlSetData ($Benedikt, "Offline")
GuiCtrlSetColor($Benedikt, 0xff0000)
GuiCtrlSetData ($Franziska, "Offline")
GuiCtrlSetColor ($Franziska, 0xff0000)
GuiCtrlSetData ($Max, "Offline")
GuiCtrlSetColor ($Max, 0xff0000)
GuiCtrlSetData ($Victoria, "Offline")
GuiCtrlSetColor ($Victoria, 0xff0000)
GuiCtrlSetData ($Mama, "Offline")
GuiCtrlSetColor ($Mama, 0xff0000)
_OnlineCheck()
[/autoit][autoit][/autoit][autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Label2
MsgBox (1, "", "Test")
EndSwitch
WEnd
Func _OnlineCheck()
TCPStartup()
If TCPNameToIP("Maximilian") <> "" Then
GUICtrlSetData($Max, "Online")
GUICtrlSetColor($Max, 0x00ff00)
Else
GUICtrlSetData($Max, "Offline")
GUICtrlSetColor($Max, 0xff0000)
EndIf
If TCPNameToIP("Franziska") <> "" Then
GUICtrlSetData($Franziska, "Online")
GUICtrlSetColor($Franziska, 0x00ff00)
Else
GUICtrlSetData($Franziska, "Offline")
GUICtrlSetColor($Franziska, 0xff0000)
EndIf
If TCPNameToIP("BENNE-PC") <> "" Then
GUICtrlSetData($Benedikt, "Online")
GUICtrlSetColor($Benedikt, 0x00ff00)
Else
GUICtrlSetData($Benedikt, "Offline")
GUICtrlSetColor($Benedikt, 0xff0000)
EndIf
If TCPNameToIP("VICI-PC") <> "" Then
GUICtrlSetData($Victoria, "Online")
GUICtrlSetColor($Victoria, 0x00ff00)
Else
GUICtrlSetData($Victoria, "Offline")
GUICtrlSetColor($Victoria, 0xff0000)
EndIf
If TCPNameToIP("SYLVIA-PC") <> "" Then
GUICtrlSetData($Mama, "Online")
GUICtrlSetColor($Mama, 0x00ff00)
Else
GUICtrlSetData($Mama, "Offline")
GUICtrlSetColor($Mama, 0xff0000)
EndIf
TCPShutdown()
EndFunc
Func stop()
Exit
EndFunc
"mein b0t hat gesprochen"
Okay, danke =)
Ich habe mein Script jetz fertig, dank eurer Hilfe.
@EM: DeathlyAssasin ist auch hier
Wer is deathly ?
AltairKD ?
Deathly Assasin ist auch einer aus dem anderen Forum, dessen Name nicht genannt werden darf *kindisch xD*
Deathly Assasin ist auch einer aus dem anderen Forum, dessen Name nicht genannt werden darf
Den erkennt man doch schon alleine am Avatar 
.
Wollt ihr hier heimlich unser Forum unterwandern, oder wieso will er nicht namentlich genannt werden?
nein, das bezog sich auf das andere forum: denn sobald ich zwischen das www.autoit und .de 3 buchstaben setzten und somit das forum nenne, aus welchem wir kommen, wird der post gelöscht 
