Что нового

Как сменить IP компьютера

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Версия AutoIt:3.

Как сменить IP компьютера.
 

edward_freedom

Осваивающий
Сообщения
200
Репутация
44
Хм...ты хочешь все программы уже написанные переписать на Autoit? :-\Странно
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Мне это в моей программе нужно,не хочется подключать внешние программы
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Код:
#Include <process.au3>

$ip="netsh interface ip set address name=""Подключение по локальной сети 1"" source=static addr=192.168.100.5 mask=255.255.255.0 gateway=192.168.100.10 gwmetric=1"
_RunDOS($ip)
 
Автор
S

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Ничего не меняется,на http://2ip.ru/ показывает тот адресс который был
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Sergey2210 [?]
Ничего не меняется,на http://2ip.ru/ показывает тот адресс который был
Так Вам какой ip адрес необходимо сменить ? Внешний что- ли.
Вышеуказанный способ меняет ip адрес Вашей сетевой карты в сетевом подключении...
 

SECTOR

Продвинутый
Сообщения
399
Репутация
59
А если использовать proxy? Говорят что IP менять не желательно - может наказать провайдер :smile:
 

Garrett

Модератор
Локальный модератор
Сообщения
3,999
Репутация
967
Sergey2210 [?]
Звоните в службу поддержки вашего провайдера, и вежливо попросите! Может и поменяет! ;D
Если у вас IP динамический (скорее всего), просто переподключитесь!
 

VladUs

Скриптер
Сообщения
621
Репутация
181
Sergey2210 [?]
Внешний ip адрес назначает Вам ваш провайдер. Он может статическим, динамическим, динамический в свою очередь может быть серым или белым.
То что Вам показывает http://2ip.ru/ этот адрес который Вам выдал провайдер и только он может Вам его сменить. К тому же многое зависит от способа подключения.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
uBaH
чем вызвано твое красноречивое высказывание относительно темы обсуждения?
 

Bloodrinker

<Блуждающий...>
Сообщения
228
Репутация
19
мда) интересная тема)))
Если вам охото просто сменить прокси, то юзайте что-то наподобии этого сайта
Всегда есть фришные прокси, но вот скорость тоже "фришная" :smile: 10кб/сек это норм. и срок работы прокси не более пару часов наверно. Если вам надо сменить IP так сказать "совсем без палева" то нужно юзать платные SOCKS4/SOCKS5, используя их врядли кто сможет узнать ваш настоящий IP
 

DMFox

Новичок
Сообщения
8
Репутация
0
Код:
#include<process.au3>

$lan="имя подключения"
$ip="ip-адрес"
$mask="маска подсети"
$gateway="основной шлюз"
$prim_dns="предпочитаемый DNS-сервер"
$sec_dns="альтернативный DNS-сервер"

$setip1="netsh interface ip set address name=" & $lan & " source=static addr=" & $ip &" mask=" & $mask & " gateway=" & $gateway & " gwmetric=1"
$setip2="netsh interface ip set dns name=" & $lan & " source=static addr=" & $prim_dns & " register=PRIMARY"
$setip3="netsh interface ip add dns name=" & $lan & " addr="& $sec_dns & " index=2"

_RunDOS($setip1)
_RunDOS($setip2)
_RunDOS($setip3)

MsgBox(4096, "Настройка подключения", "Настройка сетевого подключения " & $lan & " успешно завершена.", 0)
 

reallis

Новичок
Сообщения
17
Репутация
1
помогите пожалуйста дописать !
смена ип с запросом последнего числа статического адреса
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <process.au3>
;------------------------------------------------------------------------------------------------------------------------
Global $sIniFiles = @ScriptDir & '\ip.ini' ;Переменная ини файла
$sParams1 = IniRead($sIniFiles, "setting", "ip", "Параметр не найден");Читаем параметры из ини
$Form1 = GUICreate("меняем адрес:", 298, 63);создаем форму
$Input1 = GUICtrlCreateInput($sParams1, 8, 8, 281, 21);вписываем в инпут считанный параметр из ини
$Button1 = GUICtrlCreateButton("Сохранить", 8, 32, 91, 25, $WS_GROUP);кнопарь
$Button2 = GUICtrlCreateButton("Закрыть", 104, 32, 91, 25, $WS_GROUP);кнопарь
GUISetState(@SW_SHOW);показываем окно
;------------------------------------------------------------------------------------------------------------------------
;Цикл
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1 ;Задаем кнопарю выполнить функцию 1
			_FuncRun()
			GUISetState(@SW_HIDE);скрываем окно
		 Case $Button2
			Exit
	EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------
;цикл
Func _FuncRun()
	  If WinExists("меняем адрес:") Then
	  _Func1()
   Else
	  _Func2()
   EndIf
   EndFunc
;-----------------------------------------------------------------------------------------------------------------------------
Func _Func1()
	$sIniFiles = @ScriptDir & '\ip.ini';Переменная ини файла
   $sReadPar1 = GUICtrlRead($Input1) ;Читаем параметр из интупт
   IniWrite($sIniFiles, "setting", "ip", $sReadPar1);Пишем в ини файл считанный параметр
 ;-----------------------------------------------------------------------------------------------------------------------------
$ip="netsh interface ip set address name=""Подключение по локальной сети"" source=static addr=10.74.24.$Input1 mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1" ;ип - с подменой конечного числа, маска ,шлюз
_RunDOS($ip)
$dns="netsh interface ip set dns name=" & "Подключение по локальной сети" & " source=static addr=" & "8.8.8.8" & " register=PRIMARY" ;днс
_RunDOS($dns)
EndFunc
Func _Func2()
	Exit
	EndFunc ;тупо выходим
