Beiträge von Der_Doc

  • aus einem gui eine neue exe compilen

    Ansonsten kann man die Daten der INI-Datei auch mit _StringEncrypt verschlüsseln und zwar mit dem Passwort, das dein FTPuser hat. Somit funktioniert auch die Verschlüsselung immer.

    Werte encrypten

    Spoiler anzeigen
    [autoit]

    $passwort = _StringEncrypt(1,GUICtrlRead($in_passwort),GuiCtrlRead($in_password),"2")

    [/autoit]

    Werte decrypten

    Spoiler anzeigen
    [autoit]

    $ini_paswd = _StringEncrypt(0,IniRead($inipath&$inifile, $ini_section, "passwort","NotFound"),GuiCtrlRead($in_paswd_gui_paswd),"2")

    [/autoit]

    Somit kann nicht jeder User die Daten auslesen.

    MfG
    Der_Doc

  • Inhalt einer INI ab der zweiten Zeile in einem GUI anzeigen lassen.

    So ich möchte auch mal meine Senf dazugeben.

    Ich hoffe es erklärt sich von selber.

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Dim $input[6]

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

    #Region ### START Koda GUI section ### Form=ini_gui.kxf
    $ini_gui = GUICreate("INI_Test", 291, 280, 193, 115)
    $Group = GUICtrlCreateGroup("Bitte Formular ausfüllen", 8, 16, 273, 241)
    $input[1] = GUICtrlCreateInput("", 98, 41, 160, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $input[2]= GUICtrlCreateInput("", 98, 71, 160, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $input[3] = GUICtrlCreateInput("", 98, 101, 160, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $input[4] = GUICtrlCreateInput("", 98, 131, 160, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $input[5]= GUICtrlCreateInput("", 98, 161, 160, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Senden = GUICtrlCreateButton("Senden", 56, 216, 70, 33, $BS_DEFPUSHBUTTON)
    $Exit = GUICtrlCreateButton("Exit", 164, 217, 70, 33, 0)
    GUICtrlCreateLabel("wwwwwww:", 38, 41, 19, 17, BitOR($SS_RIGHT,$SS_CENTERIMAGE))
    GUICtrlCreateLabel("ssssssss:", 38, 71, 18, 17, BitOR($SS_RIGHT,$SS_CENTERIMAGE))
    GUICtrlCreateLabel("yyyyyyyyyy:", 38, 101, 35, 17, BitOR($SS_RIGHT,$SS_CENTERIMAGE))
    GUICtrlCreateLabel("xxxxxxx:", 38, 131, 32, 17, BitOR($SS_RIGHT,$SS_CENTERIMAGE))
    GUICtrlCreateLabel("dddddd:", 38, 161, 32, 17, BitOR($SS_RIGHT,$SS_CENTERIMAGE))

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

    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW,$ini_gui)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

    Case $Exit
    Exit

    Case $GUI_EVENT_CLOSE
    Exit

    Case $Senden
    $var = IniReadSection(@Scriptdir&"\test.ini", "name")
    If @error Then
    MsgBox(4096, "", "Error occurred, probably no INI file.")
    Else
    For $i = 3 To $var[0][0]
    GUICtrlSetData($input[$i],$var[$i][1])
    Next
    EndIf

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

    EndSwitch
    WEnd

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

    ;~ Quelltest INIFILE
    ;~ ##########################
    ;~ [name]
    ;~ fffff=11111
    ;~ ggggg=222222
    ;~ hhhhh=aaaaaaaaaaa
    ;~ jjjjj=asasasas
    ;~ kkkkk=ffffffffffffffff
    ;~ ############################

    [/autoit]

    MfG
    Der_Doc

  • Fortschrittsanzeige für Scriptinterne Funktionen

    Selbst wenn du StringEncrypt mit einer Progressfunktion kombinierst, wird der Balken zu schnell durchlaufen und das sieht auch nix aus. Progressfunktionen verwende ich wenn ich daraufwarte bis ein Prozess beendet wird. Aber selbst dann muß ich dem Balken eine humane Geschwindigkeit geben und wenn das Script fertig ist, der Balken aber nochnet am anderen Ende, dann wartet das Script auf den Balken. :cursing:
    Also wenn nutze ich es nur um dem User zu zeigen das das Skript noch arbeitet aber net wie lange es noch läuft.

    MfG
    Der_Doc

  • Dateiauswahl & öffnen per GUI

    He tief durch artmen.
    Ich wollte dir in keiner Weise durchfüttern vorwerfen. War nur ein bisschen ich nenne es mal angepi**t als ich deine Antwort gelesen habe so vonwegen *hüstel *fg

    Diese Formulierung war besser

    Zitat

    Stimmt. Was Besseres gibt es nicht. Aber wie gesagt, ich komm' schon noch dahinter.


    und hätte ich auch erwartet. Es weis keiner alles und deswegen sind wir hier... um zu helfen. Sorry wenn es für mich leider so aussah, das du eigentlich keine Lust hast dir die Funktion anzuschauen. .... solche Leute hatten wir hier auch schon genügend.
    So und nun Sorry wegen dem schlechten Start Dank mir und lass uns wieder ruhig programmieren und Probleme weltzen. ;)

    MfG
    Der_Doc

  • P.Gen for Uploaded.to

    Hi,
    ich muß Peethebee rechtgeben. Sowas sollte man hier nicht veröffentlichen. Ich habe mir trotzdem mal die AGB´s durchgelesen.

    Zitat


    6.3: Bei Regelverstößen durch den registrierten Uploaded User und insbesondere solchen, die Uploaded oder den Sponsor finanziell erheblich schädigen, haftet der User und ist zum Schadensersatz verpflichtet. Uploaded behält es sich vor, in schwerwiegenden Fällen rechtlich gegen User vorzugehen.

    Im Ernstfall wird es bestimmt so ausgelegt. Da der Sponsor keine Werbeeinblendung mehr machen kann.

    MfG
    Der_Doc

  • Terme berechnen

    So habe es mal verfeinert.

    Nun funktioniert es auch wenn * Zeichen drin vorkommen und wenn die Werte im - Bereich sind ;)

    Spoiler anzeigen
    [autoit]


    $Term = "10x+5*4= 10+4"
    $Term = StringReplace($Term,"x","(*$x)")
    $Part = StringSplit($Term,"=")
    MsgBox(0,"","Part1 "&$Part[1] &@crlf & " Part2 "&$Part[2])

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

    For $x = -100 To 100 Step 0.01
    $x =StringFormat ( "%.2f",$x)
    $a = Execute($Part[1])
    $b = Execute($Part[2])
    ;~ MsgBox(0,"","$x " &$x&" Part1 "&$a &@crlf & " Part2 "&$b)
    If $a = $b Then
    MsgBox(64,"Ergebnis -",$x)
    Exit
    EndIf
    Next

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

    MsgBox(16,"Leider","Es wurde keine Lösung gefunden")

    [/autoit]

    EDIT:
    Auch diese Terme funktionieren jetzt.

    [autoit]

    $Term = "10x+5*4 = -10+4"
    $Term = "10x+5*2*2 = -10+4"

    [/autoit]


    Im Moment darf das Ergebnis nur max 2 Stellen hinterm Komma sein.

    Mfg
    Der_Doc

  • Terme berechnen

    Mh, das könnte funktionieren, wenn man alle teile in ein Array schreibt
    Array1 ist vor dem "=" und Array2 dahinter.
    Dann erst schauen ob es mehrere * oder / oder + und - auf einer Seite gibt diese zusammen fassen und dann langsam immer von rechts nach links rechnen.

    Aber das wir ein schönes durcheinander bei größeren Aufgaben.

    MfG
    Der_Doc

  • Terme berechnen

    Ah gut ich war mir nur net sicher weil das Beispiel im ersten Post keinen Sinn ergeben hat. :D
    Habe übersehen, das da 2 Leerzeichen sind nen | wäre besser gewesen. ;)

    So wie im Bsp weiter unten. :D

    Juhu ich kann es noch.

    MfG
    Der_Doc

  • Speicherverbrauch.

    Naja das heist ja nicht das du 15MB Sql Daten im Speicher hast. Sondern dein Programm schreibt ja, wie du gesagt hast Daten in eine Combobox. Diese möchte natürlich auch Speicher habe. Autoit ist auch net gerade dafür berühmt mit Speicher gut umgehen zu können.

    Aber das ganze kann ich dir leider net genau erklären. Jedenfalls wird anscheinend bei jeder Aktion Speicher benötigt und der Alte net freigegeben.
    PS: ich habe ein kleines Tool geschrieben das mir nur in einem Editfenster die Macadresse, den Namen und solche Sachen anzeigt. Den Rechenr den ich abfragen möchte trage ich in ein Inputfeld ein. Das Programm belegt beim Starten erstmal 7MB und möchte bei jedem Durchauf auch immer ein paar kb haben.

    MfG
    Der_Doc