Страницы: 1
Спасибо. Только он не меняет User agent.
Создал 01.txt возле скрипта, порядок:
[spoiler][code]'AAAAAAAAAAAAAAA
'BBBBBBBBBBBBBBB
'CCCCCCCCCCCCC
'DDDDDDDDDDDDD
Сам скрипт:
Dim objFileSystem, objInputFile, iim1
Dim strInputFile, inputData
Const OPEN_FILE_FOR_READING = 1
strOutputFile = "01.txt"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objInputFile = objFileSystem.OpenTextFile(strOutputFile, _
OPEN_FILE_FOR_READING)
inputData = Split(objInputFile.ReadAll, vbNewline)
set iim1= CreateObject ("imacros")
For m = 1 to 5
iret = iim1.iimInit()
iret = iim1.iimPlay("macro1")
iret = iim1.iimInit ("-useragent " & inputData(m) & " ")
Dim MyMacroCode
MyMacroCode = "CODE:"
MyMacroCode = MyMacroCode+"CLEAR" + vbNewLine
MyMacroCode = MyMacroCode+"http://www.iopus.com/imacros/demo/v5/user-agent.htm" + vbNewLine
MyMacroCode = MyMacroCode+"WAIT SECONDS=#DOWNLOADCOMPLETE#" + vbNewLine
MyMacroCode = MyMacroCode+"WAIT SECONDS=5" + vbNewLine
MyMacroCode = MyMacroCode+
Здравствуйте, подскажите.
Мне нужно при каждым заходом на сайт менять User Agent.
Вот часть моего скрипта:
'Sample code A set iim1= CreateObject ("imacros") For m = 1 to 5 iret = iim1.iimInit() iret = iim1.iimPlay("macro1") iret = iim1.iimInit ("-useragent ""AAAAAAAAAAAAAAAAAAAAAAAA"" ")
Страницы: 1