So I Made My First Bot With Imacros

LightHouse said:

would it work for pulling a password out of an email to save it as VAR1?

Click to expand...

Name = "Thank you for creating an acount with blablabla Your login name is blabla3421 and you password is 740c21d6"

' ---- adding symbols to password and login name, also stripping is from sentence ------
strip1 = (Replace(Name, "password", "password:"))
strip2 = (Replace(strip1, "login name", "login;"))
strip3 = (Replace(strip2, "is", ""))
msgBox strip3

' ----looking where to start output -----

Dim strUser
strUser = strip3
For i = 1 To Len(strUser)
strPos = InStr(1, ";", Mid(strUser, i, 1))
If strPos > 0 Then
' ---- looking where to stop output ------
strResult = Mid(strip3, i, InStr(i + 1, strip3, "and") - i)
End If
Next
' ---- stripping symbols from login -----
strName = (Replace(strResult, ";", ""))
msgBox strName

RAV1 = strName
RAV2 = strPass
iret = iim1.iimSet("-var_RAV1", RAV1)
iret = iim1.iimSet("-var_RAV2", RAV2)

 
 WScript.Quit(0)

mrwho said:

Can't figure out how to extract the last part of a sentence if there is nothing after it so I gotta add something to the end of it but still trying to figure out how...anyway save as a vbs file and play around with the script til it meets your needs as this isn't a universal script.

also I had to remove the strPass part as it was throwing errors due to what i mentioned above and watch for line wrap

Code:

Name = "Thank you for creating an acount with blablabla Your login name is blabla3421 and you password is 740c21d6"

' ---- adding symbols to password and login name, also stripping is from sentence ------
strip1 = (Replace(Name, "password", "password:"))
strip2 = (Replace(strip1, "login name", "login;"))
strip3 = (Replace(strip2, "is", ""))
msgBox strip3

' ----looking where to start output -----

Dim strUser
strUser = strip3
For i = 1 To Len(strUser)
strPos = InStr(1, ";", Mid(strUser, i, 1))
If strPos > 0 Then
' ---- looking where to stop output ------
strResult = Mid(strip3, i, InStr(i + 1, strip3, "and") - i)
End If
Next
' ---- stripping symbols from login -----
strName = (Replace(strResult, ";", ""))
msgBox strName

RAV1 = strName
RAV2 = strPass
iret = iim1.iimSet("-var_RAV1", RAV1)
iret = iim1.iimSet("-var_RAV2", RAV2)

 
 WScript.Quit(0)

Click to expand...

LightHouse said:

gotcha, thanks for that. so where do you reccomend or what book do you reccomend to learn VBS? i will have to break this down and learn the parts to it. Also thanks for the heads up on using set proxies deal, i appreciate that.

Click to expand...

http://www.bigresource.com

w3schools.com

[U]http://www.mediafire.com/?sharekey=17f70793bfcd2c37e7c82ed4b8f0c380578464406890a5dece018c8114394287[/U]

1. set your computer date to somewhere in 2002 (that was the last time this language was supported)
2. install 30 days evaluation
3. use runasdate or any other program to run this program in the 2002 date and you can evaluate it forever!! so enjoy
4. after this dont forget to change the date of computer back to present

VERSION BUILD=6600525
TAB T=1
TAB CLOSEALLOTHERS
SET !DATASOURCE C:\Users\olm75\Documents\iMacros\Datasources\varibles.txt
URL GOTO=http://hubpages.com/
TAG POS=1 TYPE=A ATTR=TXT:start<SP>a<SP>new<SP>hub

TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:title CONTENT=title3
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:url CONTENT=webaddress3

TAG POS=1 TYPE=SELECT FORM=NAME:NoFormName ATTR=ID:categorySelector CONTENT=9

'TAGS
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:tag_1 CONTENT=tag1
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:tag_2 CONTENT=tag2

'CAPTCHA
TAG POS=1 TYPE=INPUT:SUBMIT FORM=NAME:NoFormName ATTR=ID:temp
TAG POS=3 TYPE=INPUT:SUBMIT FORM=NAME:NoFormName ATTR=ID:cbutton

PROMPT Enter<SP>Captcha<SP> !VAR1
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:recaptcha_response_field CONTENT={{!VAR1}}
TAG POS=1 TYPE=INPUT:BUTTON FORM=NAME:NoFormName ATTR=VALUE:**Continue*

'ENTER PHOTO EDIT
TAG POS=1 TYPE=SPAN ATTR=ID:edit*
TAG POS=1 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:*_titleinput CONTENT=capsule<SP>sub
TAG POS=1 TYPE=INPUT:RADIO FORM=ACTION:/imgup/hubtool.php?m_id=* ATTR=ID:image_computer_radio_*&&VALUEn CONTENT=YES
TAG POS=1 TYPE=INPUT:FILE FORM=ACTION:/imgup/hubtool.php?m_id=* ATTR=NAME:file_* CONTENT={{photo}}
TAG POS=1 TYPE=INPUT:BUTTON FORM=ACTION:/imgup/hubtool.php?m_id=* ATTR=ID:image_load_*

'SAVE SETTINGS
TAG POS=1 TYPE=SPAN ATTR=ID:edit_*


TAG POS=2 TYPE=SPAN ATTR=ID:edit_*
TAG POS=2 TYPE=INPUT:TEXT FORM=NAME:NoFormName ATTR=ID:*_titleinput CONTENT=<SP>sug<SP>title

SIZE X=1296 Y=767
FRAME F=3
DS CMD=CLICK X=564 Y=459 CONTENT=TEST THIS

'TAG POS=2 TYPE=SPAN ATTR=ID:edit_*

Click to expand...

Nocali said:

Thanks everyone for the great contributions and helping me learn how to use macros. I'm considering dumping my SEnuke.

I have pretty much got the hang of imacros but don't know how to use it in combination with PHP to handle errors or use conditional statements.
Can anyone give an example or point me to a tutorial?

Also I found this awesome bit of code here at BHW that spins using the same format as senuke, PAR and other spinners.

http://www.blackhatworld.com/blackh.../87501-get-free-article-spinner-php-code.html

If anyone could show me how to incorporate this into imacro it would make my day

Click to expand...

Dim iret, iim1

set iim1= CreateObject ("imacros")

Dim max,min,intCase
max=4
min=1
randomize
intCase = Int((max-min+1)*Rnd+min)
dim strWord
select case intCase
    case 1
        strWord = "exciting"
    case 2
        strWord = "inspiring"
    case 3
        strWord = "heady"
    case 4
        strWord = "inspiring"
end select

msgbox "This is " & strWord & "!"

Nocali said:

Not exactly, I'm trying to re-create all the functions of senuke, as in signup / verify emails, post spun articles and so on..

Click to expand...