Ticket #854: Test.au3

File Test.au3, 1.2 KB (added by Jpm, 15 years ago)
Line 
1#include <Inet.au3>
2;
3Func Verify_New_Keys($eset_user, $eset_pass)
4;~    _INetGetSource('www.google.com')
5   Local $serial_status_0 = 0
6   Local $serial_status_1 = 0
7   Local $serial_status_2 = 0
8   Local $buffer_server = '*', $server
9   For $server_idx = 30 To 59
10      While 1
11         $server = Random(30, 59, 1)
12         If StringReplace($buffer_server, '*' & $server & '*', '') = $buffer_server Then ExitLoop
13      WEnd
14      $buffer_server &= $server & '*'
15      $server = 'u' & $server & '.eset.com'
16      $serial_status_0 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine0.nup')
17      If $serial_status_0 = 0 Then $serial_status_1 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine1.nup')
18      If $serial_status_1 = 0 Then $serial_status_2 = InetGetSize('http://' & $eset_user & ':' & $eset_pass & '@' & $server & '/download/engine/engine2.nup')
19      If $serial_status_0 + $serial_status_1 + $serial_status_2 > 0 Then Return 'Correct'
20   Next
21   Return 'Wrong'
22EndFunc   ;==>Verify_New_Keys
23;
24MsgBox(0, '', Verify_New_Keys('EAV-13000653', '6r8x7uvnx4'))