' Извлекаю путь данного vbs
Set FSO = CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile(Wscript.ScriptFullName)
path = FSO.GetParentFolderName(F)
' Путь файла xls
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open (path+"\VK_Stat.xls")
' Количество аккаунтов
Accs = objExcel.ActiveSheet.UsedRange.Row + objExcel.ActiveSheet.UsedRange.Rows.Count - 3
' Копирование колонка Status New в Status Old
StatProv = objExcel.Cells(3, 9).Value ' первое значение в Status New
i = 3
Do While i < Accs + 3 And StatProv <> ("")
objExcel.Cells(i, 8).Value = objExcel.Cells(i, 9).Value ' копирование
objExcel.Cells(i, 9).Value = "" ' очистка колонки Status New
i = i+1
Loop
' Проверка статуса vk - аккаунта и запись в Status New
i = 3
Do While i < Accs + 3 And objExcel.Cells(i, 4).Value <> ("") ' пока значение в url vk - аккаунта не пусто
Dim o
Set o = CreateObject("MSXML2.XMLHTTP")
o.open "GET", objExcel.Cells(i, 4), False
o.send
' запись статуса vk - аккаунта
if InStr(1,o.responseText,"заблокировать",1) <> 0 Then
objExcel.Cells(i, 9).Value = "Блок"
else
if InStr(1,o.responseText,"заморозили",1) <> 0 Then
objExcel.Cells(i, 9).Value = "Замор"
else
objExcel.Cells(i, 9).Value = "Ok"
end if
end if
i = i+1
Loop
' Извлекаю путь данного vbs
WScript.Echo objExcel.Cells(2, 10).Value
objExcel.ActiveWorkbook.Save
objExcel.Quit
|
