[BrAWo]

Народ помогите
есть задачка:
нужно узнать какие основной dns и альтернативный dns использует пользователь и если они не правильные то поменять их на правильные.

пример:
основной dns: 192.168.0.1
альтернативный dns: 192.168.0.2

надо поменять на
основной dns: 192.168.0.254
альтернативный dns: 192.168.0.253

при этом надо учитывать что само соединение может называться по разному:
Local Area Connection
или Local Area Connection2
....
Local Area Connection10
или
Подключение по локальной сети
.....
Подключение по локальной сети3
...

[amel27]

Wu-Tang
ОФФТОП: эта тема для обсуждения открытого кода, а не "закрытых" приложений

BrAWo

если они не правильные то поменять их на правильные »

может не заморачиваться лишними строчками кода и сразу вбивать без проверки?

Код:

Dim $aDNSList[2]=["192.168.0.1","192.168.0.2"]

$objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
$colNetCards = $objWMIService.ExecQuery ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For $objNetCard In $colNetCards
    $intErrorSetDNSServerSearchOrder = $objNetCard.SetDNSServerSearchOrder($aDNSList)
Next

[Maza Faka]

Positiv

скрипт проверяет соединение с интернетом

Подключение Dial-UP?

[Positiv]

Maza Faka, нет, подключени высокоскоростное(DSL). А разве это важно. Подключение в точности такое же как и у диалапа.

[Maza Faka]

Positiv

А разве это важно

Да, что бы наверняка определить состояние, вот для начала, проверь какие строки возвращаются при подключенном и отключенном соеденении:

Код:

Global Const $INTERNET_CONNECTION_MODEM = 0x1
Global Const $INTERNET_CONNECTION_LAN = 0x2
Global Const $INTERNET_CONNECTION_PROXY = 0x4
Global Const $INTERNET_CONNECTION_MODEM_BUSY = 0x8
Global Const $INTERNET_RAS_INSTALLED = 0x10
Global Const $INTERNET_CONNECTION_OFFLINE = 0x20
Global Const $INTERNET_CONNECTION_CONFIGURED = 0x40

Dim $State, $val

$InetStruct = DllStructCreate("int")

DllCall("wininet.dll", "int", "InternetGetConnectedState", "ptr", DllStructGetPtr($InetStruct), "dword", 0)

$val = DllStructGetData($InetStruct, 1)

If BitAND($val, $INTERNET_CONNECTION_MODEM) Then $State &= "Modem connection" & @LF
If BitAND($val, $INTERNET_CONNECTION_LAN) Then $State &= "LAN connection" & @LF
If BitAND($val, $INTERNET_CONNECTION_PROXY) Then $State &= "Proxy connection" & @LF
If BitAND($val, $INTERNET_CONNECTION_MODEM_BUSY) Then $State &= "Modem bussy" & @LF
If BitAND($val, $INTERNET_RAS_INSTALLED) Then $State &= "RAS installed" & @LF
If BitAND($val, $INTERNET_CONNECTION_OFFLINE) Then $State &= "Offline connection" & @LF
If BitAND($val, $INTERNET_CONNECTION_CONFIGURED) Then $State &= "Connection configured"

MsgBox(0, "Connection", $State)

Подключение в точности такое же как и у диалапа

А как дозваниваешься? У меня dial-up подключение, поэтому все тонкости ADSL подключения я не знаю.

[Positiv]

Maza Faka, при отключенном соединении выдает в одном окне следующее: LAN connection, Proxy connection, RAS installed, Connection configured.
При подключенном же: Modem connection, RAS installed, Connection configured. А
дозвон так же как и на диалапе, в окне вводишь имя и пароль и жмешь кнопочку подключение.

[BrAWo]

может не заморачиваться лишними строчками кода и сразу вбивать без проверки? »

Спасибо огромное

можно еще небольшой вопрос:
если указано:

основной dns: 192.168.0.1
альтернативный dns: 192.168.0.2

а нужно оставить только:
основной dns: 192.168.0.1

[Maza Faka]

Positiv
Попробуй так:

Код:

If _GetConnectState() = 1 Then Exit

Global Const $INTERNET_AUTODIAL_FORCE_UNATTENDED = 0x02

$ConNumber = DllStructCreate("int")
DllStructSetData($ConNumber, 1, 0)

DllCall("wininet.dll", "int", "InternetDial", "hwnd", 0, _
        "ptr", 0, _
        "int", $INTERNET_AUTODIAL_FORCE_UNATTENDED, _
        "ptr", DllStructGetPtr($ConNumber), _
        "int", 0)

Func _GetConnectState()
    Local Const $INTERNET_CONNECTION_MODEM = 0x1
    Local $InetStruct = DllStructCreate("int")

    DllCall("wininet.dll", "int", "InternetGetConnectedState", "ptr", DllStructGetPtr($InetStruct), "dword", 0)

    If BitAND(DllStructGetData($InetStruct, 1), $INTERNET_CONNECTION_MODEM) Then Return 1
EndFunc

[amel27]

BrAWo

нужно оставить только: основной dns: 192.168.0.1 »

хоть один, хоть десять - первая строка:

Код:

Dim $aDNSList[1]=["192.168.0.1"]

[trash1]

Подскажите, как отправить Alt+<русская буква> в какое-нибудь приложение? Например Alt+Ф в блокнот.

Перепробовал кучу вариантов, в том числе:
Send(!Ф)
Send({ALT}ф)
Send({ALT}{ф})
и т.п.

Ничего не работает. Приходится иметь дело с русскими менюшками, лучшего способа, чем посылать шорткаты, нет. Autoit юзается как activex из ruby, возможностей заюзать "дополнительные" функции нет.

Вопрос проскакивал в топике, но ответа не было.

Если кто знает решение - напишите пожалуйста.