Buscar por:

Como posso mudar meu ip? via api?

Código

{Como posso mudar meu IP? via API? 

A resposta para essa pergunta é não neste artigo estou unsando o Delphi 7,

mas pode ser feito com qualquer outra versão do delphi. nos Windows 2000 e XP

existe um aplicativo chamado NETSH que faz essa mudança para nós sem que

precisemos reiniciar o computador. bem vamos por a mão na massa e brincarmos um

pouco com as configurações de IP.

Mudando a Configuração para DHCP:

Crie uma aplicação no Delphi, NEW -> Application no FormDesigner ponha um

TButton e no evento OnClick escreva o seguinte código:}

 if Win32Plataform =

VER_PLATAFORM_WIN32_NT then WinExec('cmd /c netsh interface ip set address

"Conexão local" DHCP', SW_SHOWNORMAL) else MessageBox(Handle, 'esse

Comando não pode ser rodado fora da plataforma NT', 'NETSH', MB_ICONWARNING);

{onde verifico se a plataforma do Programa é uma plataforma NT, caso contrário

informo ao usuário que esse comando não pode ser rodado fora de uma plataforma

NT.

Mudando as Configurações dos IPs da máquina,

menos os DNS:

Na mesma aplicação do exemplo acima Ponha outro TButton e no Evento OnClick

dele escreva:}

 if Win32Plataform = VER_PLATAFORM_WIN32_NT then WinExec('cmd /c

netsh interface ip set address "Conexão local" static 192.168.10.104

255.255.255.0 192.168.10.1 1', SW_SHOWNORMAL) else MessageBox(Handle, 'esse

{Comando não pode ser rodado fora da plataforma NT', 'NETSH', MB_ICONWARNING);

pronto seu IP, SubnetMask e Gateway foram mudados. Para maiores informações

sobre o NETSH visite o site da Microsoft: Suporte Microsoft

José Roberto F. de Araújo Junior.

Programador e Analista de Sistemas da PCA Sistemas LTDA em Olinda - Pernambuco.

Desenvolvo Aplicações Cliente-Servidor com Banco de dados Interbase, Firebird

1.5 RC4 e MS SQL Server.

posso ser contactado em: jroberto.jr@terra.com.br}