Beiträge von Kev

Kev

Hat sich erledigt, Grund war ein Internet Explorer Patch von Microsoft.
Fragt mich nicht welcher...

Kev

ändert leider auch nichts. es wird alle sekunde versucht den IE aufzubauen aber das wars.

Console spuckt dementsprechend aus...

--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)
--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)

Kev

Ahoi,

seid letzter Woche möchte mein AutoIt nicht mehr mit folgender auch oben genannten Fehlermeldung.

--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)

eigentlich funktioniert nur das _IEcreate nicht mehr. Include ist drin, eben nochmal autoit updated, immernoch der gleiche Fehler.

Jemand eine iDee?

Grüße

Kev

Die Sache ist ich weiß ja leider nicht was sich geändert hat.

Es können werte dazugekommen sein, dann möchte ich wissen welche.
Es können werte verschwinden, is mir egal.
Es können sich werte ändern, möchte ich wissen.

Bin hier seit stunden am verzweifeln

Kev

ich bin zu blöd irgendwie...

versuche es grad mit arraysearch

AutoIt

$xD = _Array_Compare2D($vorhanden,$neu)


	if UBound($xD) <> "" then
		_GUICtrlListView_DeleteAllItems($hListView)
		for $i = 0 to Ubound($host) -1
			GUICtrlCreateListViewItem($status[$i] & "|" & $host[$i] &"|" & $servicehost[$i]& "|" &  $service[$i],$hListView)
		Next
		if StringTrimRight($xD[0][1],2) < StringTrimRight($xD[0][2],2) Then

			for $s = 0 to UBound($neu)
			$tests = _ArraySearch($vorhanden,$neu[$s][0])
			if $tests = @error then
				msgbox(0,"",$neu[$s][0] & " ist neu - in zeile " & $s)
			Endif
			Next
		EndIf

Alles anzeigen

Kev

Hi zusammen,

folgende Problematik:

Ich greife Nagios (Monitoring) Daten ab welche ich in einer Listview abbilde.
Habe dann eine Updatefunktion welche alle Items die in der Listview sind mit Host|Nachricht in ein 2D Array klatscht.
im selben moment wird in ein anderes 2 Array mit Host|Nachricht die neuen Nagios Nachrichten geschrieben.

Jetzt vergleiche ich beide auf unterschiede damit ich die Listview dann leeren kann und neu auffüllen bei unterschieden.
Klappt alles super, würde nur gerne genau wisssen welche Items neu dazugekommen sind.
Das gibt die Funktion leider nicht her.

Bekomme bei einem Unterschied lediglich "-1" und die Anzahl der Elemente:

Example #2: in case the arrays sizes are different: $a1 size = 3x2 , $a2 size = 1x2
; the return array will be:
; +---+---+---+
; | -1|3x2|1x2|
; +---+---+---+

Jemand eine Idee?

Danke !

AutoIt

; #FUNCTION# ====================================================================================================================
; Name ..........: _Array_Compare2D
; Description ...: Compares the first two diemnsions of two input arrays.
; Syntax.........: _Array_Compare2D($a1,$a2)
; Parameters ....: $a1,$a2 - two 2D arrays.
; Return values .: An array of size [n+1][3], where n is the number of differences, and the columns are:
;                  rows 1..n:
;                    cell position (zero-based) | value in $a1 | value in $a2
;                  row 0:
;                    cell [0][0] holds the number of differences, 0 means no differences, -1 means some mismatch between the arrays sizes or dimensions.
;                    cell [0][1] holds the sizes of dimensions of $a1 (only 1st two dimentions)
;                    cell [0][2] holds the sizes of dimensions of $a2 (only 1st two dimentions)
;                  an array is always returned, even when an error occurs - see "Remarks" section hereunder.
; Author ........: orbs
; Modified ......:
; Remarks .......: input variables, 1D arrays, or arrays different in sizes, are handled as described in the "Return values" section above, also see Exmple #2 hereunder
;                  to use this function as boolean indication (arrays are either identical or not), check cell [0][0] of the return array:
;                    arrays are identical only when cell [0][0] holds 0.
;                  Example #1: in case the arrays are of size 8x7 and are identical except of:
;                    $a1[3][1]='ABC' and $a2[3][1]='DEF'
;                    $a1[5][6]='123' and $a2[5][6]='456'
;                  the return array will be:
;                    +---+---+---+
;                    | 2 |8x7|8x7|
;                    +---+---+---+
;                    |3x1|ABC|DEF|
;                    +---+---+---+
;                    |5x6|123|456|
;                    +---+---+---+
;                  Example #2: in case the arrays sizes are different: $a1 size = 3x2 , $a2 size = 1x2
;                  the return array will be:
;                    +---+---+---+
;                    | -1|3x2|1x2|
;                    +---+---+---+
;                  note: 1D array of size 3 will be noted as 3x0, a variable will be noted as an array of size 0x0
; Related .......:
; Link ..........:
; Example .......:
; ===============================================================================================================================
Func _Array_Compare2D($a1, $a2)
    ; declare
    Local $a3[1][3] ; will be filled and returned <<<<<<<<<<< Don't use Dim
    Local $n = 0 ; the number of differences
    Local $i, $j ; loop index variables
    ; init
    $a3[0][0] = 0
    $a3[0][1] = UBound($a1, 1) & 'x' & UBound($a1, 2)
    $a3[0][2] = UBound($a2, 1) & 'x' & UBound($a2, 2)
    ; precheck sizes and dimensions
