Что нового

Как сменить 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
Репутация
964
Sergey2210 [?]
Звоните в службу поддержки вашего провайдера, и вежливо попросите! Может и поменяет! ;D
Если у вас IP динамический (скорее всего), просто переподключитесь!
 

VladUs

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

Sergey2210

Осваивающий
Сообщения
263
Репутация
31
Ладно,спасибо
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
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---

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

Код:
$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---

Скриптер
Сообщения
443
Репутация
116
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)

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

Vlasssov

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