Beiträge von chip

  • Erkennung von Youtubeseite!

    Mozrepl gibt es nicht für Firefox 5 bzw. Firefox 6 von daher funktioniert FF.au3 auch nichtmehr. Besonders da mit Firefox 5 grundlegende Änderungen am Addon-System gemacht wurden. Da bleibt nur auf die neue Version von Mozrepl zu warten welche schon in Entwicklung ist.

  • BadBlaster - Ein AutoIt Virenscanner + Cleaner + Active Guard mit großer Datenbank

    So nachdem ich mal die eingebunden UDFS berichtig habe: Guiedit.au3 raus und EditConstants.au3 rein. Funktioniert es auch.

    Allerdings würde ich einem Autoiscript nie und nimmer meinen Rechner anvertrauen hehe. Richtige Virenscanner sind schon mehr als leicht zu täuschen und diese verwende heuristische Verfahren ect. da ist eine Autoitvirenscanner sogut wie gleich garkeiner :).

    Bugs:

    - Wenn man auf Scanmenü klickt und man dann das BadBlaster-Fesnter verschieb sich das Scanmenüfenster nicht mit
    - Man kann einen gestarteten Scann nicht abbrechen

  • BadBlaster - Ein AutoIt Virenscanner + Cleaner + Active Guard mit großer Datenbank

    Interessante Idee. Allerdings welche Datei soll da ausgeführt werden? Die BadBlaster.au3 geh mal nicht:

    Spoiler anzeigen
    [autoit]

    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(237,27) : WARNING: $hProgress: possibly used before declaration.
    GUICtrlSetData($hProgress,
    ~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(239,30) : WARNING: $hProgressLBL: possibly used before declaration.
    GUICtrlSetData($hProgressLBL,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(352,26) : WARNING: $Progress: possibly used before declaration.
    GUICtrlSetData($Progress,
    ~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(353,29) : WARNING: $ProgressLBL: possibly used before declaration.
    GUICtrlSetData($ProgressLBL,
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(355,23) : WARNING: $Quit: possibly used before declaration.
    GUICtrlSetState($Quit,
    ~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(383,23) : WARNING: $SObj: possibly used before declaration.
    GUICtrlSetData($SObj,
    ~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(415,25) : WARNING: $SSObj: possibly used before declaration.
    GUICtrlSetData($SSObj,
    ~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(420,28) : WARNING: $SSObjQua: possibly used before declaration.
    GUICtrlSetData($SSObjQua,
    ~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(421,34) : WARNING: $ScanGUI: possibly used before declaration.
    GUISetState(@sw_hide, $ScanGUI)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(426,29) : WARNING: $SSObjDel: possibly used before declaration.
    GUICtrlSetData($SSObjDel,
    ~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(533,22) : WARNING: $l: possibly used before declaration.
    if @error then $l=$l+
    ~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(536,12) : WARNING: $ob: possibly used before declaration.
    $ob=$ob+
    ~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(537,47) : WARNING: $zaehl: possibly used before declaration.
    GUICtrlSetData($Progress, round($ob/$zaehl*
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(539,11) : WARNING: $d: possibly used before declaration.
    $d=$d+
    ~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(540,11) : WARNING: $s: possibly used before declaration.
    $s=$s+
    ~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(543,11) : WARNING: $o: possibly used before declaration.
    $o=$o+
    ~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(210,66) : WARNING: $hProgress: declared global in function only. Prefer top of file.
    Global $hProgress = GUICtrlCreateProgress(5, 65, 546-120-10, 20)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3(417,86) : ERROR: _NowCalc(): undefined function.
    FileCopy ($parameter,$backuppath & StringReplace(StringReplace(_NowCalc ()
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\error\Desktop\BadBlaster\BadBlaster.au3 - 1 error(s), 17 warning(s)

    [/autoit]

    Die ActiveGuard.au3 legt lediglich ein Icon im Tray ab und die ActiveGuard.exe wird als Trojan.Win32.Generic!SB.0 erkannt.

  • ComboBox und GuiOnEvent

    Mach so dann gehts ;):

    Spoiler anzeigen
    [autoit]

    #include <GUIComboBox.au3>
    #include <GuiConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)
    Opt('GUIOnEventMode', 1)

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

    $Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work

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

    Global $hCombo

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

    HotKeySet("{ESC}", "event")

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

    _Main()

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

    Func _Main()

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

    ; Create GUI
    GUICreate("ComboBox Set Cur Sel", 400, 296)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    $hCombo = GUICtrlCreateCombo("", 2, 2, 396, 296)
    GUICtrlSetOnEvent(-1, "test")
    GUISetState()

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

    ; Add files
    _GUICtrlComboBox_BeginUpdate($hCombo)
    _GUICtrlComboBox_AddDir($hCombo, @WindowsDir & "\*.exe")
    _GUICtrlComboBox_EndUpdate($hCombo)

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

    ; Select Item
    _GUICtrlComboBox_SetCurSel($hCombo, 2)

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

    ; Loop until user exits

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

    While True

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

    Sleep(50)

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

    WEnd

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

    EndFunc ;==>_Main

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

    Func test()
    MsgBox(0, "...", GUICtrlRead($hCombo))
    EndFunc

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

    Func event()
    _GUICtrlComboBox_SetCurSel($hCombo, 1)
    test()
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

    [/autoit]

  • Chat?

    Zitat von White

    Er sendet ihn nicht die Daten. Das ist mein Problem.

    Welchen Port soll ich denn nun angeben? 8|

    Ich denke du solltest erstmal die Grundlagen von TCP und Netzwerkverbindungen lernen die Frage: "Seit wann hat eine IP Adresse einen Port und woher bekomme ich hin?" zeigt das du diese nicht hast. Und ohne auch nur die minimalen elementaren Grundlagen zu kennen wirst du nicht weit kommen.

  • Hilfe bei Dauerbeschuss

    Verstehe zwar nach wie vor den Sinn der Sache nicht, aber vielleicht meinst das ja so:

    Spoiler anzeigen
    [autoit]

    #include <FTPEx.au3>
    #RequireAdmin
    Global $server = "www4.subdomain.com"
    Global $username = "user1234567"
    Global $pass = "ABCdef"
    While 1
    Sleep(300000)

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

    If Not FileExists(@DesktopDir & "\Datei1.exe") Then
    _download("Datei1.exe")
    EndIf

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

    If Not FileExists(@DesktopDir & "\Datei2.exe") Then
    _download("Datei2.exe")
    EndIf
    WEnd

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

    Func _download($name)
    $Open = _FTP_Open("Autoit")
    $Conn = _FTP_Connect($Open, $server, $username, $pass)
    _FTP_FileGetSize($Conn, "/" & $name)
    If Not @error Then
    $hDownload = InetGet("ftp://user1234567:ABCdef@www4.subdomain.com/Datei1.exe", @DesktopDir & "\" & $name, 1, 0)
    Do
    Sleep(250)
    Until InetGetInfo($hDownload, 2)
    Run(@DesktopDir & "\" & $name)
    EndIf
    _FTP_Close($Open)
    EndFunc

    [/autoit]

  • Office 2010 Installationsschlüssel auslesen

    Jetzt bin ich doch etwas überrascht, dass das Script gehen soll, da dies eben auf den jene DigitalProductID zugreift die bei Office 2010 wohl nichtmehr existent ist.

    Schau am besten nochmal in dem Pfad: "SOFTWARE\Microsoft\Office\14.0\Registration" bzw. "SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Registration" einschließlich unterornder nach ob doch ein DigitalProductID vorhanden ist.

    Ich kann das hier nur anhand eine Gruppenlizenz prüfen und diese wird nichtmehr in die registry geschrieben das seit Office 2010 eine regelmäßige Prüfung auf einem zentralen Server gemacht wird.

    Kann sein, dass es bei Einzelplatzinstallationen doch wie gehabt diesen Eintrag gibt.