[kagorec]

Всем привет, почитав ваши произведения в постах выше аж голова кругом...
Открыв мануал, решил сделать автоматизацию некоторых манипуляций в игре.
Написал скрипт, компилировал... а при запуске в ХР он в доли секунды включается и исчезает (в процессах тоже появляется на доли секунды и проподает)

PHP код:

Opt ("SendKeyDelay", 25       )

Opt ("MouseClickDownDelay", 25)

Global $Paused

HotKeySet("{PAUSE}", "Paused")



HotKeySet ("{F5}",  "pickup_5"     )

HotKeySet ("{F6}",  "pickup_10"     )



HotKeySet ("{NUMPAD0}", "Right_Click")

HotKeySet ("{NUMPAD1}", "Right_Click1")

HotKeySet ("{NUMPAD2}", "Left_Click")







;********** Left Click **********



Func Left_Click ()

While (1)

ToolTip('"LeftClicker"',200,0)

MouseClick ("Left")

MouseUp ("Left")



WEnd

EndFunc





;********** Right Click **********



Func Right_Click ()

While (1)

ToolTip('"RightClicker + Pickup"',200,0)

MouseDown( "Right" ) 

Send ("{SPACE}")

WEnd

EndFunc



Func Right_Click1 ()

While (1)

ToolTip('"RightClicker"',200,0)

MouseClick ("Right")

WEnd

EndFunc



;********** Pause **********



Func Paused()

    $Paused = NOT $Paused

    While $Paused

        sleep(100)

        ToolTip('Script is "Paused"',0,0)

    WEnd

    ToolTip("")

EndFunc







;********** pickup 4min. **********



Func pickup_5 ()

While (1)

    ToolTip('"Pickup every 5.min"',200,0)

Send ("{SPACE}")

Sleep (30000)



WEnd

EndFunc





;********** pickup 10min. **********



Func pickup_10 ()

While (1)

    ToolTip('"Pickup every 10.min"',200,0)

Send ("{SPACE}")

Sleep (60000)



WEnd

EndFunc 

Посмотрите что не так

Написал еще один и та же реакция... проподает.

PHP код:

Global $Paused

HotKeySet("{F4}", "Pausediii")

Func Pausediii()

    $Paused = NOT $Paused

    While $Paused

         Send ('{SPACE}')

    WEnd

    ToolTip("")

EndFunc 

[Maza Faka]

kagorec

Посмотрите что не так »

Нет основного цикла. После назначения функций на горячие клавиши вставь бесконечный цикл:

Код:

While 1
    Sleep(100)
WEnd

[amel27]

Maza Faka

Пытаюсь реализовать вот такой хинт »

интересно, а чем не устраивает штатный ToolTip?

Если найдётся время посмотри пожалуйста где ошибка »

что касается структур подправил, но сразу после отображения окна скрипт все равно валится... возможно, причина в том что это OCX а не DLL, либо требуется что-то еще.. можешь, кстати, поинтересоваться на оффсайте:

Код:

#include <GuiConstants.au3>
#include <WinAPI.au3>

Global Const $HH_DISPLAY_TEXT_POPUP = 0xE
Global Const $HH_CLOSE_ALL = 0x12

Global $DllRet

$hGUI = GUICreate("Test GUI", 300, 200, -1, -1, BitOR($WS_CAPTION, $WS_POPUP, $WS_SYSMENU), $WS_EX_CONTEXTHELP)
$hInput1 = GUICtrlCreateInput("", 50, 50, 200, 20)
$hInput2 = GUICtrlCreateInput("Input text here", 50, 100, 200, 20)
$HelpButton = GUICtrlCreateButton("Help", 20, 160, 60, 25)

$HH_POPUP = DllStructCreate("int cbStruct;hwnd hinst;uint idString;ptr pszText;long pt[2];dword clrForeground;dword clrBackground;long rcMargins[4];ptr pszFont")
$tPoint = DllStructCreate("long X;long Y", DllStructGetPtr($HH_POPUP, "pt"))
$tRect = DllStructCreate("long L;long T;long R;long B", DllStructGetPtr($HH_POPUP, "rcMargins"))

$tText = DllStructCreate("char String[256]")
$tFont = DllStructCreate("char String[256]")

DllStructSetData($tText, "String", "Help Popup")
DllStructSetData($tFont, "String", "MS Sans Serif, 10, , BOLD")

DllStructSetData($tRect, "L", -1)
DllStructSetData($tRect, "R", -1)
DllStructSetData($tRect, "T", -1)
DllStructSetData($tRect, "B", -1)

DllStructSetData($HH_POPUP, "cbStruct", DllStructGetSize($HH_POPUP))
DllStructSetData($HH_POPUP, "hinst", _WinAPI_GetModuleHandle(""))
DllStructSetData($HH_POPUP, "idString", 0)
DllStructSetData($HH_POPUP, "pszText", DllStructGetPtr($tText))
DllStructSetData($HH_POPUP, "clrForeground", -1)
DllStructSetData($HH_POPUP, "clrBackground", -1)
DllStructSetData($HH_POPUP, "pszFont", DllStructGetPtr($tFont))

