Automated converticondotcom - AutoIt Snipplr Social Repository

Revision: 53462

at November 23, 2011 20:04 by theescapeing

Updated Code

#include <IE.au3>

if not WinExists("[CLASS:IEFrame]") Then
$oIE =  _IECreate("http://converticon.com/")
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)

EndIf


WinWait("[CLASS:IEFrame]")


sleep(6000)
ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 854, 310)


if WinExists("Select file to upload by converticon.com") Then
Do
	sleep(100)
until not WinExists("Select file to upload by converticon.com")
EndIf



$cards = InputBox("Change","Do you want to change your picture or icon? yes or no:")
if $cards = "yes" Then
	sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 789, 516)
ElseIf $cards = "no" Then
	sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 867, 516)
EndIf




$ca =InputBox("Diminsions"," 16 x 16, 24 x 24 ")
if $ca = "16 x 16" or "16x16" then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 155)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "24 x 24" or "24x24" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 483, 186)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "32 x 32" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 214)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "48 x 48" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 244)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "64 x 64" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 271)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "96 x 96" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 156)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "128 x 128" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 705, 185)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "192 x 192" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 185)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "256 x 256" then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 242)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "512 x 512" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 707, 272)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
EndIf

Revision: 53461

at November 23, 2011 20:03 by theescapeing

Initial Code

#include <IE.au3>

if not WinExists("[CLASS:IEFrame]") Then
$oIE =  _IECreate("http://converticon.com/")
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)

EndIf


WinWait("[CLASS:IEFrame]")


sleep(6000)
ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 854, 310)


if WinExists("Select file to upload by converticon.com") Then
Do
	sleep(100)
until not WinExists("Select file to upload by converticon.com")
EndIf



$cards = InputBox("Change","Do you want to change your picture or icon? yes or no:")
if $cards = "yes" Then
	sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 789, 516)
ElseIf $cards = "no" Then
	sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 867, 516)
EndIf




$ca =InputBox("Diminsions"," 16 x 16, 24 x 24 ")
if $ca = "16 x 16" or "16x16" then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 155)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "24 x 24" or "24x24" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 483, 186)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "32 x 32" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 214)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "48 x 48" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 244)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "64 x 64" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 271)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "96 x 96" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 156)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "128 x 128" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 705, 185)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "192 x 192" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 185)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
elseif $ca = "256 x 256" then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 242)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
ElseIf $ca = "512 x 512" Then
	Sleep(1500)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 707, 272)
	ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
EndIf

sleep(3000)
ControlClick("","Save As","ID:1")

Initial URL

Initial Description

I made a tutorial on doing a simple automation useing the Controlclick using
control click coords, for someone on a forum. and did it for fun. just want to share
i also used  ifs  if you want to clean it up can use select case etc

Initial Title

Automated converticondotcom

Initial Tags

Initial Language

AutoIt

Choose a language for easy browsing: