Please correct me this script

Discussions and Tech Support related to automating the iMacros Browser or Internet Explorer from any scripting and programming language, such as VBS (WSH), VBA, VB, Perl, Delphi, C# or C++.
Forum rules
iMacros EOL - Attention!

The renewal maintenance has officially ended for Progress iMacros effective November 20, 2023 and all versions of iMacros are now considered EOL (End-of-Life). The iMacros products will no longer be supported by Progress (aside from customer license issues), and these forums will also no longer be moderated from the Progress side.

Thank you again for your business and support.

Sincerely,
The Progress Team

Before asking a question or reporting an issue:
1. Please review the list of FAQ's.
2. Use the search box (at the top of each forum page) to see if a similar problem or question has already been addressed.
3. Try searching the iMacros Wiki - it contains the complete iMacros reference as well as plenty of samples and tutorials.
4. We can respond much faster to your posts if you include the following information: CLICK HERE FOR IMPORTANT INFORMATION TO INCLUDE IN YOUR POST
Post Reply
ismail3
Posts: 1
Joined: Fri Sep 30, 2016 2:46 pm

Please correct me this script

Post by ismail3 » Fri Sep 30, 2016 2:50 pm

Please correct me this script because it dosn't work correctly

Code: Select all

SET !ERRORIGNORE YES
SET !TIMEOUT_PAGE 15
SET !EXTRACT_TEST_POPUP NO
SET !REPLAYSPEED FAST
VERSION BUILD=8920312 RECORDER=FX
TAB CLOSEALLOTHERS
TAB T=1
URL GOTO=http://21manga.com/viewforum.php?f=2
TAB OPEN
TAB T=2


URL GOTO=http://www.djelfa.info/vb/archive/index.php/t-19254.html
SET !EXTRACT NULL
WAIT SECONDS=3
TAG POS=1 TYPE=TITLE ATTR=* EXTRACT=TXT
SET !EXTRACT NULL
SET !EXTRACT {{!VAR3}}
SET !CLIPBOARD {{!EXTRACT}}
TAB T=1
TAG POS=1 TYPE=A ATTR=TXT:New<SP>Topic
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:postform ATTR=NAME:subject CONTENT={{!CLIPBOARD}}


TAB T=2
TAG POS=1 TYPE=DIV ATTR=CLASS:posttext EXTRACT=TXT
SET !VAR1 EVAL("var s=\"{{!EXTRACT}}\"; s.replace(\"[EXTRACT]\",\"\"); ")
SET !EXTRACT NULL
SET !EXTRACT {{!VAR1}}
SET !CLIPBOARD {{!EXTRACT}}
TAB CLOSE
TAB T=1
TAG POS=1 TYPE=TEXTAREA FORM=NAME:postform ATTR=NAME:message CONTENT=[size=150][b]{{!CLIPBOARD}}[/b][/size]
WAIT SECONDS=3
TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:postform ATTR=NAME:post
WAIT SECONDS=3000
chivracq
Posts: 10301
Joined: Sat Apr 13, 2013 1:07 pm
Location: Amsterdam (NL)

Re: Please correct me this script

Post by chivracq » Sat Oct 01, 2016 7:46 pm

ismail3 wrote:Please correct me this script because it dosn't work correctly

Code: Select all

SET !ERRORIGNORE YES
SET !TIMEOUT_PAGE 15
SET !EXTRACT_TEST_POPUP NO
SET !REPLAYSPEED FAST
VERSION BUILD=8920312 RECORDER=FX
TAB CLOSEALLOTHERS
TAB T=1
URL GOTO=http://21manga.com/viewforum.php?f=2
TAB OPEN
TAB T=2


URL GOTO=http://www.djelfa.info/vb/archive/index.php/t-19254.html
SET !EXTRACT NULL
WAIT SECONDS=3
TAG POS=1 TYPE=TITLE ATTR=* EXTRACT=TXT
SET !EXTRACT NULL
SET !EXTRACT {{!VAR3}}
SET !CLIPBOARD {{!EXTRACT}}
TAB T=1
TAG POS=1 TYPE=A ATTR=TXT:New<SP>Topic
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:postform ATTR=NAME:subject CONTENT={{!CLIPBOARD}}


TAB T=2
TAG POS=1 TYPE=DIV ATTR=CLASS:posttext EXTRACT=TXT
SET !VAR1 EVAL("var s=\"{{!EXTRACT}}\"; s.replace(\"[EXTRACT]\",\"\"); ")
SET !EXTRACT NULL
SET !EXTRACT {{!VAR1}}
SET !CLIPBOARD {{!EXTRACT}}
TAB CLOSE
TAB T=1
TAG POS=1 TYPE=TEXTAREA FORM=NAME:postform ATTR=NAME:message CONTENT=[size=150][b]{{!CLIPBOARD}}[/b][/size]
WAIT SECONDS=3
TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:postform ATTR=NAME:post
WAIT SECONDS=3000
Yep, "at your Service", good luck, ah-ah...! :roll:
- (F)CI(M) = (Full) Config Info (Missing): iMacros + Browser + OS (+ all 3 Versions + 'Free'/'PE'/'Trial').
- FCI not mentioned: I don't even read the Qt...! (or only to catch Spam!)
- Script & URL help a lot for more "educated" Help...
Post Reply