Text an scriptly übergeben

Hi, ich versuche Text aus einer GUI an scriptly zu übergeben.
http://webocton.de/

Zitat

>>>> Window <<<<
Title: Webocton - Scriptly - [C:\Program Files\EasyPHP-5.3.2i\www\CSS_Button\index.html]
Class: TformMain
Position: -4, -4
Size: 1288, 780
Style: 0x17CF0000
ExStyle: 0x00010110
Handle: 0x00C10EC0

>>>> Control <<<<
Class: TSynEdit
Instance: 2
ClassnameNN: TSynEdit2
Advanced (Class): [CLASS:TSynEdit; INSTANCE:2]
ID: 461138
Text:
Position: 184, 132
Size: 1075, 564
ControlClick Coords: 867, 120
Style: 0x56210000
ExStyle: 0x00000010
Handle: 0x00070952

Alles anzeigen

kann mir jemand helfen?

ja habe ich so gemacht.

[autoit]

ControlSetText( "Webocton", "", "TSynEdit2", "command" , "0" )

[/autoit]

nichts

nichts

Kann immer noch nicht Text an Scriptly übergeben,
auch kann ich nicht prüfen ob der Prozess überhaupt ausgeführt wird. ProcessExists()
Das Fenster Existiert, habs mit WinExists() getestet.

[autoit]

Func _pluginSetHandle()
$Fenster = WinExists("Webocton - Scriptly")
Local $Process_Exists = ProcessExists("Webocton - Scriptly") ;Gibt 0 zurück, wenn der Prozess nicht existiert.
MsgBox(0, "ProcessExists", "In dem ProcessExists stand eine: " & $Process_Exists, "5") ; und ausgegeben.

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

if ($Fenster<>0)and($read>0) then
$AHandle="1"
else
$AHandle="0"
EndIf
Return $AHandle

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

EndFunc;

[/autoit]

[autoit]

#Region# include

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

#include <ButtonConstants.au3>; System-Ereignisse werden includet
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

#EndRegion End include

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

#AutoIt3Wrapper_icon="ico.ico"
#AutoIt3Wrapper_outfile="Webocton-Scriptly_Beispielplugin_Phase5-API.exe"

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

HotKeySet("{ESC}", "Terminate")
Func Terminate()
Exit
EndFunc

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

#Region const/variablen
;Konstante Variablen deklarieren
const $cbVersion =1 ; //Aus Kompatibilitätsgründen notwendig, NICHT ändern.
const $cbComplete =2 ; //Bedeutet, das der komplette Text im Editor ersetzt werden soll.
const $cbSelection =1 ; //Bedeutet, das nur der markierte Text im Editor ersetzt werden soll.
const $cbCancel =0 ; //Bedeutet, das die Aktionen des Plugins abgebrochen wurden und nichts im Editor geändert wird.

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

Dim $formMain ; TformMain;
Dim $callBackTyp ; Integer;
Dim $callBackText = "" ; string;
Global $prozess = ""
#EndRegion End const/variablen

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

#Region ### START Koda GUI section ### Form=C:\Program Files\AutoIt3\Forms\Webtron_Scriptly_Plugin.kxf
$TformMain = GUICreate("Webocton - Scriptly Beispielplugin: Phase5-API", 493, 424, 708, 194) ; GUI wird wieder erstellt
$TMemo_Complete = GUICtrlCreateEdit("", 16, 32, 457, 89)
GUICtrlSetFont(-1, 11, 400, 0, "Courier New")
$TMemo_Selection = GUICtrlCreateEdit("", 16, 160, 457, 89)
GUICtrlSetData(-1, "")
GUICtrlSetFont(-1, 11, 400, 0, "Courier New")
$TMemo_CallBack = GUICtrlCreateEdit("", 16, 272, 457, 89)
GUICtrlSetFont(-1, 11, 400, 0, "Courier New")
$TButton_CompleteClick = GUICtrlCreateButton("Gesamten Text ersetzen", 336, 376, 131, 25, $WS_GROUP) ; Button wird erstellt, Control-ID ist $TButton_CompleteClick
$TButton_CancelClick = GUICtrlCreateButton("Abbrechen", 104, 376, 75, 25, $WS_GROUP) ; Button wird erstellt, Control-ID ist $TButton_CancelClick
$TButton_SelectionClick = GUICtrlCreateButton("'Markierten Text ersetzen'", 192, 376, 131, 25, $WS_GROUP) ; Button wird erstellt, Control-ID ist $TButton_SelectionClick
$TLabel_CallBack = GUICtrlCreateLabel("Text der zurückgegeben werden soll:", 24, 256, 179, 17)
$TLabel_Selection = GUICtrlCreateLabel("Text der im Editor markiert war:'", 24, 136, 151, 17)
$TLabel_Sel = GUICtrlCreateLabel('Die Markierung im Editor ging von " bis "', 276, 136, 195, 17)
$TLabel_Complete = GUICtrlCreateLabel("Gesamter Text aus dem Editor:", 24, 16, 149, 17)
GUISetState(@SW_SHOW) ; GUI wird angezeigt
#EndRegion ### END Koda GUI section ###

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

