Beiträge von monkey

monkey

Das hier funktioniert bei mir schonmal aufm localhost.
Ist quick and dirty

Spoiler anzeigen

[autoit]

#include<screencapture.au3>

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

TCPStartup()
$iSocket = TCPListen("127.0.0.1", 1337)
While 1
Do
$iClientSocket = TCPAccept($iSocket)
Until $iClientSocket > 0
ConsoleWrite("Habe einen Client auf Socket: " & $iClientSocket & @CRLF & @CRLF)
_ScreenCapture_Capture("Screen.jpg")
$sData=FileRead("Screen.jpg")
$sHeader = "HTTP/1.1 200 OK" & @CRLF & _
"Content-Type: image/jpg" & @CRLF & _
"Content-Length: " & StringLen($sData) & @CRLF & _
"Connection: close" & @CRLF & @CRLF & $sData
ConsoleWrite("Habe einen Screenshot erstellt.")
$hTimer = TimerInit()
Do
$sRecv = TCPRecv($iClientSocket, 1024)
Until $sRecv <> "" Or TimerDiff($hTimer) > 500
If TimerDiff($hTimer) < 500 Then
Do
$sRecv &= TCPRecv($iClientSocket, 1024)
Until StringInStr($sRecv, @CRLF & @CRLF)
ConsoleWrite("Habe Daten vom Browser empfangen: " & $sRecv & @CRLF & @CRLF)
EndIf
TCPSend($iClientSocket, $sHeader)
ConsoleWrite("Habe Daten versendet." & @CRLF & @CRLF)
TCPCloseSocket($iClientSocket)
WEnd
TCPShutdown()

[/autoit]

Das als Server starten und dann per Browser auf die IP verbinden.
Das könnte man noch so umstellen das es im LAN läuft aber auch via Internet

monkey

Danke schön für die lieben Glückwünsche

Und auch noch herzlichen Glückwunsch den anderen Geburtstagskindern

monkey

Vielleicht hilt dir das auch weiter
[ offen ] Astar (A*) Algorytmus komme nicht weiter

monkey

Sehr schön

Das spiel gefällt mir^^
Für die kleine Pause zwischen durch gut geeignet^^

monkey

Vorab muss ich dir sagen das ich die Idee sehr gut finde
Hoffe das Projekt entwickelt sich noch weiter^^

Wäre schön wenn du noch einbauen könntest das die Einträge nach ihrer Bewertung sortiert werden.
Das mit den Kategorien fänge ich auch ganz gut.
Oder sowas wie hier : http://german-bash.org/ das wenn man auf random klickt man eine Seite voll mit Random Einträgen bekommt.
Und Seiten wären bestimmt auch nicht verkehrt also das die Einträge nicht alle in einer Endlosen List untereinander stehen.

monkey

Sehr schön!!

Das Programm gefällt mir richtig gut.
-Schön aufgebaut
-Sehr Viele Funktionen (MD5 Hash, usw.)
-Sehr viele Einstellmöglichkeiten

Mach weiter so

monkey

Sieht gut aus.
Klein aber hilfreich.

Was ich noch schön fände wäre eine Funktion um bereitsbestehende Einträge aus der Host-Datei zu entfernen.

monkey

mhm das wäre auch ne möglichkeit.
Aber das war eig. sowieso nur ein Test wie ich nen multi client server mache, und ein chat war meine erste idee

monkey

Danke das klappt schon mal

monkey

Hi,

ich versuche grade einen TCP Multiclient Server zu erstellen. Jedoch wenn ich versuche überflüssige/nich verbundene Clients zu löschen dann bekomme ich eine Fehler weil die Zahl in der For schleife nicht mehr passt.

Hier mal mein Server

[autoit]

#include<array.au3>

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

Dim $aClients[1] = [0]
Global $sIP = "127.0.0.1", $iPort = 1337, $iMainSocket
TCPStartup()
$iMainSocket = TCPListen($sIP, $iPort)

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

