Custom Query (3927 matches)

Basically, the focus is not working properly when embedding COM objects.

Backspace + tab will be triggered on the COM-object control instead of the focused gui

Reproduce

Opt("GUIOnEventMode", 1)
#include <IE.au3>
#include <GUIConstantsEx.au3>


SplashTextOn("Please wait", "Please wait for setup", 200, 50)
Global $oIE = _IECreateEmbedded()
Global $hGUI = GUICreate("", 800, 600)
; Create controls
Global $iMenu = GUICtrlCreateMenu("Test")
Global $iOpenNewGui = GUICtrlCreateMenuItem("Open new gui", $iMenu)
Global $iObj = GUICtrlCreateObj($oIE, 0, 0, 800, 600)

; Show gui
GUISetState()

; Navigate to test
_IENavigate($oIE, "https://pastebin.com/AL8kXcNB")

; Go to inputarea
Local $oTextarea = _IEGetObjById($oIE, "paste_code")
_IEAction($oTextarea, "focus")
Send("{end}")

SplashOff()
MsgBox(0,"How to reproduce ", "1. Open Test -> Open new gui" & @LF & "2. Start typing" & @LF & "3. Start using backspace")
; Bind events
GUICtrlSetOnEvent($iOpenNewGui, Callback_OpenNewGui)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")


while IsHWnd($hGUI)

WEnd

Func _Exit()
    GUIDelete(@GUI_WinHandle)
EndFunc

Func Callback_OpenNewGui()
    Local $hGUI = GUICreate("", 150, 150)
    ; Create controls
    GUICtrlCreateInput("",25, 10, 100)
    ; Bind events
    GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
    ;Show gui
    GUISetState()
EndFunc

See this forum post for additional information: ​https://www.autoitscript.com/forum/topic/190989-tcpsend-in-loop-eventually-causes-program-not-responding/

When TCPSend is called in a loop, (without closing the socket and opening it each time), TCPSend seems to hang forever after a certain amount of data has been sent. This seems to have no relationship to how fast or slow the data is sent, or how large the data is, other than the fact that if you send the data slower or at a lower amount of data, it will take longer to see the hang.

This was first discovered by sending data to a proprietary non-autoit 3rd-party tcp server, which I have no control over, and which I have no way to see how that server is configured. However, the autoit server code included here causes the same client hang.

Please note that the server code included here is not the code in question, and is only included so that the client will run and hang.

Server Code, make sure this is running before starting the client code. The server code and the client code can be ran on the same PC.

SERVER CODE:

TCPStartup()
$iListenSocket = TCPListen("127.0.0.1", 500, 100)

Do
  $iSocket = TCPAccept($iListenSocket)
Until $iSocket <> -1 ;if different from -1 a client is connected.

while 1
  $sReceived = TCPRecv($iSocket,100)
  sleep(10)
WEnd

CLIENT CODE:

TCPStartup()

$iSocket = TCPConnect("127.0.0.1", 500)
$x = 0
Local $mydata

;This is to make some data for testing purposes
For $a = 1 to 100
  $mydata &= "xxxxxxxxxxxxxxxxxxxx"
Next

While 1
  $x += 1
  TCPSend($iSocket, $mydata)
  If @error <> 0 Then MsgBox(0,"Error",@error)
  ToolTip($x) ;this is for a visual indication of program running
  Sleep(10)
WEnd

If it appears that I am sending an unrealistic amount of data at an unrealistic speed, that's true, but it shows the hang faster. If you lower the data size and slow down the sending rate, the hang will still happen after the same amount of data has been sent but you will have to wait much longer for that amount of data to be sent.

The coding method may not be perfect, but the reason I am posting this as a bug is because TCPSend should NEVER hang forever. If there is an issue, it should instead return an error. However, there is no error returned, it just hangs. That makes it appear to be a bug within TCPSend, where some sending issue is not properly being caught. If caught, it could return an error and the program could deal with that error.

Explanation and reproducer in this forums post: ​https://www.autoitscript.com/forum/topic/190932-possible-maps-bug-beta/