Posted By

theescapeing on 11/23/11


Tagged

autoitconverticon


Versions (?)

Automated converticondotcom


 / Published in: AutoIt
 

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

  1. #include <IE.au3>
  2.  
  3. if not WinExists("[CLASS:IEFrame]") Then
  4. $oIE = _IECreate("http://converticon.com/")
  5. WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)
  6.  
  7.  
  8.  
  9. WinWait("[CLASS:IEFrame]")
  10.  
  11.  
  12. sleep(6000)
  13. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 854, 310)
  14.  
  15.  
  16. if WinExists("Select file to upload by converticon.com") Then
  17. sleep(100)
  18. until not WinExists("Select file to upload by converticon.com")
  19.  
  20.  
  21.  
  22. $cards = InputBox("Change","Do you want to change your picture or icon? yes or no:")
  23. if $cards = "yes" Then
  24. sleep(1500)
  25. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 789, 516)
  26. ElseIf $cards = "no" Then
  27. sleep(1500)
  28. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 867, 516)
  29.  
  30.  
  31.  
  32.  
  33. $ca =InputBox("Diminsions"," 16 x 16, 24 x 24 ")
  34. if $ca = "16 x 16" or "16x16" then
  35. Sleep(1500)
  36. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 155)
  37. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  38. elseif $ca = "24 x 24" or "24x24" Then
  39. Sleep(1500)
  40. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 483, 186)
  41. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  42. ElseIf $ca = "32 x 32" Then
  43. Sleep(1500)
  44. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 214)
  45. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  46. ElseIf $ca = "48 x 48" Then
  47. Sleep(1500)
  48. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 481, 244)
  49. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  50. elseif $ca = "64 x 64" Then
  51. Sleep(1500)
  52. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 271)
  53. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  54. ElseIf $ca = "96 x 96" Then
  55. Sleep(1500)
  56. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 156)
  57. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  58. elseif $ca = "128 x 128" Then
  59. Sleep(1500)
  60. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 705, 185)
  61. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  62. elseif $ca = "192 x 192" Then
  63. Sleep(1500)
  64. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 480, 185)
  65. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  66. elseif $ca = "256 x 256" then
  67. Sleep(1500)
  68. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 706, 242)
  69. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)
  70. ElseIf $ca = "512 x 512" Then
  71. Sleep(1500)
  72. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 707, 272)
  73. ControlClick ( "[CLASS:IEFrame]", "", "", "left", 1, 866, 516)

Report this snippet  

You need to login to post a comment.