Modeme Pc Üzerinden Oto Reset??

axipower07 · 8 Temmuz 2015

merhaba arkadaşlar ben kanal eklerken modemi kapatıp açıyorum fakat ıp degişmiyor nedenini bulamadım. Oto reset tarzı programlar varsa yardımcı olun videoyap a kanal ekleyemeyemiyorum.
Herkese bol kazançlar

k-pax · 8 Temmuz 2015

Kablonetse modemi kapatıp açmakla ipi değiştiremezsin.

yavuzacgz · 8 Temmuz 2015

k-pax' Alıntı:
Kablonetse modemi kapatıp açmakla ipi değiştiremezsin.

ben ttnetim benzer sorunlar modem reslemeden ip değiştirmek laızm

DeftoneS · 8 Temmuz 2015

Bir .bat dosyası vardı bir zamanlar, biraz araştırın hocam

SpuSi · 8 Temmuz 2015

Modem arayüzüne girip IP adresinizi görerek değiştirmeniz en sağlıklısı. TTNET kullanıyorsanız 192.168.1.1 ile giriş yapın. Her modem için farklı arayüz olur araştırıp bulursanız iyi olur

CyberTR · 8 Temmuz 2015

İnternet servis sağlayıcınız ne?

axipower07 · 8 Temmuz 2015

Flynet

RoxiRox · 8 Temmuz 2015

Arayüzden değiştirmeyi denediniz mi hocam?

axipower07 · 8 Temmuz 2015

DeftoneS' Alıntı:
Bir .bat dosyası vardı bir zamanlar, biraz araştırın hocam

Simdi varmı acaba hocam

ytnoob · 8 Temmuz 2015

sabit IP olabilir hocam.

axipower07 · 8 Temmuz 2015

ytnoob' Alıntı:
sabit IP olabilir hocam.

Ne yapmam lazim hocam sonuçta temiz çalışmak gerek her kanala girdiğimizde ip degisik olmasi lazım

ytnoob · 8 Temmuz 2015

axipower07' Alıntı:
Ne yapmam lazim hocam sonuçta temiz çalışmak gerek her kanala girdiğimizde ip degisik olmasi lazım

Hocam internet sağlayıcıyla konuşup Dinamik ip'ye geçiş yapmanız lazım. Normalde modem kapanıp açıldığında ip'nin değişmesi gerekiyor, Dinamik ise.

Sizinki Statik ip.

axipower07 · 9 Temmuz 2015

ytnoob' Alıntı:
Hocam internet sağlayıcıyla konuşup Dinamik ip'ye geçiş yapmanız lazım. Normalde modem kapanıp açıldığında ip'nin değişmesi gerekiyor, Dinamik ise.

Sizinki Statik ip.

Başka bir çözüm yolu yok mu

RoxiRox · 9 Temmuz 2015

axipower07' Alıntı:
Başka bir çözüm yolu yok mu

Statik ip ise hattınız çözüm yolu ne yazık ki yok hocam, arkadaşın dediği gibi görüşmeniz lazım dinamik ip taşınması lazım çok zor bir işlem değil.

Maxilife · 9 Temmuz 2015

cmd ile yapabilirsin. otomatik değil ama yöntemleştirirseniz otomatikleşir.

ipconfig /release (ip sıfırlar)
ipconfig /renew (yeni ip alır)

ve ayrıca masaüstüne bi text dosyası oluştur. reset.vbs olarak yaz ismini. ve içine yapıştr. esinlen

Kod:

Option Explicit 'Enforce strict naming
Dim WSH, FSO
Dim objComputer, objWMIService, objOperatingSystem, objNetAdapter
Dim strTitle, strVersion, strThisPC, strComputername, strCompNameRegPath, strWorkgroup
Dim strCCS, strTcpipParamsRegPath, strIPAddress, strSubnetMask, strGateway,         strGatewayMetric
Dim colMEM, colNetAdapters, colOperatingSystems
Dim errEnable, errGateways

