Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 02.12.2010, 01:17   #1
Hello, world
Новичок
 
Регистрация: 02.12.2010
Сообщений: 2
Репутация: 10
По умолчанию "ip to txt"

Всем привет Нужно на WinAPI написать программу которая при запуске :
1.узнает ip компа
2.создает текстовый файл с именем x.x.x.x.x.txt (где x.x.x.x=ip) и по возможности записать в файл имя пользователя
3.Если всё TRUE то вывести окно с текстом "Done"
P.S Программу я собираюсь компилировать на PureBasic
Hello, world вне форума   Ответить с цитированием
Старый 02.12.2010, 03:20   #2
GunSmoker
Профессионал
 
Регистрация: 13.08.2009
Адрес: Россия, Тверь
Сообщений: 2,581
Репутация: 1066

icq: 436815515
skype: RandomClear
По умолчанию

И что? Вопрос-то где? Надо - так создавайте.
__________________
Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.
GunSmoker вне форума   Ответить с цитированием
Старый 02.12.2010, 10:40   #3
Hello, world
Новичок
 
Регистрация: 02.12.2010
Сообщений: 2
Репутация: 10
По умолчанию

напишите исходный код программы на winapi
Hello, world вне форума   Ответить с цитированием
Старый 02.12.2010, 13:45   #4
Noor
Профессионал
 
Аватар для Noor
 
Регистрация: 01.11.2006
Сообщений: 1,061
Репутация: 294
По умолчанию

Цитата:
Сообщение от Hello, world Посмотреть сообщение
напишите исходный код программы на winapi
Поиском пользовались или религия запрещает ??? Делать за Вас никто не будет .... подтолкнуть, запросто
Жмыкни меня
ну и вот так можно
Узнать IP
Код:

Function TForm1.GetLocalIP : String;
Var WSAData: TWSAData;
    P: PHostEnt;
    Name: array[0..$FF] of Char;
Begin
  WSAStartup($0101, WSAData);
  GetHostName(Name, $FF);
  P := GetHostByName(Name);
  Result := inet_ntoa(PInAddr(P.h_addr_list^)^);
  WSACleanup;
End;

или

function GetLocalHostAddress: string;
var
  SockAddrIn: TSockAddrIn;
  HostEnt: PHostEnt;
  szHostName: array[0..128] of char;
begin
  if gethostname(szHostName, 128) = 0 then
    begin
      HostEnt:= gethostbyname(szHostName);
      if HostEnt = nil then
        Result:= ''
      else
        begin
          SockAddrIn.sin_addr.S_addr:= longint(plongint(HostEnt^.h_addr_list^)^);
          Result:= inet_ntoa(SockAddrIn.sin_addr);
        end;
    end
  else
    { Error handle } ;
end;

Узнать имя ПК
Код:

uses Windows;

function GetComputerNetName: string;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

Как передать все это в текстовый файл ищите сами ...нет ничего сложного !
__________________
Помог ? жми на весы ...

Последний раз редактировалось Noor; 02.12.2010 в 13:58.
Noor вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как обойти "преобразование типа из "string" в "float" невозможно" lexluter1988 Помощь студентам 1 07.08.2010 12:23
"ОКРВВЕРХ", "ОКР", "ЕСЛИ". Как бы их связать. Каравай Microsoft Office Excel 13 17.02.2010 10:53
при вводе на листе "магазин"- код товара появлялось "описание" товара из "склада" с "продажной ценой" aleksei78 Microsoft Office Excel 13 25.08.2009 12:04
Почему не работает Case txt Like "текст1", "текст2" Oooleg Microsoft Office Excel 2 15.07.2009 10:08


16:00.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru