Beiträge von moritz1243

moritz1243

Wonach genau muss ich bei dem Prozessen gucken?

moritz1243

wo soll die Webcam.exe sein - soll das ein Prozess sein?

moritz1243

danke für die links progece.exe habe ich schon herruntergeladen jedoch hilft es nicht wirklich weiter in diesem Fall. Gibt es denn nicht irgendeine Möglichkeit herrauszufinden, welches Programm die WEbcam nutzt

moritz1243

Also ich habe jetzt den Windows 7 Eigneen REsourcen Monitor genutz, um mir sentliche Netztwerk programme Anzeigen zu Lassen hier das Ergebnis:

Abbild PID Senden (B/s) Empfangen (B/s) Gesamt (B/s)
firefox.exe 3388 70 628 698
svchost.exe (LocalServiceAndNoImpersonation) 3184 277 391 668
svchost.exe (LocalService) 484 90 403 493
System 4 63 53 116
svchost.exe (NetworkService) 1076 31 32 62
svchost.exe (BullGuard) 1748 1 10 11
svchost.exe (netsvcs) 956 1 2 4

Gibt es nicht irgendein Möglichkeit herrauszufinden welches Programm auf die Webcam zugreift

Was auch Komisch ist ist, dass Programme wie ICQ oder auch ein in C++ geschriebenes Bsp Programm was ich mir herruntergeladen habe schafft es auch das Handle zu Bekommen, jetzt habe ich die Frage sind die Programm nur besser das sie sich das Handle "klauen" können oder wie sieht das aus?

moritz1243

Also es gibt zB eine die auf 65.55.12.249:http geht PRogramm Namen stehen da ja nicht bei, mein Antivirenprogramm ist übrigens Bullguard. Wäre die Protendung denn HTTP?

moritz1243

Bei Netstat -b wie müsste da so ein Programm aussehen?

moritz1243

Abend zusammen,