MsgBox(64, "", "удачно")


вот ини файл:
[setting]
ip=47
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
А так ?

Код:
$ip='netsh interface ip set address name="Подключение по локальной сети" source=static addr=10.74.24.'&$sReadPar1&' mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1'
;~ ConsoleWrite($ip)
_RunDOS($ip)
$dns='netsh interface ip set dns name="Подключение по локальной сети" source=static addr=8.8.8.8 register=PRIMARY'
;~ ConsoleWrite($dns)
_RunDOS($dns)
 

reallis

Новичок
Сообщения
17
Репутация
1
:ok: ---ZAK---
Огромное Спасибо !!! если не сложно обьясните разницу у меня почти копия написанного но не ставит днс с версией ЗАКа все работает !!! выкладываю результат и буду работать дальше над ним ! на вторую функцию пока внимания не обращайте, она в работе
Код:
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <process.au3>
;------------------------------------------------------------------------------------------------------------------------
Global $sIniFiles = @ScriptDir & '\ip.ini' ;Переменная ини файла
$sParams1 = IniRead($sIniFiles, "setting", "ip", "Параметр не найден");Читаем параметры из ини
$Form1 = GUICreate("меняем адрес:", 298, 63);создаем форму
$Input1 = GUICtrlCreateInput($sParams1, 8, 8, 281, 21);вписываем в инпут считанный параметр из ини
$Button1 = GUICtrlCreateButton("Сохранить", 8, 32, 91, 25, $WS_GROUP);кнопарь
$Button2 = GUICtrlCreateButton("Закрыть", 104, 32, 91, 25, $WS_GROUP);кнопарь
GUISetState(@SW_SHOW);показываем окно
;------------------------------------------------------------------------------------------------------------------------
;Цикл
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		 Case $Button1 ;Задаем кнопарю выполнить функцию 1
			_FuncRun()
			GUISetState(@SW_HIDE);скрываем окно
		 Case $Button2
			Exit
	EndSwitch
WEnd
;-----------------------------------------------------------------------------------------------------------------------------
Func _FuncRun()
   If WinExists("меняем адрес:") Then
	  _Func1()
   Else
	  _Func2()
   EndIf
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------
Func _Func1()
   $sIniFiles = @ScriptDir & '\ip.ini';Переменная ини файла
   $sReadPar1 = GUICtrlRead($Input1) ;Читаем параметр из интупт
   IniWrite($sIniFiles, "setting", "ip", $sReadPar1);Пишем в ини файл считанный параметр
;-----------------------------------------------------------------------------------------------------------------------------
      $ip='netsh interface ip set address name="Подключение по локальной сети" source=static addr=10.74.24.'&$sReadPar1&' mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1'
;~ ConsoleWrite($ip)
_RunDOS($ip)
$dns='netsh interface ip set dns name="Подключение по локальной сети" source=static addr=8.8.8.8 register=PRIMARY'
;~ ConsoleWrite($dns)
_RunDOS($dns)

   _RunDOS($ip)
   _RunDOS($dns)

      MsgBox(64, "", "Ваш IP адрес изменился!")
   Exit
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------
Func _Func2()
   MsgBox(64, "", "хм. . . .")
   Exit
EndFunc
;-----------------------------------------------------------------------------------------------------------------------------
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
2 reallis
если не сложно обьясните разницу
Разница в кавычках... и не более того... выведите результат как у Вас и как у меня...

Код:
$sReadPar1 = '47'
$ip='netsh interface ip set address name="Подключение по локальной сети" source=static addr=10.74.24.'&$sReadPar1&' mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1'
ConsoleWrite("Version ZAK: "&$ip&@CRLF)
$ip="netsh interface ip set address name=""Подключение по локальной сети"" source=static addr=10.74.24.$Input1 mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1" ;ип - с подменой конечного числа, маска ,шлюз
ConsoleWrite("Version YOU: "&$ip&@CRLF)
$dns='netsh interface ip set dns name="Подключение по локальной сети" source=static addr=8.8.8.8 register=PRIMARY'
ConsoleWrite("Version ZAK: "&$dns&@CRLF)
$dns="netsh interface ip set dns name=" & "Подключение по локальной сети" & " source=static addr=" & "8.8.8.8" & " register=PRIMARY" ;днс
ConsoleWrite("Version YOU: "&$dns&@CRLF)


Код:
Version ZAK: netsh interface ip set address name="Подключение по локальной сети" source=static addr=10.74.24.47 mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1
Version YOU: netsh interface ip set address name="Подключение по локальной сети" source=static addr=10.74.24.$Input1 mask=255.255.255.0 gateway=10.74.24.1 gwmetric=1
Version ZAK: netsh interface ip set dns name="Подключение по локальной сети" source=static addr=8.8.8.8 register=PRIMARY
Version YOU: netsh interface ip set dns name=Подключение по локальной сети source=static addr=8.8.8.8 register=PRIMARY

ЗЫ: два раза запускаешь
Код:
_RunDOS($ip) и _RunDOS($dns)

В том есть необходимость ?
 

vcomp71

Осваивающий
Сообщения
431
Репутация
25
VladUs сказал(а):
Sergey2210 [?]
Внешний ip адрес назначает Вам ваш провайдер. Он может статическим, динамическим, динамический в свою очередь может быть серым или белым.
То что Вам показывает http://2ip.ru/ этот адрес который Вам выдал провайдер и только он может Вам его сменить. К тому же многое зависит от способа подключения.
А теперь тоже самое на autoit!
 
Верх