Beiträge von derBrot

derBrot

Danke erstmal für die Kommentare
Und um es etwas sicherer zu machen sende ich den Quellcode nur an Personen die mir eine PN schreiben.

derBrot

ganz wie du meinst , habs rausgenommen :o

derBrot

[Blockierte Grafik: http://icons.iconarchive.com/icons/brainlea…/check-icon.png] Simple Maleware Scanner [Blockierte Grafik: http://icons.iconarchive.com/icons/brainlea…/check-icon.png]

______________________________________________________________________________________________________
Hallo liebe AutoIT Community,
mit diesem Beitrag stelle ich euch SMP vor. SMP Scannt den MD5 Hash einer gewünschten Datei und gleicht ihn mithilfe einer Daten-
bank ab. Sollte dieser Hash-Code in der Datenbank als Schädlich gemeldet sein, so wird eine Warnung ausgegeben. nach der Über-
prüfung der Datei hat man 3 Möglichkeiten. Möglichkeit Nummer 1 - "Löschen" Klickt ihr auf löschen so wird die Datei gelöscht.
Möglichkeit Nummer 2 - "Melden" Ihr könnt auch Dateien Einsenden b.Z per Knopfdruck zum Datenserver senden. Hierbei werden aber

Informationen über das System und die Datei gesendet. Möglichkeit Nummer 3 - "Behalten" natürlich könnt ihr auch die gesannte Datei
behalten. Naja mehr gibts eigendlich nicht zu sagen. vielleicht noch das ich eine UDF benutze um den Hash Code zu bekommen.

Hier ein Screen vom Normalen GUI:
[Blockierte Grafik: http://www.workupload.com/image/Gbqqx1W]

So siehts dann aus nach dem Scannen:

[Blockierte Grafik: http://www.workupload.com/image/9gGNKqo]

So siehts dann aus nach dem die Virendatenbank erneuert wurde:

[Blockierte Grafik: http://www.workupload.com/image/EdDckZY]

Wenn Gefahr kommt:

[Blockierte Grafik: http://www.workupload.com/image/MW0SY0T]

PS: Es erkennt eigendlich noch keine Viren da noch keine Eingesendet wurden, aber ich stelle euch mal eine Testdatei zu Verfügung die als Bedrohung gefunden wird.

Wenn jemand Interesse hat das Programm mit mir zu erweitern , einfach eine PN schreiben oder drunter posten

Download:

Source: Auf Anfrage via PN

Exe Datei: Auf Anfrage via PN

-Bugmeldungen , Kritik , Vorschläge etc.. sind immer willkommen
- Ich weiß auch noch nicht mal ob der Scanner überhaupt richtig funktioniert , da ich ihn bisher nur auf einem Win7 Home Premium Computer testen konnte.

Ein Video gibt es natürlich auch:
Hier gehts zum Video !

Hochachtungsvoll

derBrot aka. Marcel B.

derBrot

Hallo Death,
vielen vielen Dank !!
du hast mir sehr geholfen

derBrot

Wenn ich das Script so umschreibe passiert immer noch nichts =((

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

$Paket="hostinfo" & Chr(10)

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

TCPStartup()
$Socket=TCPConnect("84.200.21.40", 9142)
TCPSend($Socket, $Paket)
Do
$Recv=TCPRecv($Socket, 2048)
Until $Recv<>""
ConsoleWrite($Recv)
MsgBox(0,"",$Recv)
TCPCloseSocket($Socket)
TCPShutdown()

[/autoit]

derBrot

Ob es open source ist weiß ich nicht , das müsste hier stehen https://autoit.de/www.sa-mp.com dort kann man sich auch diese Modifikation für das Spiel Grand Theft Auto San Andreas herunterladen.

derBrot

was genau meinst du mit protokoll ? :o

derBrot

Ich würde ja gerne die Informationen auslesen ohne "samp.exe" zu starten.

derBrot

Tag zusammen,
ich benötige ein Script was die Server Informationen von einem GTA-SA:MP Server ausgibt. Also Player anzahl Ping etc....
Hier mal das Original Programm:

[Blockierte Grafik: http://img4.fotos-hochladen.net/uploads/unbenanntagvq3kw06i.jpg]

Ich habe schonmal versucht eine Grundlage zu machen, nur das klappt nicht richtig =(

[autoit]

$Paket="ÿÿÿÿ getstatus" & @CRLF & _
"." & @CRLF & @CRLF

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

UDPStartup()
$Socket=UDPOpen("84.200.21.40", 9142)
UDPSend($Socket, $Paket)
Do
$Recv=UDPRecv($Socket, 2048)
Until $Recv<>""
ConsoleWrite($Recv)
MsgBox(0,"",$Recv)
UDPCloseSocket($Socket)
UDPShutdown()

[/autoit]

Liebe Grüße
derBrot

derBrot

Hey xXxProGamerxXx,
danke für die Links , ich bin mir nicht sicher doch ich glaube bei Webtropia geht das nur mit Vertrag.

derBrot

Hallo AutoIT Community,
Wisst ihr zufällig wo ich billig oder gar umsonst einen V-Server herbekomme ?

Hier einige Ansprüche:
- Ohne Vertrag also nicht monatlich.
- Muss nicht viel Ram und GB haben.
- Einfach nur für kleinere Programme.
- Bezahlung mit PSC - Codes.

Liebe Grüße
derBrot

derBrot

Zitat

2te Frage wieso eigentlich

AutoIt-Quellcode
1
GUICtrlSetData(@SW_HIDE,$hGUI )
statt GUIsetstate() ?!

PS: ich weiß das hilft dir nicht weiter, aber es interessiert mich

Alles anzeigen

Das Hilft mir sehr wohl weiter , jetzt gehts nämlich xD

Ach ja und wenn du dir den Ordner Runterlädst siehst du auch den Header D:

derBrot

Tag,
das Problem liegt darin , dass wenn man auf Enter drück das Fenster verschwinden soll.
Das tut es auch , nur der Header wird noch angezeigt .... Warum ?

Script:

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.3.6.1
Author: Marcel B.

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

Script Function:
Template AutoIt script.

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

#ce ----------------------------------------------------------------------------

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

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ButtonConstants.au3>
#include <GDIPlus.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <StaticConstants.au3>
#include <FTPEx.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <GuiComboBox.au3>
#include <StaticConstants.au3>
#include <Array.au3>

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

#Region ### START Koda GUI section ### Form=

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

;~ $Pic1 = GUICtrlCreatePic("background.jpg", 0, 0, 751, 523)
;~ GUICtrlSetState(-1, $GUI_DISABLE)
Opt ('GUIOnEventMode', 1)
$WinMain = GUICreate("Form1", 705, 523, 283, 74)
GUISetOnEvent ($GUI_EVENT_CLOSE, '_LoginExit')
$Pic1 = GUICtrlCreatePic("bg3.jpg", 0, 0,705, 523)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreatePng($WinMain, "headerhbulm.png", -10, 0)
$Label3 = GUICtrlCreateLabel(" Benutzername:", 130, 220, 120, 26, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label1 = GUICtrlCreateLabel("Probleme beim Einloggen ?", 157, 320, 132, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000080)
$Label11 = GUICtrlCreateLabel("Datenschutzbestimmungen", 20, 488, 132, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000080)
$Label111 = GUICtrlCreateLabel("", 160, 488, 132, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000080)
;~ $Label4 = GUICtrlCreateLabel("Datenschutzbestimmungen", 0, 504, 132, 17)
;~ GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
;~ GUICtrlSetColor(-1, 0x000080)
$Label2 = GUICtrlCreateLabel("Willkommen im Control Center", 80, 98, 611, 27)
GUICtrlSetFont(-1, 12, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Label5 = GUICtrlCreateLabel("Kennwort:", 130, 270, 90, 26, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "Arial Black")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$Input2 = GUICtrlCreateInput("Kennwort", 138, 288, 145, 28, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Input3 = GUICtrlCreateInput("Name", 138, 240, 145, 28)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
;~ GUICtrlSetColor(-1, 0x000080)
$Link = GUICtrlCreateLabel("www.LS-Roleplay.com", 160, 488, 374, 18)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000080)
$Link = GUICtrlCreateLabel("Copyright", 279, 488, 374, 18)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetColor(-1, 0x000080)
$LoginNow = GUICtrlCreateButton("Login", -280, -88, 75, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetOnEvent($LoginNow,"_Login")
GUISetState(@SW_SHOW)
;~ GUICtrlSetData(@SW_HIDE,$hGUI )
#EndRegion ### END Koda GUI section ###

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

LoadCursor("1.cur", $WinMain)
LoadCursor("2.cur", GUICtrlGetHandle($Input2))
LoadCursor("3.cur", GUICtrlGetHandle($Label1))

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

While 1
Sleep(50)
WEnd

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

Func _LoginExit()
Exit
EndFunc

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

Func _Login()
GUISetState(@SW_HIDE,$WinMain)
GUICtrlSetData(@SW_HIDE,$hGUI )
MsgBox(0,"","Hier wird einmal das Hauptmenu sein."&@CRLF&"Aber der Header ist immernoch zu sehen :(")
EndFunc

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

Func LoadCursor($szFileName, $hGuiX)
$hCursor = DllCall("user32.dll", "hwnd", "LoadCursorFromFile", "str", $szFileName)
$hCursor = $hCursor[0]
If $hCursor <> 0 Then DllCall("user32.dll", "hwnd", "SetClassLong", "hwnd", $hGuiX, "int", -12, "hwnd", $hCursor)
EndFunc

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

Func GUICtrlCreatePng($hWnd, $sPath, $iX, $iY) ; SEuBo
_GDIPlus_Startup()
Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend
Local $hImage = _GDIPlus_ImageLoadFromFile($sPath), $iWidth = _GDIPlus_ImageGetWidth($hImage), $iHeight = _GDIPlus_ImageGetHeight($hImage)
Global $hGUI = GUICreate("", $iWidth, $iHeight, $iX, $iY, 0x80000000, BitOR(0x40, 0x80000), $hWnd)
$cLabel = GUICtrlCreateLabel("", 0, 0, $iWidth, $iHeight)
GUICtrlSetBkColor(-1, -2)
GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
$hScrDC = _WinAPI_GetDC(0)
$hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
$hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
$tSize = DllStructCreate("int X;int Y")
$pSize = DllStructGetPtr($tSize)
DllStructSetData($tSize, "X", $iWidth)
DllStructSetData($tSize, "Y", $iHeight)
$tSource = DllStructCreate("int X;int Y")
$pSource = DllStructGetPtr($tSource)
$tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format")
$pBlend = DllStructGetPtr($tBlend)
DllStructSetData($tBlend, "Alpha", 255)
DllStructSetData($tBlend, "Format", 1)
_WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
_WinAPI_ReleaseDC(0, $hScrDC)
_WinAPI_SelectObject($hMemDC, $hOld)
_WinAPI_DeleteObject($hBitmap)
_WinAPI_DeleteDC($hMemDC)
GUISwitch($hWnd)
_GDIPlus_ImageDispose($hImage)
;_GDIPlus_Shutdown()
Return SetError(0, $hGUI, $cLabel)
EndFunc ;==>GUICtrlCreatePng

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

Winrar Datei mit den Bildern und Source:
http://www.workupload.com/file/0wOADBc

derBrot

Guten Tag zusammen,
ich würde gerne einen TCP Chat Programmieren, nur habe ich leider 0 Ahnung davon.
Jetzt wollte ich euch fragen ob ihr mir ein gutes Tutorial empfehlen könnt ?
Also die Grundlagen für eine TCP Verbindung.

MFG:
derBrot

derBrot

Tag ,
ich habe ein Problem mit einem Script.
Beim Klick auf das Icon sollte eigendlich eine Messagebox erscheinen doch das tut sie nicht :o

Hier das Script zum download:
http://www.workupload.com/file/LFHQLeG

derBrot

Guten Abend,
seit heute morgen habe ich das Problem , dass mein Computer nach dem hochfahren ohne Vorwarnung ausgeht.
Allerdings erst wenn sich der Anmelde Screen öffnet. Ich habe schon versucht den PC im abgesicherten Modus zu starten doch er geht trotzdem aus.
Machnmal geht alles und ich kann problemlos Spiele spielen surfen etc.... doch dann passiert es wieder , der PC geht ohne vorwarnung aus.

Ich habe Windows 7 x64Bit
PS: Kein Notebook

MFG
derBrot

derBrot

Vielen Dank ohforf

derBrot

// Edit ich möchte keine Spalte erstellen sondern einen neuen Tabellen Eintrag erstellen.

derBrot

Guten Abend,
ich würde gerne zu einer vorhanden mysql Datenbank connecten und eine Zahl in einer Spalte ändern.
Wie mache ich das ?

PS: Google hat mir nicht weitergeholfen , daher stelle ich meine Frage direkt ;o

MFG:
derBrot

derBrot

Guten Tag zusammen,
ich habe gestern eine Update Funktion gebastelt , nur leider geht die _UpdateCheck2() Funktion nicht.
Immer wenn ich das Script starte und ich an diesem Punkt des Scripts ankomme , werden die Informationen
nicht an die Progressbar und Labels weitergegeben. Wenn man allerdings nur diese Funktion ( _UpdateCheck2 )
Alleine ausführt geht es.

Hier mein Script: ( Alle FTP Daten wurden zur Sicherheit entfernt )

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include-once
#include <FileConstants.au3>
#NoTrayIcon
#RequireAdmin
_Check()
Func _Check()
#Region ### START Koda GUI section ### Form=
AdlibRegister("_ProgressCheck", 500)
AdlibRegister("_timeCheck", 500)
Global $download = InetGet("PRIVAT", @UserProfileDir&"/UpdateInfo.ini", 1, 1)
Global $CheckGUI = GUICreate("Prüfe auf softwareaktualisierung...", 403, 93, 877, 470)
Global $CheckProgressLB = GUICtrlCreateLabel("Prüfe auf softwareaktualisierung...0%", 0, 8, 401, 25, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
Global $CheckProgress = GUICtrlCreateProgress(8, 40, 386, 21)
Global $CheckKB = GUICtrlCreateLabel("0 / 0 KB", 296, 64, 104, 20, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Informationen werden ausgetauscht....", 8, 64, 226, 20, $SS_CENTER)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###