Go Browsing

Ein kleines autoit-Script, um das Browsen zu simulieren…

#include <Array.au3>
 
Local $urls[16] = ['ct.de', 'chip.de', 's2s.gmbh', 'teamviewer.com', 'stern.de', 'spon.de', 'google.de', 'linuxmint.com','zorin.com','getsol.us','manjaro.org','suse.com','getfedora.org','ubuntu.com','debian.org','raspbian.org']
Local $target
 
MsgBox(0, "Go Browsing", "Bitte OK drücken und Chrome-Fenster anwählen")
Sleep(10000)
 
While 1
	If UBound($urls) > 1 Then
		$Index = Random(0, UBound($urls), 1)
		If $Index > UBound($urls) - 1 Then $Index = UBound($urls) - 1
		$target = $urls[$Index]
 
		Send("^l")
		Sleep(500)
		Send($target)
		Send("{ENTER}")
		Sleep(10000)
 
	EndIf
WEnd
exit