#include <AutoItConstants.au3>



#include <MsgBoxConstants.au3>
#include <array.au3>
;https://pastebin.com/duMuyfNk


Local $aryReturnedCoords[2]

Do

Sleep(5000)

Local $COUNT

$Count = $Count + 1

If @DesktopWidth = 1900 and @DesktopHeight = 1080 Then

$aryReturnedCoords = GetCoords1900x1080()

ElseIf @DesktopWidth = 1600 and @DesktopHeight = 1024 Then

$aryReturnedCoords = GetCoords1600x1024()

ElseIf @DesktopWidth = 1600 and @DesktopHeight = 900 Then

$aryReturnedCoords = GetCoords1600x900()

ElseIf @DesktopWidth = 1400 and @DesktopHeight = 1050 Then

$aryReturnedCoords = GetCoords1400x1050()

ElseIf @DesktopWidth = 1366 and @DesktopHeight = 768 Then

$aryReturnedCoords = GetCoords1366x768()

ElseIf @DesktopWidth = 1280 and @DesktopHeight = 1024 Then

$aryReturnedCoords = GetCoords1280x1024()

ElseIf @DesktopWidth = 1280 and @DesktopHeight = 960 Then

$aryReturnedCoords = GetCoords1280x960()

ElseIf @DesktopWidth = 1024 and @DesktopHeight = 768 Then

$aryReturnedCoords = GetCoords1024x768()

EndIf


	  MouseClick($MOUSE_CLICK_LEFT, $aryReturnedCoords[0], $aryReturnedCoords[1], 1)
	  Sleep(Random(15000,30000)) ; (Optional) Pauses one second so you can watch the script work

	  MouseClick($MOUSE_CLICK_RIGHT, 216, 48, 1)
	  Sleep(Random(500,3500))

MouseClick($MOUSE_CLICK_LEFT, 269, 205, 1)
	  sleep(Random(500,3500))

   Send("https://www.cnn.com{ENTER}")

   Until $COUNT=100000





Func GetCoords1900x1080()

Do

  Local $x = Random(425,1489)
  Local $y = Random(278,1021)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc

Func GetCoords1600x1024()

Do

  Local $x = Random(267,1320)
  Local $y = Random(278,926)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc

Func GetCoords1600x900()

Do

  Local $x = Random(267,1320)
  Local $y = Random(278,810)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc

Func GetCoords1400x1050()

Do

  Local $x = Random(176,1214)
  Local $y = Random(290,930)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc

Func GetCoords1366x768()

Do

  Local $x = Random(151,1194)
  Local $y = Random(290,930)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc


Func GetCoords1280x1024()

Do

  Local $x = Random(100,1150)
  Local $y = Random(280,915)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc



Func GetCoords1280x960()

Do

  Local $x = Random(100,1150)
  Local $y = Random(275,850)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc



Func GetCoords1024x768()

Do

  Local $x = Random(25,975)
  Local $y = Random(175,680)

Until Hex(PixelGetColor($x,$y),6) <> "FFFFFF"

    Local $aryCoords[2]
    $aryCoords[0] = $x
    $aryCoords[1] = $y

    Return $aryCoords

EndFunc