Полезная информация

Пользователи не любят читать документацию. Станьте оригинальным, будьте не как все. Ознакомьтесь с нашей базой знаний.

iMacros » iMacros for Firefox - общие вопросы, обсуждение возможностей (Часть 1) » 28-01-2012 23:24:18

Спасибо. Только он не меняет 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+

iMacros » iMacros for Firefox - общие вопросы, обсуждение возможностей (Часть 1) » 28-01-2012 09:17:42

Здравствуйте, подскажите.
Мне нужно при каждым заходом на сайт менять 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"" ")


Где АААААААААА  - замена User Agent. Нужно чтоб при каждым заходом вместо "ААААААААААА" вставлялся "ББББББББББББ", потом "ВВВВВВВВВВ"... с текстового файла.
Просто не знаю как вставлять текст из файла в vbs.     Извините, простой макрос мне не подходит. Спасибо.

Board footer

Powered by PunBB
Modified by Mozilla Russia
Copyright © 2004–2020 Mozilla Russia GitHub mark
Язык отображения форума: [Русский] [English]