|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » AutoIt » Не могу разобраться в скрипте... |
|
Не могу разобраться в скрипте...
|
Новый участник Сообщения: 1 |
Профиль | Отправить PM | Цитировать Добрый день, поясните пожалуйста новичку что и как тут происходит....
Только начал разбираться в 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 |
|
Отправлено: 23:19, 30-10-2013 |
Участник сейчас на форуме | Участник вне форума | Автор темы | Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
ПОМОГИТЕ НЕ МОГУ РАЗОБРАТЬСЯ | хитрый сапер | Тест-форум | 0 | 03-06-2013 15:27 | |
Разное - Помогите, не могу разобраться! | vit253591 | Накопители (SSD, HDD, USB Flash) | 2 | 16-09-2011 05:44 | |
Не могу разобраться с хостингом | WidZ | Вебмастеру | 2 | 28-01-2010 10:01 | |
FreeBSD - Не могу разобраться с PF | Tosha_l | Общий по FreeBSD | 4 | 10-12-2008 12:21 | |
Не могу разобраться! | dddrive | Непонятные проблемы с Железом | 19 | 04-11-2006 14:08 |
|