GUISetState()

While 1
    Switch GUIGetMsg()
       Case -3
            ExitLoop
       Case $HelpButton
            $aPos = MouseGetPos()
            DllStructSetData($tPoint, "X", $aPos[0])
            DllStructSetData($tPoint, "Y", $aPos[1])

            $DllRet = DllCall("HHCtrl.ocx", "hwnd", "HtmlHelpA", "hwnd", $hGUI, "ptr", 0, _
            "uint", $HH_DISPLAY_TEXT_POPUP, "dword", DllStructGetPtr($HH_POPUP))

                        Sleep(3000)
            DllCall("HHctrl.ocx", "hwnd", "HtmlHelpA", "hwnd", $DllRet[0], "ptr", 0, "uint", $HH_CLOSE_ALL, "dword", 0)
    EndSwitch
WEnd

[Maza Faka]

интересно, а чем не устраивает штатный ToolTip? »

Пытался реализовать справку What this.

что касается структур подправил, но сразу после отображения окна скрипт все равно валится... возможно, причина в том что это OCX а не DLL, либо требуется что-то еще.. можешь, кстати, поинтересоваться на оффсайте: »

Мдаа... жалко конечно, что валится, но всё равно спасибо за помощь, хотя бы за пример создания столь сложной структуры.

[Mogidin]

Вопрос. Требуется сделать окно, которого не будет на панели задач, тока в трее.
И в догонку. Можно поменять иконку этого окна в трее? Как?

вопрос снимается.

[Котяра]

Помогите написать один скрипт. Короче, есть утилита fontinst.exe. Ее задача установить, шрифты, лежащие с ней в одной директории и прописанные в файле fontinst.inf. Синтаксис запуска:

Код:

fontinst.exe /f fontinst.inf

Так вот надо написать скрипт для формирования fontinst.inf . Файл выглядит так:

Код:

[fonts]
imya_faila1.ttf
imya_faila2.ttf
imya_failaX.ttf

Вариант 1: создать файл для всех шрифтов (*.ttf) из директории со скриптом.
Вариант 2: вывести окно со списком шрифтов из текущей директории и флажками.
Как это сделать? Хотя бы первый вариант...

[Maza Faka]

Котяра
IMHO эту задачу проще и быстрее будет решить с помощью bat-файла:

Код:

@echo off
echo [fonts]> fontinst.inf
for %%a in (*.ttf) do echo %%a>> fontinst.inf

Если же без AutoIt-а никак, то пожить этот батничек в папку с AutoIt скриптом и вызывать его такой командой:

Код:

ShellExecuteWait(@ScriptDir & "\fontinst.cmd", "", "", "open", @SW_HIDE)

[amel27]

Maza Faka

жалко конечно, что валится »

Вообще, случай с этим HH забавный (если не сказать грустный). Во-первых, есть такой KB для VB, но добавление команд HH_INITIALIZE/HH_UNINITIALIZE (на всякий случай запостил ниже) ситуацию не меняет... разве только ошибка быстрей валится. Во-вторых, на форуме родственной AutoHotkey лежит готовый пример от PhiLho 2006-го года и судя по отзывам он должен работать, но он не работает!.. у меня валится примерно та же ошибка, можешь кстати проверить.

Код:

Global Const $HH_INITIALIZE=0x1C
Global Const $HH_UNINITIALIZE=0x1D

$tCookie = DllStructCreate("dword")

$DllRet = DllCall("HHCtrl.ocx", "hwnd", "HtmlHelp", "hwnd", 0, "ptr", 0, _
    "uint", $HH_INITIALIZE, "dword", DllStructGetPtr($tCookie))

; .....

$DllRet = DllCall("HHCtrl.ocx", "hwnd", "HtmlHelp", "hwnd", 0, "ptr", 0, _
    "uint", $HH_UNINITIALIZE, "dword", DllStructGetData($tCookie, 1))

Котяра

Хотя бы первый вариант »

Код:

#Include <File.au3>

$sFileName = $cmdline[$cmdline[0]]
If IsNumber($sFileName) Then $sFileName = StringRegExpReplace(@ScriptFullPath, "\.au3|\.exe$", "") &".inf"

$aFileList=_FileListToArray(@ScriptDir, "*.ttf", 1)
If @Error Then Exit
$aFileList[0]="[fonts]"
_FileWriteFromArray($sFileName, $aFileList)

[TERMINAL]

Можно ли в реестре с помощью RegDelete едалить не значение, а полностью ветку (папку)?

[amel27]

Можно ли в реестре с помощью RegDelete едалить не значение, а полностью ветку »

конечно можно, если не указывать необязательный параметр "valuename", цитата из справки:

Deletes a key or value from the registry