Beiträge von Freaky

Freaky

OK danke euch allen, habe jetzt einfach das von SEuBo genommen

Freaky

Danke euch beiden
Das von XovoxKingdom gefält mir etwas mehr da es weniger Code ist. Aber wenn man mehrfach Enter drücken will dann muss man jedesmal den Inhalt ändern.
Und das von Pingui ist auch recht gut aber wenn ich bei ";tu was" eine msg reinmache und das ok dann mit Enter weg drücke, dann löst er wieder das Enter aus

Freaky

Oh danke
Und ich suche die ganze Zeit nach ner aktuellen funktionierenden UDF

Freaky

Hallo,
es gibt in vielen Formen etc. ein Input wo man Enter drücken kann und es schikt ab.
Wie kriege ich das mit AutoIt hin?
Hotkeyset ist kacke, Ispressed geht aber wiederum ist es doof weil man ja nicht weiß ob man im Input ist bzw. sogar im welchen Input man ist.
Wie bekomme ich das hin, aber OHNE Button ?

Freaky

Hallo,
hat einer eine funktionierende UDF von RichEdit?
Die aktuelle Version geht irgent wie nicht bzw. hat 4 Errors.

Diese Version habe ich:
http://progandy.co.cc/downloads/view.download/3/5

Freaky

Und bis zu welchen Rahmen ?

Freaky

Ich will doch nicht nur eine LiveGui aber danke.
Ich will das er ALLES ausliest, jeden Befehl der neu ist sofort auffnimmt und das man es dann benutzen kann, z.B. wenn ich ein Hotkeyset hinzufüge und ne ganze Funktion für den Hotkeyset auch.

Freaky

Ihr versteht mich richtig Falsch.
Ich will ganze Scripte dauerhaft laufen lassen, wenn ich was veränder dann soll das automatisch im laufenden Script übernommen werden.

Freaky

Nicht ganz, das hier wird nicht ausgeführt:

[autoit]

Func _msgbox ($iAnzahl,$iData)
For $i = 1 To $iAnzahl
MsgBox (0,"MsgBox: " & $i,$iData)
Next
EndFunc

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

_msgbox (5,"Hi :)")

[/autoit]

Freaky

Ja schon, ich kann aber nicht ganze Befehle in ner Ini speichern
oder ist es doch möglich ?

Freaky

Hallo,
ist es möglich ein Script anzuhaben und gleichzeitig die Source davon zu ändern ?
Also ich will wenn ich ein Script anhaben und z.B. ein Buttonname änder, das er sich im Script auch ändert, oder das ich ganze funktion umschreiben kann ohne das ich immer das Script anmachen muss zum testen

Freaky

Spoiler anzeigen

[autoit]

#include <Winpcap.au3>
$data="6162636465666768696a6b6c6d6e6f7071727374757677616263646566676869"
$totlength = "00" & hex(4 + 20 + 4 + BinaryLen($data)/2,2)

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

$winpcap=_PcapSetup() ; initialize winpcap
$pcap_devices=_PcapGetDeviceList() ; get devices list
$pcap=_PcapStartCapture($pcap_devices[0][0]) ; my interface

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

;Ethernet header
$broadcastmac="001451709b47" ; MAC from GW
$mymac=StringReplace($pcap_devices[0][6],":","") ; my mac address in hex
$ethertype="0800" ; IP

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

$ethernetheader=$broadcastmac&$mymac&$ethertype ; stick together to a binary string !

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

;IP header
$version = "4"
$headerlength = "5"
$tos = "00"
$ident = "1234"
$ffo = "4000"
$ttl = "80"
$prot = "01"
$sourceaddress = IPtoHex($pcap_devices[0][7])
$destaddress = IPtoHex("209.85.129.105") ;google.com
;$totlength = "003c"

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

$crc = Hex(_PcapIpCheckSum("0x"&$ethernetheader&$version&$headerlength&$tos&$totlength&$ident&$ffo&$ttl&$prot&"0000"&$sourceaddress&$destaddress),4)

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

$ippacket = $ethernetheader&$version&$headerlength&$tos&$totlength&$ident&$ffo&$ttl&$prot&$crc&$sourceaddress&$destaddress

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

