Revision: 53462
Updated Code
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
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
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