Beiträge von funkey

Ja der SLEEP ist Schuld. Probier's mal so:

[autoit]

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

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

Global $Pause = 0
$send = False

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

$Form1 = GUICreate("Form1", 214, 244, 193, 125)
$Input2 = GUICtrlCreateInput("Interval", 40, 48, 121, 21)
$Input1 = GUICtrlCreateInput("Titel", 40, 88, 121, 21)
$Button1 = GUICtrlCreateButton("Send Blahs", 56, 136, 75, 25, 0)
GUISetState(@SW_SHOW)

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If WinExists(GUICtrlRead($Input1)) = False Then
ToolTip('Es wurde kein Fenster mit dem eingegebenen Titel gefunden!', 0, 0)
Sleep(1500)
ToolTip("")
Else

If Not WinActive(GUICtrlRead($Input1)) Then WinActivate(GUICtrlRead($Input1))
WinWaitActive(GUICtrlRead($Input1))
ControlFocus(GUICtrlRead($Input1), "", "")
$fucus = ControlGetFocus(GUICtrlRead($Input1))

$send = Not $send
If $send Then
GUICtrlSetData($Button1, "Aufhörn")
ControlSend(GUICtrlRead($Input1), "", $fucus, "Blah")
Else
GUICtrlSetData($Button1, "Send Blahs")
EndIf
EndIf
EndSwitch

If $send Then
If $Pause > GUICtrlRead($Input2) Then
ControlSend(GUICtrlRead($Input1), "", $fucus, "Blah")
$Pause = 0
EndIf
Sleep(10)
$Pause += 10
EndIf
WEnd

[/autoit]

Vielleicht hilft dier das irgendwie

[autoit]

$sHotkey += @HotKeyPressed

[/autoit]

Ich habe zwar die Software nicht installiert, aber warscheinlich wird der Button erst nach dem Erzeugen des Fensters erstellt, genauso wie der Text 'panel'. Wenn also der Text noch nicht vorhanden ist, ist auch vielleicht der Button noch nicht da und der ControlClick geht ins Leere. Was mir noch aufgefallen ist: War es jetzt 'Button1' oder 'Button2'???

If ProcessExists(...)
oder
If WinExists(...)

Wenn nicht die Funktion SetConsole() die Variable $Restart auf 1 setzt, dann kann's nicht funktionieren, da nach dem ersten RUN der Befehl $Restart = 0 kommt.

ansonsten weiss ich nich was nicht funktionieren soll, bis auf dass dieses Skript generell komisch aussieht
Vielleicht brauchst du beim ersten Programm ein RUNWAIT?

If $Restart = 1 Then
Run ($CRoadPath & "\" & $CRoadExe)
Run ($SRoadPath & "\" & $SRoadExe)
EndIf

Senden

[autoit]

$Empfaenger_IP = "192.168.2.10"
$Port = 33891
$Text = InputBox("Text senden","Text eingeben, der gesendet werden soll","")
If @error = 1 Then Exit

TCPStartUp()

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

$ConnectedSocket = TCPConnect($Empfaenger_IP, $Port)
TCPSend($ConnectedSocket, $Text)

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

TCPShutdown ()

[/autoit]

Empfangen

[autoit]

$Port = 33891
TCPStartUp()

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

While 1
$MainSocket = TCPListen(@IPAddress1, $Port, 100 )

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

Do
$ConnectedSocket = TCPAccept($MainSocket)
Until $ConnectedSocket <> -1

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

If $ConnectedSocket <> -1 Then
$recv = TCPRecv($ConnectedSocket, 10)
MsgBox(0,"Empfangen",$recv)
TCPShutdown()
TCPStartUp()
EndIf

Wend

[/autoit]

[autoit]

#include <GUIConstantsEx.au3>

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

Dim $New_hotkey = "{F11}"

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

$Form2 = GUICreate("Form2", 413, 298, 303, 219)
$i_hotkey = GUICtrlCreateInput($New_hotkey, 72, 40, 81, 21)
$i_text = GUICtrlCreateInput("Hotkey_Test", 160, 40, 81, 21)
$Label = GUICtrlCreateLabel("", 72, 80, 200, 20)

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

HotKeySet($New_hotkey, "Test_Func")

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $i_hotkey
HotKeySet($New_hotkey)
$New_hotkey = GUICtrlRead($i_hotkey)
MsgBox(0,"Neuer HotKey",$New_hotkey)
HotKeySet($New_hotkey, "Test_Func")
EndSelect
WEnd

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

Func Test_Func()
$Text = GUICtrlRead($i_text)
MsgBox(0,"",$Text)
GUICtrlSetData($Label, $Text)
EndFunc

[/autoit]

#include <GUIConstantsEx.au3>

$Hotkey_Variable = "{F11}"
HotKeySet($HotKey_Variable, "Test")

$Form2 = GUICreate("Form2", 413, 298, 303, 219)
$i_hotkey = GUICtrlCreateInput("F11", 72, 40, 81, 21)

GUISetState()

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd

Func Test()
;~ send ("Hotkey_Test")
;~ oder besser
GUICtrlSetData($i_hotkey, "Hotkey_Test")
EndFunc

Ich würde den Befehl ControlGetFocus verwenden. Sollte funktionieren!

HotKeySet("s", "bla")

While 1
Sleep(10)

WEnd

Func bla()
MsgBox(64,"","Du hast 's' gedrückt.")
EndFunc

Ohne Schleife beendet sich das Programm sofort wieder.

Anstelle von

MouseClick("left", [X-Koordinate], [Y-Koordinate], 1, 0)

solltest du

ControlClick("Titel","Text", "ControlID")

verwenden. Die ControlID erhälst du über das Autoit-Info-Tool.