#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