ich habe mal eine Frage bezüglich meiner webcam, ich habe mir neulich ein script für die webcam aus dem englischem Forum umgebastelt für bewegungserkennung. Das hat vorerst auch ganz gut funktioniert, doch plötzlich ging gar nichts mehr, der Fehler bestand darin, dass das Programm das Kamera handle nicht erlangen konnte. Nach etwas hin und her Probieren ist mir aufgefallen, das ich das Handle nur erlange wenn ich mit dem Laptop nicht im internet bin. Jetzt stellt sich mir die Frage welches Programm benutzt die Webcam wenn ich online bin? ICQ und Steam sind es nicht, deshalb habe ich Angst das ich einen Trojaner habe! Ist sowas möglich und würde man es im Tastmanager Sehen(Netzwerkauslastung oder Prozessorauslast?

Hier noch das Script:

Spoiler anzeigen

[autoit]

#Region Variablen
$WM_CAP_START = 0x400
$WM_CAP_UNICODE_START = $WM_CAP_START +100
$WM_CAP_PAL_SAVEA = $WM_CAP_START + 81
$WM_CAP_PAL_SAVEW = $WM_CAP_UNICODE_START + 81
$WM_CAP_UNICODE_END = $WM_CAP_PAL_SAVEW
$WM_CAP_ABORT = $WM_CAP_START + 69
$WM_CAP_DLG_VIDEOCOMPRESSION = $WM_CAP_START + 46
$WM_CAP_DLG_VIDEODISPLAY = $WM_CAP_START + 43
$WM_CAP_DLG_VIDEOFORMAT = $WM_CAP_START + 41
$WM_CAP_DLG_VIDEOSOURCE = $WM_CAP_START + 42
$WM_CAP_DRIVER_CONNECT = $WM_CAP_START + 10
$WM_CAP_DRIVER_DISCONNECT = $WM_CAP_START + 11
$WM_CAP_DRIVER_GET_CAPS = $WM_CAP_START + 14
$WM_CAP_DRIVER_GET_NAMEA = $WM_CAP_START + 12
$WM_CAP_DRIVER_GET_NAMEW = $WM_CAP_UNICODE_START + 12
$WM_CAP_DRIVER_GET_VERSIONA = $WM_CAP_START + 13
$WM_CAP_DRIVER_GET_VERSIONW = $WM_CAP_UNICODE_START + 13
$WM_CAP_EDIT_COPY = $WM_CAP_START + 30
$WM_CAP_END = $WM_CAP_UNICODE_END
$WM_CAP_FILE_ALLOCATE = $WM_CAP_START + 22
$WM_CAP_FILE_GET_CAPTURE_FILEA = $WM_CAP_START + 21
$WM_CAP_FILE_GET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 21
$WM_CAP_FILE_SAVEASA = $WM_CAP_START + 23
$WM_CAP_FILE_SAVEASW = $WM_CAP_UNICODE_START + 23
$WM_CAP_FILE_SAVEDIBA = $WM_CAP_START + 25
$WM_CAP_FILE_SAVEDIBW = $WM_CAP_UNICODE_START + 25
$WM_CAP_FILE_SET_CAPTURE_FILEA = $WM_CAP_START + 20
$WM_CAP_FILE_SET_CAPTURE_FILEW = $WM_CAP_UNICODE_START + 20
$WM_CAP_FILE_SET_INFOCHUNK = $WM_CAP_START + 24
$WM_CAP_GET_AUDIOFORMAT = $WM_CAP_START + 36
$WM_CAP_GET_CAPSTREAMPTR = $WM_CAP_START + 1
$WM_CAP_GET_MCI_DEVICEA = $WM_CAP_START + 67
$WM_CAP_GET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 67
$WM_CAP_GET_SEQUENCE_SETUP = $WM_CAP_START + 65
$WM_CAP_GET_STATUS = $WM_CAP_START + 54
$WM_CAP_GET_USER_DATA = $WM_CAP_START + 8
$WM_CAP_GET_VIDEOFORMAT = $WM_CAP_START + 44
$WM_CAP_GRAB_FRAME = $WM_CAP_START + 60
$WM_CAP_GRAB_FRAME_NOSTOP = $WM_CAP_START + 61
$WM_CAP_PAL_AUTOCREATE = $WM_CAP_START + 83
$WM_CAP_PAL_MANUALCREATE = $WM_CAP_START + 84
$WM_CAP_PAL_OPENA = $WM_CAP_START + 80
$WM_CAP_PAL_OPENW = $WM_CAP_UNICODE_START + 80
$WM_CAP_PAL_PASTE = $WM_CAP_START + 82
$WM_CAP_SEQUENCE = $WM_CAP_START + 62
$WM_CAP_SEQUENCE_NOFILE = $WM_CAP_START + 63
$WM_CAP_SET_AUDIOFORMAT = $WM_CAP_START + 35
$WM_CAP_SET_CALLBACK_CAPCONTROL = $WM_CAP_START + 85
$WM_CAP_SET_CALLBACK_ERRORA = $WM_CAP_START + 2
$WM_CAP_SET_CALLBACK_ERRORW = $WM_CAP_UNICODE_START + 2
$WM_CAP_SET_CALLBACK_FRAME = $WM_CAP_START + 5
$WM_CAP_SET_CALLBACK_STATUSA = $WM_CAP_START + 3
$WM_CAP_SET_CALLBACK_STATUSW = $WM_CAP_UNICODE_START + 3
$WM_CAP_SET_CALLBACK_VIDEOSTREAM = $WM_CAP_START + 6
$WM_CAP_SET_CALLBACK_WAVESTREAM = $WM_CAP_START + 7
$WM_CAP_SET_CALLBACK_YIELD = $WM_CAP_START + 4
$WM_CAP_SET_MCI_DEVICEA = $WM_CAP_START + 66
$WM_CAP_SET_MCI_DEVICEW = $WM_CAP_UNICODE_START + 66
$WM_CAP_SET_OVERLAY = $WM_CAP_START + 51
$WM_CAP_SET_PREVIEW = $WM_CAP_START + 50
$WM_CAP_SET_PREVIEWRATE = $WM_CAP_START + 52
$WM_CAP_SET_SCALE = $WM_CAP_START + 53
$WM_CAP_SET_SCROLL = $WM_CAP_START + 55
$WM_CAP_SET_SEQUENCE_SETUP = $WM_CAP_START + 64
$WM_CAP_SET_USER_DATA = $WM_CAP_START + 9
$WM_CAP_SET_VIDEOFORMAT = $WM_CAP_START + 45
$WM_CAP_SINGLE_FRAME = $WM_CAP_START + 72
$WM_CAP_SINGLE_FRAME_CLOSE = $WM_CAP_START + 71
$WM_CAP_SINGLE_FRAME_OPEN = $WM_CAP_START + 70
$WM_CAP_STOP = $WM_CAP_START + 68
#EndRegion

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

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>

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

Local $avi = DllOpen("avicap32.dll")
Local $user = DllOpen("user32.dll")
Local $snapfile = @ScriptDir & "\scrshot.bmp"

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

Local $Main = GUICreate("Camera",320,480)
Global $hWnd = WinGetHandle("Camera")

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

Local $cap = DllCall($avi, "int", "capCreateCaptureWindow", "str", "cap", "int", BitOR($WS_CHILD,$WS_VISIBLE), "int", 0, "int", 0, "int", 320, "int", 240, "hwnd", $Main, "int", 1)

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

DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_CONNECT, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_SCALE, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_OVERLAY, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEW, "int", 1, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_PREVIEWRATE, "int", 1, "int", 0)

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

GUISetState(@SW_SHOW)
HotKeySet("{INSERT}", "SnapShot"); Press 'Insert' to make a SnapShot !
HotKeySet("{HOME}", "StartRecording"); Press 'Home' to start recording !

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

Local $Genauigkeit = 20
Local $width = 320, $height = 240
Local $Gui_Pos

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

Local $pixel_array[Int(($width-1)/$Genauigkeit)][Int(($height-1)/$Genauigkeit)]

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

;_ArrayDisplay($pixel_array)

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

_GDIPlus_Startup ()

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

Global $hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
Global $Bitmap = _GDIPlus_BitmapCreateFromGraphics(320,240, $hGraphic)
Global $Buffer = _GDIPlus_ImageGetGraphicsContext($Bitmap)
_GDIPlus_GraphicsSetSmoothingMode($Buffer, 4)
_GDIPlus_GraphicsClear($Buffer,0xFF000000)
Global $hPen = _GDIPlus_PenCreate (0xFFABCDEF,2)
Global $hBrush = _GDIPlus_BrushCreateSolid(0xFFABCDEF)

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

_GDIPlus_GraphicsClear($Buffer,0xFF00FF00)
_GDIPlus_GraphicsDrawString($Buffer,"Test",0,0)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap,0,240, 320, 240)

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

Sleep(1000)

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

While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
;DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SET_CALLBACK_FRAME, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_END, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_DRIVER_DISCONNECT, "int", 0, "int", 0)
DllClose($avi)
DllClose($user)
Exit
EndIf

_GDIPlus_GraphicsClear($Buffer,0xFF00FF00)

For $x = 0 To ($width-1)/$Genauigkeit-1 Step 1
For $y = 0 To ($height-1)/$Genauigkeit-1 Step 1
$Gui_Pos = WinGetPos($Main, "")
$Gui_Pos[1] += 25
;ToolTip(PixelGetColor($Gui_Pos[0] + $x, $Gui_Pos[1] + $y));, $Main))
;MouseMove($Gui_Pos[0] + $x, $Gui_Pos[1] + $y)
If $pixel_array[$x][$y] <> PixelGetColor($Gui_Pos[0] + $x*$Genauigkeit, $Gui_Pos[1] + $y*$Genauigkeit) Then
$pixel_array[$x][$y] = PixelGetColor($Gui_Pos[0] + $x*$Genauigkeit, $Gui_Pos[1] + $y*$Genauigkeit)

_GDIPlus_GraphicsFillRect($Buffer,$x*$Genauigkeit, $y*$Genauigkeit ,4,4)

EndIf
Next
Next

_GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap,0,240, 320, 240)

Sleep(10)
Wend

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

Func SnapShot()
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_GRAB_FRAME_NOSTOP, "int", 0, "int", 0)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SAVEDIBA, "int", 0, "str", $snapfile)
EndFunc

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

Func StartRecording()
WinSetTitle($Main, "", "WebCam - Capturing...")
HotKeySet("{HOME}", "StopRecording")
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_FILE_SET_CAPTURE_FILEA, "int", 0, "str", $moviefile)
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_SEQUENCE, "int", 0, "int", 0)
EndFunc

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

Func StopRecording()
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_STOP, "int", 0, "int", 0)
WinSetTitle($Main, "", "WebCam - Ready")
HotKeySet("{HOME}", "StartRecording")
EndFunc

[/autoit]

gruß Moritz

moritz1243

Danke für die vielen Ideen, ich hatte auch schon versuch mit cmd mit net session. War aber nicht so erfolgreich, die letzten beiden Scripte funktionieren sehr gut vorbei das von Xenobiologist am schnellsten ist.

moritz1243

Die funktion findet nur meinen pc obwohl der von meinem Vater auch da ist und auch bei netzwerk angezeigt wird, bzw ich mit net session im cmd finden lässt. Achja und wir haben verschiedene Arbeitsgruppen aber es muss auch so gehen.

moritz1243

Abend,

gibt es eine Möglichkeit sich alle Pc im Netzwerk anzeigen zu lassen? Am besten mit IP?

moritz1243

Also du hast einen string in dem die akkorde stehen und möchtest in zeilen aufteilen, nach den oben angebenen kriterien???

moritz1243

Ich weiß zwar nicht genau was du vor hast, aber mit winget_text oder so könnte man von einem Fenster text auslesen und dann in derine konsole anzeigen.

moritz1243

Hi zusammen,

ich habe gestern ein Server Programm von mir wiedr gefunden und habe es auf den neusten Stand gebracht, es ist für das heimnetzwerk müsste aber eigentlich auch über inet funktionieren. Wenn ihr verbesserungsvorschläge habt dann immer her damit ebenso sind kritiken erwünscht.

hier der code:

Spoiler anzeigen

[autoit]

#include <Array.au3>
#include <Misc.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>

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

Global $Server_IP = "127.0.0.1"
Global $Server_Port = 65432
Global $Socket
Global $Server
Global $IsHost = False
Global $Count = 1
Global $Verbindungen
Global $User
Global $Name = IniRead(@AppDataDir & "\config.ini","Optionen","Username",-1)
If $Name = -1 Then
$Name = InputBox("","Name?")
IniWrite(@AppDataDir & "\config.ini","Optionen","Username",$Name)
EndIf
If $Name = "" Then beenden("Fehler - Kein Name angegeben")
;$Name = "User" & Random(0,1000,1)
Global $Recv
Global $Font = "Arial"
Global $Minimiert = False
Global $Log_Text

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

Global Const $Retries = 0

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

Opt("TrayMenuMode",1) ; Default tray menu items (Script Paused/Exit) will not be shown.

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

$Tray_Maximieren = TrayCreateItem("Maximieren")
TrayCreateItem("")
$Tray_Exit = TrayCreateItem("Exit")

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

TraySetState()

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

GUI_Create()

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

TCPStartup()

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

Connect() ; Versucht auf einen Existierenden Server zu connecten

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

While True
If $IsHost Then
Pruefe_neue_Verbindung()
For $i = 0 To $Count-2 Step 1
$Recv = TCPRecv($Verbindungen[$i],1024)
If @error Then ; User verbindung unterbrochen
Info_Log("*** " & $User[$i] & " ist offline ***")
Local $iUser = $User[$i]
User_Del($i)
For $j = 0 To $Count-2 Step 1 ; Sendet dem neuen User alle anderen User daten
TCPSend($Verbindungen[$j], $User[$j] & "|userdel|" & $iUser)
Next
ExitLoop
Else
$Recv = StringSplit($Recv, "|")
If $Recv[0] = 3 Then
Switch $Recv[2]
Case "message"
If $Recv[1] = $Name Then
Info_Log($Recv[3])
If $Minimiert Then GUI_Create()
Else
Message($Recv[1], $Recv[3])
EndIf
EndSwitch
Else
If $User[$i] = "" Then
For $j = 0 To $count - 2 Step 1
If $Recv[1] = $User[$j] Then
TCPSend($Verbindungen[$i], $Recv[1] & "|rename|" & $Recv[1] & "|")
ExitLoop 2
EndIf
Next
Info_Log("*** " & $Recv[1] & " ist online ***")
List_Add($Recv[1])
$User[$i] = $Recv[1]
TCPSend($Verbindungen[$i], $User[$i] & "|useradd|" & $Name & "|")
For $j = 0 To $Count-3 Step 1 ; Sendet an alle User das ein neuer User hinzugekommen ist
TCPSend($Verbindungen[$j], $User[$j] & "|useradd|" & $Recv[1] & "|")
Next
For $j = 0 To $Count-3 Step 1 ; Sendet dem neuen User alle anderen User daten
TCPSend($Verbindungen[$i], $Recv[1] & "|useradd|" & $User[$j] & "|")
Next
EndIf
EndIf
EndIf
Next
Else
$Recv = TCPRecv($Socket,1024)
$Recv = StringSplit($Recv, "|")
If $Recv[0] >= 3 Then
For $i = 1 To $Recv[0]-1 Step 3
Switch $Recv[$i+1]
Case "message"
If $Recv[$i] = $Name Then
Info_Log($Recv[$i+2])
If $Minimiert Then GUI_Create()
Else
Message($Recv[$i],$Recv[$i+2])
EndIf
Case "useradd"
User_Add($Recv[$i+2])
Info_Log("*** " & $Recv[$i+2] & " ist online ***")
Case "userdel"
User_Del($Recv[$i+2])
Info_Log("*** " & $Recv[$i+2] & " ist offline ***")
Case "rename"
$Name = InputBox("Umbenennen","Ihr Name (" & $Name & ") wird schon vergeben, wählen sie einen anderen!")
If @error Then Beenden()
TCPSend($Socket, $Name)
EndSwitch
Next
EndIf
EndIf
Switch GUIGetMsg()
Case $Send
Local $read = GUICtrlRead($Text)
If $read <> "" Then
Message(GUICtrlRead($An), $Name & " " & @HOUR & ":" & @MIN & ": " & $read)
GUICtrlSetData($Text,"")
EndIf
Case -3
Beenden()
Case -4
GUI_Delete()
EndSwitch
If _IsPressed("0D") Then
Local $read = GUICtrlRead($Text)
If $read <> "" Then
Message(GUICtrlRead($An), $Name & " " & @HOUR & ":" & @MIN & ": " & $read)
GUICtrlSetData($Text,"")
EndIf
EndIf
Switch TrayGetMsg()
Case $Tray_Maximieren
If $Minimiert Then GUI_Create()
Case $Tray_Exit
Beenden()
EndSwitch
WEnd

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

