1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Kleiner

Beiträge von Kleiner

  • Makrorekorder mit "Sleepaufzeichnung"

    • Kleiner
    • 13. November 2009 um 16:31

    SEuBo

    Code gekürzt wenn du mir erlaubst rund 400 zeilen!

    Bau die while ein anstat, der jetzige rattenschwanz ;)

    [autoit]

    Local $a[109]=[01,'02','03','04','05','06','07','08','09','0C','0D','13','14','1B','20','21','22','23''24','25','26','27','28','29', _
    '2A','2B','2C','2D','2E','30','31','32','33','34','35','36','37','38','39','41','42','43','44','45','46','47','48','49','4A','4B','4C', _
    '4D','4E','4F','50','51','52','53','54','55','56','57','58','59','5A','5B','5C','60','61','62','63','64','65','66','67','68','69','6A', _
    '6B','6C','6E','6F','70','71','72','73','74','75','76','77','78','79','7A','7B','7C','80','90','91','A4','A5','BA','BC','BE','BF','C0','DB','DC','DD']
    While $rGO * Sleep(10)
    If WinGetTitle("[ACTIVE]") <> "B2F21C7751E37B8C196D9A2DC579C62DE28CC42B" Then
    For $i = 0 To UBound($a) - 1
    If _IsPressed($a[$i], $dll) Then
    _addRegData()
    $rPRESSED = _ArraySearch($rKEYLIST, $a[$i])
    _addMouseData()
    EndIf
    Next
    EndIf
    WEnd

    [/autoit]


    LG Kleiner

  • Windows-Info v 1.0.2 [ Crazy Eye ]

    • Kleiner
    • 13. November 2009 um 09:43

    Hallo Schnitzel !

    Vielen Dank für deinen Test lauf!

    Für die Sachen stell ich meine Sachen hier rein das man Fehler und Verbesserungsvorschläge vor die Nase gesetzt bekommt denn des kenn bestimmt jeder hier man wird („ Projekt blind ") man sieht dann einfache Sachen nicht mehr!
    Ich habe den Code umgeschrieben von knapp 2000 Zeilen viele Sache sind neu dazu gekommen und werden noch kommen zu der Sache mit dem überlegen was man tut hat folgenden Hintergrund in der ersten Version stand es noch drin wo der Teil geblieben ist wundert mich auch gerade!
    Es gibt auf einer ''Festplatte'' o. '' Partitionen '' kennt jeder den vieleicht nicht jeder darum die Info den Ordner System Volume Information normal kann man den nicht öffnen auch nicht als Admin denn kann man durch diese Einstellung vornehmen!


    LG Kleiner

  • >>> Dienstplanprogramm fertig für jeder man nutzbar <<<

    • Kleiner
    • 12. November 2009 um 19:27

    Hallo WhiteLion !


    Danke dann las bitte deine kleine den code testen und berichte mir was sie vieleicht an verbesserungsvorschläge oder mängel hat um den code weiter entwickel !


    LG Kleiner

  • Kleiner Cleaner Skrip für XP

    • Kleiner
    • 10. November 2009 um 21:29

    Hallo Leute!


    Ich arbeite gerade an mein code Windows-Info weiter habe da mal eine cleaner func gebastelt nichts großartiges aber vielleicht kann es ja jemand gebrauchen ist leider nur auf XP getestet darum würde ich mich über Feedbacks freuen Verbesserungsvorschläge gerne gesehen


    Die Order werden durchsucht '( Tmp ) ( Temporary Internet Files ) ( Cookies ) ( Recent ) ( Prefetch )' nach datein und Ordner die gelöscht werden können werden gelöscht manche werden vom System noch benutzt die halt nicht!

    Spoiler anzeigen
    [autoit]

    #comments-start
    --------------------------------------------
    Das ist ein kleiner Cleaner für XP
    Autor ( kleiner27 http://www.autoit.de )
    --------------------------------------------
    #comments-end
    #include <File.au3>
    Opt('GUIOnEventMode', 1)
    Global $Gan = GUICreate('System Analyse', 340, 690, -1, -1)
    GUISetOnEvent(-3, 'Gan')
    Local $bar = GUICtrlCreateProgress(10, 15, 125, 20)
    Local $lblproz = GUICtrlCreateLabel("", 140, 19, 25, 20)
    GUICtrlSetColor($lblproz, 0x0000FF)
    Local $gaList = GUICtrlCreateEdit('', 10, 95, 320, 450)
    GUICtrlCreateLabel('Diese Ordner werden durchsucht!', 10, 40, 200, 20)
    GUICtrlCreateLabel('( Tmp ) ( Temporary Internet Files ) ( Cookies ) ( Recent ) ( Prefetch )', 10, 60, 380, 20)
    Local $aspei[6], $x = 553
    For $i = 0 To 5
    $aspei[$i] = GUICtrlCreateInput('', 10, $x, 320, 20)
    GUICtrlSetColor(-1, 0x0000FF)
    $x += 22
    Next
    Local $ber = GUICtrlCreateButton('Bereinigen', 250, 30, 80, 20)
    GUICtrlSetOnEvent(-1, '_Dateanalyse')
    GUICtrlCreateButton('Analyse', 250, 6, 80, 20)
    GUICtrlSetOnEvent(-1, '_Dateanalyse')
    GUISetState()
    While 1 * Sleep(10)
    WEnd
    Func Gan()
    Exit
    EndFunc ;==>Gan
    Func _Dateanalyse()
    Dim $aNa[5] = [@TempDir & '\*.*', @UserProfileDir & '\Lokale Einstellungen\Temporary Internet Files\*.*', @UserProfileDir & '\Cookies\*.*', @UserProfileDir & '\Recent\*.*', @WindowsDir & '\Prefetch\*.*']
    Dim $aOa[5] = [@TempDir, @UserProfileDir & '\Lokale Einstellungen\Temporary Internet Files',@UserProfileDir & '\Cookies', @UserProfileDir & '\Recent', @WindowsDir & '\Prefetch']
    Dim $avo[5] = ['Einlesen vom Tmp Ordner gestartet........', 'Einlesen vom Temporary Internet Files Ordner gestartet........', 'Einlesen vom Cookies Ordner gestartet........', 'Einlesen vom Recent Ordner gestartet........', 'Einlesen vom Prefetch Ordner gestartet........']
    Dim $asp[5] = ['Tmp', 'Temporary Internet Files', 'Cookies', 'Recent', 'Prefetch']
    Dim $rech = DirGetSize(@TempDir) + DirGetSize(@UserProfileDir & '\Lokale Einstellungen\Temporary Internet Files') + DirGetSize(@UserProfileDir & '\Cookies') + DirGetSize(@UserProfileDir & '\Lokale Einstellungen\Verlauf\History.IE5') + DirGetSize(@UserProfileDir & '\Recent') + DirGetSize(@WindowsDir & '\Prefetch')
    Do
    $i += 1
    Sleep(10)
    GUICtrlSetData($bar, $i)
    GUICtrlSetData($lblproz, "" & $i & "%")
    Until $i = 100
    For $i = 0 To 4
    GUICtrlSetData($aspei[$i], $asp[$i] & ': ' & Round(DirGetSize($aOa[$i]) / 1024) & ' Kby ' & Round(DirGetSize($aOa[$i]) / 1024 / 1024) & ' MB ' & Round(DirGetSize($aOa[$i]) / 1024 / 1024 / 1024) & ' GB')
    GUICtrlSetData($gaList, GUICtrlRead($gaList) & @CRLF & @CRLF & $avo[$i])
    Listen(FileFindFirstFile($aNa[$i]))
    Next
    GUICtrlSetData($aspei[5], 'Gesamt: ' & Round($rech / 1024) & ' Kby ' & Round($rech / 1024 / 1024) & ' MB ' & Round($rech / 1024 / 1024 / 1024) & ' GB')
    Select
    Case @GUI_CtrlId = $ber
    For $i = 0 To 4
    FileDelete($aNa[$i])
    Next
    For $s = 0 To UBound($aOa) - 1
    Dim $te = _FileListToArray($aOa[$s], '*', 2)
    For $i = 1 To UBound($te) - 1
    DirRemove($aOa[$s] & '\' & $te[$i], 1)
    Next
    Next
    GUICtrlSetData($gaList, 'Bei neuer Analyse werden nicht alle Datein und Ordner' & @CRLF & 'gelöscht sein das System erstellt sie neu!' & @CRLF & 'Die gebliebenen Datei und Ordner werden gerade genutzt!')
    EndSelect
    EndFunc ;==>_Dateanalyse
    Func Listen($e)
    Dim $i = 0
    Do
    Dim $file = FileFindNextFile($e)
    If $file = '' Then $file = 'Einlesen vom Ordner beendet!'
    GUICtrlSetData($gaList, GUICtrlRead($gaList) & @CRLF & $file)
    If $file = 'Einlesen vom Ordner beendet!' Then ExitLoop
    $i = $i - 1
    Until $i = $e
    FileClose($e)
    EndFunc ;==>Listen

    [/autoit]


    Update: 11.11.09 - Erweiterung mit Progress und größen Anzeige der Ordner


    LG Kleiner

    Dateien

    Kleiner-Cleaner.zip 282,56 kB – 227 Downloads
  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 8. November 2009 um 15:19

    Dann ist ja alles gut!
    has du msn ?

    Lg kleiner!

  • _InetGetSource erkennt kein ä,ö,ü ?

    • Kleiner
    • 8. November 2009 um 14:09

    @progandy

    wust ich auch noch nciht hät mir und ihm erstmal so geholfen!


    LG Kleiner

  • _InetGetSource erkennt kein ä,ö,ü ?

    • Kleiner
    • 8. November 2009 um 14:05

    Erweiterter Zeichensatz (ANSI)


    Zeichen... Dez Hex
    ¼ 188 BC

    ½ 189 BD

    ¾ 190 BE


    bevor du denn speicherst solltest du ihn nach den zeichen duchsuchen und endern

    weißt du genau welches zeichen zu welchen buchstaben gehört?


    LG kleinr

  • Maus over

    • Kleiner
    • 8. November 2009 um 13:31

    funkey

    Doppelt hält besser! :P


    LG Kleiner

  • _InetGetSource erkennt kein ä,ö,ü ?

    • Kleiner
    • 8. November 2009 um 13:29

    Das könnte dir helfen!


    [autoit]

    StringReplace('$var', Chr(132), 'ä')

    [/autoit]

    Edit: Oder meinst du das gespeicherte mit ä ü ö und das kennt das Inet nicht?
    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 8. November 2009 um 13:04

    Ein Probieren wir noch und dann sag ich dir was besser wehr dein problem zu lösen!


    Geb das mal dereckt hinter hinter Run(

    [autoit]

    @ComSpec & ' /c ' &

    [/autoit]


    )ein

    Edit: ansonsten mache ein neuen post mit der frage das du bei windows7 die cmd ausgabe nicht abfangen kannst! den der post ist schon sehr unverständlich geworden und ich denke das keiner so richtig lust hat das alles durchzulesen!

    LG Kleiner

  • Maus over

    • Kleiner
    • 8. November 2009 um 12:53

    Hallo XP-User


    Das wird dir weiterhelfen!

    [autoit]

    GUIGetMsg

    [/autoit]


    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 8. November 2009 um 07:50

    Guten Morgen WhiteLion !


    Da hätte ich schon mal früher drauf kommen können zu fragen welches os du hast!
    1. frage welche version von autoit benutzt du?
    wenn du 3.3.0.0 benutzt lade dir die beta runter soweit ich hir im forum lesen konnte kann man mit hir auf win7 soweit alles machen!
    Dann müßen wir von vorne anfangen oder ein user der win7 benutz liest dein post und kann uns erfahrungswerte oder tips gehben!( ich kenne win7 nicht nur das ich auf XP das Theme benutz :D )


    LG Kleiner

  • Window Transparency

    • Kleiner
    • 6. November 2009 um 23:43

    Hallo PrideRage !


    Dein code hast du vergessen!


    LG Kleienr

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 6. November 2009 um 23:27

    Ich habe keine ahnung was du noch willst denn alle gelieferten skripte funktionieren!
    Bei meinen mußt du kurz warten bis eine ausgabe erfolgt bei dein ersten code sowie nuts code wirde jede zeile einzelnt und damit sofort ausgegeben ! die probleme die du uns stellst wurden jedes mal glöst nur einbauen tust du sie falsch also ligt es nicht an uns, Die letzte frage das du keine ausgabe bekommst kommt glaube ich 4 mal vor und vier mal habe ich dir eine lösung gegeben wenn du genaue erklärungen zu befehle haben willst mußt du sie stellen!
    Es ist doch so du erstellst eine funktion selber also weißt du was passiert kommst nicht weiter stellst deine frage hir wir geben dir eine lösung und du brauchst nichts anderes zu tun und schauen was wir verendert gaben und suchst in der hilfe nach den sachen um dir das verständlich zu machen oder bekommst eine erklärung mit darum kann ich nicht verstehen wo du noch probleme hast wo wir das schon oder ich dir ein paar beispiele gegeben habe??

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 6. November 2009 um 17:37

    Also du soltest mehr die hilfe lesen und drauf achten welche hilfe stellungen man dir gibt und das dazugehörige thema durchlesen egal was ich dir für beispiele liefer egal ob ich dir den code fertig prsentiere du hast immer irgendwo fehler obwohl alle laufen die ich dir gezeigt habe folglich willst du nur das einer dir den code vertig schreib denn ich habe keine einziege frage zu irgent welchen befehlen bekommen nur ein code schnipsel habe fehler kannst du bitte ich hätte meine hilfe schon einstellen sollen woh ich es gesagt habe!

    Das ist noch mal eine hilfe mit erklärung und wennn du immer noch nicht schafst dir das alles zu erklären dan tut es mir leid!

    Spoiler anzeigen
    [autoit]

    #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 <StaticConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ScrollBarConstants.au3>
    #include <EditConstants.au3>
    #include <Constants.au3>

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

    Opt('MustDeclareVars', 1)
    Global $msg, $x, $strComputer, $objWMIService, $colComputers, $colItems, $iLen, $iHoriz = 0, $iVert = 100
    ;#########################################################################################################################################
    Global $Ping = @ScriptDir & '\Ping.exe';Pfad und dateiname nach welcher datei gesucht werden soll scriptdir bedeutet im selben verzeichnis
    ;#########################################################################################################################################
    ;+##################################################################################################################################################################
    Global $processname = 'ping googel.com' ;wohin er pingen soll wir verwenden googel.com das, das ganze von system ausgeführt werden kann prauch er auch den befehl
    ; dazu im unseren falle ping googel.com ohne ping bekommt der interpreter nur googel.com und damit kann er nichts anfangen nichtdefeniert also error nichtstun!
    ;###################################################################################################################################################################

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

    Global $gui1 = GUICreate('Test',500,500,-1,-1)
    Local $button1 = GUICtrlCreateButton('Click',20,20,80,20)
    Local $input = GUICtrlCreateEdit("Starting interface....", 10, 350, 480, 120, BitOR($ES_AUTOVSCROLL , $WS_VSCROLL))
    GUISetState()

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

    While 1 * Sleep(10)
    $msg = GUIGetMsg()
    Select
    Case $msg = $button1
    _StartTeknogodsDLL()
    EndSelect
    WEnd
    Func _StartTeknogodsDLL()
    If FileExists($Ping) Then
    If ProcessExists($Ping) Then
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Process was already running:" & $Ping & " It will be closed and restarted!")
    ProcessClose ($Ping)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Process closed! Will be restarted soon...")
    Local $hPID = Run( $processname, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $Ping)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "You can run the game now! Remember: Use F12-key in game to activate!")
    Else
    Local $oldData = ""
    Local $hPID = Run($processname, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $Ping)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "You can run the game now! Remember: Use F12-key in game to activate!")
    ProcessWaitClose($hPID)
    Do
    Local $readData = StdoutRead($hPID)
    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

    [/autoit]

    [closet]

  • Restart VOR Anmeldefenster

    • Kleiner
    • 6. November 2009 um 13:47

    Eine Igee! ( nicht getetet )


    Geschriebene code ausführen lassen vor der anmeldung das schaut in einer datei ob ein eintrag wenn nicht einen machen und neustart beim nächsten contoll lauf findet er ein eintrag der wieder gelöscht und stopt die anmeldung läuft weiter! ( erweiterbar ) fals ein user neustarten muß!


    Lg Kleiner

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 6. November 2009 um 13:39
    [autoit]

    Global $Ping = @ScriptDir & '\Ping.exe';am anfang de skript!

    [/autoit]
  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 6. November 2009 um 13:14
    Spoiler anzeigen
    [autoit]

    #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 <StaticConstants.au3>
    #include <GuiConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <ScrollBarConstants.au3>
    #include <EditConstants.au3>
    #include <Constants.au3>

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

    Opt('MustDeclareVars', 1)
    $Debug_Ed = False
    Local $msg, $x, $strComputer, $objWMIService, $colComputers, $colItems, $iLen, $iHoriz = 0, $iVert = 100
    Global $gui1 = GUICreate('Test',500,500,-1,-1)
    Local $button1 = GUICtrlCreateButton('Click',20,20,80,20)
    Local $input = GUICtrlCreateEdit("Starting interface....", 10, 350, 480, 120, BitOR($ES_AUTOVSCROLL , $WS_VSCROLL))
    GUISetState()
    Local $processname = ("ping googel.com")
    While 1 * Sleep(10)
    $msg = GUIGetMsg()
    Select
    Case $msg = $button1
    _StartTeknogodsDLL()
    EndSelect
    WEnd
    Func _StartTeknogodsDLL()
    ;If FileExists($processname) Then; warum fragst du nach einer datei ?????????
    If ProcessExists($processname) Then; der process kann noch garnicht ausgeführt werden abfrage unnötig
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Process was already running:" & $processname & " It will be closed and restarted!")
    ProcessClose ($processname)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Process closed! Will be restarted soon...")
    Local $hPID = Run( $processname, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD) ;hier können noch parameter hinter den prozessnamen gehängt werden!
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $processname)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "You can run the game now! Remember: Use F12-key in game to activate!")
    Else
    Local $oldData = ""
    Local $hPID = Run( $processname, "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD) ;hier können noch parameter hinter den prozessnamen gehängt werden!
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $processname)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "You can run the game now! Remember: Use F12-key in game to activate!")
    ProcessWaitClose($hPID)
    Do
    Local $readData = StdoutRead($hPID)
    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

    [/autoit]


    Lg Kleiner

  • Restart VOR Anmeldefenster

    • Kleiner
    • 6. November 2009 um 10:33

    Hallo BugFix!

    Außer den beiden Autostart Ordnern gibt es noch eine weitere Möglichkeit, Programme automatisch auszuführen. Über einen Eintrag in der Registry.
    In dieser Reihenfolge werden die Programme ausgeführt:

    HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ RunServicesOnce
    HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ RunServices
    HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ RunOnce
    HKEY_LOCAL_MACHINE \ Software \ Microsoft \ Windows \ CurrentVersion \ Run

    HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ RunOnce
    HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ RunServices
    HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ RunServicesOnce

    HKEY_CURRENT_USER \ Software \ Microsoft \Windows NT \ CurrentVersion \ Windows
    Dort die Werte "Run" oder "Load" als Zeichenfolge einfügen

    Noch vor dem Anmelden eines Users werden einige Programme gestartet, die unter HKEY_LOCAL_MACHINE \ System \ ControlSet001 \ Services eingetragen sind.

    RunServiceOnce = Einmaliger Start als Dienst (wird vor dem Anmelden gestartet)
    RunService = Start als Dienst (wird vor dem Anmelden gestartet)
    RunOnce= Einmaliger Start


    @ojo 
    Geplante Task stellen ein erhebliches sicherheitzrisiko da!

    LG Kleiner

  • einige fragen zu meinem soucecode/projekt

    • Kleiner
    • 5. November 2009 um 22:42

    So das ist jetzt mein code erstellt von Kleiner! ;):D

    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 <Constants.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()
    Local $oldData = ""
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & "Starting external program: " & $processname)
    Local $hPID = Run("ping.exe heise.de", "", @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD);<-------- für StdoutRead
    ProcessWaitClose($hPID);<-------- pusiert bis die ausgabe fertig gestellt wurde! finde ich besser ansosten mußt du das wie dein ertsten code machen enlich nicht gleich!
    Local $readData = StdoutRead($hPID)
    GUICtrlSetData($input, GUICtrlRead($input) & @CRLF & $readData); brauchst auch keine schleife mehr solange du nicht jede zeile einzelnt sehen willst
    _GUICtrlEdit_LineScroll($input, $iHoriz, $iVert)
    EndFunc ;==>_StartTeknogodsDLL
    GUISetState()
    While GUIGetMsg() <> $GUI_EVENT_CLOSE
    WEnd

    [/autoit]

    Edit: Bitte spoiler benutzen! das scrollen geht mir schon auf den sa...............

    LG Kleiner

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™