Beiträge von funkey

  • For Schlaufe auf Knopfdruck abbrechen.

    Du könntest es z.B. so machen:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 171, 65, -1, -1)
    $bStart = GUICtrlCreateButton("Start", 7, 8, 75, 25, 0)
    $bStop = GUICtrlCreateButton("Stop", 87, 8, 75, 25, 0)
    ;~ $xStop = GUICtrlCreateCheckbox("Stop", 96, 40, 49, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    GUICtrlSetState($bStop, $GUI_DISABLE)
    ;~ GUICtrlSetState($xStop, $GUI_DISABLE)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $bStart
    GUICtrlSetState($bStart, $GUI_DISABLE)
    GUICtrlSetState($bStop, $GUI_ENABLE)
    ;~ GUICtrlSetState($xStop, $GUI_ENABLE)
    For $1 = 100 To 110
    Run('ftp -s:test.txt 192.168.0.' & $1, '', @SW_HIDE)
    ConsoleWrite($1 & @CRLF) ;nur damit ich sehe wo es gerade steckt
    ;~ If GUICtrlRead($xStop) = $GUI_CHECKED Then ExitLoop
    Next
    EndSwitch
    If Not ProcessExists('ftp.exe') And BitAND(GUICtrlGetState($bStart), $GUI_DISABLE) Then
    GUICtrlSetState($bStart, $GUI_ENABLE)
    GUICtrlSetState($bStop, $GUI_DISABLE)
    ;~ GUICtrlSetState($xStop, $GUI_UNCHECKED + $GUI_DISABLE)
    EndIf
    WEnd

    [/autoit]

  • ganz einfach aber für mich zu schwer :-(

    Das klingt fast nach einem Bot für ein Spiel und das wird laut Forenregeln nicht unterstützt.

    Allerdings kommt mir dann das mit dem Text eingeben etwas komisch vor. Erklär mal wofür du das Skript brauchst, wenn es nicht für ein Spiel ist, ansonsten wirst du auf diese Frage keine Antwort mehr bekommen.


    mfg funkey

  • Links auf Forenbeiträge

    Aber auch wenn der Link mMn in Ordnung ist, dann muss ich, wenn ich auf einen Link in der Shoutbox klicke, mich wieder neu im Forum anmelden. Oder ich schließe den Internet Explorer komplett und starte ihn neu, dann bin ich wieder automatisch über Cookie angemeldet. Eigenartig.

    Achso, jetzt glaub ich, hab ichs kapiert. Links mit *threadID* funktionieren nicht richtig, aber Links mit *postID* sind in Ordnung, oder doch nicht?

    Ich hab mir die Permalinks bis jetzt immer händisch zusammengestellt, da ich diesen Link noch gar nicht kannte, danke.
    BTW: Wie funktioniert das im englischen Forum?

  • Zur bereits gestarteten Instanz des Programmes wechseln

    Da du

    [autoit]

    WinSetState($sTitel, "", @SW_SHOW)

    [/autoit]

    verwendest, denke ich dass du dass Fenster im Normalbetrieb ins Traymenü minimiert hast, also versteckt ist und über das TrayIcon wieder sichtbar geschalten wird. Wird das Fenster so überhaupt nicht sichtbar? Hast du es aus dem Bildschirmbereich geschoben (WinMove)? Ich habe eigentlich sonst keine Erklärung, außer dass der Titel nicht passt. Dann würdest du eventuell das brauchen:

    [autoit]

    Opt("WinTitleMatchMode", 2)

    [/autoit]

  • Schon wieder Vier Gewinnt

    Das Spiel ist klarerweise gut, ich finde nur dass die Ressource-Datei (dll) übermäßig groß ist und auch die Farben der 2 Spieler sind sehr schwer auseinanderzuhalten. Da muss man sich richtig konzentrieren, um zügig spielen zu können.

  • WinGetTitle-Frage: How to?

    Wenn der konstante Teuil im Titel hinten ist, dann benötigst du noch eine Zeile ;)

    [autoit]

    #Include <Array.au3>
    Opt('WinTitleMatchMode', 2)

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

    $aList = WinList("Konstanter Titel")
    _ArrayDisplay($aList)

    [/autoit]

    Einfach mal ausprobieren

  • Modul Trend-Viewer

    Hallo. Ich habe mich gestern mit SQLite beschäftigt. Jetzt schreibe ich Daten, die ich aus einer SPS auslese in eine Datenbank. Nun will ich die Werte wieder ordentlich in einem Trend-Modul anzeigen lassen. Das funktioniert auch so einigermaßen, aber ich will noch ein paar Extras einbauen. Zum Beispiel will ich den Zeitbereich dynamisch ändern können und mit einem Klick auf den Trend soll der aktuelle Wert für diesen Zeitbereich angezeigt werden.
    Vllt kann mir jemand helfen, da ich derzeit wenig Zeit habe, um mich darum zu kümmern. Raupi hatte mir schon mal mit einem ähnlichen Projekt geholfen, bei dem ich eine vertikale Scrollbar im Trendfenster eingebaut hatte.

    Das ganze ist nicht dringend, ich will es nur irgendwann perfektionieren. Also vielen Dank für jede Anregung und jedes Stück Code

    Anbei ist auch eine Test-Datenbank mit einer Stunde Analogwerten.

    Spoiler anzeigen
    [autoit]

    #include <SQLite.au3>
    #include <SQLite.dll.au3>
    #Include <Date.au3>
    #Include <Array.au3>
    #Include <Misc.au3>
    #include <GUIConstantsEx.au3>

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

    Opt('GUIOnEventMode', 1)

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

    _SQLite_Startup ()
    If @error > 0 Then
    MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    Exit - 1
    EndIf

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

    Global $Titel = 'Trend-Viewer'
    Global $aResult, $iAnzahl, $hGraphic, $iSchritt, $iMax
    Global $hGui = GUICreate($Titel, 300, 300, -1, 20)
    GUISetOnEvent(-3, '_Ende')

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

    $hMenu = GUICtrlCreateMenu('&Datenbank')
    GUICtrlCreateMenuItem('Ö&ffnen', $hMenu)
    GUICtrlSetOnEvent(-1, '_OpenDB')
    GUICtrlCreateMenuItem('B&eenden', $hMenu)
    GUICtrlSetOnEvent(-1, '_Ende')
    $hInfo = GUICtrlCreateMenu('&Info')
    GUICtrlCreateMenuItem('Ü&ber', $hInfo)
    GUICtrlSetOnEvent(-1, '_Ende')

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

    Global $hLabelInfo = GUICtrlCreateLabel("", 10, 60, 280, 20, 0x201)

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

    Global $hLabelTrend = GUICtrlCreateLabel("Trend wählen", 10, 110, 90, 20, 0x200)
    Global $hComboTrend = GUICtrlCreateCombo("", 110, 110, 180, 50, 0x0003)

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

    Global $hLabelZeit = GUICtrlCreateLabel("Zeitbereich wählen", 10, 140, 90, 20, 0x200)
    Global $hComboZeit = GUICtrlCreateCombo("", 110, 140, 180, 50, 0x0003)
    GUICtrlSetData(-1, "5 min|15 min|30 min|60 min", "5 min")

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

    Global $hBtn = GUICtrlCreateButton('Trend anzeigen', 50, 200, 200, 40)
    GUICtrlSetOnEvent(-1, '_OpenTrend')
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUISetState()

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

    _OpenDB()

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

    While 1
    Sleep(10000)
    WEnd

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

    Func _OpenDB()
    Local $sFileDB = FileOpenDialog('Trend-Datenbank auswählen', '', 'Datenbank (*.db)', 3, "", $hGui)
    If @error Then Return
    Local $dbName = StringTrimLeft($sFileDB, StringInStr($sFileDB, '\', 0, -1))
    _SQLite_Close ()
    _SQLite_Open ($sFileDB) ; Öffne die gewählte Datenbank
    If @error > 0 Then
    MsgBox(16, "SQLite Error", "Can't Load Database!")
    Return
    EndIf
    WinSetTitle($Titel, "", $Titel & ' - '&$dbName)
    _UpDateTrendCombo()
    GUICtrlSetState(-1, $GUI_ENABLE)
    _SetDBInfos()
    EndFunc

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

    Func _UpDateTrendCombo()
    Local $hQuery, $aTrendNames, $sMsg = '|'
    _SQlite_Query (-1, "SELECT * FROM TrendDaten;", $hQuery)
    _SQLite_FetchNames ($hQuery, $aTrendNames)
    _SQLite_QueryFinalize($hQuery)
    For $i = 0 To UBound($aTrendNames) -1
    $sMsg &= $aTrendNames[$i] & '|'
    Next
    GUICtrlSetData($hComboTrend, $sMsg, $aTrendNames[0])
    EndFunc

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

    Func _SetDBInfos()
    Local $aResult, $iRows, $iColumns, $hQuery, $aDatum, $aZeit, $aRows
    _SQlite_Query (-1, "SELECT COUNT(*) FROM TrendDaten;", $hQuery)
    _SQLite_FetchData($hQuery, $aRows)
    _SQLite_QueryFinalize($hQuery)
    $iAnzahl = $aRows[0]
    GUICtrlSetData($hLabelInfo, $aRows[0] & ' Einträge / ' & StringFormat('%.1f', $aRows[0]/30) & ' Minuten in der Datenbank')
    EndFunc

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

    Func _OpenTrend()
    If WinGetTitle($Titel) = $Titel Then
    MsgBox(48, 'Fehler', 'Bitte wählen Sie zuerst eine Datenbank aus')
    Return
    EndIf
    Local $iRows, $iColumns, $iMaxFaktor, $iStart = 0, $iBereich
    GUICtrlSetState($hBtn, $GUI_DISABLE)
    $iBereich = StringTrimRight(GUICtrlRead($hComboZeit),4) * 30
    _SQLite_GetTable(-1, "SELECT "&GUICtrlRead($hComboTrend)&" FROM TrendDaten WHERE ROWID > "&$iStart&" AND ROWID < "&$iBereich + 1 + $iStart&";", $aResult, $iRows, $iColumns)
    $iMax = _ArrayMax($aResult, 1, 2)
    $iMaxFaktor = 500/$iMax * 0.99
    GUICreate('Trend '& GUICtrlRead($hComboTrend), 956, 540)
    GUISetOnEvent(-3, '_CloseTrend')
    GUICtrlCreateLabel(GUICtrlRead($hComboTrend), 52, 2, 200, 34, 0x200)
    $hGraphic = GUICtrlCreateGraphic(52, 38, 902, 500)
    GUICtrlSetOnEvent(-1, '_ShowValue')
    GUICtrlSetBkColor(-1, 0xffffff)
    ;~ GUICtrlSetColor(-1, 0)
    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0xFF0000)
    $iSchritt = 900/$iBereich
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 1, 497 - $aResult[2]*$iMaxFaktor)

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

    For $i = 3 To $aResult[0]
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, ($i-1)*$iSchritt, 497 - $aResult[$i]*$iMaxFaktor)
    Next

    GUICtrlSetGraphic(-1, $GUI_GR_COLOR, 0x0000FF)
    For $i = 100 To 400 Step 100
    GUICtrlSetGraphic(-1, $GUI_GR_MOVE, 0, $i)
    GUICtrlSetGraphic(-1, $GUI_GR_LINE, 902, $i)
    Next
    For $i = 100 To 400 Step 100
    GUICtrlCreateLabel(StringFormat('%.1f', $iMax/500 * $i), 2, 530 - $i, 50, 16, 0x201)
    Next

    GUISetState()
    GUISetState(@SW_HIDE, $hGui)
    EndFunc

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

    Func _ShowValue()
    Local $Opt_Save = Opt('MouseCoordMode', 2)
    While _IsPressed(01)
    ToolTip($aResult[MouseGetPos(0)/$iSchritt])
    Sleep(10)
    WEnd
    ToolTip('')
    Opt('MouseCoordMode', $Opt_Save)
    EndFunc

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

    Func _CloseTrend()
    GUIDelete(@GUI_WinHandle)
    GUICtrlSetState($hBtn, $GUI_ENABLE)
    GUISetState(@SW_SHOW, $hGui)
    EndFunc

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

    Func _Ende()
    _SQLite_Close ()
    _SQLite_Shutdown ()
    Exit
    EndFunc

    [/autoit]

  • Was möchten mir die Admins damit sagen ???

    Hab das selbe bekommen, wollte gerade Pee eine PN diesbezüglich schicken.


    Spoiler anzeigen

    Hallo funkey,

    "love4u" hat dir auf der Website: .: autoit.de :. - Das deutsche AutoIt-Forum (http://www.autoit.de) folgende Nachricht gesandt:
    Hello,
    My name is Miss grace. i saw your profile today and become interested to know more about you,
    Please i want you to send mail to my e-mail address (graceteamah@yahoo.com) so i can give you my picture and tell you more about me,
    Wish you the best have a nice day,
    thanks yours
    grace.

  • Problem mit _GDIPlus_GraphicsDrawImageRect

    Warum speicherst du es nicht als jpg ab, und machst es herkömmlich?

    Spoiler anzeigen
    [autoit]

    ;~ #include <GDIPlus.au3>

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

    Opt("WinTitleMatchMode", 4)
    $task = WinGetHandle("classname=Shell_TrayWnd")
    WinSetState ($task,"",@SW_HIDE)

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

    $hWnd = GUICreate ("PC-Manager",@DesktopWidth,@DesktopHeight,0,0,0x80000000)
    GUICtrlCreatePic(@ScriptDir & "\TL.jpg", 0, @DesktopHeight - 40,@DesktopWidth, 40)
    GUISetState (@SW_SHOW)
    ;~ _GDIPlus_Startup()
    ;~ $hGrafic = _GDIPlus_GraphicsCreateFromHWND ($hWnd)
    ;~ $TaskImage = _GDIPlus_ImageLoadFromFile (@ScriptDir & "\TL.jpg")
    ;~ _GDIPlus_GraphicsDrawImageRect ($hGrafic,$TaskImage,0,@DesktopHeight - 40,@DesktopWidth,40)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case -3
    WinSetState ($task,"",@SW_SHOW)
    Exit
    EndSwitch
    WEnd

    [/autoit]