Beiträge von Kleiner

  • Problem mit SciTE4AutoIt3.exe

    Tja ich dachte das alles ok sei da habe ich mich geteuscht wenn ich die datei lade ist alles ok appl aus beim untersuchen bekomm ich arlam bim start erst nicht nach bestetigung dann wieder!
    Egal ob appl an oder nicht bekomm den arlam was komisch ist die datei (SetACL.exe) wird verwendet um am instalierten sachen was zu verender ich habe mir die originale besorgt da habe ich kein arlam gleicher name und nun schaut es euch an habe sie in der zip liegen beide!

  • einige fragen zu meinem soucecode/projekt

    Also!


    [autoit]

    ; #include nicht vergessen
    Func _StartTeknogodsDLL()
    Local $oldData = ""
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $processname)
    Local $hPID = Run("ping.exe heise.de", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
    ProcessWaitClose($hPID)
    Do
    Local $readData = StdoutRead($hPID)
    If $readData <> $oldData Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "loop")
    $oldData = $readData
    EndIf
    ExitLoop
    Until 0
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    EndFunc ;==>_StartTeknogodsDLL

    [/autoit]

    so solte es funken!

    Lg Kleiner

  • Problem mit SciTE4AutoIt3.exe

    Ich gebe dir ein tip Besorge dir das ( peazip.exe ) programm oder ein vergleichbares pack die exe aus schmeiß die datei mit dem arlam in den müll löschen wie auch immer und dann viel spass beim coden!

    Edit: Also habe mich schlau gemacht!
    Im antivir die suche nach APPL austellen

    Zitat

    Die beiden Dateien werden als APPL erkannt - also als Programme, die für sich genommen zwar unschädlich sind, aber auch für schädliche Zwecke verwendet werden können.

    - SetACL z.B. dient zur Anpassung/Änderung der Zugriffsrechte auf Dateien
    - EndProcess dient zum Beenden von Prozessen

    Die Erkennung von APPL ist im Auslieferungszustand von Antivir ausgeschaltet, sie wurde also nachträglich eingeschaltet (Konfiguration -> Allgemeines -> erweiterte Gefahrenkategorien).

    Von antivir

    Die Erkennung ist nich grundlos standardmäßig deaktiviert, weil sie für Privatnutzer keine Hilfe ist.


    LG Kleiner

  • Imput

    Und nun!
    Was hast du den fürn problem, also ich habe dir gerade gezeigt wie man eine Variable aulesen kann du kanst eine variable vorne ran hängen und schon hast du eine variable die den inhalt der $Input hat!


    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    Hallo WhiteLion !

    Also ich möchte mich jetzt hier nicht hinreißen lasen. Das die Programme das Ziel haben, Bezahlsoftware ohne Bezahlung nutzbar zu machen ist kein Geheimnis, und illegal ich will dir nicht unterstellen das du illegale sahen machst es ist doch so der eine sagt legal der andere sagt illegal was aber bewiesen ist:

    TR/Crypt.ZPACK.Gen Datei: Tekno_gods_beta12.rar
    TR/Crypt.ZPACK.Gen - Trojan Datei: TeknoGods.dll
    TR/Crypt.XPACK.Gen Datei: DLLLoad.exe

    oder:Schau hir
    und: Noch einer
    Das sind zwei von vielen!
    Die leute machen immer solange weiter bis ihr eigenes system betroffen wurde, am ende mußt du selber wissen ob du dein system offenlegen willst oder nicht!

    Ende!

    LG Kleiner

  • Hilfefenster öffnen / schließen

    Hallo ThinkCross !

    Habe dein code ein wenig umgeschrieben so soltes klapen!

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Global $hgui1 = GUICreate("Test Gui", 700, 500)
    GUISetBkColor("0xFFFFCA")
    GUISetFont(9, 400, 0, "Arial")
    Local $btn_hilfe = GUICtrlCreateButton('Test', 20, 50, 80, 20)
    GUISetState()

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

    Global $hgui = GUICreate("Adminscript - ProzLast", 200, 180)
    GUISetFont(9, 400, 0, "Arial")
    Local $www = GUICtrlCreateButton('www.goggel.de', 20, 50, 120, 20)
    GUISetState(@SW_HIDE, $hgui)

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

    $msg = 0
    While 1
    $msg = GUIGetMsg(1)
    Select
    Case $msg[0] = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg[0] = $GUI_EVENT_CLOSE
    GUIDelete($msg[1])
    Case $msg[0] = $btn_hilfe
    GUISetState(@SW_SHOW, $hgui)
    WinActivate("Adminscript - ProzLast")
    Case $msg[0] = $www
    ShellExecute("http://www.goggel.de")
    EndSelect
    WEnd

    [/autoit]


    LG Kleiner

  • kleines script für messenger

    Du ich habe leider kein Skype!

    Das ist ein beispiel: Lese die hilfe das ist eins der ersten themen!


    [autoit]

    shellExecute('notepad.exe')
    WinWait('Unbenannt')
    WinClose("[CLASS:Notepad]", "")

    [/autoit]


    und

    [autoit]

    shellExecute('notepad.exe')
    WinWait('Unbenannt')
    WinClose("Unbenannt", "")

    [/autoit]


    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    Ich habe kurz info über 40 seiten aus dem netz geholt, auch übersezen lassen und am ende ligt die datei bei bots in der kategorie in manchen EU ländern wird er als vire gesehn als wurm es soll aber keiner sein aber unter bots zu finden!

    Wenn ich da jetzt falsche infos habe lass ich mich auch gerne eines besseren beleren!


    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    Hey WhiteLion !


    1. Dein code ist richtig gut geworden!

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_Outfile=test\test.exe
    #AutoIt3Wrapper_Compression=4
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <array.au3> ; wird nur für _ArrayDisplay benötigt
    #include <AVIConstants.au3>
    #include <TreeViewConstants.au3>
    #include <GuiListView.au3>
    #include <GuiEdit.au3>
    #include <GuiStatusBar.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ScrollBarConstants.au3>
    #include <EditConstants.au3>
    Opt('MustDeclareVars', 1)
    $Debug_Ed = False
    Local $msg, $x, $strComputer, $objWMIService, $colComputers, $colItems, $iLen, $iHoriz = 0, $iVert = 100
    GUICreate("Sample GUI", 500, 400)
    GUISetIcon(@SystemDir & "\mspaint.exe", 0)
    Global $input = GUICtrlCreateEdit("Statusreport:", 10, 270, 480, 120, BitOR($ES_WANTRETURN, $WS_VSCROLL))
    Global $button1 = GUICtrlCreateButton("Use Selected Adapter", 10, 130, 130, 30)
    Global $button2 = GUICtrlCreateButton("Refresh Adapterlist", 180, 130, 130, 30)
    Global $button3 = GUICtrlCreateButton("Start Teknogods DLL", 360, 90, 130, 30)
    Global $button4 = GUICtrlCreateButton("Restore Default Adapter", 360, 130, 130, 30)
    Global $listView = GUICtrlCreateListView(" Nr. | Adaptername | Networkname | IP-Adress |", 10, 160, 480, 90)
    Global $networkadapter[1][3] ; definiere eine global nutzbaren wert fürs array
    Global $networkadaptername = ("default")
    Global $networkname = ("default")
    Global $networkip = ("default")
    Global $SelectedNetworkName = ("default")
    Global $processname = ("DLLLoad.exe")
    _GetNetworkadapter() ;suche nach Netzwerkadaptern,Namen,Is und schreibt die in ein Array
    _ListNetworks()
    Func _GetNetworkadapter()
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Getting networkadapters of localhost")
    $x = 0
    $strComputer = "Localhost"
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter")
    For $objItem In $colItems
    $networkadapter[$x][0] = $objItem.Name
    $networkadapter[$x][1] = $objItem.NetConnectionID
    $x += 1
    ReDim $networkadapter[$x + 1][3]
    Next
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration")
    For $objItem In $colItems
    For $i = 0 To UBound($networkadapter) - 1
    If $networkadapter[$i][0] = $objItem.Description Then
    $networkadapter[$i][2] = $objItem.IPAddress(0)
    EndIf
    Next
    Next
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Networkadapters succsessul found on localhost!")
    EndFunc ;==>_GetNetworkadapter
    Func _SearchNetworknames($searchstring)
    Local $sColumn = 0
    Local $iIndex = _ArraySearch($networkadapter, $searchstring, 0, 0, 0, 1, $sColumn)
    If @error Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Internet to LAN emulating devive:" & $searchstring & " not found!")
    Else
    Global $networkadaptername = $networkadapter[$iIndex][$sColumn]
    Global $networkname = $networkadapter[$iIndex][$sColumn + 1]
    Global $networkip = $networkadapter[$iIndex][$sColumn + 2]
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Networkadapter found:" & $searchstring & " Info:" & $networkadaptername & $networkname & $networkip)
    EndIf
    EndFunc ;==>_SearchNetworknames

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

    ;schreibt den selektierten netzwerknamen in die registrierung
    Func _WriteRegistration()
    $SelectedNetworkName = _GUICtrlListView_GetSelectionMark($listView)
    $SelectedNetworkName = _GUICtrlListView_GetItemText($listView, $SelectedNetworkName, 2)
    If $SelectedNetworkName = ("") Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Error: Nothing selected!" & $SelectedNetworkName)
    Else
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Writing (XLive) connectionoverride registrationkey:" & $SelectedNetworkName)
    RegWrite("HKEY_CURRENT_USER\Software\Classes\Software\Microsoft\XLive", "ConnectionOverride", "REG_SZ", $SelectedNetworkName)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Writing to registration done!")
    EndIf
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    EndFunc ;==>_WriteRegistration
    Func _ListNetworks()
    _SearchNetworknames("Tunngle")
    GUICtrlCreateListViewItem("1 |" & $networkadaptername & "|" & $networkname & "|" & $networkip, $listView)
    _SearchNetworknames("Hamachi")
    GUICtrlCreateListViewItem("2 |" & $networkadaptername & "|" & $networkname & "|" & $networkip, $listView)
    GUISetState()
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    Do
    $msg = GUIGetMsg()
    Select
    Case $msg = $button1
    _WriteRegistration()
    Case $msg = $button2
    $x = 0
    Do
    _GUICtrlListView_DeleteItem($listView, 0)
    $x = $x + 1
    Until $x = 50
    _ListNetworks()
    Case $msg = $button3
    _StartTeknogodsDLL()
    Case $msg = $button4
    RegDelete("HKEY_CURRENT_USER\Software\Classes\Software\Microsoft\XLive", "ConnectionOverride")
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "XLive Registrationkey 'ConnectionOverride' deleded using standard IP now!")
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    EndSelect
    Until $msg = $GUI_EVENT_CLOSE
    GUIDelete()
    Exit
    EndFunc ;==>_ListNetworks
    Func _StartTeknogodsDLL()
    If FileExists($processname) Then
    If ProcessExists($processname) Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Process is already running:" & $processname & " Cant be started twice!")
    Else
    Do
    Local $oldData = ""
    Local $hPID = Run("DLLLoad", "", @SW_HIDE, 6) ;hier können noch parameter hinter den prozessnamen gehängt werden!
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external programm: " & $processname)
    Local $readData = StdoutRead($hPID, 1)
    If $readData <> $oldData Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & $readData)
    $oldData = $readData
    EndIf
    ExitLoop
    Until 0
    EndIf
    Else
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "File not found:" & $processname & " It musst be placed in the same directory as this tool!")
    EndIf
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    EndFunc ;==>_StartTeknogodsDLL
    GUISetState()
    While GUIGetMsg() <> $GUI_EVENT_CLOSE
    WEnd

    [/autoit]


    2. Das ist die lezte hilfe zu den code und frage auch nicht weiter wegen ( TeknoGods.dll DLLLoad.exe ) lese dir die forenregeln durch! NO Bots!


    Meine hilfestellung ist hirmit beendet!

    LG Kleiner

  • Combobox problemm

    Hey das ist do nicht alles vom code?


    Also hilfe zeigt mir

    [autoit]

    _GUICtrlComboBox_SetDroppedWidth($Combo1, 500)

    [/autoit]

    und dein code funkt!

    Spoiler anzeigen
    [autoit]

    #include <ComboConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #Include <GuiComboBox.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Hilfs Tool", 500, 700, 0, 0)

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

    Local $Combo1 = GUICtrlCreateCombo(IniRead("Speicherung.ini", "Speicherung", "Combo1" , "Leer"), 20, 135, 90, 25)
    _GUICtrlComboBox_SetDroppedWidth($Combo1, 500)
    $var = IniReadSection("Namen.ini", "Adresse")
    For $i = 1 To $var[0][0]
    GUICtrlSetData(-1, $var[$i][0], "Eintrag3")
    Next
    GUISetState()

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

    While 1
    Sleep(10)
    WEnd

    [/autoit]


    für dein beispiel!

    Jetz hast du es o.?

    LG Kleiner