While 1
_AcceptClients($aClients)
_DeleteClients($aClients)
If $aClients[0] > 0 Then
;hier kommt der chat rein
EndIf
WEnd

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

Func _DeleteClients(ByRef $aClients)
For $i=1 to $aClients[0]
TCPSend($aClients[$i], "[/Ping]"&@CRLF &@CRLF)
$hTimer=TimerInit()
Do
$sRecv=TCPRecv($aClients[$i], 1)
If TimerDiff($hTimer)>600 Then
_ArrayDelete($aClients, $i)
$aClients[0]-=1
;~ _ArrayDisplay($aClients)
ConsoleWrite("Client gelöscht"&@CRLF)
ContinueLoop 2
EndIf
Until $sRecv<>""
Do
$sRecv &= TCPRecv($aClients[$i], 1)
Until @error or StringInStr($sRecv, "[/Pong]")
Next
EndFunc

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

Func _AcceptClients(ByRef $aClients)
$iTempClient = TCPAccept($iMainSocket)
If $iTempClient <> -1 Then
_ArrayAdd($aClients, $iTempClient)
$aClients[0] += 1
TCPSend($iTempClient, "[Console]Connected[/Console]"&@CRLF &@CRLF)
ConsoleWrite("Client hinzugefügt"&@CRLF)
;~ _ArrayDisplay($aClients)
EndIf
EndFunc ;==>_AcceptClients

[/autoit]

Wenn jetzt in der Funktion _DeleteClients() ein Client rausgeschmissen wird dann setzt ich $aClients[0] um eine Zahl herunter jedoch versucht die For schleife in Zeile 21 immernoch bis zum Wert zu laufen den die Variable $aClients[0] zuvor hatte.

Ich hoffe ihr habt Rat für mich

monkey

FileOpenDialog

monkey

Vielleicht fällt es dir jetzt mehr auf.

[autoit]

#include<ie.au3>

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

$oIE=_IEAttach("Internet Explorer", "WindowTitle")
MsgBox(0, "URL",_IEPropertyGet($oIE, "locationurl"))

[/autoit]

monkey

Wie siehts hiermit aus?

[autoit]

#include<ie.au3>

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

$oIE=_IEAttach("Internet Explorer", "WindowTitle")
_IEPropertyGet($oIE, "locationurl")
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : _IEPropertyGet($oIE, "locationurl") = ' & _IEPropertyGet($oIE, "locationurl") & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

[/autoit]

monkey

Sowas?

[autoit]

#include<Date.au3>
Dim $iHours, $iMins, $iSecs
$Timer=TimerInit()
$End=90000
Do
$Zeit=TimerDiff($Timer)
$Zeit2=$End-$Zeit
_TicksToTime($Zeit2, $iHours, $iMins, $iSecs)
ToolTip($iMins&":"&$iSecs)
sleep(250)
Until $Zeit >= $End

[/autoit]

monkey

Makros sind hier das Stichwort.

[autoit]

@mday, @year, @mon

[/autoit]

€dit: Hehe

monkey

EAV is der hammer xD
ich hatte lage en ohrwurm von fata morgana

Was ich auch sehr schön finde
http://www.youtube.com/watch?v=j1FwlQhFLQQ

monkey

Happy Birthday :-)

monkey

Du schon mit _Stringbetween arbeiten ... bei String Ende setzt du einfach einen Zeilen umbruch ein

[autoit]

@CRLF

[/autoit]

monkey

Vielleicht hilft die die UDF weiter...

Spoiler anzeigen

[autoit]

; Authors: Manadar, GarryFrost
; Contributor: WideBoyDixon

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

#include <WinAPI.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

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

#include-once

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

