Beiträge von Kev

Kev · 20. November 2019

Zitat von BugFix

Beschwer dich bei den hirnbefreiten Skriptkiddies, die AutoIt für Virenbastelei etc. pp. missbrauchen! Dadurch werden AutoIt-Exe'n pro Forma als gefährlich eingestuft.
Ich umgehe das, indem ich meine Skripte nicht kompiliere, sondern mit der AutoIt3.exe aufrufe (diese wird von Virenprogrammen als sauber betrachtet).
Running Scripts: AutoIt3.exe [/ErrorStdOut] [/AutoIt3ExecuteScript] filename [params ...]

ist für mich leider keine option in dem fall. bleibt nichts anderes als falsepositive submit...

finds einfach schade. thema kann zu.

Kev · 20. November 2019

ändert nichts, egal ob 32 bit / 64 bit, mit und ohne upx. immer das selbe...

für derartigen code ... ohne includes.

find ich halt schon lächerlich, kann ich gleich in die tonne treten wenn sowas einfaches schon als virus von ALLEM erkannt wird.

Kev · 20. November 2019

Code

#NoTrayIcon
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=..\..\Users\e1103468\Desktop\Iconshock-Cms-User-login.ico
#AutoIt3Wrapper_Outfile=tool.exe
#AutoIt3Wrapper_UseUpx=y
#AutoIt3Wrapper_UseX64=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****


Global Const $GUI_EVENT_CLOSE = -3

$date = @MDAY & "." & @MON & "." & @YEAR & @crlf & @HOUR & ":" & @MIN & ":" & @sec & " Uhr"
Example()
Func Example()
    ; Create a GUI with various controls.
    Local $hGUI = GUICreate("Dont log off",250,50)
    Local $idOK = GUICtrlCreateButton("Beenden", 10, 10, 85, 25)

    Guictrlcreatelabel($date,130,10,100,25)
    ; Display the GUI.
    GUISetState(@SW_SHOW, $hGUI)

    ; Loop until the user exits.
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE, $idOK
                ExitLoop

        EndSwitch
    WEnd

    ; Delete the previous GUI and all controls.
    GUIDelete($hGUI)
EndFunc   ;==>Example

Alles anzeigen

Kev · 4. Oktober 2019

muss man erstmal draufkommen, hab wirklich etliche advancedsettings durchgetestet.

das allerdings seh ich zum ersten mal

Kev · 4. Oktober 2019

Meine F.....

endlich !

in dem Stackoverflow Beitrag weiter unten gibt es eine Advancedsetting.

Die habe ich in au3 gesetzt und evoila es funktioniert.

Setting für Server 2016+ und Win10.

$oRDP.AdvancedSettings9.EnableCredSspSupport = True

danke water für deine Hilfe !

Kev · 4. Oktober 2019

Merkwürdig, aber dann würde die RDP verbindung ja per normalem mstsc auch nicht funktionieren, was ja der Fall ist?

hab das securitylevel runtergestellt und den server rebooted. jedoch ohne erfolg, komme über autoit nicht auf den server.

Kev · 4. Oktober 2019

Zitat

+>Setting Hotkeys...--> Press Ctrl+Alt+Break to Restart or Ctrl+Break to Stop
Connecting
Return Value:
** Connecting Event raised by MsRdpClient8NotSafeForScripting **
** Disconnected Event raised by MsRdpClient8NotSafeForScripting **
+>13:54:35 AutoIt3.exe ended.rc:0
+>13:54:35 AutoIt3Wrapper Finished.
Process exited with code 0

Alles anzeigen

script läuft 4 sec, keine msgbox, kein error nix, nur weißes bild mit disconnected status

Kev · 4. Oktober 2019

merci ! leider wie auch davor, kein @error event.

gui geht auf, disconnected from xxxxx

ohne fehler, ohne event, ohne irgendwas...

bin echt am verzweifeln

Kev · 4. Oktober 2019

C

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

Global $__g_oTemplateCOMErrorHandler = 0


