Hallo,
ich habe folgendes kleines Script geschrieben. Es soll nur die Zwischenablage auslesen und an einer bestimmten Koordinate dann via SEND reinschreiben. Also nix wildes.
AutoIt
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=rci.ico
#AutoIt3Wrapper_Outfile_x64=RemoteClipboardInput.exe
#AutoIt3Wrapper_Run_Tidy=y
#Tidy_Parameters=/reel
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
Global $clipboardText = "Platzhalter"
Global $mouseX = 0
Global $mouseY = 0
Global $gui, $label1, $button1, $label2, $label3, $button2, $label4, $label5, $button3
; Erstellen Sie die GUI
$gui = GUICreate("Remote Clipboard Input", 720, 300)
GUISetState(@SW_SHOW)
; Erstellen Sie das erste Label und den Button
$label1 = GUICtrlCreateLabel("1. Bitte den einzufügenden Text in die Zwischenablage kopieren und OK drücken", 10, 10, 480, 50)
GUICtrlSetFont(-1, 10)
$button1 = GUICtrlCreateButton("OK", 500, 10)
$label2 = GUICtrlCreateLabel("2. Der Wert auf der Zwischenablage ist: " & $clipboardText, 10, 70, 480, 50)
GUICtrlSetFont(-1, 10)
$label3 = GUICtrlCreateLabel("3. Bitte mit der Maus zu den Koordinaten fahren, wo der Zwischenablagetext eingefügt werden soll. Dann 2x die linke Maustaste drücken", 10, 130, 480, 50)
GUICtrlSetFont(-1, 10)
$button2 = GUICtrlCreateButton("Mauskoordinaten bestimmen", 500, 130)
$label4 = GUICtrlCreateLabel("4. Die gewählten Koordinaten sind: X=" & $mouseX & ", Y=" & $mouseY, 10, 190, 480, 50)
GUICtrlSetFont(-1, 10)
$label5 = GUICtrlCreateLabel("5. Zwischenablagetext " & $clipboardText & " bei den Koordinaten X=" & $mouseX & ", Y=" & $mouseY & " eintragen.", 10, 250, 480, 50)
GUICtrlSetFont(-1, 10)
$button3 = GUICtrlCreateButton("Zwischenablage Text remote übertragen", 500, 250)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then
Exit
ElseIf $msg = $button1 Then
;~ ClipPut("")
$clipboardText = ClipGet()
If $clipboardText = "" Then
$clipboardText = "NULL"
EndIf
GUICtrlSetData($label2, "2. Der Wert auf der Zwischenablage ist: " & $clipboardText)
GUICtrlSetBkColor($button1, 0x90EE90) ; Hellgrün
ElseIf $msg = $button2 Then
Local $clickCount = 0
While $clickCount < 2
If _IsPressed("01") Then ; linke Maustaste
$clickCount += 1
Sleep(200) ; Vermeiden Sie Doppelklicks
EndIf
$mousePos = MouseGetPos()
ToolTip("X: " & $mousePos[0] & ", Y: " & $mousePos[1], $mousePos[0] + 30, $mousePos[1])
Sleep(10)
WEnd
ToolTip("")
$mouseX = $mousePos[0]
$mouseY = $mousePos[1]
GUICtrlSetData($label4, "4. Die gewählten Koordinaten sind: X=" & $mouseX & ", Y=" & $mouseY)
GUICtrlSetData($label5, "5. Zwischenablagetext " & $clipboardText & " bei den Koordinaten X=" & $mouseX & ", Y=" & $mouseY & " eintragen.")
GUICtrlSetBkColor($button2, 0x90EE90) ; Hellgrün
ElseIf $msg = $button3 Then
MouseClick("left", $mouseX, $mouseY)
Sleep(500)
MouseClick("left", $mouseX, $mouseY)
WinActivate("[ACTIVE]")
Send($clipboardText & "{ENTER}")
MsgBox($MB_ICONEXCLAMATION + $MB_OK, "Fertig", "Zwischenablage Text erfolgreich übertragen.", 2)
EndIf
WEnd
Func _IsPressed($hexKey)
Local $aR = DllCall("user32", "int", "GetAsyncKeyState", "int", "0x" & $hexKey)
If Not @error And BitAND($aR[0], 0x8000) = 0x8000 Then
Return 1
Else
Return 0
EndIf
EndFunc ;==>_IsPressedWenn ich die EXE dann auf meinem Firmen PC ausführe, schlägt der Firmen Scaner an mit
Habe ich hier irgendeine Möglichkeit, den Code anzupassen, damit er als harmlos erkannt wird?
