[bogomolv]

kpuk
А какое отношение имеет ко всему этому Autoit? Разбирайся с API!

[kpuk]

Ну какбы на нём писать просто - это раз!
И в нём вроди как есть функция dllcall которая позволяет работать с апи!
ВОт по этому и спрашиваю

[VelDmi]

kpuk
На Autoit сделать то, что ты хочешь невозможно. Так же как и на WBS. Это проблема реализации API в програме RunpadShell.

[ANGRO]

Набросал включение отключение сетевой карточки, мож кому пригодится.

Код:

$sConnectionName = "Home Office Connection"
$shellApp = ObjCreate("shell.application") 
$oNetConnections = $shellApp.Namespace(0x00000031)
For $folderitem in $oNetConnections.items
    For $verb in $folderitem.verbs
        if $folderitem.name = $sConnectionName Then
           $verb.DoIt
           Sleep(1000)
           ExitLoop 2
        EndIf 
    Next
Next
If $folderitem.name <> $sConnectionName Then msgbox(48, "Ошибка", "Имя соединения указанно не правильно")
Exit

Посмотрите позжалуйста Namespace(0x00000031) по этому адресу находятся "Сетевые подключения" по крайней мере у меня, судя по всему и во всех ХР подобных операционках.

[bogomolv]

ANGRO
??????

Код:

devcon disable *net*

[ANGRO]

devcon disable *net*

Понятно, у меня его на W2K3SP1 нет я думаю что в WinXP его тоже не найдут. А если приложению необходимо работать скажем на 500 разных компьютерах не являющихся собственностью одной конторы, да даже если и являющихся, что закидывать на каждый комп кучу DLL, EXE, OCX и т.д. А ведь есть компы где запрещено инсталлирование каких либо компонентов без проверки.
Да да знаю скажиш можно включить в сборку и не кто не узнает, а ещё лучше прямо в реестор писать и всё.
Я стараюсь придерживаться другой концепции, пользоваться только стандартным API настолько глубоко насколько знания позволяют и ничего не писать напрямую в реестор, пусть Win сам с этим разбирается.
Для узкой направленности автокликанья в своей винде и сборках для друзей и помощи на работе самый короткий путь типа "взял скачал, на винт забросил, команду передал" подходит, а когда билд уходит на сторону хочется гарантировать определённые вещи.
В любом случаи ИМХО мне интересней учится взаимодействию с операционкой используя её возможности.
P.S. сколько твой devcon весит, а сколько мой код ?

[bogomolv]

ANGRO
Может, все же зайдешь по ссылке, которую я тебе давал? Это снимет кучу заданных вопросов.
А на счет "интереснее" - тут спору нет.

[ANGRO]

bogomolv
Спасибо воспользуюсь твоим предложением.
Namespace(49) разобрался писать нужно так Namespace(0x00000031)

[Creat0R]

Кто нибудь может пожалуйста помочь разобраться с такой пропблемой:

Чтобы прописывать строчки в начало секции *.ini файла, я воспользовался функцией Func IniWriteVP...
Так вот, когда я попытался воспользоваться этой функцией в (цикле?) Select...Case...EndSelect, то выдалась ошибка о том что нету совпадения между Select и Case и между EndSelect (что-то в этом роде), и вообще практический все команды в таком цикле не исполняются (т.е если в этом цикле используется упомянутая функция). Вот пример, который по идее, должен записывать в заданную секцию, параметр со значением, в первую строку этой секции:

Код:

Select
	
	Case $CmdLine[0] = 0

$File = "Test.ini"
$Sect = "Test Section"
$Param = "Parametr Test"
$Val = "Value Test"


	IniWriteVP($File,$Sect, $Param, $Val, 1)
		Func IniWriteVP($File,$Sect, $Param, $Val, $Pos=0)
			IniWrite($File,$Sect,$Param,$Val)
	EndFunc

EndSelect

Но как я уже упомянул, этого не происходит, и выдаётся ошибка.
Может кто нибудь подскажет в чём дело, как это осуществить?

[XXXler]

IniWriteVP($File,$Sect, $Param, $Val, 1) Func IniWriteVP($File,$Sect, $Param, $Val, $Pos=0) IniWrite($File,$Sect,$Param,$Val) EndFunc

ну теперь я буду матерится , сколько можно топтатся на этих граблях?

Функция - это подпрограмма, описанная за пределами основного тела программы (впрочем в AutoIT это не обязательно, т.к. нет четкой границы, можно ставить и в начале (после объявления глобальных переменных ипользованных в ней), и в конце), которую можно вызывать из основного тела программы, передавая ей параметры, получая от нее результат:

Код:

;~ Описываем функцию:
Func MyFunc($par1,$par2)
;~ Выводим сообщение с переданными параметрами
	MsgBox(0,$par1,$par2)
;~ Возвращаем результат Result
	Return "Result"   
EndFunc

;~ Тело программы
;~ .....................
$var=MyFunc("Заголовок","Сообщение")
MsgBox(0,"","Функция MyFunc возвранила значение "&$var)
;~ .....................

Значит смотрется это все будет так:

Код:

;~ Описываем функцию
Func IniWriteVP($File,$Sect,$Param,$Val,$Pos=0)
	Local $ValArr,$i
	If $Pos<>0 Then IniDelete($File,$Sect,$Param)
	$ValArr=IniReadSection($File,$Sect)
	If @error Or $Pos=0 Or $ValArr[0][0]<$Pos Then
		IniWrite($File,$Sect,$Param,$Val)
		SetError(@error)
	Else
		For $i=1 To $ValArr[0][0]
			IniDelete($File,$Sect,$ValArr[$i][0])
		Next
		For $i=1 To $ValArr[0][0]
			If $Pos=$i Then	IniWrite($File,$Sect,$Param,$Val)
			IniWrite($File,$Sect,$ValArr[$i][0],$ValArr[$i][1])
		Next
	EndIf
EndFunc

;~ А теперь ее используем
Select
	Case $CmdLine[0] = 0
		IniWriteVP(@ScriptDir&"\Test.ini","Test Section","Parametr Test","Value Test",1)
;~ .......

EndSelect