Dim useragents() as String
Dim referers() as String
Dim randheaders() as String
Dim randURLs() as String
randURLs.Append "http://www.courts.go.jp/" 
randURLs.Append "http://www.courts.go.jp/sitemap/index.html" 
randURLs.Append "http://www.courts.go.jp/toiawase/index.html" 
randURLs.Append "http://www.courts.go.jp/outline/index.html" 
randURLs.Append "http://www.courts.go.jp/privacy/index.html" 
randURLs.Append "http://www.courts.go.jp/english/" 
randURLs.Append "http://www.courts.go.jp/about/" 
randURLs.Append "http://www.courts.go.jp/about/sosiki/" 
randURLs.Append "http://www.courts.go.jp/about/bousai/" 
randURLs.Append "http://www.courts.go.jp/about/sigoto/" 
randURLs.Append "http://www.courts.go.jp/about/hogosisaku/" 
randURLs.Append "http://www.courts.go.jp/about/yosan_kessan/" 
randURLs.Append "http://www.courts.go.jp/about/sihonomado/" 
randURLs.Append "http://www.courts.go.jp/about/iinkai/" 
randURLs.Append "http://www.courts.go.jp/about/pamphlet/" 
randURLs.Append "http://www.courts.go.jp/about/siryo/" 
randURLs.Append "http://www.courts.go.jp/about/kankyo/" 
randURLs.Append "http://www.courts.go.jp/about/topics/" 
randURLs.Append "http://www.courts.go.jp/saiban/" 
randURLs.Append "http://www.courts.go.jp/saiban/syurui/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/zinbutu/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/wadai/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/kankatu/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/tesuuryou/index.html" 
randURLs.Append "http://www.courts.go.jp/about/pamphlet/index.html" 
randURLs.Append "http://www.courts.go.jp/search/jhsp0010?action_id=first&hanreiSrchKbn=01" 
randURLs.Append "http://www.courts.go.jp/search/jtsp0010?" 
randURLs.Append "http://www.courts.go.jp/saikosai/index.html" 
randURLs.Append "http://www.courts.go.jp/map.html" 
randURLs.Append "http://www.saibanin.courts.go.jp/" 
randURLs.Append "http://www.ip.courts.go.jp/" 
randURLs.Append "http://www.courts.go.jp/adr/index.html" 
randURLs.Append "http://www.courts.go.jp/kensin/index.html" 
randURLs.Append "http://www.courts.go.jp/sinsai/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/2306_2/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/240606/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/kenpoukinenbi/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/wadai/2402/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/2401/index.html" 
randURLs.Append "http://www.saibanin.courts.go.jp/topics/11_11_11_meibo_hassou.html" 
randURLs.Append "http://www.courts.go.jp/about/bousai/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/2311_2/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/2309/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/2309_2/index.html" 
randURLs.Append "http://www.courts.go.jp/about/siryo/kodo_keikaku/index.html" 
randURLs.Append "http://www.courts.go.jp/sinsai/sinsai_tyoutei_soudan/index.html" 
randURLs.Append "http://www.courts.go.jp/about/siryo/hokoku_04_about/index.html" 
randURLs.Append "http://www.courts.go.jp/sinsai/sinsai_110610/index.html" 
randURLs.Append "http://www.courts.go.jp/sinsai/sinsai_kasai_osirase/index.html" 
randURLs.Append "http://www.courts.go.jp/saiban/tesuuryou/sinsai_mousitate/index.html" 
randURLs.Append "http://www.courts.go.jp/sinsai/sinsai_110330/index.html" 
randURLs.Append "http://www.courts.go.jp/about/topics/fusin_denwa/index.html" 
randURLs.Append "http://www.courts.go.jp/search/jhsp0020Recent?hanreiSrchKbn=02&recentInfoFlg=1" 
randURLs.Append "http://www.courts.go.jp/search/jhsp0020Recent?hanreiSrchKbn=04&recentInfoFlg=1" 
randURLs.Append "http://www.courts.go.jp/search/jhsp0020Recent?hanreiSrchKbn=07&recentInfoFlg=2" 
randURLs.Append "http://www.courts.go.jp/kengaku/" 
randURLs.Append "http://www.courts.go.jp/kisokusyu/" 
randURLs.Append "http://www.courts.go.jp/saiyo/" 
randURLs.Append "http://www.courts.go.jp/tyotatu/" 
randURLs.Append "http://www.courts.go.jp/video/" 
randURLs.Append "http://www.courts.go.jp/online/" 
randURLs.Append "http://www.courts.go.jp/links/" 

  URL =  randURLs(RndNumber(0, randURLs.UBound))
 

useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-GB; rv:1.8.1.6) Gecko/20070725 Firefox/2.0.0.6"
useragents.Append "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1)"
useragents.Append "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 1.1.4322; .NET CLR 2.0.50727; .NET CLR 3.0.04506.30)"
useragents.Append "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)"
useragents.Append "Mozilla/4.0 (compatible; MSIE 5.0; Windows NT 5.1; .NET CLR 1.1.4322)"
useragents.Append "Googlebot/2.1 ( http://www.googlebot.com/bot.html) "
useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US) AppleWebKit/534.14 (KHTML, like Gecko) Chrome/9.0.601.0 Safari/534.14"
useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.14 (KHTML, like Gecko) Chrome/9.0.600.0 Safari/534.14"
useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Chrome/9.0.597.0 Safari/534.13"
useragents.Append "Mozilla/5.0 (X11; U; Linux x86_64; en-US) AppleWebKit/534.13 (KHTML, like Gecko) Ubuntu/10.04 Chromium/9.0.595.0 Chrome/9.0.595.0 Safari/534.13"
useragents.Append "Mozilla/5.0 (compatible; MSIE 7.0; Windows NT 5.2; WOW64; .NET CLR 2.0.50727)"
useragents.Append "Mozilla/5.0 (compatible; MSIE 8.0; Windows NT 5.2; Trident/4.0; Media Center PC 4.0; SLCC1; .NET CLR 3.0.04320)"
useragents.Append "Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10_5_8; zh-cn) AppleWebKit/533.18.1 (KHTML, like Gecko) Version/5.0.2 Safari/533.18.5"
useragents.Append "Mozilla/5.0 (Windows; U; Windows NT 6.1; es-ES) AppleWebKit/533.18.1 (KHTML, like Gecko) Version/5.0 Safari/533.16"
useragents.Append "Opera/9.80 (Windows NT 5.2; U; ru) Presto/2.5.22 Version/10.51"
useragents.Append "Mozilla/5.0 (Windows NT 5.1; U; Firefox/5.0; en; rv:1.9.1.6) Gecko/20091201 Firefox/3.5.6 Opera 10.53"
 
// populate referer list

referers.Append "http://www.google.com/?q=mega+upload+closed"
referers.Append "http://www.google.com/?q=opmegaupload+anonymous+hacker"
referers.Append "http://www.google.com/?q=anonymous+hacker"
referers.Append URL

// Add random headers
randheaders.Append "Cache-Control: no-cache"
randheaders.Append "If-Modified-Since: Sat, 29 Oct 1994 11:59:59 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Sep 2002 10:34:27 GMT"
randheaders.Append "If-Modified-Since: Mon, 12 Aug 2004 12:54:49 GMT"
randheaders.Append "If-Modified-Since: Wed, 30 Jan 2000 01:21:09 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Aug 2006 08:49:15 GMT"
randheaders.Append "If-Modified-Since: Fri, 20 Oct 2006 09:34:27 GMT"
randheaders.Append "If-Modified-Since: Mon, 29 Oct 2001 05:17:09 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Apr 2003 12:54:49 GMT"
randheaders.Append "If-Modified-Since: Sat, 18 Aug 2002 12:54:49 GMT"
randheaders.Append "If-Modified-Since: Wed, 30 Jan 2000 01:21:09 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Aug 2009 08:49:15 GMT"
randheaders.Append "If-Modified-Since: Fri, 20 Jun 2006 09:34:27 GMT"
randheaders.Append "If-Modified-Since: Sun, 13 Oct 2007 11:59:59 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Aug 2003 12:54:49 GMT"
randheaders.Append "If-Modified-Since: Wed, 30 Jan 2002 01:21:09 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Aug 2009 08:49:15 GMT"
randheaders.Append "If-Modified-Since: Fri, 20 Oct 2008 09:34:27 GMT"
randheaders.Append "If-Modified-Since: Mon, 29 Oct 2007 11:59:59 GMT"
randheaders.Append "If-Modified-Since: Tue, 18 Aug 2001 12:54:49 GMT"
 
Headers.Append "Keep-Alive: 115"
Headers.Append "Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7"
Headers.Append "Connection: keep-alive"
 
// ------------------ DO NOT EDIT BELOW THIS LINE
 
// generate random referer
Headers.Append "Referer: " + referers(RndNumber(0, referers.UBound))
// generate random user agent (DO NOT MODIFY THIS LINE)
Headers.Append "User-Agent: " + useragents(RndNumber(0, useragents.UBound))
// Generate random headers
Headers.Append randheaders(RndNumber(0, randheaders.UBound))