Пробовал поменять & как вы писали! не получилось! осталась та же ошибка
Ну, тогда только смотреть на реальную страницу, как оно выглядит. Либо ещё обрезать, как Вы сделали:
и решил вовсе урезать, и тогда вышло)
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по какой то причине он не мог найти параметр "strHRefPart"
Потому что в оригинале символ «&» представлен как «&», о чём я и написал в сообщении #15.
как сделать что бы по окончании выполнения скрипта iexplore в процессах не висел?
См. выше:
При удаче — раскомментируйте «'.Quit» и смените «.Visible = True» на «.Visible = False».
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
Попал, проверил, не работает.
Ну, а сняли-то зачем? Мне ж надо было посмотреть.
Ладно. Попробуйте заменить строку:
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="P.S Почитал подробнее.
Spamhaus не задумываясь скинет на Вас ядерную бомбу, заподозрив в причастности к рассылки спама
Мда. "Компашка" ещё та. Но раз так, то может всё-таки попробовать предотвратить блокировку, нежели всё время пытаться разблокировать.
P.P.S
Один из участников обсуждения рекомендует:
Добавляетесь в Whitelist — прописываете SPF, DKIM для домена — и тогда SpamHaus не будет производить блокирование — т.к. это левый отправитель.
дело в том что я пока что не в чёрном листе (бан)
Ну, естественно. Попадёте — проверите и отпишетесь.
]]>Заранее благодарен!
]]>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».
]]><a href="http://forum.script-coding.com/viewtopic.php?id=10070">создать VBS переходящий по гиперссылке, у которой меняется адрес</a>или так:
<a href="http://rusfolder.com/control/?file_id=25576605&code=516a0d58fdedb89fcedcdc246e0bed73d" target="_blank">Управление файлом</a>или вовсе генерироваться на лету.
]]>