Beiträge von Jam00

was für eine Filterung?
Und das er den $ teilt, is ganz einfach!

Hier:

$1 = "1"
$2 = "2"
$3 = "3"
$Alle = $1 & ";" & $2 & ";" & $3
$AlleGetrent = StringSplit ($Alle,";")
MsgBox (0,"",$AlleGetrent[1] & "," & $AlleGetrent[2] & "," & $AlleGetrent[3]

Also wenn du verschiedene $ zusammenziehen willst nimmst du einfach:

$1 = "1"
$2 = "2"
$3 = "3"
$Alle = $1 & $2 & $3

Woll kark, jetzt geht auch der alte server wieder

@deepred
Hä, irgendwie geht das jetzt, aber ich finde keinen Unterschied, ich hatte doch da beim Client auch eine MSGBox um das eizugeben! Und den Server habe ich so gelassen! Wie ich ihn hatte!

Weil $Mousinfobutton5[4] nichst als 0 zurückgibt, da du kein steuerelement hast!

ähm, das hab ich doch! Und _GetIP() gibt doch auch meine IPandresse aus!

Ich hab ein Problem beim Verbiden des Clienst zu Server uz. Wenn ich im Client _GetIP() nehme funktioniert es, also, wenn ich den Server auf meinem PC gestartet hab. Aber wenn ich da einen InputBox mache wo ich einfach meine IP eingebe verbindet der sich nicht!

[spoiler=Server]

#include <INet.au3>
Global $sNamen
$IP = _GetIP()
MsgBox (0,"",$IP)
$zahl = -1
$zahl1 = $zahl + 1
$File = @ScriptDir & "\Server.ini"
FileDelete($File)
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;~ Opt("TrayMenuMode",1)

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Serververlauf", 238, 201, 303, 219)
$Edit1 = GUICtrlCreateEdit("", 3, 3, 232, 196, $ES_READONLY)
GUICtrlSetBkColor(-1, 0xFFFFFF)
#EndRegion ### END Koda GUI section ###
$Fenster = False
Dim $ConnectedSocket[999999]
Dim $Namen[999999]
; Startet den TCP Service
;==============================================
TCPStartup()

; Erstellt einen lauschenden "SOCKET"
;==============================================
$MainSocket = TCPListen($IP, 31758)
If $MainSocket = -1 Then Exit
HotKeySet("!{n}", "_Fenster")
; Warten auf eine Client-Verbindung
;--------------------

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE)
EndSwitch
$ConnectedSocket[$zahl1] = TCPAccept($MainSocket)
If $ConnectedSocket[$zahl1] >= 0 Then
$zahl = $zahl + 1
$zahl1 = $zahl + 1
;~ MsgBox(0, "", "Mein Server - Client verbunden", 1)
$Erhalten = TCPRecv($ConnectedSocket[$zahl], 2048)
$sErhalten = StringSplit($Erhalten, ",")
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "NamenSenden" Then
$zahl = $zahl - 1
For $E = 0 To $sErhalten[2]
$E1 = $E + 3
$Namen[$E] = $sErhalten[$E1]
Next
$Status = False
For $F = 0 To $sErhalten[2]
$F1 = $sErhalten[2] + 1
$F2 = $F - 1
If $F = $sErhalten[$F1] Then $Status = True
If $Status = True Then
$ConnectedSocket[$F] = $ConnectedSocket[$F2]
EndIf
Next
EndIf
$sNamen = ""
For $B = 0 To $zahl
$sNamen = $sNamen & $Namen[$B] & "|"
Next
For $C = 0 To $zahl
TCPSend($ConnectedSocket[$C], "Namen|" & $zahl & "|" & $sNamen)
Next
EndIf
For $A = 0 To $zahl
$Erhalten = TCPRecv($ConnectedSocket[$A], 9999)
$sErhalten = StringSplit($Erhalten, ",")
If $Erhalten <> "" Then
$Edit1Read = GUICtrlRead($Edit1)
GUICtrlSetData($Edit1, $Edit1Read & @CRLF & $Erhalten)
For $D = 0 To $zahl
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "Nachricht" Then
If $Namen[$D] = $sErhalten[3] Then
TCPSend($ConnectedSocket[$A], $Erhalten)
EndIf
EndIf
Next
EndIf
Next
WEnd
Func _Fenster()
If $Fenster = True Then
GUISetState(@SW_HIDE)
ElseIf $Fenster = False Then
GUISetState(@SW_SHOW)
EndIf
EndFunc ;==>_Fenster

[spoiler]

Du kannst dir einen Taschenrechner Programieren

Raupi
Glaubst du wirklich ich hätte noch nit gegoogelt oder was ? Man so blöd bin ich auch nicht!

Weißt du denn was wie Ich .kmz in AutoIt reibekomme? Also es gab da ja mal sowas mit 3D im forum, alledigs ist das ein annderes dateiformat:-(

Alles, auch was zum schluss is?

Hier wenn dir Langweilig ist kanste das Tutorial mal ganz durchmachen, das war das Erste was ich gemacht hab!

Edit Oscar: Bitte keine Links zu Botseiten posten! (Link entfernt)

Ich brauch zurzeit nichst auser vieleicht, das ich .kmz (Google Earth datei) einbinden und anzeigen kann (oder weiß jemand wie ich es umwandeln kann?)! Ich meine, wenn ich nicht weiß das es geht bzw. besser/schöner geht, dann kommt man auch nicht so leicht auf die Idee^^, also wenn man es weiß und schreibt ein Programm, kommt man doch viel ehr auf die Idee "Ah da könnte ich ja noch das und das machen".

und was ist, wenn das zip mit einem Kennwort geschützt ist?

Nein, den Text änder ich nicht, da er Ja überprüfen soll, ob die Existieren und wenn ja dann soll er sie löschen und die While...Wend is wohl nötig, denn er soll das ja die ganze Zeit überprüfen! Ja, es stimmt, For...Next währe besser gewehsen, aber als ich das geschreiben hab (is schon ein bischen her) kannte ich das noch nicht!

Also das ist ein Script wo ich nicht weiß nicht wofür es ist^^,da mich ein Freund gerfagt hat ob ich ihm das machen könnte und ich hab nicht verstanden was er damit wollte, er hat es mir zwar erklärt, aber ich hba es nicht kapiert^^. Naja, ich dachte mir, vieleicht nützt es ja irgendjemanden, das war mein Erstest Script, wo ich mit Variablen gearbeitet hab, damit hab ich es gelernt! Für jemand der noch ein bischen hilfe braucht^^:

Oh, achso. Aber sonst weiß keiner was?

Oki, und wo kann ich das Runterladen, hab gegoogelt, find aber nix vernüpftiges!

was ist MSDN?

Du kannst es mit Run probierne, so : Run ("exel.exe - Test.csv") Ich weis nicht ob es FUnkt, hab nicht exel, hab openoffice