Sergey2210
Осваивающий
- Сообщения
- 263
- Репутация
- 31
Версия AutoIt:3.
Как сменить IP компьютера.
Как сменить IP компьютера.
Так Вам какой ip адрес необходимо сменить ? Внешний что- ли.Ничего не меняется,на http://2ip.ru/ показывает тот адресс который был
Звоните в службу поддержки вашего провайдера, и вежливо попросите! Может и поменяет! ;DВнешний
Внешний ip адрес назначает Вам ваш провайдер. Он может статическим, динамическим, динамический в свою очередь может быть серым или белым.Внешний
#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)
#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, "", "удачно")
$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)
#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
;-----------------------------------------------------------------------------------------------------------------------------
Разница в кавычках... и не более того... выведите результат как у Вас и как у меня...если не сложно обьясните разницу
$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)
А теперь тоже самое на autoit!VladUs сказал(а):Sergey2210 [?]
Внешний ip адрес назначает Вам ваш провайдер. Он может статическим, динамическим, динамический в свою очередь может быть серым или белым.Внешний
То что Вам показывает http://2ip.ru/ этот адрес который Вам выдал провайдер и только он может Вам его сменить. К тому же многое зависит от способа подключения.