;ICMP
$type="08"
$code="00"
$identifier="0001"
$seq="0001"
;$data="6162636465666768696a6b6c6d6e6f7071727374757677616263646566676869"
$checksum = Hex(_PcapIcmpCheckSum("0x"&$ippacket&$type&$code&"0000"&$identifier&$seq&$data),4)

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

$ICMP = $type&$code&$checksum&$identifier&$seq&$data

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

$mypacket = "0x"&$ippacket&$type&$code&$checksum&$identifier&$seq&$data
_PcapSendPacket($pcap,$mypacket) ; sends a valid packet

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

_PcapFree() ; close winpcap

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

Func IPtoHex($ip)
dim $iphex
$ip = StringSplit($ip,".")

for $i = 1 to 4 Step 1
$iphex &= Hex($ip[$i],2)
Next

return $iphex
EndFunc

[/autoit]

Das ist ein Beispiel aus einem anderen Forum was bei mir nicht geht

Freaky

Hallo,
weiß einer vielleicht wie ich mit Winpcap Packete zurückschiken kann ?
Weil das empfangen recht leicht ist, aber das zurückschiken funktioniert bei mir leider irgent wie nicht

Freaky

Oh den Thread habe ich voll vergessen

Freaky

Niemand hat was von Browsergames gesagt

Freaky

kA ob es gegen die Spielregeln ist aber wie kann ich das aus dem Ram lesen ?

Freaky

Es ist ein Chat im Spiel, da das Spiel eine Lanschaft im Hintergrund hat und der Chat Transparent ist, hat der Chat auch eine Landschaft als Hintergrund

Wär es möglich wenn ich alle Buchstaben als Buchstaben in nem String habe und er halt guckt ob die da sind ?
Oder vieleicht ganze Wörter (würde vll leichter gehen)

Freaky

Die Forenregeln kenne ich danke
Und es ist kein Captcha da ich nicht glaube das ein Captcha eine Landschaft im Hintergrund hat
Ich will eigentlich nur ein Tool was mir ein Chatverlauf mitschreibt da ich aber das nicht markieren kann, möchte ich Screens machen und halt den Text da raus

Freaky

Hallo,
ist es möglich ein Text auf einem Bild zu suchen ?
Aber der Text ist nicht immer gleichfarbig und der Hintergrund ist meistens eine Landschaft.
Also, ist es möglich, wenn ja wie ?

Freaky

Hallo
ich möchte in meinem Chat auf ein Benutzer links klicken und das ich dann nur an ihn was schreibe und wenn ich angechrieben wurde und ich im anderen Chat bin, das eine Zahl mehr bei Post steht, und ich möchte ein Chat für alle machen also das alles beim Server reingeht

Mein Problem ist jetzt (endlich fange ich damit an ^^), wie kriege ich hin das er nur auf ein Benutzer was schikt ? ich kriege es nur hin das er zu dem selben schikt

Client

[autoit]

#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <String.au3>
#RequireAdmin

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

Global $iSocket, $iRecv, $iPacketlaenge, $login = 0

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