_pluginSetHandle("")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $TButton_CompleteClick
_buttonCompleteClick()
Case $TButton_SelectionClick
_buttonSelectionClick()
Case $TButton_CancelClick
_buttonCancelClick()
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

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

Func _buttonCompleteClick();

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

ControlShow ( "Webocton - Scriptly", "", $prozess)

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

Local $read = GUICtrlRead($TMemo_Complete) ; dann wird der Input ausgelesen,
MsgBox(0, "Gelesen", "In der Box stand: " & $read) ; und ausgegeben.
$callBackTyp = $cbComplete ;
$callBackText = GUICtrlRead ($TMemo_CallBack) ; memoCallBack.Lines.Text
Return $callBackTyp + $callBackText
EndFunc;=>_buttonCompleteClick()

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

Func _buttonSelectionClick();
Local $read = GUICtrlRead($TMemo_Selection) ; dann wird der Input ausgelesen,
MsgBox(0, "Gelesen", "In der Box stand: " & $read) ; und ausgegeben.
$callBackTyp = $cbSelection
$callBackText = GUICtrlRead ($TMemo_CallBack) ; memoCallBack.Lines.Text
Return $callBackTyp + $callBackText
EndFunc;=>_buttonSelectionClick()

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

Func _buttonCancelClick();
Local $read = GUICtrlRead($TMemo_CallBack) ; dann wird der Input ausgelesen,
MsgBox(0, "Gelesen", "In der Box stand: " & $read) ; und ausgegeben.
WinActivate ( $prozess)
;$a = ControlCommand ( "Webocton - Scriptly", "", $prozess, "AddString", 'string' )
ControlSetText( "[CLASS:TformMain]", "", "TSynEdit2", $read , "0" )

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

$callBackTyp = $cbCancel
$callBackText = ''
Return $callBackTyp + $callBackText
EndFunc;=>_buttonCancelClick()

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

Func _Exit() ; _Exit() beendet das Script
If @GUI_WinHandle = $TformMain Then
MsgBox(0,0,"Mach was")
Else
Exit
EndIf
EndFunc

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

;//Diese Funktion funktioniert nur, wenn das Plugin mit dem Scriptly
;//zusammen verwendet wird.
;//Sie dient dazu, das Formular korrekt anzusprechen und einzuordnen

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

Func _pluginSetHandle($AHandle) ;: Integer: Integer; export; stdcall;
$Fenster = WinExists("Webocton - Scriptly")
$prozess = WinGetProcess ( "Webocton - Scriptly" )

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

Local $read = ProcessExists($prozess) ;Gibt 0 zurück, wenn der Prozess nicht existiert.
MsgBox(0, "ProcessExists", "In dem ProcessExists stand eine: " & $read, "5") ; und ausgegeben.

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

#comments-start
Application.Handle:=AHandle;
#comments-end
if ($Fenster<>0)and($read>0) then
Local $var = ControlGetText("[CLASS:TformMain]", "", "TSynEdit2")
GUICtrlSetData($TMemo_Complete, $var )
$pos = MouseGetPos()
MsgBox(0, "Maus x,y:", $pos[0] & "," & $pos[1])

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

$AHandle="1"
else
$AHandle="0"
EndIf
Return $AHandle

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

EndFunc;
#comments-start

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

//Exportieren der Funktionen aus der DLL
exports
pluginRueckgabetyp,
pluginStart,
pluginInterfaceVersion,
pluginSetHandle;
#comments-end

[/autoit]

nun über schreibt er die ganze Datei komme einfach nicht weiter
Markierten Text bekomme ich auch nicht ausgelesen