Beiträge von funkey

  • Pingen und Logfile bei Statusänderung schreiben

    Nichts zu danken. Du kannst auch richtige IP-Controls verwenden

    Spoiler anzeigen
    [autoit]

    #include <GuiIPAddress.au3>
    #include <GUIConstantsEx.au3>
    #include <File.au3>

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

    $ip = '192.168.2.1'
    Local $logfile = "log.txt"
    Global $test, $testCopy
    Local $intervall = "10000"

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

    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=d:\documents and settings\li04391\desktop\form1.kxf
    $Form1_1 = GUICreate("Form1", 415, 186, 239, 155)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")

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

    $Label1 = GUICtrlCreateLabel("Host", 8, 8, 26, 17)
    ;~ Global $Input1 = GUICtrlCreateInput($ip, 8, 24, 121, 21)
    Global $Input1 = _GUICtrlIpAddress_Create($Form1_1, 8, 24)
    _GUICtrlIpAddress_Set($Input1, $ip)
    Global $Input2 = GUICtrlCreateInput($intervall, 168, 24, 50, 21)
    Global $Button1 = GUICtrlCreateButton("Start", 32, 96, 105, 49, 0)
    GUICtrlSetOnEvent(-1, "Button1Click")
    Global $Button2 = GUICtrlCreateButton("Stopp", 184, 96, 97, 49, 0)
    GUICtrlSetState(-1, $GUI_DISABLE)
    GUICtrlSetOnEvent(-1, "Button2Click")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(5000)
    WEnd

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

    Func Button1Click()
    AdlibEnable('_Zyklus', GUICtrlRead($Input2))
    GUICtrlSetState($Button1, $GUI_DISABLE)
    GUICtrlSetState($Button2, $GUI_ENABLE)
    EndFunc ;==>Button1Click

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

    Func Button2Click()
    AdlibDisable()
    GUICtrlSetState($Button1, $GUI_ENABLE)
    GUICtrlSetState($Button2, $GUI_DISABLE)
    EndFunc ;==>Button2Click

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

    Func _Zyklus()
    $test = Ping(_GUICtrlIpAddress_Get($Input1))
    If $test <> $testCopy Then _FileWriteLog($logfile, $test)
    $testCopy = $test
    EndFunc ;==>_Zyklus

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

    Func Form1_1Close()
    Exit
    EndFunc ;==>Form1_1Close

    [/autoit]

  • Pingen und Logfile bei Statusänderung schreiben

    So:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <File.au3>

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

    $ip = '192.168.2.1'
    Local $logfile = "log.txt"
    Global $test, $testCopy
    Local $intervall = "10000"

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

    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=d:\documents and settings\li04391\desktop\form1.kxf
    $Form1_1 = GUICreate("Form1", 415, 186, 239, 155)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1_1Close")

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

    $Label1 = GUICtrlCreateLabel("Host", 8, 8, 26, 17)
    Global $Input1 = GUICtrlCreateInput($ip, 8, 24, 121, 21)
    Global $Input2 = GUICtrlCreateInput($intervall, 168, 24, 50, 21)
    Global $Button1 = GUICtrlCreateButton("Start", 32, 96, 105, 49, 0)
    GUICtrlSetOnEvent(-1, "Button1Click")
    Global $Button2 = GUICtrlCreateButton("Stopp", 184, 96, 97, 49, 0)
    GUICtrlSetOnEvent(-1, "Button2Click")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(5000)
    WEnd

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

    Func Button1Click()
    AdlibEnable('_Zyklus', GUICtrlRead($Input2))
    GUICtrlSetState($Button1, $GUI_DISABLE)
    GUICtrlSetState($Button2, $GUI_ENABLE)
    EndFunc ;==>Button1Click

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

    Func Button2Click()
    AdlibDisable()
    GUICtrlSetState($Button1, $GUI_ENABLE)
    GUICtrlSetState($Button2, $GUI_DISABLE)
    EndFunc ;==>Button2Click

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

    Func _Zyklus()
    $test = Ping(GUICtrlRead($Input1))
    If $test <> $testCopy Then _FileWriteLog($logfile, $test)
    $testCopy = $test
    EndFunc ;==>_Zyklus

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

    Func Form1_1Close()
    Exit
    EndFunc ;==>Form1_1Close

    [/autoit]

    Spoiler mit Code erstellst du wenn du zuerst auf das Spoilerzeichen klickst [Blockierte Grafik: http://www.autoit.de/wcf/icon/wysiwyg/insertSpoilerM.png] und dann auf den Autoit-Code-Tag [Blockierte Grafik: http://www.autoit.de/wcf/icon/wysiwyg/insertAutoItM.png].
    Das sieht dann so aus: [ spoiler][ autoit]Hier kommt der Code rein[ /autoit][ /spoiler]

  • Wiedergabe?

    Dazu haben wir schon Lösungen hier im Forum
    z.B.

    Spoiler anzeigen
    [autoit]

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

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

    $Url = 'http://www.youtube.com/v/VnJ-GW5pgFg'
    $Datei = FileOpen(@scriptdir&"\Youtube.htm",2)
    FileWrite($Datei,'<object width="625" height="344"><param name="movie" value="'&$Url&'&hl=de&fs=1"></param><param name="allowFullScreen" value="true"></param><embed src="'&$Url&'&hl=de&fs=1" type="application/x-shockwave-flash" allowfullscreen="true" width="625" height="344"></embed></object>')
    FileClose($Datei)

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

    _IEErrorHandlerRegister ()

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

    $oIE = ObjCreate("Shell.Explorer.2")

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

    GUICreate("Film", 630, 350)
    $GUIActiveX = GUICtrlCreateObj($oIE, -10, -15, 670, 400)

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

    GUISetState()

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

    _IENavigate ($oIE, @scriptdir&"\Youtube.htm")
    While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
    Wend

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

    FileDelete($Datei)
    GUIDelete()

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

    Exit

    [/autoit]

  • Abfrage in AutoIt erstellen für einen Speziellen fall

    Welchen ClassNameNN hat jetzt das Control?

    Spoiler anzeigen
    [autoit]

    Local $1705218 = ControlGetText('Handwerker Client', '', 'TPanel');; was ist mit dem eintrag TPAnel soll er mit der SpaltenID sprich 1705218

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

    ;~ Local $Text = ControlGetText('Handwerker Client', '', '1705218');; was ist mit dem eintrag TPAnel soll er mit der SpaltenID sprich 1705218
    ;Local $pnlWert = ControlGetText('Handwerker Client', '', 'pnlWert')

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

    If $1705218 = "" Then
    MsgBox(48, "Warnung", "Auftragssumme nicht ausgefüllt!")
    Else
    MsgBox(64, "Warnung", "Auftragssumme OK!")
    EndIf

    [/autoit]

  • Pingen und Logfile bei Statusänderung schreiben

    Herzlich willkommen.

    Spoiler anzeigen
    [autoit]

    #include <File.au3>

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

    Local $ip = '10.0.0.138'
    Local $test, $testCopy

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

    While 1
    $test = Ping($ip)
    If $test <> $testCopy Then _FileWriteLog('log.txt', 'Neuer Status: '&$test)
    $testCopy = $test
    Sleep(10000)
    WEnd

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

  • Ordnersuche - oder sowas ähnliches

    Hab mal was gebastelt:

    Spoiler anzeigen
    [autoit]

    #include <GuiListBox.au3>
    #include <WindowsConstants.au3>
    #include <File.au3>

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

    Local $Ordner = 'C:\Programme'
    Local $TempFile = _TempFile()
    Global $aOrdner

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

    RunWait(@ComSpec & " /c " & 'dir "'&$Ordner&'" /ad /b > "'&$TempFile&'"', "", @SW_HIDE)
    _FileReadToArray($TempFile, $aOrdner)
    FileDelete($TempFile)

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

    Opt('GUIOnEventMode', 1)

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

    GUICreate('Schnelle Ordnerauswahl by funkey', 400, 600, -1, -1)
    GUISetOnEvent(-3, '_Ende')
    GUIRegisterMsg($WM_COMMAND, "_Check_Eingabe")

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

    Global $Input = GUICtrlCreateInput('', 10, 10, 380, 20)
    GUICtrlSetOnEvent(-1, '_Open_Ordner')
    Global $List = GUICtrlCreateList('', 10, 40, 380, 560)
    Global $hList = GUICtrlGetHandle(-1)

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

    For $i = 1 To $aOrdner[0]
    GUICtrlSetData(-1, $aOrdner[$i])
    Next

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

    GUISetState()

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

    While 1
    Sleep(100000)
    WEnd

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

    Func _Check_Eingabe($hWnd, $Msg, $wParam, $lParam)
    _GUICtrlListBox_SetCurSel($hList, _GUICtrlListBox_FindString($hList, GUICtrlRead($Input)))
    EndFunc

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

    Func _Open_Ordner()
    If GUICtrlRead($List) <> "" Then ShellExecute($Ordner & '\' & GUICtrlRead($List))
    EndFunc

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

    Func _Ende()
    Exit
    EndFunc

    [/autoit]

  • __ArrayMinMax2D

    Das hab ich jetzt mal gebraucht. Aus einem 2-Dimensionalen Array kann der kleinste oder der größte Wert einer Spalte zurückgegeben werden.

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>

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

    Local $array2D[5][3] = [[6,2,3],[2,4,3],[7,3,1],[14,5,2],[6,3,7]]

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

    _ArrayDisplay($array2D)
    MsgBox(0,"Max", __ArrayMinMax2D($array2D, 1, 1))

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

    Func __ArrayMinMax2D($a2D, $iSubItem = 0, $iFlag = 0)
    ; funkey
    ; iFlag --> 0 : Return Min
    ; --> 1 : Return Max
    If UBound($a2D, 0) = 1 Then Return SetError(5, 0, 0)
    Local $aCopy = $a2D
    _ArraySort($aCopy, $iFlag, 0, 0, $iSubItem)
    Return SetError(@error, 0, $aCopy[0][$iSubItem])
    EndFunc

    [/autoit]

  • Bild "einfliegen" lassen

    Wie genau soll das aussehen? Reicht das?

    Spoiler anzeigen
    [autoit]

    Global Const $AW_FADE_IN = 0x00080000 ;fade-in
    Global Const $AW_FADE_OUT = 0x00090000;fade-out
    Global Const $AW_SLIDE_IN_LEFT = 0x00040001 ;slide in from left
    Global Const $AW_SLIDE_OUT_LEFT = 0x00050002 ;slide out to left
    Global Const $AW_SLIDE_IN_RIGHT = 0x00040002 ;slide in from right
    Global Const $AW_SLIDE_OUT_RIGHT = 0x00050001 ;slide out to right
    Global Const $AW_SLIDE_IN_TOP = 0x00040004 ;slide-in from top
    Global Const $AW_SLIDE_OUT_TOP = 0x00050008 ;slide-out to top
    Global Const $AW_SLIDE_IN_BOTTOM = 0x00040008 ;slide-in from bottom
    Global Const $AW_SLIDE_OUT_BOTTOM = 0x00050004 ;slide-out to bottom
    Global Const $AW_DIAG_SLIDE_IN_TOPLEFT = 0x00040005 ;diag slide-in from Top-left
    Global Const $AW_DIAG_SLIDE_OUT_TOPLEFT = 0x0005000a ;diag slide-out to Top-left
    Global Const $AW_DIAG_SLIDE_IN_TOPRIGHT = 0x00040006 ;diag slide-in from Top-Right
    Global Const $AW_DIAG_SLIDE_OUT_TOPRIGHT = 0x00050009 ;diag slide-out to Top-Right
    Global Const $AW_DIAG_SLIDE_IN_BOTTOMLEFT = 0x00040009 ;diag slide-in from Bottom-left
    Global Const $AW_DIAG_SLIDE_OUT_BOTTOMLEFT = 0x00050006 ;diag slide-out to Bottom-left
    Global Const $AW_DIAG_SLIDE_IN_BOTTOMRIGHT = 0x0004000a ;diag slide-in from Bottom-right
    Global Const $AW_DIAG_SLIDE_OUT_BOTTOMRIGHT = 0x00050005 ;diag slide-out to Bottom-right
    Global Const $AW_EXPLODE = 0x00040010 ;explode
    Global Const $AW_IMPLODE = 0x00050010 ;implode

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

    Func _WinAnimate($v_gui, $i_mode, $i_duration = 1000)
    DllCall("user32.dll", "int", "AnimateWindow", "hwnd", WinGetHandle($v_gui), "int", $i_duration, "long", $i_mode)
    Local $ai_gle = DllCall('kernel32.dll', 'int', 'GetLastError')
    If $ai_gle[0] <> 0 Then
    SetError(1)
    Return 0
    EndIf
    Return 1
    EndFunc ;==>_WinAnimate

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

    #include <WindowsConstants.au3>

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

    Global $hGui = GUICreate('Test Slide-Show', @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
    GUICtrlCreatePic(@DocumentsCommonDir & '\Eigene Bilder\Beispielbilder\Winter.jpg', 0, 0, @DesktopWidth, @DesktopHeight, 0)

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

    _WinAnimate($hGui, $AW_SLIDE_IN_BOTTOM, 3000)
    GUISetState()

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

    Do
    Until GUIGetMsg() = -3

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

  • Item von Listbox kopieren

    Hatte mich verlesen.- Mit der linken Maustaste geht es ja viel einfacher als mit der rechten. Du hast es ja fast selbst geschafft. :thumbup: Deswegen wollte ich auch dein Skript sehen.

    Spoiler anzeigen
    [autoit]

    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <ListBoxConstants.au3>
    #include <WindowsConstants.au3>

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

    $Form1 = GUICreate(" ?!phazoR (ò_ó)=@)x_X)", 169, 156, 232, 246, -1, BitOR($WS_EX_TOOLWINDOW,$WS_EX_WINDOWEDGE,$WS_EX_TOPMOST))
    $wndedit = GUICtrlCreateEdit("", 8, 80, 137, 69, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN))
    $wndlist = GUICtrlCreateList("", 8, 8, 137, 69, BitOR($LBS_SORT,$WS_VSCROLL))
    GUICtrlSetData(-1, "Test1|Test2")
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $wndlist()
    ;bei klick item adden (funzt aber nicht .___.
    $text = GuiCtrlRead($wndlist)
    ;~ GuiCtrlSetData($wndedit, GUICtrlRead($wndedit) & $text) ;ohne Enter
    GuiCtrlSetData($wndedit, GUICtrlRead($wndedit) & $text&@CRLF) ;mit Enter
    EndSwitch
    WEnd

    [/autoit]

    Hoffe, du meinst es so.

  • _IE_Problem

    Ich hab dir mal ein Anmeldeskript dafür geschrieben! Du hättest aber ruhig ein bischen länger die Suche benützen dürfen, da es hier im Forum genügend Beispiele dazu gibt. Außerdem hättest du auch deinen unvollständigen Code posten können, damit du in Zukunft deinen (ausgebesserten) Code benützt und nicht meinen. X(

    Spoiler anzeigen
    [autoit]

    #include <IE.au3>

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

    $Server = 2 ; 1 = Alfa, 2 = Bravo, 3 = Charlie
    $Name = 'funkey'
    $Passwort = 'passwort'

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

    $oIE = _IECreate('http://desertblitz.de/login.php')
    $oForm = _IEFormGetObjByName($oIE, "formLogin")
    $oServer = _IEFormElementGetObjByName($oForm, 'server')
    $oName = _IEFormElementGetObjByName($oForm, 'username')
    $oPwd = _IEFormElementGetObjByName($oForm, 'password')
    _IEFormElementOptionSelect($oServer, 's'&$Server&'.desertblitz.de')
    _IEFormElementSetValue($oName, $Name)
    _IEFormElementSetValue($oPwd, $Passwort)
    _IEFormSubmit($oForm)

    [/autoit]