Func Pruefe_neue_Verbindung()

Local $Neue_Verbindung = TCPAccept($Server)

If $Neue_Verbindung <> -1 Then
If IsArray($User) Then
ReDim $User[$Count]
Else
Dim $User[$Count]
EndIf
If IsArray($Verbindungen) Then
ReDim $Verbindungen[$Count]
Else
Dim $Verbindungen[$Count]
EndIf

$Verbindungen[$Count-1] = $Neue_Verbindung
$Count += 1

EndIf
EndFunc

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

Func User_Add($iName)

If IsArray($User) Then
ReDim $User[$Count]
Else
Dim $User[$Count]
EndIf

$User[$Count-1] = $iName
$Count += 1

List_Add($iName)

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

Return 1

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

EndFunc

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

Func User_Del($iNameOrID)

If IsString($iNameOrID) Then

For $i = 1 To $Count - 2 Step 1

If $User[$i] = $iNameOrID Then
_ArrayDelete($User,$i)
_ArrayDelete($Verbindungen,$i)
$Count -= 1
ExitLoop
EndIf

Next

ElseIf IsNumber($iNameOrID) Then

_ArrayDelete($User,$iNameOrID)
_ArrayDelete($Verbindungen,$iNameOrID)
$Count -= 1

Else
Beenden("Fehler - In User_Del Funktion, falscher Parameter")
EndIf

List_Reload()

Return 1

EndFunc

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

Func List_Add($iName)
GUICtrlSetData($An, $iName)
EndFunc

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

Func List_Reload()
GUICtrlSetData($An, "")

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

For $i = 0 To $Count - 2 Step 1

GUICtrlSetData($An, $User[$i] & "|")

Next
EndFunc

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

Func Message($An1,$Text1)

$string = $An1 & "|message|" & $Text1
If $IsHost Then
For $i = 0 To $Count-2 Step 1
If $User[$i] = $An1 Then
TCPSend($Verbindungen[$i], $string)
ExitLoop
EndIf
Next
Else
TCPSend($Socket, $string)
EndIf
EndFunc

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

Func GUI_Create()
Global $Main_Gui = GUICreate("Home Chat",420,300)

GUICtrlCreatePic("hintergrund.jpg", 0, 0, 640, 400)
GUICtrlSetState(-1, 128)

Global $Log = GUICtrlCreateEdit($Log_Text,10,40,400,170, BitOR($ES_AUTOVSCROLL, $ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL))
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Transparent
;GUICtrlSetColor (-1,0x0)
GUICtrlSetFont(-1, 14, 400, 0, $Font)
Global $Text = GUICtrlCreateEdit("",10,220,300,70,0x0040 + 0x00200000)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Transparent
;GUICtrlSetColor (-1,0x0)
GUICtrlSetFont(-1, 14, 400, 0, $Font)
;Global $An = GUICtrlCreateInput("",345,220,55,20)
Global $An = GUICtrlCreateList("", 320,220,80,50,0x00200000) ; $WS_VSCROLL
GUICtrlSetLimit(-1, 200)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Transparent
;GUICtrlSetColor (-1,0x0)
Global $Send = GUICtrlCreateButton("Send",320,270,80,20)
GUICtrlSetBkColor(-1, 0xFFFFFF) ;Transparent
GUICtrlSetColor (-1,0x0000FF)
GUICtrlSetFont(-1, 10, 400, 0, $Font)
GUICtrlCreateLabel($Name,10,10,400,25)
GUICtrlSetBkColor(-1, -2) ;Transparent
GUICtrlSetColor (-1,0xFFFFFF)
GUICtrlSetFont(-1, 18, 400, 0, $Font)

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

