IE Automation

[Generator]

Hi,

I am looking for a script that will log on to a site via IE7 and then install the Certificate for that site.

I was trying a keyboard macro, but the little widget that pops up only accepts input from a mouse.

Any help would be appriciated.

OldDog

Please provide more information such as a website and user account to test with.

[SleepyXtreme]

suggestion for an additional script:

How bout mapquest? cause it's always a pain to keep entering in your home address everytime you want directions.

[Generator]

suggestion for an additional script:

How bout mapquest? cause it's always a pain to keep entering in your home address everytime you want directions.

More detail?

[SleepyXtreme]

http://www.mapquest.com/directions/main.adp?bCTsettings=1

you have to enter in street, city, zip, state

(Check your PMs generator)

[pjagaraj]

This works!

[Generator]

This works!

Welcome

[Generator]

http://www.mapquest.com/directions/main.adp?bCTsettings=1

you have to enter in street, city, zip, state

(Check your PMs generator)

Not sure how you want to do it, because i saw there's a save setting, so you can just load it everytime, other than that send me PM with more Info.

Updated for SteveO NeoPet forum reply, only works for english version of the website

[SleepyXtreme]

also,

can you figure out how to maybe join a group with facebook , thanks

edit: this is what i got so far but i can't seem to do the very last step.

_JoinGroup($Mail, $Pass, "THEY ARE TRYING TO SHUT DOWN FACEBOOK - PETITION TO KEEP IT! INVITE ALL!Global", 5000)
Func _JoinGroup($oEmail, $oPassword, $oGroup, $oTimeout)
    Local $oIE3, $oForm, $oQuery, $oSubmit, $oElement, $oObj
    _IEErrorHandlerRegister()
    _IELoadWaitTimeout($oTimeout)
    $oIE3 = _IECreate("http://www.facebook.com/", 0, 1, 1)
    $oForm = _IEFormGetObjByName($oIE3, "loginform")
    $oQuery = _IEFormElementGetObjByName($oForm, "email")
    $o_Query = _IEFormElementGetObjByName($oForm, "pass")
    $oSubmit = _IEFormElementGetObjByName($oForm, "doquicklogin")
    _IEFormElementSetValue($oQuery, $oEmail)
    _IEFormElementSetValue($o_Query, $oPassword)
    _IEAction($oSubmit, "click")
    _IELoadWait($oIE3, $oTimeout, $oTimeout)
    _IENavigate($oIE3, "http://albany.facebook.com/s.php?ref=search")
    _IELoadWait($oIE3, $oTimeout, $oTimeout)
    $oForm = _IEFormGetCollection ($oIE3,1)
    $o_Query=_IEFormElementGetCollection($oForm,0)
    _IEFormElementSetValue($o_Query, $oGroup)
    $oForm = _IEFormGetObjByName($oIE3, "Search")
    _IEFormSubmit ($oForm)
    _IELoadWait($oIE3, $oTimeout, $oTimeout)
    
EndFunc

this is a method you can do by joining a group by name, if you give me the last step i can do directly by putting in the address

Thanks in advance

Edited August 17, 2007 by SleepyXtreme

[Generator]

Updated.

[SleepyXtreme]

Maybe add this to first post :

Gunbound Login with a processbar and hidden window

expandcollapse popup

#include<IE.au3>
$Account=""
$Password =""
$Timeout=5000
_Login($Account,$Password,$Timeout)

Func _Login($oAccount, $oPassword, $oTimeout)
    Local $oIE, $oForm, $oQueryUser, $oSubmit, $oElement, $oObj, $oQueryPassword
    ProgressOn("Gunbound Login", "Starting up", "0 percent")
    _IEErrorHandlerRegister()
    ProgressSet( 0, "0 percent")
    _IELoadWaitTimeout($oTimeout)
    for $x = 1 to 20
        ProgressSet( $x, $x &" percent")
        sleep(100)
    Next    
    $oIE = _IECreate("http://gunbound.ijji.com/", 0, 0, 1)
    ProgressSet( 20, "20 percent")
    _IELoadWait($oIE, $oTimeout, $oTimeout)
    ProgressSet( 40, "40 percent")
    $oForm = _IEFormGetCollection ($oIE,1)
    $oQueryUser=_IEFormElementGetCollection($oForm,2)
    $oQueryPassword=_IEFormElementGetCollection($oForm,3)
    ProgressSet( 60, "60 percent")
    _IEFormElementSetValue($oQueryUser, $oAccount)
    _IEFormElementSetValue($oQueryPassword, $oPassword)
    ProgressSet( 70, "70 percent")
    _IEFormSubmit ($oForm)
    ProgressSet( 80, "80 percent")
    _IELoadWait($oIE, $oTimeout, $oTimeout)
    ProgressSet( 90, "90 percent")
    _IENavigate($oIE, "java script:void(getLaunchScript('u_gbound', ''))")
    for $x = 91 to 100
        ProgressSet( $x, $x &" percent")
        sleep(100)
    Next
    ;_IELoadWait($oIE, $oTimeout, $oTimeout)
    _IEQuit($oIE)
    ProgressSet(100 , "Done", "Complete")
    sleep(500)
    ProgressOff()   
EndFunc   ;==>_Login

[Generator]

Updated. Added IjjiGameLoad() and Commented all the functions.

[MCP]

uaaaaahhhh!!!!

it doesn't work. nor one version neither the second...

might it be because firefox is set as default?

[RiLLeSWE]

Hi,

I want to modify your script "_ForumReply()"

A generator make words, and put it in "msg = "" "

[AlmarM]

the Forum Login wont work at me :S

If i double click on it it wont do anything :S

It wont open a site or anything

I just hear 2 click sounds

[Generator]

A bot for the application on facebook called StarCraft Pride.

#include<IE.au3>
Dim $Action[2]
$oEmail = ""
$oPassword = ""
$oTimeout = 3500  ;in million secs

_IEErrorHandlerRegister()
_IELoadWaitTimeout($oTimeout)
$oIE = _IECreate("http://www.facebook.com/", 0, 0, 1)
WinSetState(_IEPropertyGet($oIE, "hwnd"), "", @SW_HIDE)
$oForm = _IEFormGetObjByName($oIE, "loginform")
$oQuery = _IEFormElementGetObjByName($oForm, "email")
$o_Query = _IEFormElementGetObjByName($oForm, "pass")
$oSubmit = _IEFormElementGetObjByName($oForm, "doquicklogin")
_IEFormElementSetValue($oQuery, $oEmail)
_IEFormElementSetValue($o_Query, $oPassword)
_IEAction($oSubmit, "click")
_IELoadWait($oIE, $oTimeout, $oTimeout)
_IENavigate($oIE, "http://apps.facebook.com/starcraftic/base.php")
_IELoadWait($oIE, $oTimeout, $oTimeout)

While 1 
    $Action[0] = _IEGetObjByName($oIE, "action", 0)
    $Action[1] = _IEGetObjByName($oIE, "action", 1)
    _IEAction($Action[Random(0,1,1)], "click")
    If @error Then _IENavigate($oIE, "http://apps.facebook.com/starcraftic/base.php")
    _IELoadWait($oIE, $oTimeout, $oTimeout)
WEnd

Edited October 24, 2007 by Generator

[JustinReno]

This works!