Компьютерный форум OSzone.net  

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)
-   AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)
-   -   Не могу разобраться в скрипте... (http://forum.oszone.net/showthread.php?t=271018)

Vikibalt115 30-10-2013 23:19 2244240

Не могу разобраться в скрипте...
 
Добрый день, поясните пожалуйста новичку что и как тут происходит....
Только начал разбираться в AutoIt , извиняйте...

$Var0738 = @TempDir & "\~tmp.html" - создается временнный файл....примерно так))
InetGet([ссылка появится после проверки модератором]", $Var0738, 1)
$Var0739 = FileOpen($Var0738, 0)
Local $Local013B[Fn01FE($Var0738)][4]
For $Local0027 = 0 To Number(Fn01FE($Var0738) - 1)
$Var06CB = FileReadLine($Var0739)
$Var06CB = Fn01BB(0, $Var06CB, $Var06C3, 1)
$Var06CD = StringSplit($Var06CB, ",")
$Local013B[$Local0027][0] = StringStripWS($Var06CD[1], 2)
$Local013B[$Local0027][1] = StringStripWS($Var06CD[2], 2)
$Local013B[$Local0027][2] = StringStripWS($Var06CD[3], 2)
$Local013B[$Local0027][3] = Number(StringStripWS($Var06CD[4], 2))
Next
FileClose($Var0739)
Sleep(0x0064)
FileDelete($Var0738)
Sleep(0x0064)
$Var073A = False
$Var073B = False
Fn0012($Local013B, 0, 0, 0, 3)

------------------------------------------------------------------------------------

Func Fn01D4()
TCPStartup()
$Var06C5 = TCPNameToIP("[ссылка появится после проверки модератором]")
$Var06C6 = TCPNameToIP("[ссылка появится после проверки модератором]")
TCPShutdown()
If $Var06C5 = "x.x.x.x" And $Var06C6 = "y.y.y.y" Then
$Var06C7 = @TempDir & "\~tmp1.html"
$Var06C8 = @TempDir & "\~tmp2.html"
InetGet("[ссылка появится после проверки модератором]", $Var06C7, 1)
InetGet("[ссылка появится после проверки модератором]", $Var06C8, 1)
$Var06C9 = FileOpen($Var06C7, 0)
$Var06CA = FileOpen($Var06C8, 1)
While 1
$Var06CB = FileReadLine($Var06C9)
If @error = -1 Then ExitLoop
If StringInStr($Var06CB, "чтототам: ") Then
$Var06CB = Fn01BA($Var06CB, "чтототам: ", "</h1>")
$Var06CB = StringSplit($Var06CB[0], "-")
$Var06CC = Number($Var06CB[1] & $Var06CB[3] & $Var06CB[2])
EndIf
WEnd
While 1
$Var06CB = FileReadLine($Var06CA)
If @error = -1 Then ExitLoop
$Var06CB = Fn01BB(0, $Var06CB, $Var06C3, $Var06C4)
If StringInStr($Var06CB, $Var06C2) Then
$Var06CD = StringSplit($Var06CB, "|")
$Var06CE = Number($Var06CD[2])
$Var06BE = StringMid($Var06CD[2], 7, 2) & "." & StringMid($Var06CD[2], 5, 2) & "." & StringMid($Var06CD[2], 1, 4)
If $Var06CE < $Var06CC Then
MsgBox(0, "[ссылка появится после проверки модератором] блаблабла", "блаблабла")
$Var06C1 = True
ExitLoop
Else
$Var06C1 = False
ExitLoop
EndIf
Else
EndIf
WEnd
Else
MsgBox(0, Error Check file " Windows\System32\drivers\etc\hosts")
EndIf
FileClose($Var06C9)
FileClose($Var06CA)
Sleep(0x0064)
FileDelete($Var06C7)
Sleep(0x0064)
FileDelete($Var06C8)
Sleep(0x0064)
EndFunc


Время: 04:33.

Время: 04:33.
© OSzone.net 2001-