Beiträge von Dr.Galvany

  • If Not mit IniRead

    hallo, ich verstehe nicht wo hier mein fehler ist :(
    es sollte doch die variable umgeschrieben werden, so das "ich" ausgegeben wird.

    user.ini

    Code
    [Konto]
user=dein name
    [autoit]

    $user = IniRead(@ScriptDir & "\user.ini", "Konto", "user", "fehler")

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

    If Not $user = "ich" Then $user = "ich"

    [/autoit]

    das auslesen gibt mir immer "dein name" aus

    [autoit]

    ConsoleWrite($user)

    [/autoit]

  • Selbstzerstörung

    hallo, hab das gerade mal getestet:

    [autoit]


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

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

    While 1
    Sleep(5)
    WEnd

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


    Func _SelfDelete($iDelay = 0)
    Local $sCmdFile
    FileDelete(@TempDir & "\scratch.bat")
    $sCmdFile = 'ping -n ' & $iDelay & '127.0.0.1 > nul' & @CRLF _
    & ':loop' & @CRLF _
    & 'del "' & @ScriptFullPath & '"' & @CRLF _
    & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
    & 'del ' & @TempDir & '\scratch.bat'
    FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
    Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
    EndFun

    [/autoit]

    das sollte sich das script killen sobald man ESC drückt?

    da kommt bei mir diese meldung
    [Blockierte Grafik: http://img249.imageshack.us/img249/4120/20072802194231lr9.th.jpg]

  • Excel-Tabelle erstellen

    hast du schon mal geschaut? :)

    also das Excel macht mich fertig :(

    ich will eine vorhandes Excel datei so bearbeiten, aber ich bekomme das nicht hin.

    auch das starten von einer vorhandenen dati bekomme ich nicht hin :(

    Spoiler anzeigen
    [autoit]

    Const $xlAscending = 1
    Dim $ExcelObjekt
    Dim $Datei
    Dim $Zaehler

    ;~ ' Excel-Objekt erzeugen
    ;$ExcelObjekt = ObjCreate("Excel.Application")

    $ExcelObjekt = "Microsoft Excel - Steuerung.xls"


    ;~ ' Excel sichtbar machen
    $ExcelObjekt.Visible = 1

    ;~ ' Eine neue Arbeitsmappe hinzufügen
    ;$ExcelObjekt.WorkBooks.Add()


    $ExcelObjekt.Cells(1,1).Value = "a"
    $ExcelObjekt.Cells(1,2).Value = "b"
    $ExcelObjekt.Cells(1,3).Value = "c"
    $ExcelObjekt.Cells(1,4).Value = "d"
    $ExcelObjekt.Cells(1,5).Value = "e"
    $ExcelObjekt.Cells(1,6).Value = "f"
    $ExcelObjekt.Cells(1,7).Value = "g"

    ;$ExcelObjekt.Range("A1:G1").Select
    ;$ExcelObjekt.Selection.Font.Bold = True

    [/autoit]

  • Reg-Wert umbenennen

    ok, ich habe es mit MS mitteln gelöst.
    das geht hier etwas besser bzw. schneller :)

    als erstes sichere ich den vorhandenen reg wert. (dafür war das umenennen gedacht)

    [autoit]

    _RunDos('regedit /E ' & @TempDir & '\orginal.reg "HKEY_CURRENT_USER\Software\XXX"')

    [/autoit]

    dann gebe ich die neuen werte ein.

    [autoit]

    _RunDos("regedit /S " & @TempDir & "\settings.reg")

    [/autoit]

    bin ich fertig lösche ich meine neuen werte

    [autoit]

    RegDelete("HKEY_CURRENT_USER\Software\XXX")

    [/autoit]

    dann wieder die alten einspielen

    [autoit]

    _RunDos("regedit /S " & @TempDir & "\orginal.reg")

    [/autoit]

    zum schluss den müll beseitigen.

    [autoit]

    FileDelete(@TempDir & "\settings.reg")
    FileDelete(@TempDir & "\orginal.reg")

    [/autoit]

    die setting hatte ich mit FileInstall eingebunden und nach Temp entpackt.

  • Wie kann ich einen Variablenwert von einer GUI zu einer anderen GUI übergeben?

    Zitat

    Original von BugFix
    Definiere die Variable als Global, dann steht sie dir überall zur Verfügung.

    [autoit]

    Global $meineVariable

    [/autoit]


    das gilt nur im gleichen script oder?
    wenn ich ein anderes script aufrufe, kann man da auch auf diese variable zugreifen?

    script 1

    [autoit]

    Global $test = "5"

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

    While 1
    Sleep(500)
    WEnd

    [/autoit]

    script 2

    [autoit]

    MsgBox(0,"",$test)

    [/autoit]


    das geht aber nicht.

  • WinSetState, @SW_MINIMIZE, @SW_HIDE

    hehe danke, wenn ich das auch schon so gut könnte :)

    es geht eigentlich um einen minimizer, der das aktive fenster verkleinert und wieder vergrössert.
    habe da auch mal ein simples script erstellt.

    Spoiler anzeigen
    [autoit]

    HotKeySet("{PGDN}", "_mini")
    HotKeySet("{PGUP}", "_maxi")

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

    $fenster = ""

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

    While 1
    Sleep(50)
    WEnd

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

    Func _mini()
    $fenster = WinGetTitle ( "", "")
    Sleep(50)
    WinSetState($fenster, "", @SW_MINIMIZE )
    EndFunc

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

    Func _maxi()
    WinSetState($fenster, "", @SW_MAXIMIZE )

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

    If WinActive($fenster) Then
    Else
    WinActivate($fenster)
    EndIf
    EndFunc

    [/autoit]


    das geht nicht schlecht, aber nicht bei einem spiel "FEAR" :(
    deine geht beim spiel auch nicht direkt, aber man bemerkt, das dein script was versucht :)

    sonst geht deins natürlich perfekt :kiss:

  • exe dateien verkleinern

    hallo, ich glaube das thema hatten wir schon mal.
    ist es möglich sehr kleine exe dateien zu protuzieren?
    also das die exe, eigentlich nur die sachen, wo im quellcode gebraucht werden, mit einbaut.
    dann kommen so kleine exe dateien (ja nach quellcode) um die 5-20kb heraus. :)