[Автоматизация] курс доллора в СБЕРБАНКЕ

Func _GetRate()
    Local $ir = InetRead('http://www.sberbank.ru/primorskykrai/ru/quotes/currencies/', 1)
    Local $bts = BinaryToString($ir)
    Local $srate = _StringBetween($bts, '#cc0000">', '</td>')
    Return $srate
EndFunc   ;==>_GetRate

#include <Array.au3>
#include <SQLite.au3>
#include <mysql.au3>
#include <Constants.au3>
#include <IE.au3>
#include <IE.au3>
#include <Array.au3>
#include <IE.au3>
#include <String.au3>
#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#Include <Icons.au3>
#Include <WinAPIEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>
#include <array.au3>
#include "mysql.au3"
#include "EzMySql_dll.au3"
#include "EzMySql.au3"
#include <Array.au3>
#include <file.au3>
;#include <Table.au3>
#include <IE.au3>
#include <Array.au3>
#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
;#Include <Icons.au3>
#Include <WinAPIEx.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <Misc.au3>
#Include <Restart.au3>
;#include "GIFAnimation.au3"
;~ HttpSetProxy(1)

HotKeySet("{ESC}", "Terminate")

;for $s=0 to 10
$var = Ping("www.mail.ru",4000)
If $var Then ; also possible:  If @error = 0 Then ...
   MsgBox(0, "Заявка", "Центробанк и Сбербанк в ОНЛАЙНЕ",5)
Else

MsgBox(0, "Заявка", "Центробанк не виден",5)
_ScriptRestart()

EndIf

$var = Ping("192.168.88.14",4000)
If $var Then ; also possible:  If @error = 0 Then ...
   MsgBox(0, "Заявка", "Вход из дома",5)
    $sServer = "192.168.88.14"
Else

MsgBox(0, "Заявка", "Вход из вне",5)
$sServer = "80.252.153.1"
EndIf






Local $s_Xml, $a_Tmp, $i_Ub, $a_Ret[1]
Local $rate = _GetRate()
$sdsd=StringStripWS($rate[0], 3)
$sdsd=StringReplace($sdsd, ",", ".")
ConsoleWrite($sdsd& "  покупка сбербанка у населения"&@LF)

$fdfd=StringStripWS($rate[1], 3)
$fdfd=StringReplace($fdfd, ",", ".")
ConsoleWrite($fdfd& "  продажа сбербанка"&@LF)
;for $s=0 to 10

$s_Xml = BinaryToString(InetRead('http://www.cbr.ru/scripts/XML_daily.asp', 1))
If @error Then Exit 13
$a_Tmp = StringRegExp($s_Xml, '(?i)<[a-z]+>(.+?)<', 3)
$i_Ub = UBound($a_Tmp)
If (Not $i_Ub) Or (Mod($i_Ub, 5)) Then Exit 13
ReDim $a_Ret[$i_Ub / 5 + 1][5]
For $i = 45 To 50 - 1 Step 5
    $a_Ret[0][0] += 1
    For $j = 0 To 4
        $a_Ret[$a_Ret[0][0]][$j] = $a_Tmp[$i + $j]
$sd=$a_Ret

    Next

Next
$a_Tmp = 0

;_ArrayDisplay($a_Ret)
For $i = 0 to Ubound($a_Ret) - 1
   $asd=($a_Ret[1][4])
    $asd1=($a_Ret[1][3])
 Next
$asd=StringReplace($asd, ",", ".")
ConsoleWrite( $asd &" курс центробанка"& @LF) ; значение бакса
ConsoleWrite( $asd1 & @LF) ; вид валюты



$mes=@MON
$data=@MDAY
$hour=@HOUR
$min=@MIN
ConsoleWrite(  " Месяц "& $mes & " Дата " & @MDAY & @LF)
$polndata= $data&"."&$mes&"."&@YEAR ;полная дата
ConsoleWrite($polndata&" полная дата"& @LF)
$polvrem=@HOUR&":"&@MIN ; полное время
ConsoleWrite($polvrem&" полное время"& @LF)


   $sUsername = "root"
   $sPassword = ""
      $sDatabase = "baks"
 ; $sServer = "80.252.153.1"
 

   $sDriver = "{MySQL ODBC 3.51 Driver}"
   $iPort = 3306





