Что нового

Проблема с запуском скрипта

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
659
При запуске этого скрипта:
Код:
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WinAPIEx.au3>
#include <WindowsConstants.au3>

_GDIPlus_Startup()

$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & '\bg.png')
$hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
_GDIPlus_ImageDispose($hImage)

$hForm = GUICreate('', 850, 568, 200, 200, $WS_POPUPWINDOW, $WS_EX_LAYERED)
_WinAPI_UpdateLayeredWindowEx($hForm, $hBitmap, 255)
$hPopup = GUICreate('', 850, 568, 200, 200, $WS_POPUP, $WS_EX_LAYERED, $hForm)
GUISetBkColor(0xABABAB)
_WinAPI_SetLayeredWindowAttributes($hPopup, 0xABABAB, 0, $LWA_COLORKEY)

GUIRegisterMsg($WM_MOVE, 'WM_MOVE')
GUIRegisterMsg($WM_NCHITTEST, 'WM_NCHITTEST')

GUISetState(@SW_SHOW, $hForm)
GUISetState(@SW_SHOW, $hPopup)

While 1
	$Msg = GUIGetMsg()
	_WinAPI_UpdateLayeredWindowEx($hForm, $hBitmap, 255)
	Switch $Msg
		Case $GUI_EVENT_CLOSE
			ExitLoop
	EndSwitch
WEnd

_GDIPlus_Shutdown()

Func WM_MOVE($hWnd, $iMsg, $wParam, $lParam)
	Switch $hWnd
		Case $hForm
			WinMove($hPopup, '', BitAND($lParam, 0xFFFF), BitShift($lParam, 16))
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_MOVE

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
	Switch $hWnd
		Case $hForm
			Switch $iMsg
				Case $WM_NCHITTEST
					Return $HTCAPTION
			EndSwitch
	EndSwitch
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NCHITTEST


выдаёт такую ошибку:


Почёму ?!

P.S. Раньше скрипт работал.
 

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4 020
Репутация
622
Re: Как исправить ошибку

Предупреждение За нарушение правил форума (пункт Б.5):
Имя темы должно нести смысловую нагрузку (отражать суть вопроса/проблемы)
Правильно сформулированное название темы привлекает больше внимания, и шансы получить конкретный ответ увеличиваются.


Как правильно называть темы

"Как исправить ошибку" - это неприемлемое название темы, переименуйте тему иначе она будет закрыта, а вам возможно будет выдан бан на несколько дней.

С уважением, Модератор раздела.
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1 575
Репутация
335
Re: Как исправить ошибку

Код:
_WinAPI_UpdateLayeredWindowEx ( $hWnd, $hBitmap, $iX, $iY [, $iOpacity [, $fDelete]] )

Должно быть 4 обязательных параметра.

P.S. Исправь название темы.
 
Автор
Zaramot

Zaramot

I ♥ AutoIt
Сообщения
1 160
Репутация
659
Re: Помогите исправить ошибку.

_WinAPI_UpdateLayeredWindowEx ( $hWnd, $hBitmap, $iX, $iY [, $iOpacity [, $fDelete]] )
Должно быть 4 обязательных параметра.
Да,но раньше скрипт - работал.

P.S. Исправь название темы.
Исправил. Надеюсь так сойдёт.
 

Medic84

Омега
Команда форума
Администратор
Сообщения
1 575
Репутация
335
Re: Помогите исправить ошибку.

Как исправить ошибку -> Помогите исправить ошибку.

Нет, ну Вы издеваетесь...
 

CreatoR

Must AutoIt!
Команда форума
Администратор
Сообщения
8 473
Репутация
2 403
Re: Помогите исправить ошибку.

Zaramot [?]
Исправил. Надеюсь так сойдёт.
Нет не сойдёт, по твоему что-то изменилось?

Почитай тему по ссылке в предупреждений.
 
Верх