[NikLok]

У кого есть код получения списка расшаренных папок. То есть надоть получить имя папки, ееимя во внешний мир, кому доступна.
Ну на самый крайний случай - проверка расшарена папка или нет?!

[Maza Faka]

NikLok

Код:

net share

[Creat0R]

NikLok,

У кого есть код получения списка расшаренных папок

Не уверен что оно, но вот код:

Код:

$strComputer = "." ;Your IP here

$objWMIService = ObjGet("winmgmts:" & "{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")

 $colShares = $objWMIService.ExecQuery("Select * from Win32_Share")

For $objShare In $colShares
    consolewrite ("Allow Maximum: " & $objShare.AllowMaximum & @CR)
    consolewrite ("Caption: " & $objShare.Caption & @CR)
    consolewrite ("Maximum Allowed: " & $objShare.MaximumAllowed & @CR)
    consolewrite ("Name: " & $objShare.Name & @CR)
    consolewrite ("Path: " & $objShare.Path & @CR)
    consolewrite ("Type: " & $objShare.Type & @CR)
    consolewrite ("---------------------------------" & @CR)
Next

[NikLok]

Maza Faka,

net share »

Предлагаешь перехватывать вывод и анализировать? ТОже дело конечно!

[HORRIBLE]

Как можно заставить мигать текст раз в несколько секунд?

[Maza Faka]

HORRIBLE
Если я правильно тебя понял...Простейший способ:

Код:

#include <GuiConstants.au3>

$hGui = GUICreate("Test GUI", 200, 100)

$label = GUICtrlCreateLabel("Some text", 70, 35, 50, 16)

GUISetState()

AdlibEnable("_TextFlicker", 800)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            ExitLoop
    EndSwitch
WEnd

Func _TextFlicker()
    GUICtrlSetColor($label, 0xFF0000)
    Sleep(200)
    GUICtrlSetColor($label, 0x000000)
EndFunc

[HORRIBLE]

Maza Faka, Спасибо за этот пример.
Но вот проблема. А если этот пример воткнуть в прогу с другим кодом который должен выполняться непрерывно,то когда пример работает другая часть проги приостанавливает свою работу. Можно сделать (без AdlibEnable("_TextFlicker", 800) и sleep) чтобы просто мигало без влияния на работу программы, просто это мигание показывает, что число превысило допустимое значение?

[Creat0R]

HORRIBLE,

Можно сделать (без AdlibEnable("_TextFlicker", 800) и sleep) чтобы просто мигало без влияния на работу программы

Используй самопальные Adlib* с CallBack'ами...

Код:

#include <GuiConstants.au3>

$iMark = 1

$hGui = GUICreate("Test GUI", 200, 100)

$label = GUICtrlCreateLabel("Some text", 70, 35, 50, 16)

GUISetState()

_AdlibEnable("_TextFlicker", 800, $hGui)

While 1
    $msg = GUIGetMsg()
    Switch $msg
        Case -3
            _AdlibDisable($hGui)
            ExitLoop
    EndSwitch
WEnd

Func _TextFlicker($hWndGUI, $MsgID, $WParam, $LParam)
    If $iMark = 1 Then
        GUICtrlSetColor($label, 0xFF0000)
        $iMark = 0
    Else
        GUICtrlSetColor($label, 0x000000)
        $iMark = 1
    EndIf
EndFunc

Func _AdlibEnable($sFunction, $iTime=250, $hWnd=0)
    Local Const $WM_TIMER = 0x0113
    If Not IsHWnd($hWnd) Then $hWnd = GUICreate("hCallBack_AdlibEnable")
    GUIRegisterMsg($WM_TIMER, $sFunction)
    Local $aRet = DllCall("User32.dll", "int", "SetTimer", "hwnd", $hWnd, "int", $hWnd, "int", $iTime, "int", 0)
    Return $hWnd
EndFunc

Func _AdlibDisable($hWnd=0)
    Local Const $WM_TIMER = 0x0113
    GUIRegisterMsg($WM_TIMER, "")
    Local $aRet = DllCall("user32.dll", "int", "KillTimer", "hwnd", $hWnd, "int", $hWnd)
    Return Number(IsArray($aRet) And $aRet[0])
EndFunc

[DENoszone]

Вопрос: возможно запускать скрипт с сервера?
Ну что бы я задавал программе время а она через это время начинала работать? при выключеном компе?

[Maza Faka]

при выключеном компе »

И как ты себе это представляешь?