'Setup scripting environment
Set WSH = CreateObject ("WSCript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

'Set Version info
strVersion = "v04"

'Set target PC for WMI
strThisPC = "."

'Set the Title for any dialogs
strTitle = "XP Clone Changer " & strVersion

'------------------------------------------------------------------------
'Section 1 - Use WMI to change IP address, subnet mask and gateway
WSH.Popup "Preparing to change IP address, subnet mask and gateway... Please wait.",2,             strTitle 'Inform user

'Setup WMI
Set objWMIService = GetObject("winmgmts:\\" & strThisPC & "\root\cimv2")

'Set specific WMI query so 1394 adapter is excluded
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

'Get user input into an array
strIPAddress = Array(InputBox("Enter the new IP address"))
strSubnetMask = Array(InputBox("Enter the new Subnet mask"))
strGateway = Array(InputBox("Enter the new Gateway address"))

'Inform user
WSH.Popup "Please be patient whilst changes are made. This could take 10 seconds or     more.",3, strTitle 'Inform user
strGatewayMetric = Array(1)

'Make the changes
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
    WSH.Popup "The IP address has been changed.",2,strTitle 'Inform user of success
Else
    WSH.Popup "The IP address could not be changed automatically." & vbCrLf & vbCrLf &_
     "This may be because the PC/Laptop is not connected to an active network." &     vbCrLf & vbCrLf &_
     "Please check the IP settings manually afterwards.",2,strTitle 'Inform user of         failure
End If
Next

Set WSH = Nothing
Set FSO = Nothing
Set objWMIService = Nothing
Set colNetAdapters = Nothing
Set colMEM = Nothing
WScript.Quit

bunda belirlediğiniz ip veriliyo. isterseniz otomatikleştirebilirsiniz

axipower07 · 9 Temmuz 2015

Maxilife' Alıntı:

cmd ile yapabilirsin. otomatik değil ama yöntemleştirirseniz otomatikleşir.

ipconfig /release (ip sıfırlar)
ipconfig /renew (yeni ip alır)

ve ayrıca masaüstüne bi text dosyası oluştur. reset.vbs olarak yaz ismini. ve içine yapıştr. esinlen

Kod:

Option Explicit 'Enforce strict naming
Dim WSH, FSO
Dim objComputer, objWMIService, objOperatingSystem, objNetAdapter
Dim strTitle, strVersion, strThisPC, strComputername, strCompNameRegPath, strWorkgroup
Dim strCCS, strTcpipParamsRegPath, strIPAddress, strSubnetMask, strGateway,         strGatewayMetric
Dim colMEM, colNetAdapters, colOperatingSystems
Dim errEnable, errGateways

'Setup scripting environment
Set WSH = CreateObject ("WSCript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

'Set Version info
strVersion = "v04"

'Set target PC for WMI
strThisPC = "."

'Set the Title for any dialogs
strTitle = "XP Clone Changer " & strVersion

'------------------------------------------------------------------------
'Section 1 - Use WMI to change IP address, subnet mask and gateway
WSH.Popup "Preparing to change IP address, subnet mask and gateway... Please wait.",2,             strTitle 'Inform user

'Setup WMI
Set objWMIService = GetObject("winmgmts:\\" & strThisPC & "\root\cimv2")

'Set specific WMI query so 1394 adapter is excluded
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

'Get user input into an array
strIPAddress = Array(InputBox("Enter the new IP address"))
strSubnetMask = Array(InputBox("Enter the new Subnet mask"))
strGateway = Array(InputBox("Enter the new Gateway address"))

'Inform user
WSH.Popup "Please be patient whilst changes are made. This could take 10 seconds or     more.",3, strTitle 'Inform user
strGatewayMetric = Array(1)

'Make the changes
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
    WSH.Popup "The IP address has been changed.",2,strTitle 'Inform user of success
Else
    WSH.Popup "The IP address could not be changed automatically." & vbCrLf & vbCrLf &_
     "This may be because the PC/Laptop is not connected to an active network." &     vbCrLf & vbCrLf &_
     "Please check the IP settings manually afterwards.",2,strTitle 'Inform user of         failure
End If
Next

Set WSH = Nothing
Set FSO = Nothing
Set objWMIService = Nothing
Set colNetAdapters = Nothing
Set colMEM = Nothing
WScript.Quit

bunda belirlediğiniz ip veriliyo. isterseniz otomatikleştirebilirsiniz

hocam videolu anlatım varmı?

yalan2211 · 9 Temmuz 2015

Hocam suan sadece modemi pc üzerinden sadece modem arayüzüne girerek oto resetleyebiliyorsun bat dosya olayı hikaye oldu eskidendi diyolar hiç denemedim yapmanız gereken 192.168 olan ip aralıgından modem arayüzüne girip modemi yeniden başlatmak

Samsung · 9 Temmuz 2015

Maxilife' Alıntı:

cmd ile yapabilirsin. otomatik değil ama yöntemleştirirseniz otomatikleşir.

ipconfig /release (ip sıfırlar)
ipconfig /renew (yeni ip alır)

ve ayrıca masaüstüne bi text dosyası oluştur. reset.vbs olarak yaz ismini. ve içine yapıştr. esinlen

Kod:

Option Explicit 'Enforce strict naming
Dim WSH, FSO
Dim objComputer, objWMIService, objOperatingSystem, objNetAdapter
Dim strTitle, strVersion, strThisPC, strComputername, strCompNameRegPath, strWorkgroup
Dim strCCS, strTcpipParamsRegPath, strIPAddress, strSubnetMask, strGateway,         strGatewayMetric
Dim colMEM, colNetAdapters, colOperatingSystems
Dim errEnable, errGateways

'Setup scripting environment
Set WSH = CreateObject ("WSCript.shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

'Set Version info
strVersion = "v04"

'Set target PC for WMI
strThisPC = "."

'Set the Title for any dialogs
strTitle = "XP Clone Changer " & strVersion

'------------------------------------------------------------------------
'Section 1 - Use WMI to change IP address, subnet mask and gateway
WSH.Popup "Preparing to change IP address, subnet mask and gateway... Please wait.",2,             strTitle 'Inform user

'Setup WMI
Set objWMIService = GetObject("winmgmts:\\" & strThisPC & "\root\cimv2")

'Set specific WMI query so 1394 adapter is excluded
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

'Get user input into an array
strIPAddress = Array(InputBox("Enter the new IP address"))
strSubnetMask = Array(InputBox("Enter the new Subnet mask"))
strGateway = Array(InputBox("Enter the new Gateway address"))

'Inform user
WSH.Popup "Please be patient whilst changes are made. This could take 10 seconds or     more.",3, strTitle 'Inform user
strGatewayMetric = Array(1)

'Make the changes
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
    WSH.Popup "The IP address has been changed.",2,strTitle 'Inform user of success
Else
    WSH.Popup "The IP address could not be changed automatically." & vbCrLf & vbCrLf &_
     "This may be because the PC/Laptop is not connected to an active network." &     vbCrLf & vbCrLf &_
     "Please check the IP settings manually afterwards.",2,strTitle 'Inform user of         failure
End If
Next

Set WSH = Nothing
Set FSO = Nothing
Set objWMIService = Nothing
Set colNetAdapters = Nothing
Set colMEM = Nothing
WScript.Quit

bunda belirlediğiniz ip veriliyo. isterseniz otomatikleştirebilirsiniz

bu sadece iç ip değiştirir, internete çıkış ipsini değiştirmez

Ara

Ara

Foruma hoş geldin 👋, Ziyaretçi

Modeme Pc Üzerinden Oto Reset??

axipower07

k-pax

yavuzacgz

DeftoneS

SpuSi

CyberTR

axipower07

RoxiRox

Yasaklanmış

axipower07

ytnoob

axipower07

ytnoob

axipower07

RoxiRox

Yasaklanmış

Maxilife

axipower07

yalan2211

Samsung

Guest

121,4K

1,8M

11,4K

S

T

T

T

S

Tema editörü

Ayarlar Renkler

Alternatif header

Görünüm Modu Seçimi

Izgara Görünümü

Resimli Izgara Modu

Yan Paneli Kapat

Sabit Yan Panel

Box görünüm

Köşe Yuvarlama Kontrolü

Renginizi seçin