#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Include <Array.au3>
AutoItSetOption('TrayIconHide', 1)
;Run('C:...')
;WinWaitActive('Prog', "")
;WinSetTitle('Prog', '', 'Proga')
;#Region ### START Koda GUI section ### Form=C:\Users\...\...\...\Form1.kxf
$Form2 = GUICreate("Proga_", 499, 171, 195, 115)
$Button2 = GUICtrlCreateButton("Button2", 304, 8, 187, 33)
GUICtrlSetFont(-1, 14, 400, 0, "Book Antiqua")
$Button3 = GUICtrlCreateButton("Button3 =>", 8, 48, 163, 25)
GUICtrlSetFont(-1, 13, 400, 0, "Book Antiqua")
$Button4 = GUICtrlCreateButton("Button4 =>", 8, 80, 163, 25)
GUICtrlSetFont(-1, 13, 400, 0, "Book Antiqua")
$Button5 = GUICtrlCreateButton("Button5", 8, 136, 163, 25)
GUICtrlSetFont(-1, 12, 400, 0, "Book Antiqua")
$Radio1 = GUICtrlCreateRadio("USD", 24, 112, 57, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Book Antiqua")
$Radio2 = GUICtrlCreateRadio("RUB", 96, 112, 57, 17)
GUICtrlSetFont(-1, 12, 400, 0, "Book Antiqua")
$Label1 = GUICtrlCreateLabel("00.00", 184, 48, 162, 22)
GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("00.00", 184, 80, 162, 22)
GUICtrlSetFont(-1, 17, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Button1", 8, 8, 283, 33)
GUICtrlSetFont(-1, 16, 400, 0, "Book Antiqua")
;$Pic1 = GUICtrlCreatePic("D:\_111.jpg", 352, 48, 140, 116)
GUISetState(@SW_SHOW)
;#EndRegion ### END Koda GUI section ###
Global $x1
Global $x1usd
Global $x1rub
Global $mony
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
vyx()
Case $Radio1
usd()
Case $Radio2
rub()
Case $Button1
ControlFocus('Proga','','But')
ControlClick('Proga','','But')
Case $Button3 ; если нажата кнопка то >>
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1') ; создаем обьект WinHttp.
If @error Then
MsgBox(8192+16, ' Внутреняя Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf
$oRequest.Open('GET', 'https://...', 0)
$oRequest.setTimeouts(5000, 5000, 15000, 15000)
$oRequest.SetRequestHeader('Accept', '*/*')
$oRequest.SetRequestHeader("User-Agent", " Mozilla/5.0 (Windows NT 5.1) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.71 Safari/534.24")
$oRequest.Send('') ; отправляем
$oRequest.WaitForResponse
$pData = $oRequest.ResponseText ; получаем текст стр в $pData
$x1 = StringRegExp($pData, '(\d+\.\d+)', 3) ; ищем текст в HTML
If IsArray($x1) Then ; если нашли то >>
; _ArrayDisplay($x1)
GUICtrlSetData($label1,$x1[0]) ; изменяем в label текст на найденый текст
EndIf
EndSwitch
WEnd
====================================================================================================================
While 1
usd()
WEnd
Func usd()
$oRequestusd = ObjCreate('WinHttp.WinHttpRequest.5.1') ; создаем обьект WinHttp.
If @error Then
MsgBox(8192+16, ' Внутреняя Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf
$oRequestusd.Open('GET', 'https://.../', 0)
$oRequestusd.setTimeouts(5000, 5000, 15000, 15000)
$oRequestusd.SetRequestHeader('Accept', '*/*')
$oRequestusd.SetRequestHeader("User-Agent", " Mozilla/5.0 (Windows NT 5.1) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.71 Safari/534.24")
$oRequestusd.Send('') ; отправляем
$oRequestusd.WaitForResponse
$pDatausd = $oRequestusd.ResponseText ; получаем текст стр в $pDatausd
$x1usd = StringRegExp($pDatausd, '(\d+\.\d+)', 3) ; ищем текст в HTML
If IsArray($x1usd) Then ; если нашли то >>
; _ArrayDisplay($x1usd)
GUICtrlSetData($label1,$x1usd[2]) ; изменяем в label текст на найденый текст
EndIf
EndFunc
===================================================================================================================
While 1
rub()
WEnd
Func rub()
$oRequestrub = ObjCreate('WinHttp.WinHttpRequest.5.1') ; создаем обьект WinHttp.
If @error Then
MsgBox(8192+16, ' Внутреняя Ошибка', 'Ошибка при создании объекта "WinHttp.WinHttpRequest.5.1".')
Exit 1
EndIf
$oRequestrub.Open('GET', 'https://.../', 0)
$oRequestrub.setTimeouts(5000, 5000, 15000, 15000)
$oRequestrub.SetRequestHeader('Accept', '*/*')
$oRequestrub.SetRequestHeader("User-Agent", " Mozilla/5.0 (Windows NT 5.1) AppleWebKit/534.24 (KHTML, like Gecko) Chrome/11.0.696.71 Safari/534.24")
$oRequestrub.Send('') ; отправляем
$oRequestrub.WaitForResponse
$pDatarub = $oRequestrub.ResponseText ; получаем текст стр в $pDatrub
$x1rub = StringRegExp($pDatarub, '(?is).*rub.*?(\d+\.\d+)\s?rub.*', 3) ; ищем символы в HTML
If IsArray($x1rub) Then ; если нашли то >>
; _ArrayDisplay($x1rub)
GUICtrlSetData($label1,$x1rub[4]) ; изменяем в label текст на найденый текст
EndIf
EndFunc
-------------------------------------------------------------------------------------------------------------------
Func vyx()
$PIDs = ProcessList('... .exe') ;Возвращает двумерный массив, содержащий список выполняемых процессов (имя и PID).
For $i = 1 To $PIDs[0][0] ;$PIDs[0][0] - это количество процессов
If ProcessExists($PIDs[$i][1]) Then ProcessClose($PIDs[$i][1]) ;Если процесс существует, то закрываем его
Next
ToolTip ( " ... ", 500, 30, ' ... ', 7 )
Sleep (9000)
Exit
EndFunc
