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.
Beiträge von derBrot
-
-
ganz wie du meinst , habs rausgenommen :o
-
[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 aberInformationen ü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.
-
Hallo Death,
vielen vielen Dank !!
du hast mir sehr geholfen -
Wenn ich das Script so umschreibe passiert immer noch nichts =((
[autoit][/autoit][autoit][/autoit][autoit]$Paket="hostinfo" & Chr(10)
[/autoit][autoit][/autoit][autoit]TCPStartup()
[/autoit]
$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() -
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.
-
was genau meinst du mit protokoll ? :o
-
Ich würde ja gerne die Informationen auslesen ohne "samp.exe" zu starten.
-
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]
[/autoit][autoit][/autoit][autoit]
$Paket="ÿÿÿÿ getstatus" & @CRLF & _
"." & @CRLF & @CRLFUDPStartup()
[/autoit]
$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()Liebe Grüße
derBrot -
Hey xXxProGamerxXx,
danke für die Links , ich bin mir nicht sicher doch ich glaube bei Webtropia geht das nur mit Vertrag. -
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 -
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
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:
-
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]
[/autoit][autoit][/autoit][autoit]
#cs ----------------------------------------------------------------------------AutoIt Version: 3.3.6.1
[/autoit][autoit][/autoit][autoit]
Author: Marcel B.Script Function:
[/autoit][autoit][/autoit][autoit]
Template AutoIt script.#ce ----------------------------------------------------------------------------
[/autoit][autoit][/autoit][autoit]#include <EditConstants.au3>
[/autoit][autoit][/autoit][autoit]
#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>#Region ### START Koda GUI section ### Form=
[/autoit][autoit][/autoit][autoit];~ $Pic1 = GUICtrlCreatePic("background.jpg", 0, 0, 751, 523)
[/autoit][autoit][/autoit][autoit]
;~ 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 ###LoadCursor("1.cur", $WinMain)
[/autoit][autoit][/autoit][autoit]
LoadCursor("2.cur", GUICtrlGetHandle($Input2))
LoadCursor("3.cur", GUICtrlGetHandle($Label1))While 1
[/autoit][autoit][/autoit][autoit]
Sleep(50)
WEndFunc _LoginExit()
[/autoit][autoit][/autoit][autoit]
Exit
EndFuncFunc _Login()
[/autoit][autoit][/autoit][autoit]
GUISetState(@SW_HIDE,$WinMain)
GUICtrlSetData(@SW_HIDE,$hGUI )
MsgBox(0,"","Hier wird einmal das Hauptmenu sein."&@CRLF&"Aber der Header ist immernoch zu sehen :(")
EndFuncFunc LoadCursor($szFileName, $hGuiX)
[/autoit][autoit][/autoit][autoit]
$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)
EndFuncFunc GUICtrlCreatePng($hWnd, $sPath, $iX, $iY) ; SEuBo
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit]
_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 ;==>GUICtrlCreatePngWinrar Datei mit den Bildern und Source:
http://www.workupload.com/file/0wOADBc -
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 -
Tag ,
ich habe ein Problem mit einem Script.
Beim Klick auf das Icon sollte eigendlich eine Messagebox erscheinen doch das tut sie nicht :oHier das Script zum download:
http://www.workupload.com/file/LFHQLeG -
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 NotebookMFG
derBrot -
Vielen Dank ohforf
-
// Edit ich möchte keine Spalte erstellen sondern einen neuen Tabellen Eintrag erstellen.
-
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 -
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]
[/autoit] [autoit][/autoit] [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 ###Global $timer = 0
[/autoit] [autoit][/autoit] [autoit]
Global $timer_start = False
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitEndSwitch
[/autoit] [autoit][/autoit] [autoit]
WEnd
EndFuncFunc _timeCheck()
[/autoit] [autoit][/autoit] [autoit]If InetGetInfo($download, 2) = False Then
[/autoit] [autoit][/autoit] [autoit]
If InetGetInfo($download, 0) > 0 And $timer_start = False Then
$timer = TimerInit()
$timer_start = True
EndIf$time_calc = int((int(InetGetInfo($download, 1) / 1024) - (InetGetInfo($download, 0) / 1024)) _
[/autoit] [autoit][/autoit] [autoit]
/ int((InetGetInfo($download, 0) / 1024) / (TimerDiff($timer) / 1000)))$Geschwindigkeit_calc = int(InetGetInfo($download, 0) / (TimerDiff($timer) / 1000))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $time_calc <= 60 Then
[/autoit] [autoit][/autoit] [autoit]If $time_calc = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Sekunde"
Else
$time = $time_calc & " Sekunden"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $time_calc > 60 Then
[/autoit] [autoit][/autoit] [autoit]If int($time_calc / 60) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Minute"
Else
$time = int($time_calc / 60) & " Minuten"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit]If $time_calc / 60 > 60 Then
[/autoit] [autoit][/autoit] [autoit]If int(($time_calc / 60) / 60) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Tag"
Else
$time = int(($time_calc / 60) / 60) & " Tage"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc) <= 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int($Geschwindigkeit_calc) & " B\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int($Geschwindigkeit_calc / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc / 1024) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int(($Geschwindigkeit_calc / 1024) / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int(($Geschwindigkeit_calc / 1024) / 1024) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int((($Geschwindigkeit_calc / 1024) / 1024) / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]
Else
Sleep(50)
_UpdateCheck2()
EndIfEndFunc ;==>_time
[/autoit] [autoit][/autoit] [autoit]Func _ProgressCheck()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($CheckProgress, int((InetGetInfo($download, 0) / InetGetInfo($download, 1)) * 100)) ;aktualiesierung des Progresses
GUICtrlSetData($CheckKB, int(InetGetInfo($download, 0) / 1024) & " / " & int( _
InetGetInfo($download, 1) / 1024) & " kb")
GUICtrlSetData($CheckProgressLB, "Prüfe auf softwareaktualisierung..." & int((InetGetInfo($download, 0) / InetGetInfo($download, 1)) * 100) & "%") ;aktualiesierung des $$kb_and_procent_labels
EndFunc ;==>_ProgressFunc _UpdateCheck2()
[/autoit] [autoit][/autoit] [autoit]
$size = WinGetPos($CheckGUI, $CheckGUI)
#Region ### START Koda GUI section ### Form=
$UpdateGefunden = GUICreate("(1) Update wurde gefunden und ist bereit zur Installation !", 610, 308, $size[0], $size[1])
$GetInformation = GUICtrlCreateButton("Weitere Informationen zum Update", 304, 192, 227, 25)
GUICtrlSetCursor (-1, 0)
$Group1 = GUICtrlCreateGroup("", 88, 48, 441, 137)
$Label1 = GUICtrlCreateLabel("Sehr geehrter Benutzer,", 96, 64, 143, 20)
$Label2 = GUICtrlCreateLabel("eine neue Software version "&IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","Ver","0.0.1")&" von "&IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","betreiber","Unbekannt")&" ist verfügbar.", 96, 80, 430, 20)
$Label3 = GUICtrlCreateLabel("Wir bitten sie diese so schnell wie möglich herrunterzuladen um unsere", 96, 96, 420, 20)
$Label4 = GUICtrlCreateLabel("Software weiter nutzen zu können.", 96, 112, 201, 20)
$Label5 = GUICtrlCreateLabel("Um weitere Informationen zum Update", 296, 112, 229, 20)
$Label6 = GUICtrlCreateLabel("zu erhalten können sie uns online unter:", 96, 128, 234, 20)
$Label7 = GUICtrlCreateLabel(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","homepage","Wartungsmodus"), 328, 128, 195, 20, $SS_CENTER)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor (-1, 0)
$Label8 = GUICtrlCreateLabel("Besuchen. Vielen Dank das sie sich für unser Programm entschieden", 96, 144, 412, 20)
$Label9 = GUICtrlCreateLabel("haben.", 96, 160, 45, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$DownloadNew = GUICtrlCreateButton("Update jetzt Herrunterladen", 304, 224, 227, 25, $BS_DEFPUSHBUTTON)
GUICtrlSetCursor (-1, 0)
$runOldVer = GUICtrlCreateButton("Alte Version Starten", 304, 256, 227, 25)
GUICtrlSetCursor (-1, 0)
$Label10 = GUICtrlCreateLabel("(1) Update wurde gefunden und ist bereit zur Installation !", 56, 8, 503, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$Label12 = GUICtrlCreateLabel(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","Support","Wartungsmodus"), 0, 224, 302, 23, $SS_CENTER)
GUICtrlSetFont(-1, 10, 400, 4, "Times New Roman")
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)GUIDelete($CheckGUI)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $runOldVer
GUIDelete($UpdateGefunden)
_Old()
Case $DownloadNew
GUIDelete($UpdateGefunden)
_UpdateNOW()
Case $GetInformation
ShellExecute(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","homepage","Wartungsmodus"))
Case $Label12
ShellExecute(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","Support","Wartungsmodus"))
Case $Label7
ShellExecute(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","homepage","Wartungsmodus"))
EndSwitch
WEnd
EndFuncFunc _UpdateNOW()
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister("_Progress", 500)
AdlibRegister("_time", 500)
Global $download2 = InetGet("PRIVAT", @UserProfileDir&"/Update.exe", 1, 1)
Global $Form4 = GUICreate("(1) Update wird herruntergeladen und installiert...", 756, 207, 717, 366)
Global $Label10 = GUICtrlCreateLabel("(1) Update wird herruntergeladen und installiert...0%", 0, 8, 755, 25, $SS_CENTER)
GUICtrlSetFont(-1, 11, 800, 0, "Arial")
$Label1 = GUICtrlCreateLabel("Eine neue Software Version von wird herruntergeladen und installiert.", 184, 128, 408, 20)
$Label2 = GUICtrlCreateLabel("Dieser Vorgang kann einige Minuten in Anspruch nehmen und setzt", 184, 144, 398, 20)
$Label3 = GUICtrlCreateLabel("eine bestehende Internetverbindung vorraus.", 184, 160, 269, 20)
Global $Progress = GUICtrlCreateProgress(8, 64, 742, 29)
$Label4 = GUICtrlCreateLabel(@ScriptFullPath, 8, 40, 744, 20)
Global $KB = GUICtrlCreateLabel("0 / 0 KB", 8, 96, 240, 20)
Global $Label6 = GUICtrlCreateLabel("0 Minute(n) verbleiben", 240, 96, 311, 20, $SS_CENTER)
Global $Label7 = GUICtrlCreateLabel("0 KB\s", 616, 96, 130, 20, $SS_CENTER)
$Group1 = GUICtrlCreateGroup("", 168, 112, 433, 73)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $Button1 = GUICtrlCreateButton("Programm Starten", 616, 160, 123, 25)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlSetCursor(-1,0)
Global $Button2 = GUICtrlCreateButton("Bug Report", 616, 128, 123, 25)
GUICtrlSetCursor(-1,0)
GUICtrlSetState(-1, $GUI_DISABLE)
Global $Label8 = GUICtrlCreateLabel("www.sa-roleplay.net", 0, 144, 167, 19, $SS_CENTER)
GUICtrlSetFont(-1, 8, 800, 4, "Times New Roman")
GUICtrlSetCursor(-1,0)
GUICtrlSetColor(-1, 0x000080)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $timer = 0
Global $timer_start = False
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button2
ShellExecute(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","homepage","Wartungsmodus"))
Case $Label8
ShellExecute(IniRead(@UserProfileDir&"/UpdateInfo.ini","Allgemein","homepage","Wartungsmodus"))
Case $Button1
_SelfUpdate(@ScriptFullPath, True, 30, False)
EndSwitch
WEnd
EndFuncFunc _time()
[/autoit] [autoit][/autoit] [autoit]If InetGetInfo($download2, 2) = False Then
[/autoit] [autoit][/autoit] [autoit]
If InetGetInfo($download2, 0) > 0 And $timer_start = False Then
$timer = TimerInit()
$timer_start = True
EndIf$time_calc = int((int(InetGetInfo($download2, 1) / 1024) - (InetGetInfo($download2, 0) / 1024)) _
[/autoit] [autoit][/autoit] [autoit]
/ int((InetGetInfo($download2, 0) / 1024) / (TimerDiff($timer) / 1000)))$Geschwindigkeit_calc = int(InetGetInfo($download2, 0) / (TimerDiff($timer) / 1000))
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $time_calc <= 60 Then
[/autoit] [autoit][/autoit] [autoit]If $time_calc = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Sekunde"
Else
$time = $time_calc & " Sekunden"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If $time_calc > 60 Then
[/autoit] [autoit][/autoit] [autoit]If int($time_calc / 60) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Minute"
Else
$time = int($time_calc / 60) & " Minuten"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit]If $time_calc / 60 > 60 Then
[/autoit] [autoit][/autoit] [autoit]If int(($time_calc / 60) / 60) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
$time = " 1 Tag"
Else
$time = int(($time_calc / 60) / 60) & " Tage"
EndIfEndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc) <= 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int($Geschwindigkeit_calc) & " B\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int($Geschwindigkeit_calc / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int($Geschwindigkeit_calc / 1024) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int(($Geschwindigkeit_calc / 1024) / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]If int(($Geschwindigkeit_calc / 1024) / 1024) > 1024 Then
[/autoit] [autoit][/autoit] [autoit]$Geschwindigkeit = int((($Geschwindigkeit_calc / 1024) / 1024) / 1024) & " KB\s"
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Label6, $time)
GUICtrlSetData($Label7, $Geschwindigkeit)
Else
Sleep(50)
GUICtrlSetState($Button1, $GUI_ENABLE)
GUICtrlSetState($Button2, $GUI_ENABLE)
AdlibUnRegister("_Progress")
AdlibUnRegister("_time")
EndIfEndFunc ;==>_time
[/autoit] [autoit][/autoit] [autoit]Func _Progress()
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($Progress, int((InetGetInfo($download2, 0) / InetGetInfo($download2, 1)) * 100)) ;aktualiesierung des Progresses
GUICtrlSetData($KB, int(InetGetInfo($download2, 0) / 1024) & " / " & int( _
InetGetInfo($download2, 1) / 1024) & " kb")
GUICtrlSetData($Label10, "(1) Update wird herruntergeladen und installiert..." & int((InetGetInfo($download2, 0) / InetGetInfo($download2, 1)) * 100) & "%") ;aktualiesierung des $$kb_and_procent_labels
EndFunc ;==>_ProgressFunc _SelfUpdate($sUpdatePath, $fRestart = Default, $iDelay = 5, $fUsePID = Default, $fBackupPath = Default)
[/autoit] [autoit][/autoit] [autoit]
Local $iInternalDelay = 2, $sAppID = @ScriptName, $sDelay = 'IF %TIMER% GTR ' & $iDelay & ' GOTO DELETE', _
$sBackupPath = '', $sImageName = 'IMAGENAME', $sRestart = '', $sScriptPath = @ScriptFullPath, $sTempFileName = @ScriptNameIf @Compiled = 0 Or FileExists($sUpdatePath) = 0 Then
[/autoit] [autoit][/autoit] [autoit]
Return SetError(1, 0, 0)
EndIf$sTempFileName = StringLeft($sTempFileName, StringInStr($sTempFileName, '.', 1, -1) - 1)
[/autoit] [autoit][/autoit] [autoit]If $fBackupPath Or $fBackupPath = Default Then
[/autoit] [autoit][/autoit] [autoit]
$sBackupPath = 'MOVE /Y ' & '"' & $sScriptPath & '"' & ' "' & @ScriptDir & '\' & $sTempFileName & '_Backup.exe' & '"' & @CRLF
EndIfWhile FileExists(@TempDir & '\' & $sTempFileName & '.bat')
[/autoit] [autoit][/autoit] [autoit]
$sTempFileName &= Chr(Random(65, 122, 1))
WEnd
$sTempFileName = @TempDir & '\' & $sTempFileName & '.bat'If $iDelay = Default Then
[/autoit] [autoit][/autoit] [autoit]
$iDelay = 5
EndIfIf $iDelay = 0 Then
[/autoit] [autoit][/autoit] [autoit]
$sDelay = ''
EndIfIf $fUsePID Then
[/autoit] [autoit][/autoit] [autoit]
$sAppID = @AutoItPID
$sImageName = 'PID'
EndIfIf $fRestart Then
[/autoit] [autoit][/autoit] [autoit]
$sRestart = 'START "" "' & $sScriptPath & '"'
EndIfLocal $sData = 'SET TIMER=0' & @CRLF _
[/autoit] [autoit][/autoit] [autoit]
& ':START' & @CRLF _
& 'PING -n ' & $iInternalDelay & ' 127.0.0.1 > nul' & @CRLF _
& $sDelay & @CRLF _
& 'SET /A TIMER+=1' & @CRLF _
& @CRLF _
& 'TASKLIST /NH /FI "' & $sImageName & ' EQ ' & $sAppID & '" | FIND /I "' & $sAppID & '" >nul && GOTO START' & @CRLF _
& 'GOTO MOVE' & @CRLF _
& @CRLF _
& ':MOVE' & @CRLF _
& 'TASKKILL /F /FI "' & $sImageName & ' EQ ' & $sAppID & '"' & @CRLF _
& $sBackupPath & _
'GOTO END' & @CRLF _
& @CRLF _
& ':END' & @CRLF _
& 'MOVE /Y ' & '"' & $sUpdatePath & '"' & ' "' & $sScriptPath & '"' & @CRLF _
& $sRestart & @CRLF _
& 'DEL "' & $sTempFileName & '"'Local $hFileOpen = FileOpen($sTempFileName, $FO_OVERWRITE)
[/autoit] [autoit][/autoit] [autoit]
If $hFileOpen = -1 Then
Return SetError(2, 0, 0)
EndIf
FileWrite($hFileOpen, $sData)
FileClose($hFileOpen)
Return Run($sTempFileName, @TempDir, @SW_HIDE)
EndFuncFunc _Old()
[/autoit]
MsgBox(0,":)","Mein Normales Script... Bla Bla Bla....")
Exit
EndFunc