Example how to read webpage to a variable in background without temp file

[Guest]

Hello,

Today I tried to find a way how to read a page to a variable in background without freezing the script and without using temp file during the process.

 

 

I managed to do it!

expandcollapse popup

; Example how to read webpage to a variable in background without freezing the script
; Using fixed _ThreadStart() function


Global $InetRead = -1
;MsgBox(0,"","")
_ThreadStart("_Thread1")

While 1
    ToolTip("Just to show that the script is not frozen")
    If $InetRead <> -1 Then
        ConsoleWrite($InetRead&@CRLF)
        $InetRead = -1
    EndIf
    Sleep(10)
WEnd



Func _Thread1($vDummy)
    $InetRead = BinaryToString(InetRead("http://www.autoitscript.com/site/"))
EndFunc   ;==>_Thread1




; #FUNCTION# ====================================================================================================================
; Name ..........: _ThreadStart
; Description ...: 
; Syntax ........: _ThreadStart($sFunctionName)
; Parameters ....: $sFunctionName       - A string value.
; Return values .: None
; Author ........: Your Name
; Modified ......: gil900 - fixed what caused the script to crash
; Remarks .......: 
; Related .......: 
; Link ..........: Originally posted here: http://www.autoitscript.com/forum/topic/124393-multithreading-example/
; Example .......: No
; ===============================================================================================================================
Func _ThreadStart($sFunctionName)
    Local $h1, $h2, $h3 = DllStructCreate("hwnd[1]"), $h4 = DllStructGetPtr($h3)

    $h1 = DllCallbackRegister($sFunctionName, "int", "int")
    $h2 = DllStructCreate("int")
    $h3 = DllCall("Kernel32.dll", "hwnd", "CreateThread", "ptr", 0, _
            "int", 0, _
            "ptr", DllCallbackGetPtr($h1), _
            "int", 0, _
            "int", 0, _
            "ptr", DllStructGetPtr($h2))
    DllStructSetData($h3, 1, $h3[0], 1)
;~  DllCall("Kernel32.dll", "int", "CloseHandle", "hwnd", DllStructGetData($h3, 1, 1)) ; Disabled - This line caused the script to crash
EndFunc   ;==>_ThreadStart

I hope you found it useful!

 

EDIT:

seems that sometimes it still crash

But it works well most of the time.

So maybe I gave a good start for someone else to make more stable code.

Edited May 3, 2014 by Guest