Advanced Search

Automated converticondotcom

/ Published in: AutoIt
Save to your folder(s)
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

Expand | Embed | Plain Text

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

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.