$host = ""
$hGUI = GUICreate("RDP Embedded Sessions", 952, 675, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$oRDP = ObjCreate("MsTscAx.MsTscAx.10")
$oRDP_Ctrl = GUICtrlCreateObj($oRDP, 64, 44, 800, 600)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetStyle($oRDP_Ctrl, $WS_VISIBLE)
$oRDP.DesktopWidth = 800
$oRDP.DesktopHeight = 600
$oRDP.Fullscreen = False
$oRDP.ColorDepth = 16
$oRDP.AdvancedSettings3.SmartSizing = True
Template_COMErrorRegister()
$oRDP.Server = $host
If @error Then MsgBox(4096, "COM Error Detected", @error)
Template_COMErrorUnregister()
Template_COMErrorRegister()
$oRDP.UserName = ""
If @error Then MsgBox(4096, "COM Error Detected", @error)
Template_COMErrorUnregister()
Template_COMErrorRegister()
$oRDP.Domain = ""
If @error Then MsgBox(4096, "COM Error Detected", @error)
Template_COMErrorUnregister()
Template_COMErrorRegister()
$oRDP.AdvancedSettings2.ClearTextPassword = ""
If @error Then MsgBox(4096, "COM Error Detected", @error)
Template_COMErrorUnregister()
$oRDP.ConnectingText = "Connecting to " & $host
$oRDP.DisconnectedText = "Disconnected from " & $host
$oRDP.StartConnected = True
$oRDP.RemoteProgramMode = True

Template_COMErrorRegister()
$oRDP.Connect()
If @error Then MsgBox(4096, "COM Error Detected", @error)
Template_COMErrorUnregister()


GUISetState(@SW_SHOW, $hGUI)


;~ $oRDP.ServerStartProgram ('')

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

            Exit
    EndSwitch

WEnd


Func Template_COMErrorRegister()
    $__g_oTemplateCOMErrorHandler = ObjEvent("AutoIt.Error", "Template_COMErrFunc")
EndFunc   ;==>Template_COMErrorRegister

Func Template_COMErrorUnregister()
    $__g_oTemplateCOMErrorHandler = 0
EndFunc   ;==>Template_COMErrorUnregister

Func Template_COMErrFunc()
    ; Do nothing special, just check @error after suspect functions.
EndFunc   ;==>Template_COMErrFunc

Alles anzeigen

Kev · 4. Oktober 2019

Hi water,

hab ich gemacht, wie im bsp2 von objevent.

leider ohne jeden fehler. es gibt keine messagebox die aufpoppt weil @error anscheinend nicht ausgelößt wird.

Kev · 2. Oktober 2019

Hallo,

ich hab das Problem, das bei einigen Servern ich keine Verbindung via. RDP Objekt in Autoit herstellen kann.

Genau definierbar ist es nicht. Es ist egal ob windows server 2019 oder 2016. Die Verbindung bleibt einfach mit nem weissen Screen hängen incl. Disconnected Text.

Per mstsc funktioniert es wunderbar, auch andere Hosts funktionieren per autoit und rdp objekt. Hab das Thema auch schon woanders gesehen, jedoch auch unbeantwortet.

Scheint irgendein Problem mit dem $ordp objekt zu sein.

Bspcode, welcher bei einigen hosts nicht funktioniert.

C

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

$host = "server"
$hGUI = GUICreate("RDP Embedded Sessions", 952, 675, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
$oRDP = ObjCreate("MsTscAx.MsTscAx.2")
$oRDP_Ctrl = GUICtrlCreateObj($oRDP, 64, 44, 800, 600)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlSetStyle($oRDP_Ctrl , $WS_VISIBLE)
$oRDP.DesktopWidth = 800
$oRDP.DesktopHeight = 600
$oRDP.Fullscreen = False
$oRDP.ColorDepth = 16
$oRDP.AdvancedSettings3.SmartSizing = True
$oRDP.Server = $host
$oRDP.UserName = "username"
$oRDP.Domain = ""
$oRDP.AdvancedSettings2.ClearTextPassword = "pw"
$oRDP.ConnectingText = "Connecting to " & $host
$oRDP.DisconnectedText = "Disconnected from " & $host
$oRDP.StartConnected = True
$oRDP.RemoteProgramMode = True

$oRDP.Connect()


GUISetState(@SW_SHOW, $hGUI)


;~ $oRDP.ServerStartProgram ('')

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

WEnd

Alles anzeigen

Kev · 17. Mai 2019

Zitat von alpines

Hast du denn die entsprechenden Rechte um die Keys überhaupt auszulesen?

ja hatte ich

Zitat von Kev

Problem gefunden. Scite f5 führt 32bit aus.

Compile 64 --> richtige keys.

Kev · 17. Mai 2019

Problem gefunden. Scite f5 führt 32bit aus.

Compile 64 --> richtige keys.

Kev · 17. Mai 2019

Remote ausgelesen:

Regedit Lokal:

Gleicher Pfad, gleicher Host.

Was zur ... ?

Kev · 17. Mai 2019

Hey,

komisches Phänomen.

Wenn ich Remote Software auslese, bekomme ich andere sSubkeys angezeigt, als wenn ich per Remote Connection auf dem Host bin oder per RDP Regedit öffne.

Jemand ne Idee woran das liegt?

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{FFD23156-E823-3074-0C3A-629A3BB1CB4A}

existiert auf dem Zielhost.

Wird aber nicht ausgelesen mit dem unten stehendem Code.

Merci

Code

func getsoftware()
$RegPath = "\\"&Guictrlread($hostnames)&"\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
    For $i = 1 To 9999
        $sSubKey = ""
        $sSubKey = RegEnumKey($RegPath, $i)

            If @error Then
                ExitLoop
            Else
                $sKey = $RegPath & "\" & $sSubKey

                $sDisplay = RegRead($sKey, "DisplayName")
                msgbox(0,"",$softwarelv)
               ; If $sDisplay <> "" Then GUICtrlCreateListViewItem($sDisplay,$softwarelv)
            EndIf
    Next
EndFunc

Alles anzeigen

Kev · 2. April 2019

dann mach doch order by date asc?

Kev · 14. März 2019

Danke euch beiden, hab die Version von Oscar genommen und etwas adaptiert.

Funktioniert 1a

Kev · 14. März 2019

Nabend,

Ich habe ne Gui mit 2x Guictrlcreatedate (von - bis) Bereich und möchte für jeden Tag in diesem Bereich einen Ordner im format dd-MM-yyyy anlegen.

Stell mich nur mit dem Monatsenden doof an, da es ja keine 40 tage gibt.

Jemand nen scriptbeispiel wie ich das umsetzen kann?

Merci

Kev · 13. Februar 2019

habs, bisschen eingerostet danke

Kev · 13. Februar 2019

ahh er crashed bei dokumente und einstellungen und dieser ist leer, ne idee wie ich das abfangen kann?

dickes danke !

Beiträge von Kev

Hab ich was verpasst? also bitte....

Hab ich was verpasst? also bitte....

Hab ich was verpasst? also bitte....

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

$oRDP - Keine Verbindung zu Server

regread installed software, andere keys?

regread installed software, andere keys?

regread installed software, andere keys?

regread installed software, andere keys?

MSSql Abfrage Datum vergleich

ordner für jeden tag eines datumbereiches

ordner für jeden tag eines datumbereiches

array is nicht befüllt?

array is nicht befüllt?