xUpKSSpu

1{$I AeroLib/AeroLib.Simba}
2
3function RandStrs(): string;
4begin
5case random(1,4) of
61:
7begin
8typesend('@gmail.com');
9end;
102:
11begin
12typesend('@hotmail.com');
13end;
143:
15begin
16typesend('@yahoo.com');
17end;
184:
19begin
20typesend('@outlook.com');
21end;
225:
23begin
24typesend('@live.nl');
25end;
26end;
27end;
28function RandStr(Len: Integer): string;
29var
30I, y, cLen, clen2: Integer;
31Section, Keyname, FileName, Chars, chars1, chars2, chars3, chars4: string;
32 begin
33Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
34Chars1 := '@gmail.com';
35Chars2 := '@hotmail.com';
36cLen := length(chars);
37for i := 1 to Len do
38if (Random(2) = 1) then
39Result := Result + uppercase(Chars[Random(cLen) + 1])
40else
41Result := Result + Chars[Random(cLen) + 1];
42if (Random(2) = 1) then
43Result := Result + Chars1
44else
45Result := Result + Chars2;
46typesend(Result, false);
47Section := 'account';
48  KeyName := '02';
49  FileName := 'C:/Users/Administrator/Desktop/Accounts.ini';
50  WriteINI(Result, Section, KeyName,FileName);
51  presskey(VK_RETURN);
52end;
53procedure firstclicks;
54begin
55MoveMouse(509, 403); //Graphhics
56fastClick(MOUSE_LEFT);
57wait(1000);
58MoveMouse(522, 587);//Create Account
59fastClick(MOUSE_LEFT);
60wait(3000);
61MoveMouse(833, 547);//Done design
62fastClick(MOUSE_LEFT);
63wait(3000);
64
65MoveMouse(832, 277); //Random Name
66fastClick(MOUSE_LEFT);
67wait(500);
68end;
69
70
71procedure ChooseAge;
72begin
73 moveMouse(639, 364); //Age
74fastClick(MOUSE_LEFT);
75wait(500);
76
77case random(1,9) of
78
791:
80begin
81typesend('1', false);
82end;
832:
84begin
85typesend('2', false );
86end;
873:
88begin
89typesend('3', false);
90end;
914:
92begin
93typesend('4', false);
94end;
955:
96begin
97typesend('5', false);
98end;
996:
100begin
101typesend('6', false);
102end;
1037:
104begin
105typesend('7', false);
106end;
1078:
108begin
109typesend('8', false);
110end;
1119:
112begin
113typesend('9', false);
114end;
115end;
116case random(1,9) of
117
1181:
119begin
120typesend('1');
121end;
1222:
123begin
124typesend('2');
125end;
1263:
127begin
128typesend('3');
129end;
1304:
131begin
132typesend('4');
133end;
1345:
135begin
136typesend('5');
137end;
1386:
139begin
140typesend('6');
141end;
1427:
143begin
144typesend('7');
145end;
1468:
147begin
148typesend('8');
149end;
1509:
151begin
152typesend('9');
153end;
154end;
155end;
156 function RandStr1(Len: Integer): string;
157var
158I, y, cLen, clen2: Integer;
159Section, Keyname, FileName, Chars: string;
160 begin
161Chars := 'abcdefghijklmnopqrstuvwxyz0123456789';
162
163cLen := length(chars);
164for i := 1 to Len do
165if (Random(2) = 1) then
166Result := Result + uppercase(Chars[Random(cLen) + 1])
167else
168Result := Result + Chars[Random(cLen) + 1];
169typesend(Result, false);
170 Section := 'pass';
171 KeyName := '2';
172  FileName := 'C:/Users/Administrator/Desktop/Accounts.ini';
173  WriteINI(Result, Section, KeyName,FileName);
174end;
175procedure logout;
176begin
177RandStr(random(4, 9));
178wait(2500);
179PressKey(VK_RETURN);
180wait(500);
181
182MoveMouse(911, 107);
183fastClick(MOUSE_LEFT);
184wait(300);
185MoveMouse(481, 482);
186fastClick(MOUSE_LEFT);
187end;
188begin
189firstclicks;
190Chooseage;
191Randstr(random(4, 8));
192wait(1000);
193Randstr1(random(5, 8));
194logout;
195end.