GUISetState()
For $i = 0 To $Count - 2 Step 1

GUICtrlSetData($An, $User[$i])

Next
EndFunc

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

Func GUI_Delete()
GUIDelete($Main_GUI)
$Minimiert = True
EndFunc

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

Func Info_Log($Text)

$Log_Text = GUICtrlRead($Log) & @CRLF & $Text

If $text = "cls" Then
GUICtrlSetData($Log,"")
Else
GUICtrlSetData($Log, $Log_Text)
Local $Lines = _GUICtrlEdit_GetLineCount($Log)
_GUICtrlEdit_LineScroll($Log, 0, $Lines)

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

EndIf

EndFunc

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

Func Connect()
Info_Log("*** Server wird gesucht ***")
$Socket = TCPConnect($Server_IP, $Server_Port)

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

If $Socket = -1 Then
For $i = 1 To $Retries Step 1
Sleep(500)
Info_Log("cls")
Info_Log("*** Server wird gesucht - Versuch: " & $i & " ***")
$Socket = TCPConnect($Server_IP, $Server_Port)
If $Socket <> -1 Then
TCPSend($Socket, $Name)
Info_Log("cls")
Info_Log("Server wurde gefunden - " & $Server_IP)
ExitLoop
EndIf
Next
$IsHost = True
$Server = TCPListen($Server_IP, 65432, 128)
If $Server = -1 Then Beenden("Ein Fehler ist aufgetreten - Es konnte kein Server erstellt werden")
Info_Log("cls")
Info_Log("*** Server wurde erstellt - " & $Server_IP & " ***")
Return 1
Else
TCPSend($Socket, $Name)
Info_Log("cls")
Info_Log("*** Server wurde gefunden - " & $Server_IP & " ***")
Return 1
EndIf
EndFunc

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

Func Beenden($message = "")
If $message <> "" Then MsgBox(48,"Fehler",$message)
TCPCloseSocket($Socket)
TCPShutdown()
Exit 0
EndFunc

[/autoit]

grüße Moritz

moritz1243

ja ist zwar sehr nett das zu erläutern, doch mich hätten er die einzelnen funktionen, sowie das dll interssiert.

moritz1243

könnte ihr mir das projekt mal zeigen bzw testen lassen?

moritz1243

Ich beherrsche die grundlagen von c++ ich bin sogar schon etwas weiter würde ich sagen nur winapi müsste ich mir mal genauer anschauen habe es bis jetzt nur benutzt um tastatur oder sowas abzufragen.

So vielen dank für eure hilfe ihr habt mir sehr geholfen

moritz1243

visual studio habe ich mir schon herruntergeladen aber noch nicht eingearbeitet, ich denke aber das wird es sein.

moritz1243

Ich glaube langsam auch das es besser wäre mehr richtung c++ zu machen, da autoit echt langsam ist. Kennt jemand einen guten c++ editor weil codeblock ist nicht das gelbe vom ei.

moritz1243

Naja ich könnte mir natürlich mit c++ ne hübsches dll basteln, welches mit das bild schön komprimiert und eben nur die Enderungen herausfiltert, aber dann könnte ich auch einfach teamviewer benutzen. Naja ich denke ich werde projekt abharken müssen, da kann man das wohl nix machen.

moritz1243

danke für die antwort aber das wusste ich selber ich wollte wissen wie ich es optimiere

Beiträge von moritz1243

Webcam Spionage???

Webcam Spionage???

Webcam Spionage???

Webcam Spionage???

Webcam Spionage???

Webcam Spionage???

Webcam Spionage???

Alle Netzwerk Pcs anzeigen

Alle Netzwerk Pcs anzeigen

Alle Netzwerk Pcs anzeigen

RegExp: Akkord (z.B. Em7/G)

ConsoleWrite an vorkompilierte Console

Home-Server

Remote Desktop

Remote Desktop

Physik Engine Projekt

Physik Engine Projekt

Physik Engine Projekt

Remote Desktop

Remote Desktop