Полезная информация
Страницы: 1
iMacros » iMacros for Firefox - общие вопросы, обсуждение возможностей (Часть 1) » 28-01-2012 23:24:18
- svliller2007
- Replies: 7791
Спасибо. Только он не меняет 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
- svliller2007
- Replies: 7791
Здравствуйте, подскажите.
Мне нужно при каждым заходом на сайт менять 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. Извините, простой макрос мне не подходит. Спасибо. …
Страницы: 1
Board footer
Powered by PunBB
Modified by Mozilla Russia
Copyright © 2004–2020 Mozilla Russia 
Язык отображения форума: [Русский] [English]