;~  If UBound($a1, 2) = 0 Or _                 ; $a1 is 1D array
;~          UBound($a2, 2) = 0 Or _                ; $a2 is 1D array
;~          UBound($a1, 3) > 0 Or _                ; $a1 is 3D array or more
;~          UBound($a2, 3) > 0 Or _                ; $a2 is 3D array or more
;~          UBound($a1, 1) <> UBound($a2, 1) Or _   ; size of 1st dimension is different
;~          UBound($a1, 2) <> UBound($a2, 2) Then ; size of 2nd dimension is different
;~      $a3[0][0] = -1
;~      Return $a3
;~  EndIf
    If UBound($a1, 0) <> 2 Or (Ubound($a1, 1) <> Ubound($a2, 1)) Or (Ubound($a1, 2) <> Ubound($a2, 2)) Then
        $a3[0][0] = -1
    Else
        ; compare
        For $i = 0 To UBound($a1, 1) - 1
            For $j = 0 To UBound($a1, 2) - 1
                If $a1[$i][$j] <> $a2[$i][$j] Then
                    $n += 1
                    If $n >=  UBound($a3, 1) Then ReDim $a3[$n + 1000][3] ; Don't ReDim so often, large arrays would seriously slow this down otherwise
                    $a3[0][0] = $n
                    $a3[$n][0] = $i & 'x' & $j
                    $a3[$n][1] = $a1[$i][$j]
                    $a3[$n][2] = $a2[$i][$j]
                EndIf
            Next
        Next
        ReDim $a3[$n][3]
    EndIf
    ; return
    Return $a3
EndFunc   ;==>_Array_Compare2D

Alles anzeigen

Kev

Ahoi,

ich habs leider mit dem Replace und Reg nie wirklich gerafft, habe jetzt volgende Problematik.
Möchte alle Zahlen sowie Nummern aus einem String entfernen.

Habe zb.

CRITICAL: 2015.09.11:CN=wac.cel.firma.de, OU=IT Service GmbH, O=KPMG AG, L=Berlin, S=Berlin, C=DE#

da muss einfach alles weg damit nur die Buchstaben bleiben.

Jemand ne Idee?

Kev

push

Kev

Hey,

die Twitter UDF scheint seit APi 1.1 nicht mehr zu laufen. Das Authentifizierungsfenster schließt sich nicht weil der Token nicht übergeben wird.
Jemand ne Idee?

Bräuchte die Funktionen...

https://www.autoitscript.com/forum/topic/116600-twitter-udf/

Grüße

Kev

Hallo Bernd,

dank dir ! scheint soweit zu funktionieren, jedoch weiß ich nicht wie ich beim starten der Powershell gleichzeitig eine .ps1 Datei aufrufe.
Daher habe ich es mit StdinWrite versucht, jedoch ohne erfolg.

Eine Idee?

Danke !

Spoiler anzeigen

[autoit]

#include <Constants.au3>

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

$PID = Run(@SystemDir & "\WindowsPowerShell\v1.0\powershell.exe -NoLogo -Command -", @SystemDir, @SW_SHOW, $STDIN_CHILD + $STDOUT_CHILD + $STDERR_CHILD)

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

