Wonach genau muss ich bei dem Prozessen gucken?
Beiträge von moritz1243
-
-
wo soll die Webcam.exe sein - soll das ein Prozess sein?
-
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
-
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 4Gibt 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?
-
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?
-
Bei Netstat -b wie müsste da so ein Programm aussehen?
-
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
[/autoit] [autoit][/autoit] [autoit]
$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#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <WindowsConstants.au3>
#include <GDIPlus.au3>
#include <Array.au3>Local $avi = DllOpen("avicap32.dll")
[/autoit] [autoit][/autoit] [autoit]
Local $user = DllOpen("user32.dll")
Local $snapfile = @ScriptDir & "\scrshot.bmp"Local $Main = GUICreate("Camera",320,480)
[/autoit] [autoit][/autoit] [autoit]
Global $hWnd = WinGetHandle("Camera")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)
[/autoit] [autoit][/autoit] [autoit]
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)GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{INSERT}", "SnapShot"); Press 'Insert' to make a SnapShot !
HotKeySet("{HOME}", "StartRecording"); Press 'Home' to start recording !Local $Genauigkeit = 20
[/autoit] [autoit][/autoit] [autoit]
Local $width = 320, $height = 240
Local $Gui_PosLocal $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)
[/autoit] [autoit][/autoit] [autoit]
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)_GDIPlus_GraphicsClear($Buffer,0xFF00FF00)
[/autoit] [autoit][/autoit] [autoit]
_GDIPlus_GraphicsDrawString($Buffer,"Test",0,0)
_GDIPlus_GraphicsDrawImageRect($hGraphic, $Bitmap,0,240, 320, 240)Sleep(1000)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$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)
WendFunc SnapShot()
[/autoit] [autoit][/autoit] [autoit]
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)
EndFuncFunc StartRecording()
[/autoit] [autoit][/autoit] [autoit]
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)
EndFuncFunc StopRecording()
[/autoit]
DllCall($user, "int", "SendMessage", "hWnd", $cap[0], "int", $WM_CAP_STOP, "int", 0, "int", 0)
WinSetTitle($Main, "", "WebCam - Ready")
HotKeySet("{HOME}", "StartRecording")
EndFuncgruß Moritz
-
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.
-
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.
-
Abend,
gibt es eine Möglichkeit sich alle Pc im Netzwerk anzeigen zu lassen? Am besten mit IP?
-
Also du hast einen string in dem die akkorde stehen und möchtest in zeilen aufteilen, nach den oben angebenen kriterien???
-
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.
-
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>
[/autoit] [autoit][/autoit] [autoit]
#include <Misc.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>Global $Server_IP = "127.0.0.1"
[/autoit] [autoit][/autoit] [autoit]
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_TextGlobal 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")
[/autoit] [autoit][/autoit] [autoit]
TrayCreateItem("")
$Tray_Exit = TrayCreateItem("Exit")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
[/autoit] [autoit][/autoit] [autoit]
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
WEndFunc Pruefe_neue_Verbindung()
[/autoit] [autoit][/autoit] [autoit]
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
EndFuncFunc User_Add($iName)
[/autoit] [autoit][/autoit] [autoit]
If IsArray($User) Then
ReDim $User[$Count]
Else
Dim $User[$Count]
EndIf
$User[$Count-1] = $iName
$Count += 1
List_Add($iName)Return 1
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit] [autoit][/autoit] [autoit]Func User_Del($iNameOrID)
[/autoit] [autoit][/autoit] [autoit]
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
EndFuncFunc List_Add($iName)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($An, $iName)
EndFuncFunc List_Reload()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($An, "")For $i = 0 To $Count - 2 Step 1
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($An, $User[$i] & "|")
Next
EndFuncFunc Message($An1,$Text1)
[/autoit] [autoit][/autoit] [autoit]
$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
EndFuncFunc GUI_Create()
[/autoit] [autoit][/autoit] [autoit]
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)GUISetState()
[/autoit] [autoit][/autoit] [autoit]
For $i = 0 To $Count - 2 Step 1
GUICtrlSetData($An, $User[$i])
Next
EndFuncFunc GUI_Delete()
[/autoit] [autoit][/autoit] [autoit]
GUIDelete($Main_GUI)
$Minimiert = True
EndFuncFunc Info_Log($Text)
[/autoit] [autoit][/autoit] [autoit]
$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)EndIf
[/autoit] [autoit][/autoit] [autoit]
EndFuncFunc Connect()
[/autoit] [autoit][/autoit] [autoit]
Info_Log("*** Server wird gesucht ***")
$Socket = TCPConnect($Server_IP, $Server_Port)If $Socket = -1 Then
[/autoit] [autoit][/autoit] [autoit]
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
EndFuncFunc Beenden($message = "")
[/autoit]
If $message <> "" Then MsgBox(48,"Fehler",$message)
TCPCloseSocket($Socket)
TCPShutdown()
Exit 0
EndFuncgrüße Moritz
-
ja ist zwar sehr nett das zu erläutern, doch mich hätten er die einzelnen funktionen, sowie das dll interssiert.
-
könnte ihr mir das projekt mal zeigen bzw testen lassen?
-
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
-
visual studio habe ich mir schon herruntergeladen aber noch nicht eingearbeitet, ich denke aber das wird es sein.
-
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.
-
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.
-
danke für die antwort aber das wusste ich selber ich wollte wissen wie ich es optimiere