Na Flo, Darwin kennt das pw gar nich 
Beiträge von DFPWare
-
-
Moin Moin;)
ich würd testen ob die Maus über dem Button is, also mit Positionen und dann halt z.B mit TimerInit() und TimerDiff() abfragen, ob die Maus schon 2 sek über dem Knopf ist und dann den Tool Tip an der Cursorposition anzeigen lassen
DFPWare
-
[autoit]
GUICtrlCreateTab
[/autoit]DFPWare
-
Wow das ist beeindruckend, ich hab zwar 64Bit und kanns daher nich testen aber wenn das so funktioniert wie es aussieht dann ist das wirklich tolle Arbeit
DFPWare
-
Glückwunsch;)
Ich muss noch n bisschen warten, am 24.6. werd ich 16 dann darf ich auch endlich die Milch absetzen
DFPWare
-
Jip so soll das werden, aber wenn ich mir das so anhöre ist das doch ganz schön kompliziert, ich glaub ich lass das
Trozdem Danke an alle;-)
DFPWare
-
ähm okay aber wie mach ich das am besten?
-
das beantwortet meine frage aber nicht
-
name22: habe das Tutorial durch
Jetzt will ich aber nicht, dass nur der Server mit dem Clienten kommunizieren kann, sondern der Server auf irgendeinem pc läuft und ein Client etwas sendet, das von einem anderen Clienten wieder empfangen wird.
Bis jetzt bin ich so weit, dass der Server läuft und auch Text empfangen kann, was er ja eigentlich gar nicht braucht
Der Sender sendet auch Fehlerfrei aber der Empfänger empfängt nix. Hier die 3 Skripte:Server
Spoiler anzeigen
[autoit]OnAutoItExitRegister("_EXIT")
[/autoit]
TCPStartup()
$mainsocket = TCPListen("5.233.233.230", 4321)
While 1
; $acceptedSocket = TCPAccept($mainsocket)
; If $acceptedSocket <> -1 Then
; $receivedData = TCPRecv($acceptedSocket, 1024)
; MsgBox(64, "Empfänger", "Es wurde eine Nachricht empfangen: " &@CRLF& $receivedData)
; EndIf
WEnd
Func _EXIT()
TCPCloseSocket($mainsocket)
TCPShutdown()
EndFuncSender:
Spoiler anzeigen
[autoit]OnAutoItExitRegister("_EXIT")
[/autoit]
TCPStartup()
$socket = TCPConnect("5.233.233.230", 4321)
If $socket = -1 Then
MsgBox(16, "Client", "Die Verbindung zum Server konnte nicht hergestellt werden!")
Exit
EndIf
$sendedBytes = TCPSend($socket, "Diese Nachricht soll gesendet werden")
If $sendedBytes = 0 Then
MsgBox(16, "Sender", "Das Paket konnte nicht gesendet werden.")
Exit
EndIf
Func _EXIT()
TCPCloseSocket($socket)
TCPShutdown()
EndFuncEmpfänger:
Spoiler anzeigen
[autoit]OnAutoItExitRegister("_EXIT")
[/autoit]
TCPStartup()
$socket = TCPConnect("5.233.233.230", 4321)
If $socket = -1 Then
MsgBox(16, "Client", "Die Verbindung zum Server konnte nicht hergestellt werden!")
Exit
EndIf
While 1
$acceptedSocket = TCPAccept($socket)
If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)
MsgBox(64, "Empfänger", "Es wurde eine Nachricht empfangen: " &@CRLF& $receivedData)
EndIf
WEnd
Func _EXIT()
TCPCloseSocket($socket)
TCPShutdown()
EndFuncDanke
DFPWare
EDIT: Die IP is von hamachi
-
ist das nicht so?
wenn nicht dann tuts mir leid ich kenn mich da nicht so gut aus aber kennt jemand nen tutorial
n kumpel von mir hat gemeint dass das online nicht funktioniert
DFPWare
-
Hey Leute
kann man mit AutoIt einen Chat übers internet machen, also sowas wie tcp nur übers internet.
Ich kenne diese chat.au3 die das ganze über einen FTP-Server sendet, finde das aber...naja sagen wir umständlich, das muss doch auch einfacher gehen.
Bei google finde ich auch nix womit man tcp onlinefähig macht, also hoffe ich dass ihr mir helfen könnt
MySql kenn ich zwar nicht, aber ich weiß dass es dafür ne UDF gibt, aber ich weiß auch nicht ob man dadrüber nen chat machen kann.
Danke
DFPWare
-
Toll Toll Toll
Ich finds wirklich gut und es ist wohl das beste 300 Zeilen Programm was ich bis jetzt gesehen hab
Du kannst Zeile 18 auskommentieren, das hat mich ein wenig verwirrt
DFPWare
-
Hab jetz alles außer 6&7 -.-
DFPWare
-
WAAAAAA?????
Was has du gemacht?
Lol ich kack hier voll ab und der hat alle :wacko:
-
1 hab ich aber dann hab ich gar keine Ahnung mehr :wacko:
Wenn ich dir ne pm schreiben würde, würdest du mir dann sagen ob ich richtig liege?=DDFPWare
-
[autoit]
$time = TimerInit()
[/autoit]
; Hier das Skript
Do ;hält das Programm am laufen
$diff = TimerDiff($time)
Until $diff >= 600000
MsgBox(0,"","Die Testzeit ist abgelaufen")Vielleicht hilft das;)
DFPWare
-
Verblüffend, ich hab soein Skript für meinen Nachbarn geschrieben und die Ähnlichkeit ist schon enorm
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Form1", 223, 185, 192, 124)
$_i = GUICtrlCreateInput("", 16, 16, 193, 21)
$_1 = GUICtrlCreateButton("1", 16, 48, 35, 33)
$_2 = GUICtrlCreateButton("2", 56, 48, 35, 33)
$_3 = GUICtrlCreateButton("3", 96, 48, 35, 33)
$_4 = GUICtrlCreateButton("4", 136, 48, 35, 33)
$_5 = GUICtrlCreateButton("5", 176, 48, 35, 33)
$_6 = GUICtrlCreateButton("6", 16, 88, 35, 33)
$_7 = GUICtrlCreateButton("7", 56, 88, 35, 33)
$_8 = GUICtrlCreateButton("8", 96, 88, 35, 33)
$_9 = GUICtrlCreateButton("9", 136, 88, 35, 33)
$_10 = GUICtrlCreateButton("=", 176, 136, 35, 33)
$_11 = GUICtrlCreateButton("+", 16, 136, 35, 33)
$_12 = GUICtrlCreateButton("-", 56, 136, 35, 33)
$_13 = GUICtrlCreateButton("*", 96, 136, 35, 33)
$_14 = GUICtrlCreateButton("/", 136, 136, 35, 33)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $_1
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "1")
Case $_2
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "2")
Case $_3
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "3")
Case $_4
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "4")
Case $_5
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "5")
Case $_6
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "6")
Case $_7
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "7")
Case $_8
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "8")
Case $_9
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "9")
Case $_10
$read = GUICtrlRead($_i)
MsgBox(0,"Ergebnis:",Execute($read))
Case $_11
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "+")
Case $_12
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "-")
Case $_13
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "*")
Case $_14
$read = GUICtrlRead($_i)
GUICtrlSetData($_i,$read & "/")
Exit
EndSwitch
WEndDFPWare
-
Ja dann müsstest du jedes einzelne Feld des Arrays mit dem neuen vergleichen
DFPWare
-
Hey
Ich finde das Spiel gar nicht schlecht, zumindest von den Befehlen her die du benutzt hast.
Die Idee des Spiels ist auch gut, also weiß ich gar nicht was dich bewegt hat das Spiel so zu taufen. Ich kenn das Spiel übrigens und ich finde du hast das sehr gut umgesetzt, jedoch ist bei der Version die ich kenne die Anordnung folgende:#####
#1#4#
#2#5#
#3#6#
#####Ich finde es so wie du es gemacht hast aber auch gut
Also Tolles Spiel
DFPWare
-
Hey
Mit UBound kannst du die Größe des Arrays feststellen, der mit FileListToArray erstellt wurde, wenn du dann 5 minuten später die Größe des Arrays wieder testest, und sich etwas verändert hat, dann kannst du das ja einfach mit if rausfinden
DFPWare