StdinWrite($PID,".\" &@ScriptDir & "\script1.ps1 " & "58444" & " 1431047" & " Password" &@crlf)
;StdinWrite($PID, "exit" & @CRLF)

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

$szOut = ""
While 1
$szOut &= StdoutRead($PID)
ConsoleWrite($szOut & @CRLF)
if @error Then ExitLoop

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

sleep(100)
WEnd

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

ConsoleWrite($szOut & @CRLF)

[/autoit]

Kev

Guten Tag,

bitte äußere dein tiefes Verlangen incl. Darstellung deines Sources doch jederzeit hier im publizierter Form im Forum, damit jeder auf dich einwirken kann.

Vielen Dank

Kev

jop damit gehts...

[autoit]

Func _PowerShell_Command($sCommand)
global $iPID = Run(StringFormat('"%s" "%s"', 'C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe', $sCommand), @ScriptDir, @SW_Hide, 0x2)
EndFunc ;==>_PowerShell_Command

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

Func check()
if ProcessExists("powershell.exe") then
global $sOut
$sOut &= StdoutRead($iPID)
if GUICtrlRead($test) <> $sOut then
GUICtrlSetData($test, $sOut)
Endif
Endif

[/autoit]

Andere Frage, wenn das Fenster "hidden" ist, kann ich irgendwie über die PID einen String übergeben? bzw. Tasteneingaben?
Also nicht über Control sondern wirklich über die PID

Kev

$sCommand ist bei mir ein .ps1 script was aktiv bleibt.

dein Tree D:\ wird executed und ist dann aus, daher geht es.

sagen wir mal du hastn $sCommand= Tree D:\ was nie aufhört aufzulisten...dann weil der inhalt sich immer ändert... dann hängt bei dir auch die gui durch

Kev

stimmt, das macht keinen sinn.

bringt mir aber auch nichts, da die powershell keinen @error zurückgibt, weil sie sich nicht schließt.

der liest ja bis es nichts mehr zu lesen gibt, da es aber immer was zu lesen gibt, is das ding immer in der do-schleife und somit hängt die GUI durch.

Kev

Hi,

ich lese eine Powershell aus und möchte diese in meiner Gui live abbilden. bzw den Inhalt darstellen.
Folgendes Script benutzte ich:

[autoit]

Func _PowerShell_Command($sCommand)
Local $iPID = Run(StringFormat('"%s" "%s"', 'C:\Windows\System32\WindowsPowerShell\v1.0\powershell.exe', $sCommand), @ScriptDir, @SW_HIDE, 0x2)
Local $sOut

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

Do
$sOut &= StdoutRead($iPID)
Guictrlsetdata($test,$sOut) ;auslesen und in mein Inputfeld
sleep(500)

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

Until @error

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

StdioClose($iPID)

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

Return $sOut
EndFunc ;==>_PowerShell_Command

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

Problematik ist nur, dass die Powershell offen bleibt und auf Eingabe wartet, was bedeutet, dass der die Ganze Zeit liest und somit die ganze Zeit in der Do-Schleife hängt, was meine Ganze GUI lahmlegt. Jemand ne Idee?

Grüße

Kev

Hi,

folgende Problematik, ich würde gerne auf einem Remote PC incl. Authentifizierung die deaktivierten DIenste auslesen. Leider scheint die Connection mit meinem String nicht zu funktionieren:

Jemand eine Idee?

[autoit]

#include <String.au3>
#include <Array.au3>
$AUTHPASS = "pw"
$AUTHLOGIN = "domain\acc"
$sSC_hostname="FQDN"
$sSC_output=@TempDir&'\SCoutput.txt'
FileDelete($sSC_output)
RunWait(@ComSpec&' /c sc.exe \\'&$sSC_hostname& '-u ' & $AUTHLOGIN & _
' -pw ' & $AUTHPASS &' query state= inactive > "'&$sSC_Output&'"','',@SW_SHOW)
$sSC_content=FileRead($sSC_Output)
$aStoppedServicesList=_StringBetween($sSC_content,'DISPLAY_NAME: ',@CRLF)
_ArrayDisplay($aStoppedServicesList)

[/autoit]

Hab mich am Beispiel von Comspec orientiert:..

[autoit]

$E = RunWait(@ComSpec & ' /c ""' & @TempDir & '\~blattmp.exe" "' & $TEXT & _
'" -to ' & $DEST & ' -binary -server ' & $SMTPSERVER & ' -log ' & @TempDir & _
'\~maillog.txt -timestamp -f ' & $SENDER & $SUBJECT & '-u ' & $AUTHLOGIN & _
' -pw ' & $AUTHPASS & '"', @TempDir, @SW_HIDE)

[/autoit]

Edit Raupi: Geschlossen auf Wunsch von Threadersteller

Kev

push...

keine lustn thread aufzumachen.

würde gerne beim $LBN_SELCHANGE ermitteln welches item ich grad angeklickt habe. am besten direkt den text bekommen per selection id, aber irgendwie möchte das nicht.

[autoit]

Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg
Local $hWndFrom, $iIDFrom, $iCode, $hWndListBox
If Not IsHWnd($g_hListBox) Then $hWndListBox = GUICtrlGetHandle($g_hListBox)
$hWndFrom = $lParam
$iIDFrom = BitAND($wParam, 0xFFFF) ; Low Word
$iCode = BitShift($wParam, 16) ; Hi Word
Switch $hWndFrom
Case $g_hListBox, $hWndListBox
Switch $iCode
Case $LBN_SELCHANGE ; Sent when the selection in a list box has changed
$x = _GUICtrlListBox_GetSelItemsText($g_hListBox)
msgbox(0,"",$x[1])
EndSwitch
EndSwitch
; Proceed the default AutoIt3 internal message commands.
; You also can complete let the line out.
; !!! But only 'Return' (without any value) will not proceed
; the default AutoIt3-message in the future !!!
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND

[/autoit]

hat sich erledigt ! habs.

[autoit]

Case $LBN_SELCHANGE ; Sent when the selection in a list box has changed)
$id = _GUICtrlListBox_GetAnchorIndex($g_hListBox)
$x =_GUICtrlListBox_GetText($g_hListBox,$id)
msgbox(0,"",$x)

[/autoit]

Kev

Moin,

ich habe eine Excel Liste mit Namen, die ich gerne in einer Forschleife durch folgende Abfrage jagen möchte:

[autoit]

#include <OutlookEX.au3>

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

Global $oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

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

Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress
MsgBox(0, "Name", $sCurrentUser)

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

_OL_Close($oOutlook)

[/autoit]

geht darum nicht den aktuellen user sondern den angegeben nutzer der forschleife abzufragen um die email adresse zu erhalten.
Global $sCurrentUser = $oOutlook.GetNameSpace("MAPI").CurrentUser.AddressEntry.GetExchangeUser.PrimarySmtpAddress

Hier müsste irgendwie die variable rein glaub ich, sprich der Nachname, Vorname des Nutzers oder wie auch immer.
Jemand ne idee?

Grüße

Kev

Kev

Habs anders gelöst, dennoch thx.

Kev

push

evtl damit was machbar?

http://notepad-plus-plus.org/contribute/plugin-howto.html
https://github.com/larshall/xbtfextractor

...

hab dann noch mit tools das hier rausbekommen:

;==========================================================================
; Generated with PureDLLHelper, Copyright ©2012 by Thomas <ts-soft> Schulz
;==========================================================================

PrototypeC beNotified()
PrototypeC getFuncsArray()
PrototypeC getName()
PrototypeC isUnicode()
PrototypeC messageProc()
PrototypeC setInfo()

Global beNotified.beNotified
Global getFuncsArray.getFuncsArray
Global getName.getName
Global isUnicode.isUnicode
Global messageProc.messageProc
Global setInfo.setInfo

Procedure.i XbmcSkinPlugin_LoadDLL()
Protected hDLL.i

hDLL = OpenLibrary(#PB_Any, "XbmcSkinPlugin.dll")
If hDLL <> 0
beNotified = GetFunction(hDLL, "beNotified")
getFuncsArray = GetFunction(hDLL, "getFuncsArray")
getName = GetFunction(hDLL, "getName")
isUnicode = GetFunction(hDLL, "isUnicode")
messageProc = GetFunction(hDLL, "messageProc")
setInfo = GetFunction(hDLL, "setInfo")

ProcedureReturn hDLL
EndIf

ProcedureReturn #False
EndProcedure

Beiträge von Kev

--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)

--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)

--> IE.au3 T3.0-2 Error from function _IECreate, (Browser Object Creation Failed)

_Array_Compare2D erweitern

_Array_Compare2D erweitern

_Array_Compare2D erweitern

StringRegReplace

Twitter UDF

Twitter UDF

Powershell auslesen

Möchte bitte Hilfe zur Programmierung.

Powershell auslesen

Powershell auslesen

Powershell auslesen

Powershell auslesen

Comspec / Remote Service auslesen

Klick bei ListBox ermitteln

Outlook UDF - Mail Adresse by Name

.xbt entpacken mit dll

.xbt entpacken mit dll