[mikola1983]

VelDmi, нет прога будет работать и на компах которые нужно переименовать

[VelDmi]

mikola1983,

Код:

$ComputerName = IniRead(@ScriptDir & "\Config.ini", "Setup", "ComputerName", 0)

If @ComputerName <> $ComputerName Then
	FileWriteLine(@ScriptDir & '\rename.vbs', 'strComputer = "' & @ComputerName & '"')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Set objWMIService = GetObject("winmgmts:" _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    & "{impersonationLevel=impersonate}!\\" _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    & strComputer & "\root\cimv2")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Set colComputers = objWMIService.ExecQuery _')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    ("Select * from Win32_ComputerSystem")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'For Each objComputer in colComputers')
	FileWriteLine(@ScriptDir & '\rename.vbs', '    errReturn = ObjComputer.Rename("' & $ComputerName & '")')
	FileWriteLine(@ScriptDir & '\rename.vbs', 'Next')

	RunWait (@SystemDir & '\WScript.exe ' & @ScriptDir & '\rename.vbs')
	FileDelete (@ScriptDir & '\rename.vbs')
	FileWriteLine(@ScriptDir & "\error.log", StringFormat("%s:%s:%s %s-%s-%s   Сменили имя компьютера с %s на %s", @HOUR, @MIN, @SEC, @MDAY, @MON, @YEAR, @ComputerName, $ComputerName))
	Shutdown (6)
EndIf

Соответственно в Config.ini меняешь имя компьютера и запускаешь скрипт.

[TERMINAL]

Creat0R, Это я уже встречал, но оно у меня не работает даже с 1 сидюком. При условии если 2 сидюка (нужно что бы выезжал нужный, а не все) то можно сделать поиск по файлу-например в корне диска лежит файл SysDisc7.exe. Сможешь помочь? Очень нужно....

[Creat0R]

VelDmi,
Это можно кстати средствами одного лишь AutoIt сделать:

Код:

$ComputerName = IniRead(@ScriptDir & "\Config.ini", "Setup", "ComputerName", 0)

If @ComputerName <> $ComputerName Then
    $strComputer = @ComputerName
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For $objComputer In $colComputers
        $errReturn = $ObjComputer.Rename($ComputerName)
    Next
    FileWriteLine(@ScriptDir & "\error.log", StringFormat("%s:%s:%s %s-%s-%s   Сменили имя компьютера с %s на %s", _
        @HOUR, @MIN, @SEC, @MDAY, @MON, @YEAR, @ComputerName, $ComputerName))
    Shutdown(6)
EndIf

TERMINAL,

можно сделать поиск по файлу

Примерно так:

Код:

$File_Indicator = "SysDisc7.exe"
$CDROM_Drives = DriveGetDrive("CDROM")

