[Архив - Часть 3] AutoIt скрипты .:[общие вопросы]:.

BonD 007 · Отправлено: **17:47, 05-01-2009** | #**1431**

Цитата ganselo:

Включил адресную строку и всё заработало. »

Везёт. У меня так и не заработало, хоть адресная строка и включена. И 1 пробовал ставить у переменной $iGet_Path_Method, и на рабочем столе тыкал CTRL+CHIFT+N... папка не создаётся. Лог всё время такой:
2009-01-05 16:31:01>> ============ Debug Log For [AutoIt v3 Script.au3] Started...
2009-01-05 16:31:01>> ============ Operating System: WIN_XP
2009-01-05 16:31:01>> ============ Service Pack: Service Pack 3
2009-01-05 16:31:01>> ============ File System: FAT32 ============

...

2009-01-05 16:31:38>> ============ Debug Log Finished (EXIT CODE: 0) ============

katok888 · Отправлено: **18:24, 05-01-2009** | #**1432**

BonD 007, То же самое, только

Код:

File System: NTFS

Ну и фиг с ним, я просто ради интереса
пробовал.

Creat0R · Конфигурация компьютера

Цитата SAOPP:

Почему тогда Тотал Коммендер он тоже сворачивает? »

Странно, не должен он этого делать, возможно запущен другой скрипт, предыдущий, который в цикле всё и сворачивает?

Попробуй в процессах "убить" все AutoIt3.exe.

BonD 007, katok888,

Цитата:

Лог всё время такой

У вас раскладка клавиатуры по умолчанию какая? Попробуйте в скрипте ещё добавить и это:

Код:

HotKeySet("^+т", "_CreateFolder_Proc")
HotKeySet("^+ц", "_Quit")

Хотя странно что всё же скрипт завершается по «Ctrl + Shift + W» (судя по логу).

Ещё одна вероятная причина, какое то другое приложение перехватывает эти клавиши (Ctrl + Shift + N), если добавление строчек выше не поможет, попробуйте сменить клавиши в скрипте, например на «^n» (Ctrl + N).

BonD 007 · Отправлено: **22:34, 05-01-2009** | #**1434**

Цитата Creat0R:

HotKeySet("^+т", "_CreateFolder_Proc") HotKeySet("^+ц", "_Quit") »

Заработало. Creat0R, спасибище тебе огромное. Странно, что раньше не работало даже при смене раскладке клавиатуры (не по умолчанию которая, а просто).

Цитата Creat0R:

Хотя странно что всё же скрипт завершается по «Ctrl + Shift + W» (судя по логу). »

Я просто убрал строку #NoTrayIcon и завершал через трей.

SAOPP · Отправлено: **22:45, 05-01-2009** | #**1435**

Creat0R, да ну какие процессы о чём вы?

Говорю же он сворачивает все подряд окна без разбора, СоулСик это или нет...

Creat0R · Конфигурация компьютера

Цитата SAOPP:

он сворачивает все подряд окна без разбора, СоулСик это или нет... »

Кто-то ещё может подтвердить данное поведение, у меня такого не наблюдается

SAOPP · Отправлено: **22:59, 05-01-2009** | #**1437**

Раз такие дела, то пожалуйста проверьте уж пожалуйста

ssms.exe

Creat0R · Конфигурация компьютера

Цитата SAOPP:

проверьте уж пожалуйста »

Подозрительное имя процесса...

Я проверяю со скриптом который я и запостил тут, с ним у меня проблем нет, даже если он скомпилирован.

SAOPP · Отправлено: **23:25, 05-01-2009** | #**1439**

А что в нём подозрительного? SoulSeek Minimize Script сумбурный набор букв.
Внутри это:

Код:

Sleep(5000)

WinActivate("SoulSeek")
WinWaitActive("SoulSeek", "", 5)

If WinActive("SoulSeek") Then
    $iLeft_Min_Button = 70 ;Указывает отступ кнопки сворачивания с правой стороны у окна
    $aWin_Pos = WinGetPos("SoulSeek")

    Opt("MouseCoordMode", 0)

    $aMouse_Pos = MouseGetPos()
    MouseClick("Main", $aWin_Pos[0]+$aWin_Pos[2]-$iLeft_Min_Button, 10, 1, 0)
    MouseMove($aMouse_Pos[0], $aMouse_Pos[1], 0)
EndIf

Где камни?

Цитата Creat0R:

Я проверяю со скриптом который я и запостил тут, с ним у меня проблем нет, даже если он скомпилирован. »

У меня тоже никаких проблем нет - проблема одна, вы говорите, что он должен работать только с окном Суслика...
Вы пробовали мой срипт?

Creat0R · Конфигурация компьютера

beve

Цитата beve:

Вот такая сложная задача »

У меня ушло на неё 10 минут

Код:

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <ComboConstants.au3>

$hForm = GUICreate("Dialog", 316, 273, 360, 243)
GUISetIcon("D:\003.ico")

$nOK_Button = GUICtrlCreateButton("OK", 1, 235, 75, 25, 0)
$nClean_Button = GUICtrlCreateButton("Очистить", 119, 235, 75, 25, 0)
$nExit_Button = GUICtrlCreateButton("Выход", 234, 235, 75, 25, 0)

$nEdit = GUICtrlCreateEdit("" & @CRLF, 0, 88, 169, 81, BitOR($ES_AUTOVSCROLL, $WS_VSCROLL))
GUICtrlSetLimit($nEdit, 100)

$nCombo = GUICtrlCreateCombo("Ваш Выбор:", 8, 8, 297, 25, BitOr($GUI_SS_DEFAULT_COMBO, $CBS_DROPDOWNLIST))
GUICtrlSetData(-1, '1|2|')

GUICtrlCreateLabel("Осталось символов:", 8, 48, 109, 17)
$nCount_Label = GUICtrlCreateLabel(100-StringLen(GUICtrlRead($nEdit)), 120, 48, 36, 17)

$nPic = GUICtrlCreatePic("", 208, 96, 81, 65)

GUISetState(@SW_SHOW)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")

While 1
    $nMsg = GUIGetMsg()

    Switch $nMsg
        Case $GUI_EVENT_CLOSE, $nExit_Button
            Exit
        Case $nClean_Button
            GUICtrlSetData($nEdit, "")
        Case $nOK_Button
            _GetPicture()
        Case $nCombo
            _GetPicture()
    EndSwitch
WEnd

Func _GetPicture()
    Switch GUICtrlRead($nCombo)
        Case 1
            GUICtrlSetImage($nPic, @WindowsDir & "\Штукатурка.bmp")
        Case 2
            GUICtrlSetImage($nPic, @WindowsDir & "\Пузыри.bmp")
        Case Else
            MsgBox(0, Default, 'Сделайте выбор в списке', 0, $hForm)
    EndSwitch
EndFunc

Func WM_COMMAND($hWnd, $nMsg, $wParam, $lParam)
    Local $nNotifyCode = BitShift($wParam, 16)
    Local $nID = BitAND($wParam, 0xFFFF)

    Switch $nID
        Case $nEdit
            Switch $nNotifyCode
                Case $EN_UPDATE
                    GUICtrlSetData($nCount_Label, 100-StringLen(GUICtrlRead($nID)))
            EndSwitch
    EndSwitch

    Return $GUI_RUNDEFMSG
EndFunc

Цитата SAOPP:

что в нём подозрительного? »

Есть похожие трояны

Цитата SAOPP:

Вы пробовали мой срипт? »

Да, ничего лишнего не сворачивает, только если есть коно с заголовком SoulSeek