TCPStartup()

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Client", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, FileRead("serverip.ini"))
$Button2 = GUICtrlCreateButton("Login", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Login Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
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
$iSend = _packet("Name: " & @ComputerName, GUICtrlRead($Input1))
TCPSend($iSocket, $iSend)
Case $Button2
$iSocket = TCPConnect(_GUICtrlIpAddress_Get($IPAddress1), 100)
If @error Then
MsgBox(0, "Fehler", "Server läuft ist nicht.")
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
$login = 1
EndIf
EndSwitch
If $login = 1 Then
Server_Recv($iSocket)
EndIf
WEnd

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

Func Server_Recv($iSocket)
$iRecv &= BinaryToString(TCPRecv($iSocket, 2048, 1))
$iPacketlaenge = StringInStr($iRecv, @CRLF & @CRLF, 1)
If $iPacketlaenge Then
$sPacket = StringLeft($iRecv, $iPacketlaenge - 1)
$iRecv = StringTrimLeft($iRecv, $iPacketlaenge + 3)
$rPacket = Server_Packet_Split($sPacket)
If $rPacket == "Accept" Then
TCPSend($iSocket, _packet("Connection", "True: " & @ComputerName))
GUICtrlSetData($Edit1, "Connected: True" & @CRLF & GUICtrlRead($Edit1))
Else
If $rPacket <> False Then GUICtrlSetData($Edit1, $rPacket & @CRLF & @CRLF & GUICtrlRead($Edit1))
EndIf
EndIf
EndFunc ;==>Server_Recv

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

Func Server_Packet_Split($iPacket)
Local $iTime, $iAktion, $iMsg, $iText
$iTime = _StringBetween($iPacket, "time=[", "]=")
$iAktion = _StringBetween($iPacket, "aktion=[", "]=")
$iMsg = _StringBetween($iPacket, "msg=[", "]=")
If $iAktion[0] = "Connection" Then Return $iMsg[0]
If $iAktion[0] = "Ping" Then Sleep(10)
If StringInStr($iAktion[0], "Name: ") Then
$iText = $iTime[0] & " " & StringReplace($iAktion[0], "Name: ", "") & @CRLF & $iMsg[0]
Return $iText
EndIf
EndFunc ;==>Server_Packet_Split

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

Func _packet($iAktion, $iMsg = "")
$iPacket = "time=[" & @HOUR & ":" & @MIN & ":" & @MIN & "]=" & @CRLF & _
"aktion=[" & $iAktion & "]=" & @CRLF & _
"msg=[" & $iMsg & "]=" & @CRLF & @CRLF
Return $iPacket
EndFunc ;==>_packet

[/autoit]

Server

[autoit]

#include <Array.au3>
#include <ArrayMore.au3>
#include <GUIConstantsEx.au3>
#include <GuiIPAddress.au3>
#include <GuiListView.au3>
#include <String.au3>

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

Global $iSocket, $iClient_Socket[1][2], $login = 0, $iRecv = "", $sItem[2]
$sItem[0] = "Alle|0|"
$iClient_Socket[0][0] = 0

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

TCPStartup()

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Server", 664, 334, 241, 111)
$Group1 = GUICtrlCreateGroup("Benutzer", 4, 0, 197, 241)
$ListView1 = GUICtrlCreateListView("Computername |Post", 10, 14, 186, 222)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Chat mit: Alle", 208, 2, 453, 329)
$Edit1 = GUICtrlCreateEdit("", 214, 16, 442, 286)
$Input1 = GUICtrlCreateInput("", 216, 306, 387, 21)
$Button1 = GUICtrlCreateButton("Senden", 608, 306, 47, 21)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Login", 4, 242, 197, 89)
$Label1 = GUICtrlCreateLabel("ServerIP:", 12, 258, 48, 17)
$IPAddress1 = _GUICtrlIpAddress_Create($Form1, 62, 254, 130, 21)
_GUICtrlIpAddress_Set($IPAddress1, @IPAddress1)
$Button2 = GUICtrlCreateButton("Server starten", 12, 280, 179, 25)
$Label = GUICtrlCreateLabel("Server Status", 14, 308, 179, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

GUICtrlCreateListViewItem ("Alle|0",$ListView1)
_GUICtrlListView_SetItemSelected ($ListView1,0)

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

$iTimer = TimerInit()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$iSend = _packet("Name: Server", GUICtrlRead($Input1))
TCPSend($sItem[1], $iSend)
Case $Button2
$iSocket = TCPListen(@IPAddress1, 100, 100)
If $iSocket = -1 Then
MsgBox(0, "Fehler", "Server konte nicht gestartet werden.")
Exit
Else
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_DISABLE)
FileDelete("serverip.ini")
FileWrite("serverip.ini", @IPAddress1)
EndIf
$login = 1
EndSwitch
If $login = 1 Then
_Client_Suche($iSocket)
For $i = 1 To $iClient_Socket[0][0]
Client_Recv($iClient_Socket[$i][0])
Next
If TimerDiff($iTimer) >= 5000 Then
_Client_Ping()
$iTimer = TimerInit()
EndIf
EndIf

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

If $sItem[0] <> GUICtrlRead (GUICtrlRead ($ListView1)) <> 0 Then
$sItem[0] = GUICtrlRead (GUICtrlRead ($ListView1))
$string = StringSplit ($sItem[0],"|")
For $i = 1 To $iClient_Socket[0][0]
If $iClient_Socket[$i][1] = $string[1] Then
$sItem[1] = $iClient_Socket[$i][0]
ExitLoop
EndIf
Next
GUICtrlSetData ($Group2,"Chat mit: " & $string[1])
EndIf
WEnd

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

Func _Client_Suche($iSocket)
Local $sClient
$sClient = TCPAccept($iSocket)
If $sClient <> -1 Then
;_ArrayAdd($iClient_Socket, $sClient)
_Array2DAdd($iClient_Socket, $sClient & "|")

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

$iClient_Socket[0][0] += 1
TCPSend($sClient, _packet("Connection", "Accept"))
Do
$iRecv = TCPRecv($sClient, 1024)
Until $iRecv <> ""
EndIf
EndFunc ;==>_Client_Suche

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

Func _packet($iAktion, $iMsg = "")
$iPacket = "time=[" & @HOUR & ":" & @MIN & ":" & @MIN & "]=" & @CRLF & _
"aktion=[" & $iAktion & "]=" & @CRLF & _
"msg=[" & $iMsg & "]=" & @CRLF & @CRLF
Return $iPacket
EndFunc ;==>_packet

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

Func _Client_Ping()
For $i = 1 To $iClient_Socket[0][0]
TCPSend($iClient_Socket[$i][0], _packet("Ping", "test"))
If @error Then
For $j = 0 To $iClient_Socket[0][0]
$gItem = _GUICtrlListView_GetItem($ListView1, $j - 1)
If $gItem[3] = $iClient_Socket[$j][1] Then
_GUICtrlListView_DeleteItem($ListView1, $j)
ExitLoop
EndIf
Next
GUICtrlSetData($Edit1, $iClient_Socket[$i][1] & " is disconnected..." & @CRLF & @CRLF & GUICtrlRead($Edit1))
_ArrayDelete($iClient_Socket, $i)
$iClient_Socket[0][0] -= 1
EndIf
Next
EndFunc ;==>_Client_Ping

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

Func Client_Recv($iSocket)
$iRecv &= BinaryToString(TCPRecv($iSocket, 2048, 1))
$iPacketlaenge = StringInStr($iRecv, @CRLF & @CRLF, 1)
If $iPacketlaenge Then
$sPacket = StringLeft($iRecv, $iPacketlaenge - 1)
$iRecv = StringTrimLeft($iRecv, $iPacketlaenge + 3)
$rPacket = Client_Packet_Split($sPacket)
If StringInStr($rPacket, "True: ") Then
GUICtrlSetData($Edit1, StringReplace($rPacket, "True: ", "") & " is connected..." & @CRLF & @CRLF & GUICtrlRead($Edit1))
GUICtrlCreateListViewItem(StringReplace($rPacket, "True: ", ""), $ListView1)
$iClient_Socket[UBound($iClient_Socket) - 1][1] = StringReplace($rPacket, "True: ", "")
ElseIf $rPacket <> False Then
GUICtrlSetData($Edit1, $rPacket & @CRLF & @CRLF & GUICtrlRead($Edit1))
EndIf
EndIf
EndFunc ;==>Client_Recv

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

Func Client_Packet_Split($iPacket)
Local $iTime, $iAktion, $iMsg, $iText
$iTime = _StringBetween($iPacket, "time=[", "]=")
$iAktion = _StringBetween($iPacket, "aktion=[", "]=")
$iMsg = _StringBetween($iPacket, "msg=[", "]=")
If $iAktion[0] = "Connection" Then Return $iMsg[0]
If $iAktion[0] = "Ping" Then Sleep(10)
If StringInStr($iAktion[0], "Name: ") Then
$iText = $iTime[0] & " " & StringReplace($iAktion[0], "Name: ", "") & @CRLF & $iMsg[0]
Return $iText
EndIf
EndFunc ;==>Client_Packet_Split

[/autoit]

Beiträge von Freaky

Im Input Enter anwenden

Im Input Enter anwenden

RichEdit UDF

Im Input Enter anwenden

RichEdit UDF

AutoIt Live Editor

AutoIt Live Editor

AutoIt Live Editor

AutoIt Live Editor

AutoIt Live Editor

AutoIt Live Editor

Winpcap UDF Hilfe

Winpcap UDF Hilfe

Text mit Bild vergleichen

Text mit Bild vergleichen

Text mit Bild vergleichen

Text mit Bild vergleichen

Text mit Bild vergleichen

Text mit Bild vergleichen

[TCP Chat] Chats teilen