Beiträge von Jam00

Jam00

Der erstellt ja gar keine richtige exe. der entpackt ja nur ein Temp.bat! Ich hab einen Compiler der macht das richtig zu einer exe!

Jam00

Ja, eigentlich, kommt da so ein Fenster von der FireWall, die dann frag ob das Geblockt werden soll! Kanst ja mal gucken welche ports alle freigegeben sind! Auch bei dem Neuen Server?
Und guckt mal ob die IP stimmt!

Jam00

Wie kann ich ein Richtiges DLL machen? Fänd ich echt cool! Mit dem Script kann man doch auch keine Richtigen DLL's gemacht, die daten werden doch auch Entpackt!

Jam00

Oh, tschuldigung Das war eine Alte verson hier Probier die mal:

Spoiler anzeigen

[autoit]

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

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

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

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

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

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

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)
$Lines = _GUICtrlEdit_GetLineCount($Edit1)
_GUICtrlEdit_LineScroll($Edit1, 0, $Lines)
For $D = 0 To $zahl
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "Nachricht" Then
;~ MsgBox (0,"",$Namen[$D] & "," & $sErhalten[3])
If $Namen[$D] = $sErhalten[3] Then
TCPSend($ConnectedSocket[$D], $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

[/autoit]

Jam00

ja, das ist irgendwie komisch, bei mir geht er einbandfrei!

Startet einfach mal das hier und sagt mir ob es da auch so ist!

Spoiler anzeigen

[autoit]

#include <INet.au3>
#include <GuiEdit.au3>
Global $sNamen
$IP = "http://www.incchat.no-ip.org"
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)

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

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

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

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

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

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)
$Lines = _GUICtrlEdit_GetLineCount($Edit1)
_GUICtrlEdit_LineScroll($Edit1, 0, $Lines)
For $D = 0 To $zahl
If $sErhalten[1] = "Name" Then
$Namen[$zahl] = $sErhalten[2]
ElseIf $sErhalten[1] = "Nachricht" Then
;~ MsgBox (0,"",$Namen[$D] & "," & $sErhalten[3])
If $Namen[$D] = $sErhalten[3] Then
TCPSend($ConnectedSocket[$D], $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

[/autoit]

Jam00

Um den Text bzw. den status eines GuiElemts herrauszubekommen, musst du GuiCtrlRead benutzen!

Jam00

Schon ganz gut, aber ich würde noch Befehle forbereiten, und einen Compiler dazugeben! Und dann kannst du es ja noch so machen, das da wie bei dem Scite wenn man befehle eingibt, das sich ein kelines menü öffnet, wo beispiele drinstehen, mit den buchstaben! Und dann, würde ich es noch so machen, das man den Speicherort auswählen kann! Ich hab früher auch mal ordentlich mit eingabeaufforderung geareitet, aber wenn man da nicht mit umgehen kann bringt das nicht viel! Das was man damit machen kann, kann man genausogut im Editor oder im Eingabeaufforderung-Editor machen! Also der muss noch weiterentwichelt werden! Kannst auch noch eine Hilfe dazumachen! Aber ein guter anfang

Jam00

Warum baust du nicht einfach in die Schleife eine Switch ein?

Jam00

Also du zeigst nicht wie $CheckAOE erstellt wird, aber wenn du einfach GuiCtrlRead benutz, ist der rückgabewerd nich 0 oder 1 sondern 1= angeklickt 4 = nicht angelickt

Jam00

Die anderen müssen den Server starten damit sie die nachrichten sehen können, und wenn du willst das eine Rückmeldung kommt, wenn sie auf ok klicken muss du eine Rücksendung per TCPSend einbauen!

Jam00

was ist Threading?

Jam00

Hey, das sist cool ! Aber ganz einfach mit einem DLL geht es nicht? Es ist nähmlich serh viel arbeit! Aber geil

Jam00

ich hab das aber auch schon gesehen, wenn man z.B. ein Pogramm instaliert, das der Balken auch wie bei XP war, nur zusammen! Wie macht man denn seine Steuerelemente selber?

Jam00

ja, ih meine das es ausieht wie bei XP, nur benen zusammen! Und das hab ich uac schon bei XP gesehen! Gibt es da nich auch irgendein DLL für?

Jam00

Nach unten Scroolen ist ganz leicht!

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Form2", 193, 155, 303, 219)
$Edit1 = GUICtrlCreateEdit("", 3, 3, 185, 100, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY,$ES_WANTRETURN,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlSetData(-1, "Edit1")
$Input1 = GUICtrlCreateInput("Input1", 3, 105, 184, 21)
$Button1 = GUICtrlCreateButton("Schreiben", 54, 127, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$Read = GUICtrlRead ($Input1)
$Read2 = GUICtrlRead ($Edit1)
GUICtrlSetData ($Edit1,$Read2 & @CRLF & $Read)
GUICtrlSetData ($Input1,"")
_Scroll($Edit1)
EndSwitch
WEnd
Func _Scroll ($Felt)
$Lines = _GUICtrlEdit_GetLineCount($Felt)
_GUICtrlEdit_LineScroll($Felt, 0, $Lines)
EndFunc

[/autoit]

Jam00

Hier ist was fertiges, und was ganz leichtes für den anfang

Client

[autoit]

#include <INet.au3>
$IP = InputBox("INC", "Die IP des Servers", _GetIP())
$Port = 31758
$ConnectedSocket = TCPConnect($IP, $Port)
If $ConnectedSocket = -1 Then
MsgBox(16, "Error", "Es ist bei dem Verbindungsversuch ein Fehler aufgetreten, vermutlich ist kein Server gestartet!")
Exit
EndIf
HotKeySet ("^s","_Senden")
While 1
$Empfang = TCPRecv($ConnectedSocket, 9999)
If $Empfang <> "" Then
MsgBox(0, "Nachricht", $Empfang)
EndIf
WEnd
Func _Senden()
$Nachricht = InputBox("Nachricht senden", "Schreibe deine Nachricht")
If $Nachricht <> "" Then
TCPSend($ConnectedSocket, $Nachricht)
EndIf
EndFunc

[/autoit]

Server

[autoit]

#include <INet.au3>
$IP = _GetIP()
Dim $ConnectedSocket[9999999]
$zahl = -1
$zahl1 = $zahl + 1
$MainSocket = TCPListen($IP, 31758)
If $MainSocket = -1 Then Exit
While 1
$ConnectedSocket[$zahl1] = TCPAccept($MainSocket)
If $ConnectedSocket[$zahl1] >= 0 Then
$zahl = $zahl + 1
$zahl1 = $zahl + 1
;~ TCPSend ($ConnectedSocket[$zahl],"zahl" & "|" & $zahl)
EndIf
If $zahl >= 0 Then
For $1 = 0 To $zahl
$Empfang = TCPRecv($ConnectedSocket[$1], 9999)
If $Empfang <> "" Then
;~ $sEmpfang = StringSplit($Empfang, "<>")
For $2 = 0 To $zahl
;~ If $sEmpfang[1] <> $2 Then
TCPSend($ConnectedSocket[$2], $Empfang)
;~ EndIf
Next
EndIf
Next
EndIf
WEnd

[/autoit]

Jam00

Oh man, pasiert mir als , tschuldigung
Ich meinte Gibt es das auch, wenn die Progressbars zusammensin ($PBS_SMOOTH) in 3D Stayle, also das es aussieht wie bei XP, nur eben zusammen und nicht einzelne balken?

Jam00

Das mit dem Text hab ich auch gemacht also ich das mit dem Server noch nich konnte Aber so schwierig sit es mit dem Server garnicht! Die Idee mit dem NAchrichtendienst hatte ich auh Aber ich hab das nocht hinbekommen! Und dann hab ich eben mit dem Server Probiert! Is garnicht so schwer musst es nur Probieren!

Jam00

Also ich hab vor 4 tagen oder so damit angefangen, es geht eig. schon, also muss das nur noch ein Bischen verfeinern, aber nachrichten schiken funktioniert! Wenn du willst kann ich dir vieleicht helfen

Jam00

Ah, dafür hast du es also gebraucht, das die Transparen eingestellt wird, wenn man über das fenser scroolt Wie hast du das mit dem Stayle gemacht, hammer
Kannst du mir mal ein Beispiel für das Traymenü geben (bitte ein ganz einfaches) Fänd ich nähmlich cool, ich bekomm es nich hin

Beiträge von Jam00

Bat2Exe

net.exe bzw. Net Send Starten

DLL

net.exe bzw. Net Send Starten

net.exe bzw. Net Send Starten

Hilfe mit IF Abfragen ;)

Batchy -Der Batch-Editor

Buttons und Schleifen

Hilfe mit IF Abfragen ;)

net.exe bzw. Net Send Starten

Multi Threading mit AutoIT... möglich oder machbar?

Klassische Progressbar (2 Beispiele)

Klassische Progressbar (2 Beispiele)

Klassische Progressbar (2 Beispiele)

Listbox in .txt Datei speichern / automatisches scrollen einer textbox

net.exe bzw. Net Send Starten

Klassische Progressbar (2 Beispiele)

net.exe bzw. Net Send Starten

net.exe bzw. Net Send Starten

Desktop Radio 3.9