Dim $hHook
Dim $hStub_KeyProc = DllCallbackRegister("_KeyProc", "long", "int;wparam;lparam")
Dim $hmod = _WinAPI_GetModuleHandle(0)
Dim $hHook = _WinAPI_SetWindowsHookEx($WH_KEYBOARD_LL, DllCallbackGetPtr($hStub_KeyProc), $hmod)
Dim $buffer = ""
Dim $hotstrings[1]
Dim $hotfuncs[1]
Dim $hWnd = GUICreate("")
GUIRegisterMsg($WM_KEYDOWN, "_GUIKeyProc")

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

;; ==========================
;; This is your actual script.
;; ==========================

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

;#include <HotString.au3>

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

;~ HotStringSet("CallMe","examplefunction")

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

;~ While 1
;~ Sleep(10)
;~ WEnd

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

;~ Func examplefunction()
;~ MsgBox(0,"","lolwat!")
;~ EndFunc

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

;; ==========================
;; End of actual script.
;; The part above the start of the actual script
;; and below this comment
;; script can be put in another
;; file and included.
;; ==========================

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

Func HotStringSet($hotstring, $func)
_ArrayAdd($hotstrings, $hotstring)
_ArrayAdd($hotfuncs, $func)
EndFunc

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

Func EvaluateKey($keycode)
If (($keycode > 64) And ($keycode < 91)) _ ; A - Z
Or (($keycode > 47) And ($keycode < 58)) Then ; 0 - 9
$buffer &= Chr($keycode)
Print($buffer)
$a = _ArraySearch($hotstrings, $buffer)
If ( $a >= 0 ) Then
Call($hotfuncs[$a])
EndIf
ElseIf ($keycode > 159) And ($keycode < 164) Then
Return
Else
$buffer = ""
EndIf
EndFunc ;==>EvaluateKey

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

Func _GUIKeyProc($hWnd, $Msg, $wParam, $lParam)
EvaluateKey(Number($wParam))
EndFunc

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

;===========================================================
; callback function. This function must return as quickly as possible or it will stall and block user input
;===========================================================
Func _KeyProc($nCode, $wParam, $lParam)
Local $tKEYHOOKS
$tKEYHOOKS = DllStructCreate($tagKBDLLHOOKSTRUCT, $lParam)
If $nCode < 0 Then
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndIf
If $wParam = $WM_KEYDOWN Then
$vkKey = DllStructGetData($tKEYHOOKS, "vkCode")
_WinAPI_PostMessage($hWnd, $WM_KEYDOWN, $vkKey, 0)
EndIf
Return _WinAPI_CallNextHookEx($hHook, $nCode, $wParam, $lParam)
EndFunc ;==>_KeyProc

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

Func Print($s)
ConsoleWrite($s & @CRLF)
EndFunc

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

Func OnAutoItExit()
_WinAPI_UnhookWindowsHookEx($hHook)
DllCallbackFree($hStub_KeyProc)
EndFunc ;==>OnAutoItExit

[/autoit]

monkey

Du benutzt eine flasche Variable.

[autoit]

#include <ImageSearch.au3>
Global $x = 0
Global $y = 0

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

#region einfache suche
$res = _imagesearch('C:\Users\Georg\Desktop\image.bmp', 1, $x, $y, 100)

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

If $res = 1 Then;Hier hattes du die Variable $Result benutzt
MouseMove(0, 0, 100)
Else
MsgBox(2, "nix", "nix")
EndIf

[/autoit]

Beiträge von monkey

Per TCP Screenshot anzeigen

Dreifach Geburtstag lars_k (36), monkey (20), qixx(19)

Koordinatensytem Wegeberechnung

Xonix - Ein kleines Spielchen

IdeenGenerator !

SMF - Search My Files [2011-Feb-13]

Windows Hosts Editor

TCP Array Problem

TCP Array Problem

TCP Array Problem

Befehl zum auswählen einer Datei gesucht

MessageBox (IE)

MessageBox (IE)

transparents Bild

Ordner mit Tagesdatum erstellen

Welche Musik hört ihr?

AntiSpeed hat B-Day

Wert nach einem Zeichen auslesen

Wie baut man ein Macro

_imagesearch problem