Beiträge von autoBert

  • Script Schützen

    Zitat von EpicWorld

    Kannst du mir eine machen bitte wo man 30 tage testversion hat, am anfang kommt wieviel testtage verbleiben und ein button mit start und nebendran ein button mit vollversion kaufen ist

    Da es ja offensichtlich kommerziell sein soll, solltest du dein Anliegen in Programmieranfragen mit Gegenleistung posten.
    Falls die in diesem Post erwähnte Firma http://board.gulli.com/thread/1521769…-place-to-play/ nicht deine ist solltest du auch über eine Namensänderung nachdenken, ansonsten die Seite ist nicht aufrufbar (Impressungspflicht beachten)

    mfg (Auto)Bert

  • Zwingen zum Updaten

    Zitat von lukiono

    Huhu

    Wie kann ich ein Programm dazu zwingen, sobald ein Update auf dem Server ist, dieses Herunterzuladen?
    Ich dachte mit einer simplen Zeitrechnung, jedoch wäre dies nicht variabel. Ist dies überhaupt möglich?

    MfG

    aus rechtlichen Gründen, sollte ein Update immer nur auf Veranlassung des Users geschehen, z.B.

    • in einer Einstellungsgui die Möglichkeit für automatische Updates anbieten (darf standardmässig auf true stehen)
    • Menüpunkt Update für manuelles Update

    Ansonsten in die Lizenzbedingungen, bei der Installation aufnehmen, dass der User mit der Benutzund des Programmes damit einverstanden ist

    Das eigentliche Update kannst du über

    • Datei mit Versions-Nr. herunterladen
    • Versions-Nr. in deiner HP integrieren. Diese Version benutze ich um meinen MP3-Player (Link siehe Signatur) upzudaten

    danach die Versions-Nr. des Programms mit der aus Datei/HP vergleichen, wenn diese neuer Update starten,

    mfg (Auto)Bert

  • Listview Subitem BKColor anpassen - je Subitem eine Farbe

    Hallo card0384,

    hier auf deine Vorgabe angepasst:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <GuiListView.au3>
    #include <ListViewConstants.au3>
    #include <StructureConstants.au3>
    #include <WindowsConstants.au3>

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

    $GUI = GUICreate("Listview Farbig", 1024, 300,0,0) ;<==== Breite geändert
    $cListView = GUICtrlCreateListView("", 2, 2, 1020, 294, -1, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT)) ;<==== Breite geändert
    $hListView = GUICtrlGetHandle($cListView)
    For $i = 1 To 31
    _GUICtrlListView_InsertColumn($hListView, $i-1, $i, 25)
    _GUICtrlListView_SetColumnWidth($hListView, $i-1,32) ;<==== eingefügt für Spaltenbreite
    Next
    For $i = 0 To 21 ; alle Item/SubItem erstellen
    _GUICtrlListView_AddItem($hListView, "", $i)
    For $j = 0 To 30
    _GUICtrlListView_AddSubItem ($hListView, $i, "", $j)
    Next
    Next

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

    GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    GUISetState()

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

    While True
    $msg = GUIGetMsg()
    Switch $msg
    Case -3
    ExitLoop
    EndSwitch
    WEnd
    Exit

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

    Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR
    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
    Case $hListView
    Switch $iCode
    Case $NM_CUSTOMDRAW
    Local $tCustDraw = DllStructCreate($tagNMLVCUSTOMDRAW, $lParam)
    Local $iDrawStage, $iItem, $iSubitem, $hDC, $tRect
    $iDrawStage = DllStructGetData($tCustDraw, 'dwDrawStage')
    Switch $iDrawStage
    Case $CDDS_ITEMPREPAINT
    Return $CDRF_NOTIFYSUBITEMDRAW
    Case BitOR($CDDS_ITEMPREPAINT, $CDDS_SUBITEM)
    ; Item/SubItem das aktuell gezeichnet werden soll ermitteln
    $iItem = DllStructGetData($tCustDraw, 'dwItemSpec')
    $iSubitem = DllStructGetData($tCustDraw, 'iSubItem')
    ; bei fixer Zuordnung z.B. so
    Switch $iItem ; Zeilenwahl
    Case 0, 5, 10, 15, 20 ; in 5-Zeilenabstand die Zeile rot
    DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR(0xFF0000))
    Case Else ; alle anderen weiß
    DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR(0xFFFFFF))
    EndSwitch
    Switch $iSubitem
    Case 5, 23, 24, 25 ;<==== ;Spalte blau Vorgabe card0384
    DllStructSetData($tCustDraw, 'clrTextBk', RGB2BGR(0x0000FF))
    EndSwitch
    Return $CDRF_NEWFONT
    EndSwitch
    EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
    EndFunc ;==>WM_NOTIFY

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

    Func RGB2BGR($iColor)
    Local $sH = Hex($iColor,6)
    Return '0x' & StringRight($sH, 2) & StringMid($sH,3,2) & StringLeft($sH, 2)
    EndFunc

    [/autoit]

    Änderungen mit <======== kenntlich gemacht wichtig ist Zeile 61

    mfg (Auto)Bert

  • IE Object Scrollbalken deaktivieren

    Hallo Simon,

    kann dein Beispiel nicht startern. Ausgabe Scite-Konsole:

    ich kann aber nirgends entdecken, wo die übergebene URL aufgerufen wird,

    mfg (Auto)Bert

  • IE Object Scrollbalken deaktivieren

    Hallo Simon,

    da du nur Codeschnipsel postet aus denen ich nichts erkennen kann, hier einmal ein Beispiel:

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------

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

    AutoIt Version: 3.3.6.1
    Author: AutoBert: http://www.autoit.de/index.php?page…4679#post164679

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

    Skriptbeispiel für den Umgang mit _IECreateEmbedded, _IEErrorHandlerRegister, _IENavigate, _IEAction GuiCtrlCreateProgress, _IEPropertyGet
    #ce ----------------------------------------------------------------------------
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    _IEErrorHandlerRegister()

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

    $oIE = _IECreateEmbedded()
    $SinkObject = ObjEvent($oIE, "IEEvent_", "DWebBrowserEvents2") ; Ereignisse den UDFs zuweisen, beginnend mit IEEvent_
    GUICreate("Embedded Web control Test", 640, 600, _
    (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
    $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
    $hInput = GUICtrlCreateInput("Hier URL eingeben: ", 10, 10, 500)
    $hGo = GUICtrlCreateButton("&Go", 520, 10, 50)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 40, 658, 498)
    GUICtrlSetResizing($GUIActiveX, $GUI_DOCKAUTO)
    $idProgress = GUICtrlCreateProgress(0, 520, 640, 28)
    GUICtrlSetResizing(-1, $GUI_DOCKSTATEBAR)

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

    GUISetState(@SW_SHOW) ;Show GUI

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

    _IENavigate($oIE, "http://www.autoit.de/index.php?page=Thread&postID=164679#post164679")

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

    ; Waiting for user to close the window
    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    ExitLoop
    Case $msg = $hGo
    _IENavigate($oIE, GUICtrlRead($hInput))
    EndSelect
    $surl1 = _IEPropertyGet($oIE, "locationurl")
    $surl2 = GUICtrlRead($hInput)
    ; ConsoleWrite($surl1 & " " & $surl2 & " " & GUICtrlRead($idProgress) & @CRLF)
    If $surl1 <> $surl2 And GUICtrlRead($idProgress) > 90 Then GUICtrlSetData($hInput, $surl1)
    WEnd

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

    $SinkObject = 0 ; IE Eventzuweisung aufheben
    $oIE.Quit ; IE beenden
    $oIE = 0
    GUIDelete()
    Exit

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

    Func IEEvent_ProgressChange($Progress, $ProgressMax)
    $percent = Int(($Progress * 100) / $ProgressMax)
    If $percent >= 0 And $percent <= 100 Then GUICtrlSetData($idProgress, $percent)
    EndFunc ;==>IEEvent_ProgressChange

    [/autoit]

    den rechte Scrollbalken sieht man nicht da der embeded IE in der Breite grösser, der untere wird von einem Progressbalken überdeckt.

    mfg (Auto)Bert

  • Script in einer Datenbank laufen lassen

    Wenn du einen Hoster findest,

    • dessen Server unter Windows läuft
    • der dir vollen Zugriff gewährt (inkl. eigene ausführbare Dateien) einzuspielen

    sollte dies möglich sein, das dürfte allerdings nicht umsonst zu haben sein, musst einfach einmal Tante Google befragen,

    mfg (Auto)Bert

  • bplaced.net und Inetget geht nicht!

    Hallo simon,

    Zitat von simon

    Das Gleiche problem hatte ich auch auf bplaced , hab dann die daten auf meine strato webspaceauf bplaced und square7 ist das downloaden egal mit welcher sprache nicht möglich

    definitiv falsch, denn

    Zitat von qixx

    Habe doch was gefunden! :)

    qixx hat doch die Lösung bereits in den Eröffnngsthread hineineditiert. Bei den anderen Post's ging es nur noch darum welche(r)

    [autoit]

    HttpSetUserAgent

    [/autoit]

    Useragent gesetzt werden ko(e)nn(en),

    mfg (Auto)Bert

  • TCPConnect funktioniert leider nicht ;(

    Hallo antispeed,

    postID=172025#post172025

    Zitat von Antispeed

    Ok.Ich habe Router&der Andere auch.Möchte, dass das Skript funkt. wenn man einen Router hat & wenn man keinen hat.

    dann mss jeder von euch beiden sich durch die Konfigurationsanleitung des jeweiligen Routers durcharbeiten und entsprechend einstellen.
    An deinem Zitat glaube ich zu erkennen, dass die Verbindung über das INet laufen soll. In diesem Post:
    http://www.autoit.de/index.php?page=Thread& hat Andy eine Schritt für Schritt-Anleitung erstellt,

    mfg (Auto)Bert

  • Login Box Probleme

    Hallo volle,

    Zitat von volle

    ich weiß wieso es bei dir nicht funktioniert hat^^

    du hast nur ne kleinigkeit vergessen^^
    wenn du mal bei dir guckst und mal auf mein gepostetes :D

    was soll ich da vergleichen, ich habe die Stringencryptfunktion herausgenommen nachdem ich mich in deine LoginBox nicht einloggen konnte. Erst danach habe ich dein 2. "wichtiges" Skript angehängt.

    Ich habe jetzt den Skriptschnipsel mit den Encryptfunktionen eingesetzt und siehe da es funktioniert, vielliecht hatte ich ja Capslock aktiviert

    PS.: man kann seine Beiträge auch editieren,

    mfg (Auto)Bert

  • Was ist vorteilhafter?

    Hallo IsleOfTechno,

    Zitat von IsleOfTechno

    Ein so großes Projekt wie eine vernünftige Warenwirtschaft lässt sich mit AutoIt garantiert nicht realisieren. Ohne Objekt-Orientierung keine Chance. Weiterhin fehlen ein paar Dinge wie vernünftige Steuerelemente, die man auch selbst erweitern kann, diverse Datenstrukturen, vernünftige Datenbankanbindung ... Aber dafür ist AutoIt ja auch nicht gedacht :)

    wenn du genügend Zeit zum entwickeln und den notwendigen Kaufmännischen Hintergrund hast, kannst du es durchaus mit AutoIt realisieren. Datenbankanbindung kannst du mit SQLite (gute AutoItunterstützung und auch Hilfe), MySQL ADODB oder ODBC lösen.

    L3viathan, sorry musste sein

    mfg (Auto)Bert

  • Datei Verschieben

    Zitat von AutoIT freak

    was ist wenn man nich weis wo die datei ist aber ich will das die exe datei in bei autostart sich verschiebt

    Zitat von Hilfe

    @AutoItExe Der komplette Pfad und Dateiname der AutoIt-Exe-Datei. Bei kompilierten Skripten der Pfad des laufendes Skriptes.

    Du solltest dir die Makros in der Hilfe anschauen.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    mfg (Auto)Bert

  • Login Box Probleme

    Hallo volle,

    hier das Skript:

    Spoiler anzeigen

    [autoit#include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <string.au3>

    $ini = @ScriptDir & "\data.ini"

    If Not FileExists($ini) Then
    IniWrite($ini, "account", "user", "Eistee")
    IniWrite($ini, "account", "pass", "123456")
    EndIf

    $origUser = IniRead($ini, "account", "user", "")
    $origPass = IniRead($ini, "account", "pass", "")

    $Input1 = GUICtrlCreateInput("", 120, 144, 105, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
    #region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 313, 184, 277, 173)
    $Input1 = GUICtrlCreateInput("", 128, 48, 153, 21) ;soll nachher ein Code sein wie zum Beispiel S485hfbgszwZ3n der dann eingegeben wird und zur bestätigung dient dazu halt ein passwort zu besseren sicherung
    $Input2 = GUICtrlCreateInput("", 128, 80, 153, 21, BitOR($GUI_SS_DEFAULT_INPUT, $ES_PASSWORD))
    $Label1 = GUICtrlCreateLabel("Erkennungscode:", 16, 48, 108, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    $Label2 = GUICtrlCreateLabel("Passwort:", 56, 80, 64, 23)
    GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0xFF0000)
    $login = GUICtrlCreateButton("Anmelden", 32, 120, 113, 25, 0) ;wenn man anmelden drückt soll sich die loginbox schließen und nur notepad öffnen aber nur in dem das passwort und der benutzername bzw captcha richtig ist
    $cancel = GUICtrlCreateButton("Abbrechen ", 160, 120, 113, 25, 0)
    GUISetState(@SW_SHOW)
    #endregion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $login
    If GUICtrlRead($Input2) = $origPass And GUICtrlRead($Input1) = $origUser Then
    ;MsgBox(64, "Passwort richtig", "Sie haben sich erfolgreich eingeloggt")
    ;Run("")
    GUIDelete($Form1)
    ExitLoop
    Else
    MsgBox(0, "Passwort falsch", "Sie haben das Passwort oder den Benutzernamen falsch eingegeben")
    EndIf
    Case $cancel
    MsgBox(48, "Anmeldung Abbgebrochen", "Sie haben die Anmeldung abbgebrochen.", 3)

    Exit

    EndSwitch


    WEnd


    $Form1 = GUICreate("Form1", 356, 97, 193, 125)
    $Hallo = GUICtrlCreateLabel("Hallo Welt!", 0, 0, 353, 94)
    GUICtrlSetFont(-1, 48, 800, 0, "Comic Sans MS")
    GUICtrlSetColor(-1, 0x008000)
    GUISetState(@SW_SHOW)


    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    EndSwitch
    WEnd
    [/autoit]

    da (zumindest bei mir) _StringEncrypt nicht korrekt funktioniert habe ich es herausgenommen. Du musst allerdings einmal die INI löschen, damit USER und PASSWORT unverschlüsselt darin stehen.
    Sollte die eigentliche LoginBox bei dir auch mit Verschlüsselung laufen kannst du es ja wieder einfügen. Zuvor natürlich wieder INI einmal löschen, damit sie neu angelegt wird,

    Schau dir auch einmal die LoginBox von Oscar im Forum Skripte an, bei ihm hast du nur 3 Loginversuche, danach wird abgebrochen,

    mfg (Auto)Bert