Beiträge von gmmg

  • Mit InPutBox URL vervollständigen???

    oder so mit dropdown ...

    [autoit]


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

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

    $string = "|PC01|PC02|PC03|PC04|PC05"

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

    $Form1 = GUICreate("Beispiel", 449, 74, 192, 124)
    $ComboBox1 = GUICtrlCreateCombo("", 8, 8, 433, 21)
    GUICtrlSetData($ComboBox1, $string)
    $Button1 = GUICtrlCreateButton("starte Fernwartung", 8, 40, 433, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg

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

    Case $GUI_EVENT_CLOSE
    Exit

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

    Case $Button1
    ShellExecute(GUICtrlRead($ComboBox1) & ":Port")
    EndSwitch
    WEnd

    [/autoit]

    Natürlich kann man die PC's dann aus einer Textdatei, Excel, Datenbank oder einer anderen Datenquelle auslesen.

    gruß gmmg ;)

  • Sehr langer Text in Editbox soll nicht umbrechen - wie schaffe ich das?

    und das notepad oder notepad++ willst du nicht in die autoit gui einbinden?

    das beispiel gibt es auf autoit.de

    Spoiler anzeigen
    [autoit]


    #include <WindowsConstants.au3>
    #include <WinAPI.au3>
    #include <Constants.au3>

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

    Local $Bound = 0
    $hGUI = GUICreate("Embedded Notepad", 800, 600, -1, -1, $WS_SIZEBOX)
    $hNotepad = _GUICtrlNotepad_Create($hGUI, 5, 5, 788, 505)
    $hCount = GUICtrlCreateLabel("0 Zeilen im Notepad | Erste Buchstaben sind ''", 5, 515, 500, 100)
    GUISetState()

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

    While GUIGetMsg() <> -3
    $nBound = UBound(StringSplit(_GUICtrlNotepad_GetText($hNotepad), @CRLF, 3))
    If $nBound <> $Bound Then
    $Bound = $nBound
    GUICtrlSetData($hCount, $Bound & " Zeilen im Notepad | Erste Buchstaben sind '"&StringLeft(_GUICtrlNotepad_GetText($hNotepad),3)&"'")
    EndIf
    WEnd

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

    ; # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #

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

    Func _GUICtrlNotepad_Delete($hNote)
    Return WinClose($hNote)
    EndFunc

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

    Func _GUICtrlNotepad_Move($hNote, $iLeft, $iTop, $iWidth, $iHeight)
    _WinAPI_MoveWindow($hNote, $iLeft, $iTop, $iWidth, $iHeight, True)
    EndFunc

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

    Func _GUICtrlNotepad_SetText($hNote, $sText)
    Return ControlSetText($hNote, "", "Edit1", $sText)
    EndFunc

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

    Func _GUICtrlNotepad_GetText($hNote)
    Return ControlGetText($hNote, "", "Edit1")
    EndFunc

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

    Func _GUICtrlNotepad_Create($hParent, $iLeft, $iTop, $iWidth, $iHeight)
    $iPID = Run("C:\Program Files (x86)\Notepad++\notepad++.exe", "", @SW_MINIMIZE)
    WinWait("[class:Notepad++]")
    $hNotepad = _WinGetByPID($iPID)
    _WinAPI_SetParent($hNotepad, $hParent)
    _WinAPI_MoveWindow($hNotepad, $iLeft, $iTop, $iWidth, $iHeight, True)
    _WinAPI_SetWindowLong($hNotepad, $GWL_STYLE, $WS_POPUP + $WS_VISIBLE)
    WinSetState($hNotepad, "", @SW_SHOW)
    Return $hNotepad
    EndFunc

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

    Func _WinGetByPID($iPID) ; 0 Will Return 1 Base Array & 1 Will Return The First Window.
    Local $aError[1] = [0], $aWinList, $sReturn
    If IsString($iPID) Then
    $iPID = ProcessExists($iPID)
    EndIf
    $aWinList = WinList()
    For $A = 1 To $aWinList[0][0]
    If WinGetProcess($aWinList[$A][1]) = $iPID And BitAND(WinGetState($aWinList[$A][1]), 2) Then
    Return $aWinList[$A][1]
    $sReturn &= $aWinList[$A][1] & Chr(1)
    EndIf
    Next
    If $sReturn Then
    Return StringSplit(StringTrimRight($sReturn, 1), Chr(1))
    EndIf
    Return SetError(1, 0, $aError)
    EndFunc ;==>_WinGetByPID

    [/autoit]

    gruß gmmg

  • Forum-Umstellung Problemsammlung

    hallo zusammen,

    mir ist eben etwas aufgefallen!
    die Konversationen, auf die noch nicht geantwortet wurde, werden aktuell nicht angezeigt.
    erst mit klick auf alle Konversationen anzeigen, listet diese auf. das ist schon doof, weil man ja eigentlich die neuesten sehen will, auch die, auf die es keine antwort gibt.

    gruß gmmg

  • Passwort verschlüsseln / auslagern

    1. erstmal könntest du eine Sicherheitsgruppe erstellen, in der die User Mitglied sind, die das Script benutzen sollen (Script in eine Freigabe legen) damit haben nur die Personen Zugriff, die das Script benutzen sollen.
    2. ich baue dann den Hash auch immer in mein Script direkt ein.

    Beispiel:

    [autoit]


    $pwd = "1234567890abcdefghijklmnop"

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

    $1 = "37D67DFCA5D79CBE438964876BB80E3A9FCB74CE9A0B23406AC691D6B9B787"
    $2 = "37D67DFCA5D79CBE438964876BB80E3A9FCB74CE9A0B23406AC691D6B9B787"

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

    Local $USER = _StringEncrypt(0, $1, $pwd, 4)
    Local $PASS = _StringEncrypt(0, $2, $pwd, 4)

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

    Sicher kann man das auch entschlüsseln, aber für den 0815 User erstmal nicht so einfach :)
    Die IT Richtlinien Regeln da ja auch noch einige Dinge.

    Gruß
    gmmg

  • intelligentes Kopieren von Ordnerinhalten

    ich selbst benutze robocopy und die entsprechenden Parameter

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

    ;d:\ = source
    ;g:\ = destination

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

    ;Beispiel 1
    D:\Tools\robocopy.exe "D:" "G:" /E /ZB /mir /COPY:DAT /R:0 /W:0

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

    ;Beispiel 2
    D:\Tools\robocopy.exe "D:\daten\scripte" "G:\backup\scripte" /E /ZB /mir /COPY:DAT /R:0 /W:0

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

    gruß gmmg

  • Überprüfen ob die Calc-Datei vollständig geladen wurde

    The Dim/Local/Global keywords perform similar functions:
    1. Declare a variable before you use it (similar to VBScript)
    2. Create an array

    ich habe eine array create auch noch nie benutzt, sondern immer in verbindung mit "_array_add" eins erstellt!

    beispiel

    [autoit]


    #include <Array.au3>
    Local $avArray[0]
    _ArrayAdd($avArray, "eintrag1")
    _ArrayDisplay($avArray, "$avArray AFTER _ArrayAdd()")

    [/autoit]

    gruß gmmg

  • Zeichensatz Problem

    hatte eben auch so ein problem mit einem sql file!

    habe es mit fileopen + parameter gelöst ... eventuell hilft das ja bei deinem problem weiter ...

    [autoit]


    $hFileOpen = FileOpen($file, 16384)
    If $hFileOpen = -1 Then
    MsgBox(0, "", "An error occurred when reading the file.",1)
    Return False
    EndIf
    $aRecords = FileReadToArray($hFileOpen)
    _ArrayDisplay($aRecords)
    FileClose($hFileOpen)

    [/autoit]

    gruß gmmg ;)

  • Word .DOCX

    aus dem englischen forum ...

    bei mir funktioniert das ...

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

    $oWord = _Word_Create(1)
    $oDoc = _Word_DocAdd($oWord)
    _Word_DocSaveAs($oDoc, "d:\Word_Test2",12)
    _Word_Quit($oWord)

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

    gruß gmmg

  • _IEAction auf ObjID geht nicht

    benutze doch mal zum auslesen firefox und das plugin firebug ...

    eventuell kannst du das nach dem login gleich so aufrufen, dass er den reiter shiftplan lädt ..
    über _IENavigate ($oIE, "http://url zum ziel.aspx")
    oder
    _IEImgClick ($oIE, "http://url zum ziel bild auf dem tab.png")
    oder
    _IELinkClickByText ($oIE, "angezeigter text des tabsl")

    du kannst versuchen auch mit Send (tab) zu arbeiten ...

    Ist die Software von Teletrain / Witness?

    gruß gmmg ;)