Серый форум — VBS: Переход по гиперссылке, у которой меняется адрес

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Wed, 22 Oct 2014 18:50:26 +0000

Пробовал поменять & как вы писали! не получилось! осталась та же ошибка

Ну, тогда только смотреть на реальную страницу, как оно выглядит. Либо ещё обрезать, как Вы сделали:

и решил вовсе урезать, и тогда вышло)

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Wed, 22 Oct 2014 11:01:24 +0000

ок, всё, догадался! Спасибо ещё раз огромное всё получилось!!!

Option Explicit
Const READYSTATE_COMPLETE = 4

Dim strHRefPart
Dim objHTMLAnchorElement
Dim boolFound

strHRefPart = "http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111"
With WScript.CreateObject("InternetExplorer.Application")
    .Visible = False
    .Navigate "http://www.spamhaus.org/query/ip/31.200.192.111"
    
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    boolFound = False
    
    For Each objHTMLAnchorElement In .Document.getElementsByTagName("a")
        If InStr(1, objHTMLAnchorElement.href, strHRefPart, vbTextCompare) > 0 Then
            objHTMLAnchorElement.click
            boolFound = True
            
            Exit For
        End If
    Next
    
    .Quit
End With
If Not boolFound Then
    WScript.Echo "Can't find anchor with href part [" & strHRefPart & "]."
    WScript.Quit 1
End If
WScript.Quit 0

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Wed, 22 Oct 2014 10:55:57 +0000

Пробовал поменять & как вы писали! не получилось! осталась та же ошибка
и решил вовсе урезать, и тогда вышло)
False - я поменял, вся работа iexplore свёрнута.
поясните пожалуйста что означает: раскомментируйте «'.Quit»

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Wed, 22 Oct 2014 10:49:10 +0000

sqraen пишет:

по какой то причине он не мог найти параметр "strHRefPart"

Потому что в оригинале символ «&» представлен как «&», о чём я и написал в сообщении #15.

sqraen пишет:

как сделать что бы по окончании выполнения скрипта iexplore в процессах не висел?

См. выше:

alexii пишет:

При удаче — раскомментируйте «'.Quit» и смените «.Visible = True» на «.Visible = False».

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Wed, 22 Oct 2014 09:38:51 +0000

а как сделать что бы по окончании выполнения скрипта
iexplore в процессах не висел?

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Wed, 22 Oct 2014 09:25:03 +0000

АААА дАААААААА!!!!!!
всё отлично получилось!!!
огромное спасибо!!!!!
alexii - с самого начала у тебя всё правильно было! по какой то причине он не мог найти параметр "strHRefPart"
Я видо изменил адрес, уменьшил и всё получилось!!
вот в каком виде всё работает:

+ открыть спойлер

Option Explicit

Const READYSTATE_COMPLETE = 4

Dim strHRefPart

Dim objHTMLAnchorElement
Dim boolFound

strHRefPart = "http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111"

With WScript.CreateObject("InternetExplorer.Application")
.Visible = True
.Navigate "http://www.spamhaus.org/query/ip/31.200.192.111"

Do
WScript.Sleep 100
Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE

boolFound = False

For Each objHTMLAnchorElement In .Document.getElementsByTagName("a")
If InStr(1, objHTMLAnchorElement.href, strHRefPart, vbTextCompare) > 0 Then
objHTMLAnchorElement.click
boolFound = True

Exit For
End If
Next

'.Quit
End With

If Not boolFound Then
WScript.Echo "Can't find anchor with href part [" & strHRefPart & "]."
WScript.Quit 1
End If

WScript.Quit 0

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Wed, 22 Oct 2014 08:56:02 +0000

sqraen пишет:

Попал, проверил, не работает.

Ну, а сняли-то зачем? Мне ж надо было посмотреть.

Ладно. Попробуйте заменить строку:

strHRefPart = "http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111×tamp="

на:

strHRefPart = "http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111&timestamp="

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (Xameleon) — Wed, 22 Oct 2014 07:45:28 +0000

sqraen, а причину "бана" Вы не знаете ? Судя по названию сайт блокирует тех, кто занимается "спамом".

P.S Почитал подробнее.

Роскомнадзор о Spamhaus

Spamhaus не задумываясь скинет на Вас ядерную бомбу, заподозрив в причастности к рассылки спама

Мда. "Компашка" ещё та. Но раз так, то может всё-таки попробовать предотвратить блокировку, нежели всё время пытаться разблокировать.

P.P.S

Один из участников обсуждения рекомендует:

qxfusion пишет:

Добавляетесь в Whitelist — прописываете SPF, DKIM для домена — и тогда SpamHaus не будет производить блокирование — т.к. это левый отправитель.

ссылка

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Wed, 22 Oct 2014 07:23:06 +0000

Попал, проверил, не работает.
ошибка идентичная

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (ypppu) — Tue, 21 Oct 2014 13:42:14 +0000

sqraen, пишите грамотно. Ссылки и код оформляйте специальными тегами. Исправьте Ваши сообщения.

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Tue, 21 Oct 2014 12:09:20 +0000

дело в том что я пока что не в чёрном листе (бан)

Ну, естественно. Попадёте — проверите и отпишетесь.

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Tue, 21 Oct 2014 11:56:15 +0000

огромное спасибо за помощ
но к сожалению не вышло,
---------------------------
Windows Script Host
---------------------------
Can't find anchor with href part [http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111×tamp=].
---------------------------
ОК
---------------------------
дело в том что я пока что не в чёрном листе (бан)
я пробовал на сохранённой странице в htm
страница открывается но выдаёт ошибку я так понял о том что ссылка не найдена для клика
может вам будет удобней почь мне так:
я скинул в архив страницу в htm и ваш vbs с изменённым пётём .Navigate "***.htm"
https://cloud.mail.ru/public/ad79a7ae64b7%2Fspam.rar

Заранее благодарен!

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Tue, 21 Oct 2014 10:50:10 +0000

Что ж, попробуйте:

Option Explicit

Const READYSTATE_COMPLETE = 4


Dim strHRefPart

Dim objHTMLAnchorElement
Dim boolFound


strHRefPart = "http://cbl.abuseat.org/removea.cgi?ip=31.200.192.111×tamp="

With WScript.CreateObject("InternetExplorer.Application")
    .Visible = True
    .Navigate "http://www.spamhaus.org/query/ip/31.200.192.111"
    
    Do
        WScript.Sleep 100
    Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
    
    boolFound = False
    
    For Each objHTMLAnchorElement In .Document.getElementsByTagName("a")
        If InStr(1, objHTMLAnchorElement.href, strHRefPart, vbTextCompare) > 0 Then
            objHTMLAnchorElement.click
            boolFound = True
            
            Exit For
        End If
    Next
    
    '.Quit
End With

If Not boolFound Then
    WScript.Echo "Can't find anchor with href part [" & strHRefPart & "]."
    WScript.Quit 1
End If

WScript.Quit 0

При удаче — раскомментируйте «'.Quit» и смените «.Visible = True» на «.Visible = False».

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (sqraen) — Tue, 21 Oct 2014 09:41:35 +0000

первый вариант, оно самое!
адрес ссылки сгенерирован с момента бана
и остаётся постоянным до нажатия,
при следующем бане, ссылка уже имеет другие значения (цифры) вконце

Re: VBS: Переход по гиперссылке, у которой меняется адрес

null@example.com (alexii) — Tue, 21 Oct 2014 09:28:38 +0000

sqraen, «изнутри» — это так:

создать VBS переходящий по гиперссылке, у которой меняется адрес

или так:

Управление файлом

или вовсе генерироваться на лету.