For $i = 1 To $CDROM_Drives[0]
    If FileExists($CDROM_Drives[$i] & "\" & $File_Indicator) Then
        CDTray($CDROM_Drives[$i], "Open")
        ExitLoop
    EndIf
Next

[TERMINAL]

Creat0R, спасибо, супер !

[Creat0R]

Как можно сделать чтобы во время растягивания/перетаскивания окна, его содержимое не отображалось? (в настройках системы установлено “Отображать содержимое окна при перетаскивании”).

Я видел многие программы такое умеют, мне нужно такое же сделать для моего GUI...
Я имею в виду что то типа этого, но чтобы отображалась граница растягиваемого окна (только граница, без содержимого окна):

Код:

#include <GUIConstants.au3>

Global Const $WM_ENTERSIZEMOVE = 0x231
Global Const $WM_EXITSIZEMOVE = 0x232

$Gui = GUICreate("GUI", 200, 400, -1, -1, $WS_SIZEBOX)

GUIRegisterMsg($WM_ENTERSIZEMOVE, "WM_ENTERSIZEMOVE")
GUIRegisterMsg($WM_EXITSIZEMOVE, "WM_EXITSIZEMOVE")

$Button = GUICtrlCreateButton("Содержимое окна ;)", 50, 100)

GUISetState()

While GUIGetMsg() <> $GUI_EVENT_CLOSE
WEnd

Func WM_ENTERSIZEMOVE()
    GUISetState(@SW_LOCK)
EndFunc

Func WM_EXITSIZEMOVE()
    GUISetState(@SW_UNLOCK)
EndFunc

Это возможно?
Я тут нашёл вроде решение, но не знаю как его приминить - Пробовал посылать сообщение WM_SETREDRAW с параметром False, но окно “зависает” при попытке изменить размер/перетащить окно.

[Creat0R]

amel27
Ты недавно приводил функцию _ControlGetFocus(), а можно точно такую, но чтобы не сфокусированный элемент возвращала, а тот над которым проводим мышкой? (типа _ControlGetHovered()).

[Oldschool]

работа с Auto3Lib _ListView_

Код:

$hListVie = ControlGetHandle("WindowTitle", "", "SysListView323")
_ListView_Scroll($hListVie, 0, 0)
$Item = 11
_ListView_ClickItem($hListVie, $Item, "Left", False, 1, 0)

как считать эту линию?

$ItemText = _ListView_GetItemText($Item, "") ?

или если надо проверить текст линии

$sText = mytext
If _ListView_FindInText($Item, $sText) = 0 Then
Blah blah blah...

это правильный syntax? _ListView_FindInText() возвращает что то?

[Maza Faka]

Oldschool

как считать эту линию?

В смысле считать? Вернуть текст из элемента ListView? Попробуй так:

Код:

#include <GUIConstants.au3>
#include <GUIListView.au3>

GUICreate("Drop_Gui", 420, 310, -1, -1, $WS_OVERLAPPEDWINDOW, $WS_EX_ACCEPTFILES)

$input = GUICtrlCreateInput("", 50, 10, 200, 20, BitOR($ES_CENTER, $ES_AUTOHSCROLL), $WS_EX_CLIENTEDGE)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)

$ListView = GUICtrlCreateListView("Selected files", 50, 50, 320, 200, $LVS_SORTASCENDING, $LVS_EX_FULLROWSELECT + $LVS_EX_GRIDLINES)
_GUICtrlListViewSetColumnWidth($ListView, 0, 320)

$add = GUICtrlCreateButton("Add", 260, 10, 50, 22)
$read = GUICtrlCreateButton("Read", 320, 10, 50, 22)

GUISetState()

While 1
    $msg = GUIGetMsg()

        Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop

            Case $msg = $read
        $LV_Item_text = _GUICtrlListViewGetItemText($ListView, _GUICtrlListViewGetCurSel($ListView))
        MsgBox(0, "Item text", $LV_Item_text)

        Case $msg = $add
        $inputRead = GUICtrlRead($input)
        If Not $inputRead = "" Then GUICtrlCreateListViewItem($inputRead, $ListView)

            EndSelect
WEnd

Всё это есть в справке

[Oldschool]

при чем ту GUI я не понял , ты вообще о чем?

я пытаюсь считать текст с ListView32 в чужой проге...здесь я беру окно:

Код:

$hListVie = ControlGetHandle("WindowTitle", "", "SysListView323")

здесь я ставлю мышку на одинадцатаю линию этого ListView:

Код:

$Item = 11
_ListView_ClickItem($hListVie, $Item, "Left", False, 1, 0)

теперь я хочу прочитать эту линию с помощью

_ListView_GetItemText()

например вот так:

Код:

$Title = _ListView_GetItemText($hListVie, $Item, $Item)

а потом сравнить ее с другим текстом вот так например

Код:

If StringInStr($Title, $sText) Then

и т.д и т.п

мой вопрос конкретно про _ListView_GetItemText т.к в данном виде неполучается чего то