Одновременная работа двух и более функций

Func _Message()
	$oIE = _IECreate(GUICtrlRead($ADRESS), 0, 0)
	If @error Then
		MsgBox(0, "Отчет", "Ошибка браузера")
		_IEQuit($oIE)
		$oForm = _IEFormGetCollection($oIE, 1)
		If @error Then
			MsgBox(0, "Отчет", "Сообщение невозможно отправить")
			_IEQuit($oIE)
			ElseIf Not @error Then
			$oLogin = _IEFormElementGetObjByName($oForm, "vb_login_username")
			$oPass = _IEFormElementGetObjByName($oForm, "vb_login_password")
			_IEFormElementSetValue($oLogin, GUICtrlRead($LOGIN))
			_IEFormElementSetValue($oPass, GUICtrlRead($PASSWORD))
			_IEFormSubmit($oForm, 1)
			_IELoadWait($oIE, 10000)
			$oMessage = _IEFormGetCollection($oIE, 3)
			$oText = _IEFormElementGetObjByName($oMessage, "message")
			If @error Then
				MsgBox(0, "Отчет", "Сообщение не создано.Логин или пароль не верен")
				_IEQuit($oIE)
			Else
				_IEFormElementSetValue($oText, GUICtrlRead($MESSAGE))
				_IEFormSubmit($oMessage, 1)
				_IEQuit($oIE)
				MsgBox(0, "Отчет", "Cообщение отправлено")
			EndIf
		EndIf
	EndIf
EndFunc

Func _Progress()
	While 1
	$wait = 20
      $s = 0
    For $i = $s To 100

      GUICtrlSetData ($Progress,$i)

      Sleep($wait)
  Next
  WEnd
  EndFunc

#Include <GUIConstantsEx.au3>

Global $Percent = 0

GUICreate('MyGUI', 300, 140)
$Progress = GUICtrlCreateProgress(20, 40, 260, 20)
$Button = GUICtrlCreateButton('Stop', 115, 100, 70, 23)
GUISetState()

AdlibEnable('_StateUpdate', 500)

While 1
	$Msg = GUIGetMsg()
	Switch $Msg
		Case $GUI_EVENT_CLOSE
			ExitLoop
		Case $Button
			GUICtrlSetState($Button, $GUI_DISABLE)
			AdlibDisable()
	EndSwitch
WEnd

Func _StateUpdate()
	$Percent += 10
	If $Percent > 100 Then
		GUICtrlSetState($Button, $GUI_DISABLE)
		AdlibDisable()
		Return
	EndIf
	GUICtrlSetData($Progress, $Percent)
EndFunc   ;==>_StateUpdate

#include <GUIConstantsEx.au3>
;

Opt("GUIOnEventMode", 1)

Global $ahCallBack[2], $iPrecent

$hGUI = GUICreate("ProgressBar", 400, 300)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Main_Events")

$Progress = GUICtrlCreateProgress(10, 10, 300, 22)
$Status_Label = GUICtrlCreateLabel("0%", 330, 30, 30, 20)

$Button = GUICtrlCreateButton("Start",150,100,50,20)
GUICtrlSetOnEvent(-1, "_Main_Events")

GUISetState()

While 1
	Sleep(100)
	
	If $iPrecent > 0 Then
		;Тут мы вызываем нашу функцию
		Call("_SomeFunction_Proc")
	EndIf
WEnd

Func _Main_Events()
	Switch @GUI_CtrlId
		Case $GUI_EVENT_CLOSE
			_CallBack_Free($ahCallBack)
			Exit
		Case $Button
			If GUICtrlRead($Button) = "Stop" Then
				GUICtrlSetData($Button, "Start")
				_CallBack_Free($ahCallBack)
			Else
				GUICtrlSetData($Button, "Stop")
				$ahCallBack = _CallBack_Init("_SetProgress_Proc", 10)
			EndIf
	EndSwitch
EndFunc

Func _SomeFunction_Proc()
	While $iPrecent > 0
		Sleep(50)
		ConsoleWrite("Наша функция работает на ряду с прогрессом :)... " & $iPrecent & @CRLF)
	WEnd
EndFunc

Func _SetProgress_Proc()
	$iPrecent += 1
	
	GUICtrlSetData($Progress, Round($iPrecent / 3))
	GUICtrlSetData($Status_Label, Round($iPrecent / 3) & "%")
	
	If $iPrecent > 300 Then
		$iPrecent = 0
		
		GUICtrlSetData($Status_Label, "100%")
		GUICtrlSetData($Button, "Start")
		_CallBack_Free($ahCallBack)
		
		$ahCallBack = 0
		Dim $ahCallBack[2] = [-1, -1]
	EndIf
EndFunc

Func _CallBack_Init($sFuncName, $iTime, $sParam="")
	Local $hCallBack = DLLCallbackRegister($sFuncName, "int", $sParam)
	
	Local $aTimer = DllCall("user32.dll", "uint", "SetTimer", _
		"hwnd", 0, "uint", 0, "int", $iTime, "ptr", DllCallbackGetPtr($hCallBack))
	
	Local $ahCallBack[2] = [$hCallBack, $aTimer[0]]
	
	Return $ahCallBack
EndFunc

Func _CallBack_Free($ahCallBack)
	If $ahCallBack[0] <> -1 Then DllCallbackFree($ahCallBack[0])
	If $ahCallBack[1] <> -1 Then DllCall("user32.dll", "int", "KillTimer", "hwnd", 0, "uint", $ahCallBack[1])
EndFunc

While 1
	Sleep(100)


	If $iPrecent > 0 Then
		;Тут мы вызываем нашу функцию
		Call("message")
	EndIf
WEnd