Тестирование

aLLeXUs · 17 Май 2012

Wile E. Coyote, работает

Winst@n · 17 Май 2012

Wile E. Coyote,
Работает довольно прикольная штука.
Еще бы скорость инета бы узнавать что бы каждый раз не прыгать в модем

)

sergey3695 · 17 Май 2012

Wile E. Coyote,
На Юникоде не робит

На Анси ошибка и также не робит

nik1967 · 18 Май 2012

Хе, давным - давно пример от Serega переделывал. И даже выкладывал здесь.
GetMyIP

[SOURCE="inno"][Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
DefaultGroupName=My Program
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes
OutputBaseFilename=Yours ip

[Languages]
Name: rus; MessagesFile: compiler:Languages\Russian.isl

Код:

{===============================================================================}
{ Script name: GetMyIP.iss                                                      }
{ Script version: 1.1                                                           }
{ Author: Serega, [url]http://forum.oszone.net/member.php?userid=88670[/url]               }
{ Finishings: Habetdin, nik1967                                                 }
{                                                                               }
{ This script shows how to learn your IP                                        }
{ Этот скрипт показывает, как узнать свой IP                                    }
{===============================================================================}
var
  lbl: TLabel;
  Button: TButton;

function GetHtmlSource(const url: string): string;
var
  vHttp: Variant;
begin
  try
    vHttp := CreateOleObject('Microsoft.XMLHTTP');
    vHttp.open('GET', url, False);
    vHttp.send;
    Result := vHttp.responseText;
    lbl.Font.Color:= clGreen;
  except
    Result := 'интернет отключен';
    lbl.Font.Color:= clRed;
  end;
end;

procedure ButtonClick(Sender: TObject);
var
  strHtml: string;
begin
  strHtml := GetHtmlSource('http://automation.whatismyip.com/n09230945.asp');
  lbl.Caption := 'Ваш IP адрес: ' + Trim(strHtml);
end;

procedure InitializeWizard();
var
  strHtml: string;
begin
  with WizardForm do begin
    ClientWidth := ScaleX(260);   
    ClientHeight:= ScaleX(80);
    BorderStyle := bsDialog;
    OuterNotebook.Hide;
    Center;
    Caption := 'Ваш IP адрес';
  end;

  WizardForm.CancelButton.SetBounds(ScaleX(150), ScaleY(47), ScaleX(85), ScaleY(23));
  WizardForm.CancelButton.Parent := WizardForm;

  Button := TButton.Create(WizardForm);
  with Button do begin
      Parent := WizardForm;
      SetBounds(ScaleX(25), ScaleY(47), ScaleX(85), ScaleY(23));
      Caption := 'Узнать IP';
      OnClick := @ButtonClick;
  end;

  lbl := TLabel.Create(WizardForm);
  with lbl do begin
      Alignment:= taCenter;
      WordWrap:= true;
      Parent := WizardForm;
      AutoSize := False;
      Left := ScaleX(-5);
      Top := ScaleY(17);
      Width := ScaleX(270);
      Height:= ScaleX(80);
      Font.Size := 12;
  end;

  strHtml := GetHtmlSource('http://automation.whatismyip.com/n09230945.asp');
  lbl.Caption := 'Ваш IP адрес: ' + Trim(strHtml);
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

procedure CurPageChanged(CurPageID: Integer);
begin
  WizardForm.CancelButton.Caption := 'Закрыть';
end;[/SOURCE][/MORE]
И ещё
[MORE="Внутренний + внешний IP"][SOURCE="inno"][Setup]
AppName=MyIP
AppVerName=MyIP v 1.2
DefaultDirName={pf}\MyIP
DefaultGroupName=MyIP
OutputDir=.
Compression=lzma2/ultra
InternalCompressLevel=ultra
SolidCompression=yes
OutputBaseFilename=MyIP_int_ext

[Code]
type
   IP_ADDR_INFO = array of record
      Description: String;
      IPv4: String;
      IPv6: String;
   end;

function MessageBox(hWnd: HWND; lpText, lpCaption: PAnsiChar; uType: LongWord): Integer;  external 'MessageBoxA@user32.dll stdcall';

function GetHtmlSource(const url: string): string;
var
  vHttp: Variant;
begin
  try
    vHttp := CreateOleObject('Microsoft.XMLHTTP');
    vHttp.open('GET', url, False);
    vHttp.send;
    Result := vHttp.responseText;
  except
    Result := 'is not available';
  end;
end;

function GetLocalIP(var IPAddrInfo: IP_ADDR_INFO): Boolean;
var
   objSWbemLocator, objSWbemServices, objSWbemObjectSet, objRegExp, objRegExpMatches: Variant;
   IndexCount, i: Byte;
   strBuf, ptrnIPv4, ptrnIPv6: String;
begin
   try
      objSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
      objRegExp := CreateOleObject('VBScript.RegExp');
   except
      ShowExceptionMessage;
      Exit;
   end;
   ptrnIPv4 := '(\d{1,3}[.]){3}\d{1,3}'; //IPv4 regexp
   ptrnIPv6 := //IPv6 regexp
      '(([0-9a-fA-F]{1,4}:){1,1}(:[0-9a-fA-F]{1,4}){1,6})|(([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,5})|' +
      '(([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,4})|//(([0-9a-fA-F]{1,4}:){1,4}(:[0-9a-fA-F]{1,4}){1,3})|' +
      '(([0-9a-fA-F]{1,4}:){1,5}(:[0-9a-fA-F]{1,4}){1,2})|(([0-9a-fA-F]{1,4}:){1,6}(:[0-9a-fA-F]{1,4}){1,1})|' +
      '((([0-9a-fA-F]{1,4}:){1,7}|:):)|(:(:[0-9a-fA-F]{1,4}){1,7})|(((([0-9a-fA-F]{1,4}:){6})(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}))|' +
      '((([0-9a-fA-F]{1,4}:){5}[0-9a-fA-F]{1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3}))|' +
      '(([0-9a-fA-F]{1,4}:){5}:[0-9a-fA-F]{1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
      '(([0-9a-fA-F]{1,4}:){1,1}(:[0-9a-fA-F]{1,4}){1,4}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
      '(([0-9a-fA-F]{1,4}:){1,2}(:[0-9a-fA-F]{1,4}){1,3}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})|' +
      '(([0-9a-fA-F]{1,4}:){1,3}(:[0-9a-fA-F]{1,4}){1,2}:(25[0-5]|2[0-4]\d|[0-1]?\d?\d)(\.(25[0-5]|2[0-4]\d|[0-1]?\d?\d)){3})'; 

   objSWbemServices := objSWbemLocator.ConnectServer();
   objSWbemServices.Security_.ImpersonationLevel := 3;
   IndexCount := objSWbemServices.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration').Count;
   objSWbemObjectSet := objSWbemServices.ExecQuery('SELECT Description,IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE');

   for i := 0 to IndexCount-1 do
   try
      SetArrayLength(IPAddrInfo, GetArrayLength(IPAddrInfo)+1);
      strBuf := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).GetObjectText_;
      IPAddrInfo[GetArrayLength(IPAddrInfo)-1].Description := objSWbemObjectSet.Item('Win32_NetworkAdapterConfiguration.Index=' + IntToStr(i)).Properties_.Item('Description').Value;
      objRegExp.Pattern := ptrnIPv4;
      if objRegExp.Test(strBuf) then
      begin
         objRegExpMatches := objRegExp.Execute(strBuf);
         IPAddrInfo[GetArrayLength(IPAddrInfo)-1].IPv4 := objRegExpMatches.Item[0].Value;
      end;
      objRegExp.Pattern := ptrnIPv6;
      if objRegExp.Test(strBuf) then
      begin
         objRegExpMatches := objRegExp.Execute(strBuf);
         IPAddrInfo[GetArrayLength(IPAddrInfo)-1].IPv6 := objRegExpMatches.Item[0].Value;
      end;
   except
      GetExceptionMessage;
      SetArrayLength(IPAddrInfo, GetArrayLength(IPAddrInfo)-1);
   end;
   Result := (GetArrayLength(IPAddrInfo) > 0);
end;

function InitializeSetup: Boolean;
var
   i: Byte;
   strHtml, url: string;
   arr: IP_ADDR_INFO;
begin
  strHtml := GetHtmlSource('http://automation.whatismyip.com/n09230945.asp');
    if GetLocalIP(arr) then for i := 0 to GetArrayLength(arr)-1 do
    MessageBox(0, 
      arr[i].Description + #13#10 + 
      'IPv4: ' + arr[i].IPv4 + #13#10 + 
      'IPv6: ' + arr[i].IPv6 + #13#10 + 
      'IP: ' + Trim(strHtml) + #13#10, 
      'MyIP', MB_ICONINFORMATION);
  Result:=False;
end;[/SOURCE][/MORE]

PUNISHER · 18 Май 2012

sergey3695, не знаю какой у тебя компилятор компилятор, но на ansi все замечательно работает
Winst@n, проверку скорости соединения пришлось бы ждать, т.к. не сразу выдает информацию

sergey3695 · 20 Май 2012

Прошу протестировать, интерисует есть ли ошибки и что-то в этом роде:
Ссыль..

Для распаковки положить Output.arc рядом с инсталлятором.

alexa1995 · 21 Май 2012

sergey3695,
http://rghost.ru/38196464/image.png
не положил рядом

sergey3695 написал(а):
Output.arc

AntonOVS · 21 Май 2012

alexa1995 написал(а):
sergey3695,
http://rghost.ru/38196464/image.png
не положил рядом

Тоже самое.
Win XP x86

sergey3695 · 21 Май 2012

AntonOVS написал(а):
Тоже самое.
Win XP x86

Это я деинсталлятор не доделал еще до конца. Забыл скрыть форму при деинсталляции во время установки. Меня волнует смена языка и таскбар на семерке. С этим все ок?

LexBell · 20 Июл 2012

IsProc2.dll поскольку проект IsProc был заброшен, по всей видимости, (я чего-то даже ссылку сейчас не нашел...) и давно не соответствует реалиям жизни (кривая работа в Windows Vista и выше), набросал аналог, с учетом именно этих систем. Работа в системе ниже ХР не гарантируется. Точнее, могу гарантировать ошибки на системе ниже ХР

Итак, встречаем:
Библиотека, выводящая список процессов в указанной папке, с возможностью их закрытия.
Скачать.
Тестим, отписываемся.
С закрытием процессов - аккуратнее, внимательнее указываем папку процесса. потом встрою защиту от закрытия процессов из системных папок. А я пока, в деревню на грядки поехал

aLLeXUs · 3 Авг 2012

Привет всем! Прошу протестировать инсталлятор. Это моя первая серьезная работа, и на нее я потратил все лето. Для тестирования положите архив arc с именем Limbo.bin в котором должен быть exe limbo.exe. Буду рад вашим предложениям и идеям по этому скрипту. Не забываем отписываться.

P.S. Еще забыл, положите рядом директ икс, или отключите его в компонентах.

GVS276 · 3 Авг 2012

alex0413, Работает нормально! Win7 x86

Mailchik · 3 Авг 2012

alex0413, отличный инсталл, простенько и со вкусом. всё работает. win7x32.
p.s. тхт файл переименовал в limbo.bin и инсталл запустился.

aLLeXUs · 3 Авг 2012

Mailchik, ну там проверяется только на наличие файла. Тогда unarc должен был выдать ошибку...

Mailchik · 4 Авг 2012

alex0413, я в курсе. у самого такое в инсталле проделано.

nik1967 · 4 Авг 2012

alex0413 написал(а):
P.S. Еще забыл, положите рядом директ икс, или отключите его в компонентах.

Не ругнулся на отсутствие директ икса, хотя в компонентах был включен.
Ругнулся при отмеченной "Иконка на панели быстрого доступа"
Два пожелания:
1. Сделать деинсталлятор в стиле иснсталлятора.
2. На финишной странице надпись "На это потрачено 22 секунд. Как то не по русски. Может просто 22 с. ?
Win7 x64

aLLeXUs · 4 Авг 2012

nik1967,

nik1967 написал(а):
Не ругнулся на отсутствие директ икса, хотя в компонентах был включен.

использовал Exec2 от ISDone, думал что ошибка будет. Вскоре сделаю проверку на наличие DirectX, если нету, то и в компонентах не будет.

nik1967 написал(а):
Ругнулся при отмеченной "Иконка на панели быстрого доступа"

наверное в limbo.bin небыло limbo.exe

nik1967 написал(а):
Два пожелания:
1. Сделать деинсталлятор в стиле иснсталлятора.
2. На финишной странице надпись "На это потрачено 22 секунд. Как то не по русски. Может просто 22 с. ?

1. Думаю скоро сделаю

2. Наверное просто исправлю(22 секунды, 1 секунда, 5 секунд...)
P.S. Спасибо за тест и пожелания

Mailchik · 4 Авг 2012

alex0413 написал(а):
Вскоре сделаю проверку на наличие DirectX, если нету, то и в компонентах не будет.

а что будет, если надо будет разделить репак на два диска. ведь redist должен быть на втором диске, а на первом нет его, соответсвенно и компонент отключен будет..

OneTwo · 4 Авг 2012

alex0413, хороший вкус. Стиль и дизайн инсталлятора :up: Так же радует внимание к мелким деталям. Соглашусь с Николаем, что нужно деинсталл сделать в одном стиле. И я бы не стал делать страницу Настроек отдельным окном, уж лучше классической страницей, а то ещё нажав "Обзор" получится уже 3 окна :lamer: + ПБ выделяется из общего стиля и смотрится ужасно

nik1967 · 4 Авг 2012

Mailchik написал(а):
а что будет, если надо будет разделить репак на два диска. ведь redist должен быть на втором диске, а на первом нет его, соответсвенно и компонент отключен будет..

Mailchik написал(а):
тхт файл переименовал в limbo.bin и инсталл запустился.

txt файл переименуй в DXSETUP.exe, положи на 1 диск - и всё, проверку будет проходить, ноу проблем

Тестирование

Участник

Участник

Ветеран

Old Men

Участник

Ветеран

Участник

Новичок

Ветеран

Борода

Участник

Старожил

Старожил

Участник

Старожил

Old Men

Участник

Старожил

Новичок

Old Men