- 001
- 002
- 003
- 004
- 005
- 006
- 007
- 008
- 009
- 010
- 011
- 012
- 013
- 014
- 015
- 016
- 017
- 018
- 019
- 020
- 021
- 022
- 023
- 024
- 025
- 026
- 027
- 028
- 029
- 030
- 031
- 032
- 033
- 034
- 035
- 036
- 037
- 038
- 039
- 040
- 041
- 042
- 043
- 044
- 045
- 046
- 047
- 048
- 049
- 050
- 051
- 052
- 053
- 054
- 055
- 056
- 057
- 058
- 059
- 060
- 061
- 062
- 063
- 064
- 065
- 066
- 067
- 068
- 069
- 070
- 071
- 072
- 073
- 074
- 075
- 076
- 077
- 078
- 079
- 080
- 081
- 082
- 083
- 084
- 085
- 086
- 087
- 088
- 089
- 090
- 091
- 092
- 093
- 094
- 095
- 096
- 097
- 098
- 099
- 100
begin
if Form2.ProxySettingsCheckBox.Checked = True then
begin
FKeyHideme := HidemeEdit.Text;
FTempInfo := '';
FHTTPTemp := False;
FSOCKS4Temp := False;
FSOCKS5Temp := False;
FKeyBest := BestEdit.Text;
FUrlHTTP := HTTPEditUrl.Text;
FLoginOther := LoginEdit.Text;
FPassOther := PassEdit.Text;
if HTTPCheckBox.Checked = True then
FTypeHTTP := True
else
FTypeHTTP := False;
if SOCKS4CheckBox.Checked = True then
FTypeSOCKS4 := True
else
FTypeSOCKS4 := False;
if SOCKS5CheckBox.Checked = True then
FTypeSocks5 := True
else
FTypeSocks5 := False;
if FileCheckBox.Checked = True then
FTemp := 1
else
Sleep(0);
if HidemeCheckBox.Checked = True then
FTemp := 2
else
Sleep(0);
if BestCheckBox.Checked = True then
FTemp := 3
else
Sleep(0);
if OtherCheckBox.Checked = True then
FTemp := 4
else
Sleep(0);
if UrlCheckBox.Checked = True then
FTemp := 5
else
Sleep(0);
if FTemp = -1 then
begin
ShowMessage('Выберите метод загрузки прокси');
end
else
begin
if (FTypeHTTP = False) and (FTypeSOCKS4 = False) and (FTypeSocks5 = False)
then
begin
ShowMessage
('Выберите хотя бы 1 тип прокси который вы хотите использовать!');
end
else
begin
if FTemp = 1 then
begin
if Proxy.Count <> 0 then
begin
Form1.CleanButton.Enabled := True;
Form1.ProxyButton.Enabled := False;
Form1.Enabled := True;
Form2.Hide;
Form1.ProxyLabel.Caption := IntToStr(Proxy.Count);
end
else
begin
ShowMessage('Прокси не обнаружено!');
end;
end
else
begin
if FTemp = 5 then
begin
if HTTPEditUrl.Text <> '' then
begin
Thread.Create(False);
end
else
begin
ShowMessage('Введите ссылку для получения проксей!');
end;
end
else
begin
Thread.Create(False);
end;
end;
end;
end;
end
else
begin
Form1.Enabled := True;
Form2.Hide;
end;
end;
Комментарии (0) RSS
Добавить комментарий