If Not _EzMySql_Startup() Then
    MsgBox(0, "Error Starting MySql", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
 EndIf
If Not _EzMySql_Open($sServer, $sUsername, $sPassword, $sDatabase, "3306") Then
    MsgBox(0, "Error opening Database", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
EndIf

	  $aOk1 = _EzMySql_GetTable2d("SELECT MAX(numer) FROM vremy")


	If Not IsArray($aOk1) Then MsgBox(0, $sMySqlStatement & " error", $error)
;_ArrayDisplay($aOk1, "Максимальный индекс")
$dd=($aOk1[1][0])
ConsoleWrite($dd&" максимальное значение индекса"& @LF)
$aOk2 = _EzMySql_GetTable2d("SELECT numer,kurs FROM vremy WHERE numer='"&$dd&"'")
	If Not IsArray($aOk2) Then MsgBox(0, $sMySqlStatement & " error", $error)
;_ArrayDisplay($aOk2, "Последний курс ЦБ из базы")
$dd2=($aOk2[1][1])
ConsoleWrite($dd2&" курс центробанка последняя запись "& @LF)

$aOk3 = _EzMySql_GetTable2d("SELECT numer,sberpo FROM vremy WHERE numer='"&$dd&"'") ; вывуживаем последний курс продажи населению сбербанка
;_ArrayDisplay($aOk3, "Последний курс Сбера из базы")
$dd3=($aOk3[1][1]) ; загоняем в переменную последний курс продажи населению сбербанка из базы
ConsoleWrite($dd3&" курс сбербанка последняя запись "& @LF)



if $dd3 <> $sdsd then
    $ff=$dd+1
$sMySqlStatement = "INSERT INTO vremy (numer,mes, vrem, kurs,qq,sberpo,sberpr,qqq) VALUES (" & _
                        "'" & $ff & "'," & _
						"'"&$polndata  & "'," & _
                        "'" & $polvrem & "'," & _
                        "'" & $asd & "'," & _
						"'" & $asd1& "'," & _
						"'" & $sdsd& "'," & _
						"'" & $fdfd& "'," & _
                        "'" & $mes & "');"




ConsoleWrite($sMySqlStatement & @LF)
_EzMySql_Query("SET NAMES 'cp1251'")
	If Not _EzMySql_Exec($sMySqlStatement) Then
   MsgBox(0, "Error inserting data to Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
 EndIf
$rr1=$dd3 - $sdsd
$rr1 = Round($rr1, 2)  ;returns -1.6
ConsoleWrite($rr1 &" разница в курсе "& @LF)
 if $rr1 > 0 Then
   MsgBox(0, "Заявка", "Внимание курс СБЕРБАНКА УПАЛ "&$rr1,5)
   Beep(500, 1000)
ElseIf  $rr1 < 0 Then
   Beep(500, 1000)
MsgBox(0, "Заявка", "Внимание курс СБЕРБАНКА ВЫРОС на "&$rr1 ,5)
  EndIf
EndIf


if $dd2 <> $asd then
   $ff=$dd+1
$sMySqlStatement = "INSERT INTO vremy (numer,mes, vrem, kurs,qq,sberpo,sberpr,qqq) VALUES (" & _
                        "'" & $ff & "'," & _
						"'"&$polndata  & "'," & _
                        "'" & $polvrem & "'," & _
                        "'" & $asd & "'," & _
						"'" & $asd1& "'," & _
						"'" & $sdsd& "'," & _
						"'" & $fdfd& "'," & _
                        "'" & $mes & "');"




ConsoleWrite($sMySqlStatement & @LF)
_EzMySql_Query("SET NAMES 'cp1251'")
	If Not _EzMySql_Exec($sMySqlStatement) Then
   MsgBox(0, "Error inserting data to Table", "Error: "& @error & @CR & "Error string: " & _EzMySql_ErrMsg())
    Exit
 EndIf
$rr=$dd2 - $asd
$rr = Round($rr, 4)  ;returns -1.6
ConsoleWrite($rr &" разница в курсе "& @LF)
 if $rr > 0 Then
   MsgBox(0, "Заявка", "Внимание курс Центробанка УПАЛ "&$rr,5)
   Beep(500, 1000)
ElseIf  $rr < 0 Then
   Beep(500, 1000)
MsgBox(0, "Заявка", "Внимание курс Центробанка ВЫРОС на "&$rr ,5)
  EndIf
EndIf
;Sleep (60000)
;Next
MsgBox(0, "Заявка", " Последний курс на покупку у населения " &$sdsd,60)




;Next
_ScriptRestart()
Func _GetRate()
    Local $ir = InetRead('http://www.sberbank.ru/moscow/ru/quotes/currencies/', 1)
    Local $bts = BinaryToString($ir)
    Local $srate = _StringBetween($bts, ':#339900">', '</td>')
    Return $srate
EndFunc   ;==>_GetRate
Func Terminate()
    Exit 0
EndFunc