I don't Know

http://pbdc.cafe24.com 박상희님 글발췌

Function Long FindWindowA (String lpClassName ,String  lpWindowName ) Library "user32"
FUNCTION boolean GetCursorPos(ref mousepos mousepos2) LIBRARY "user32.dll"
Function ulong GetDC(ulong hWnd) Library "user32.dll"
Function ulong GetPixel(ulong hDc, long X, long Y) Library "gdi32.dll"
Function Long ReleaseDC (Long hwnd ,Long  hdc ) Library "user32.dll"

// 마우스포인터의 위치를 구하기 위한 Struct
global type mousepos from structure
        long                lxpos
        long                lypos
end type

// Button을 하나 만들고 mousemove Event를 만들어서 다음과 같이 기술합니다.
// userEventID : pbm_mousemove


// Mouse Button Flag
// 1 - Left mouse button
// 2 - Right mouse button
// 4 - shift key?
// 8 - ctrl key?
// 16 - Middle mouse button

Constant Long COLOR_MID = 8388608
Constant Long COLOR_WHITE = 16777215
Constant Long COLOR_BLACK = 0

IF flags <> 1 THEN Return //-- 왼쪽 마우스 버튼이 눌려져 있을때만...
        
ULONG                 rtn
Long                ll_X,ll_Y,l_hDeskWnd,l_hDeskDC
long                hnewcursor,holdcursor,retval
string                NullString
mousepos                         mouseloc

SetNull(NullString)

l_hDeskWnd = FindWindowA("#32769", NullString) // DeskTop Handle 을 구한다.
l_hDeskDC  = GetDC(l_hDeskWnd)                        // Handle로 부터 DC 를 구한다.

// 마우스 위치값구하기
GetCursorPos(mouseloc)

ll_X        =        mouseloc.lxpos
ll_Y        =        mouseloc.lypos

// 마우스 위치값의 컬러값
rtn = GetPixel(l_hDeskDC, mouseloc.lxpos, mouseloc.lypos)

//-- 이후에는 구한 컬러값으로 처리 해주면 됩니다.
// Color Setting
st_color.BackColor =         rtn
st_color.Text         = String(rtn)
em_number.text        =        String(st_color.BackColor)        

if st_color.BackColor>COLOR_MID then
    st_color.textcolor = COLOR_BLACK
else
    st_color.textcolor = COLOR_WHITE
end if

SetPointer(Cross!)

// DC를 Release  합니다.
ReleaseDC(l_hDeskWnd,l_hDeskDC)

http://pbdc.cafe24.com 박상희님 글 발췌

function long IsNetworkAlive(Ref Long lpdwFlags )  Library "SENSAPI.DLL"

Constant long  NETWORK_ALIVE_AOL = 4
Constant long  NETWORK_ALIVE_LAN = 1
Constant long  NETWORK_ALIVE_WAN = 2

Long                 Ret
String         sKind

         If IsNetworkAlive(Ret) = 0 Then
                 MessageBox ("","The local system is not connected to a network!")
         Else
                                        Choose Case         Ret
                                                Case NETWORK_ALIVE_AOL
                                                        sKind = 'NETWORK_ALIVE_AOL'
                                                Case NETWORK_ALIVE_LAN
                                                        sKind = 'NETWORK_ALIVE_LAN'
                                                Case NETWORK_ALIVE_WAN
                                                        sKind = 'NETWORK_ALIVE_WAN'
                                        End Choose        
                                          MessageBox ("", &
                                          "The local system is connected to a " &
                                          + sKind + " network!" )
          end if

http://pbdc.cafe24.com 박상희님 글 발췌

Structure Name : netresource
Structure Member

Long   dwscope
Long   dwtype
Long   dwdisplay
Long   dwusage
String lplocalname
String lpremortename
String lpcomment
String lpprovider


External Function :

Function Long WNetAddConnection2(Ref netresource lpnetresource, string lpszPassword ,string lpusername, long dwflags ) Library "mpr.dll" Alias For "WNetAddConnection2A"

------------------------------------------------------
  Function Name : of_netadd
  Arguments      : String as_userid
                  : String as_password
                  : String as_remote  
                  : String as_local
  RETURN         : -
------------------------------------------------------

String     ls_netname
String     ls_drive
String     ls_username
String     ls_passwd
Long       ll_rtn

NETRESOURCE lpNetResource

ls_username = as_userid
ls_passwd   = as_passwd
ls_netname  = as_remote
ls_drive    = as_local

lpNetResource.lpRemorteName = ls_netname
lpNetResource.lpLocalName   = ls_drive

ll_rtn = WNetAddConnection2(lpNetResource,ls_passwd,ls_username,1)

IF ll_rtn <> 0 THEN
RETURN -1
END IF

RETURN 1

 http://pbdc.cafe24.com 박상희님 글 발췌
======================================================================
타원형
======================================================================
Function long CreateEllipticRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"

Long hRgn
hRgn = CreateEllipticRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )

======================================================================
Rectangle
======================================================================
Function long CreateRoundRectRgn( long lX1, long lY1, long lX2, long lY2,long lX3, long lY3 ) Library "gdi32.dll"

Long hRgn
hRgn = CreateRoundRectRgn( 0, 0, This.Width/5, This.Height/4, This.Width/9, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )

======================================================================
네모형
======================================================================
Function long CreateRectRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"

Long hRgn
hRgn = CreateRectRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )

External Function
===============================================================================
FUNCTION ulong LoadImageA(ulong hintance, string filename,uint utype,int x,int y,uint fload)  LIBRARY "USER32.DLL"
FUNCTION boolean SetMenuItemBitmaps(ulong hmenu,uint upos,uint flags,ulong handle_bm1,ulong handle_bm2)  LIBRARY "USER32.DLL"
FUNCTION int GetSystemMetrics(  int nIndex ) LIBRARY "USER32.DLL"
FUNCTION ulong GetMenuItemID(ulong hMenu,uint uItem) LIBRARY "USER32.DLL"
FUNCTION int GetSubMenu(ulong hMenu,int pos) LIBRARY "USER32.DLL"
FUNCTION ulong GetMenu(ulong hWindow) LIBRARY "USER32.DLL"
FUNCTION boolean ModifyMenu(ulong  hMnu, ulong uPosition, ulong uFlags, ulong uIDNewItem, long lpNewI) alias for ModifyMenuA LIBRARY "USER32.DLL"
function boolean SetMenuDefaultItem(ulong hMenu,ulong uItem, ulong fByPos ) LIBRARY "USER32.DLL"
===============================================================================

Long           ll_MainHandle
long            ll_SubMenuHandle
integer         li_MenuItemID
long            ll_X
long            ll_Y
long            ll_BitmapHandleA
long            ll_BitmapHandleB

// Win32 contants
Integer IMAGE_BITMAP    = 0
Integer LR_LOADFROMFILE = 16
Integer SM_CXMENUCHECK  = 71
Integer SM_CYMENUCHECK  = 72
Integer MF_BITMAP       = 4
Integer MF_BYCOMMAND    = 0
Integer MF_BYPOSITION   = 1024

// Get a handle to the menu
ll_MainHandle = GetMenu(Handle(this))

// Get a handle the the first menu item
ll_SubMenuHandle = GetSubMenu(ll_MainHandle,0)

// Load the images in their original sizes
ll_BitmapHandleA = LoadImageA(0,'ok.bmp',0,0,0,LR_LOADFROMFILE)
ll_BitmapHandleB = LoadImageA(0,'stop.bmp',0,0,0,LR_LOADFROMFILE)

// get the menu id of the first submenu item
li_MenuItemID = GetMenuItemID(ll_SubMenuHandle,0)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapHandleA)

// get the menu id of the first submenu item
li_MenuItemID = GetMenuItemID(ll_SubMenuHandle,1)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapHandleB)

// Get a handle the third submenu menu item
ll_SubMenuHandle = GetSubMenu(ll_SubMenuHandle,2)

// get the menu id of the first submenu item
li_MenuItemID = GetMenuItemID(ll_SubMenuHandle,0)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapHandleA)

li_MenuItemID = GetMenuItemID(ll_SubMenuHandle,1)
ModifyMenu(ll_SubMenuHandle,li_MenuItemID,MF_BITMAP,li_MenuItemId,ll_BitmapHandleB)


// back to the top


//Now get the handle of the second submenu..
ll_SubMenuHandle = GetSubMenu(ll_MainHandle,1)

// Get sizes for the pictures, use winapi for the bitmaps sizes
ll_x = GetSystemMetrics(SM_CXMENUCHECK)
ll_y = GetSystemMetrics(SM_CYMENUCHECK)

// Load the images using the dimensions for the checked state
ll_BitmapHandleA = LoadImageA(0,'ok.bmp',  IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)
ll_BitmapHandleB = LoadImageA(0,'stop.bmp',IMAGE_BITMAP ,ll_x,ll_y,LR_LOADFROMFILE)

SetMenuItemBitmaps(ll_SubMenuHandle,0,MF_BYPOSITION,ll_BitmapHandleA,ll_BitmapHandleB)
SetMenuItemBitmaps(ll_SubMenuHandle,1,MF_BYPOSITION,ll_BitmapHandleB,ll_BitmapHandleA)

// Get a handle the third submenu menu item
ll_SubMenuHandle = GetSubMenu(ll_SubMenuHandle,2)

SetMenuItemBitmaps(ll_SubMenuHandle,0,MF_BYPOSITION,ll_BitmapHandleA,ll_BitmapHandleB)
SetMenuItemBitmaps(ll_SubMenuHandle,1,MF_BYPOSITION,ll_BitmapHandleB,ll_BitmapHandleA)



// set default menu item for second menuitem of the third submenu

// Get a handle the the third menu item
ll_SubMenuHandle = GetSubMenu(ll_MainHandle,2)

// set the default for the second item
SetMenuDefaultItem(ll_SubMenuHandle,1,MF_BYPOSITION)

Global External Function을 선언합니다.
---------------------------------------------------------
Function Long SetSystemTime (ref SYSTEMTIME lpSystemTime ) Library "kernel32"
---------------------------------------------------------
다음과 같이 Structure를 생성합니다.
global type systemtime from structure
        integer                wyear
        integer                wmonth
        integer                wdayofweek
        integer                wday
        integer                whour
        integer                wminute
        integer                wsecond
        integer                wmilliseconds
end type
---------------------------------------------------------
Script 기술 부분입니다.

SYSTEMTIME                lstr_SYSTEMTIME  
Long                        ll_rtn

lstr_SYSTEMTIME.wYear                =        2000   //년
lstr_SYSTEMTIME.wMonth               =        10      //월
lstr_SYSTEMTIME.wDay                 =        15      //일
lstr_SYSTEMTIME.wHour                =        12 - 9 // - 9는 표준시간 (서울) 입니다 - 따라서 12시로 Setting 됨. (국가별로 틀리겠죠.)
lstr_SYSTEMTIME.wMinute              =        10     //분
lstr_SYSTEMTIME.wSecond              =        0      //초
lstr_SYSTEMTIME.wDayOfWeek   =        3      // 요일 (일요일부터 1,2,3,...)
lstr_SYSTEMTIME.wMilliseconds        =        0      // 밀리초

ll_rtn = SetSystemTime(lstr_SYSTEMTIME)

IF ll_rtn <> 1 THEN Return 0

Return 1

http://pbdc.cafe24.com 발췌
/*
설명 : 파워빌더에서 API 를 사용하여 현재 OS 의
      Process 를 읽어 들이는 로직입니다.
*/

// Declare External Function
/*
Function Long GetWindow(long hWnd , long wCmd ) Library "User32"
Function Long GetWindowLong(long hWnd , long wIndx ) Library "User32" Alias For "GetWindowLongA"
Function Long GetWindowText(long hWnd, ref string lpSting, long nMaxCount) Library "User32" Alias For "GetWindowTextA"
Function Long GetWindowTextLength(long hWnd ) Library "User32" Alias  For "GetWindowTextLengthA"

Function Name                 : of_GetProcess
Arguments                  : Long   al_whandle
                        : Ref String as_title[]
                        : Ref String as_handle[]
Return                 : -

ulong                 GW_HWNDFIRST=0
ulong                 GW_HWNDNEXT =2
ulong                 GWL_STYLE = -16
*/

// Script
Long     ll_hwCurr
Long     ll_hwme
Long     ll_intLen
Long     ll_active
Long     ll_lngStyle
Long     ll_pointer

String   ls_strTitle
String   ls_TaskTitle[]
String   ls_TaskHandle[]
  

// Firt Task Window GET
ll_hwCurr = GetWindow(al_whandle, GW_HWNDFIRST)  

// Current Window Handle
ll_hwme = al_whandle

// All Task Window Loop
DO WHILE ll_hwCurr > 0
                //mle_memory.text += String(ll_hwCurr) +'~r~n'
                // Window Style
                ll_lngStyle = GetWindowLong(ll_hwCurr, GWL_STYLE)
                ll_active = ll_lngStyle

                // Current Handle <> Fetch Handle AND Window Style > 0
                IF ll_hwCurr <> ll_hwme AND ll_active > 0 THEN

                                // Window Text Length
                                ll_intLen   = GetWindowTextLength(ll_hwCurr) + 1
                                ls_strTitle = Space(ll_intLen)

                                // Window Text GET
                                ll_intLen   = GetWindowText(ll_hwCurr,ls_strTitle,ll_intLen)

                                                // Exists Task Window
                                                IF ll_intLen > 0 THEN
                                                                 ll_pointer++
                                                                 as_title[ll_pointer]  = ls_strTitle
                                                                 as_handle[ll_pointer] = String(ll_hwCurr)

                                                END IF
                 END IF

                 // Feth Task Window
                 ll_hwCurr = GetWindow(ll_hwCurr, GW_HWNDNEXT)

LOOP

RETURN 1  

해당 윈도우가 열기기 전에 계속적으로 키보드를 조작하여 여러 가지 Error를
만난 적이 있거나 연속적인 Mouse 조작으로 원하지 않는 결과를 본 적이 있을
것이다.
윈도우가 열리기 전 key나 mouse의 동작으로 원하지 않는 윈도우나 control의
동작을 막는 방법을 소개 한다.
이 방법을 윈도우의 기본 Ancestor에 적용할 수도 있고 언제던지 key 동작을
청소 할 시점에 호출하면 된다.
일단, 이 해결책을 'uo_winapi' user object을 만들어 처리하기로 한다.

* 'str_msg'라는 이름으로 다음과 같이 structure를 만든다.
이 structure는 윈도우를 위한 feedback 영역으로 사용하기 위해 정의되며,
실제적인 프로세싱에는 사용되지 않는다.

type str_msg from structure
  integer   i_handle
  integer   i_message
  integer   i_wparam
  long      l_param
  long      l_time
  integer   i_x
  integer   i_y
end type

* 'GetInputState()'와 'PeekMessageA()'함수를 Local External Function으로
정의 한다.

Function integer GetInputState() Library "user32.dll"
Function integer PeekMessageA(ref str_msg msg_str, int hwnd,
          int startkey, int endkey, int dowhat) Library "user32.dll"

GetInputState()는 불려진 thread의 message queue에 mouse나 keyboard message
가 있는지 확인하고 queue에 message가 없으면 0을 return한다. 만일 queue에
message가 있으면 zero가 아닌 값을 return 한다. PeekMessageA()는 지정된
범위 내에 message가 queue에 있는지 검사하고 structure에 저장 한다.

이 함수는 5개의 Argument를 사용하며 다음과 같다.
첫 번째 argument는 struture로 찾은 message를 전달, 두 번째는 message queue에서 점검하는 윈도우의 handle, 세 번째는 시작되는 filter, 네 번째는 종료되는 filter, 다섯 번째는 삭제 flag이다.
만일 handle이 0이나 null값이면 PeekMessageA()는 모든 영역을 조사 한다.
시작과 종료 값은 keyboard용으로 WM_KEYFIRST-256 와 WM_KEYLAST-264를 사
용하고 mouse 용으로는 WM_MOUSEFIRST-512 와 WM_MOUSELAST-521를 사용 한다.
WM_NCMOUSEMOVE-160 와 WM_NCMBUTTONDBLCLK-169는 추가적인 mouse 동작을 위해
사용 된다.
삭제 flag는 queue에 있는 message를 삭제 할 것인지 여부를 결정 한다.
PM_REMOVE-1를 사용하면 message가 삭제 된다.
위 상수들은 사용되는 script 내에 정의하여 사용한다.

* user object에 'of_clear_keyboard' 함수를 작성 한다.
Of_clear_keyboard 함수는 Boolean type의 3개 Argument를 사용 한다.
   ab_clear_keys           : keyboard의 청소 여부
   ab_clear_mouse          : mouse의 청소 여부
   ab_enable_otherappkeys  : 다른 Application의 key 동작 여부

//해당되는 key 동작 삭제
constant integer WM_KEYFIRST    = 256
constant integer WM_KEYLAST     = 264
constant integer WM_MOUSEFIRST  = 512
constant integer WM_MOUSELAST   = 521
constant integer WM_NCMOUSEMOVE = 160
constant integer WM_NCMBUTTONDBLCLK = 169
constant integer PM_NOREMOVE    = 0
constant integer PM_REMOVE      = 1
integer li_rc

//key 동작이나 mouse 동작이 없으면 return
If GetInputState() = 0 Then Return 1
MessageBox("입력상태",string(GetInputState())

//Argument 조사
If NOT ab_clear_keys AND NOT ab_clear_mouse AND &
NOT ab_enable_otherappkeys Then Return 1

//Message 청소
If ab_clear_keys Then
   Do
     li_rc = PeekMessageA(istr_msg,0,WM_KEYFIRST,WM_KEYLAST,PM_REMOVE)
   Loop While li_rc <> 0
End If

If ab_clear_mouse Then
   Do
     li_rc = PeekMessageA(istr_msg,0,WM_MOUSEFIRST,WM_MOUSELAST,PM_REMOVE)
   Loop While li_rc <> 0
End If

Do
   li_rc = PeekMessageA(istr_msg,0,WM_NCMOUSEMOVE,WM_NCMBUTTONDBLCLK,&
           PM_REMOVE)
Loop While li_rc <> 0

If ab_enable_otherappkeys Then
   Do While Yield()
   Loop
End If

이 함수는 GetInputState() 함수로 message를 확인하고 없으면 종료 한다.
다음으로 어떤 요청이 있는지 확인하고 key 동작이 아닌 동작은 powerscript
함수인 Yield()함수로 허용한다.
참조로 Yield()함수는 key 동작이 아닌 다른 동작 수행을 허용한다.
그러나, Yield()함수가 아니라도 실행 중인 Application 영역을 벗어나서
Click하여도 된다.
이런 경우에는 해당 윈도우가 나타나더라도 focus를 가지지는 못한다.
추가적으로, 해당 Application 밖에서 다른 key 동작이 일어나더라도, 먼저 수
행이 되며 시행 중인 윈도우에는 영향을 미치지 않는다.

* 실제적으로 윈도우를 open하는 시점 바로 전에 이 함수를 수행 시키면 된다.
uo_winapi = create uo_winapi
uo_winapi.of_clear_keyboard(true,true,true)
open(w_otherwindow)

참조: PeekMessageA()함수는 어떻게 동작이 되는가:
기본적으로 모든 key 동작과 mouse click은 hardware scan code를 발생한다.
이 scan code는 윈도우 가상 key code로 전환되어 사용되어 진다.
윈도우가 key 동작을 감지하면 WM_KEYDOWN이나 WM_KEYUP이 발생 한다.
이 Message는 윈도우에 의해 번역되고 PeekMessageA() 함수에 의해 감지 된다.

출처:PowerBuilder News  

//애니메이션효과  주기 Global External Function : Function boolean AnimateWindow(long lhWnd, long lTm, long lFlags ) library 'user32.dll' Scrupt : 해당 윈도우의 Open 이벤트에 기술합니다. // 왼쪽에서 오른쪽으로 열립니다. Constant Long AW_HOR_POSITIVE = 1 // 오른쪽에서 왼쪽으로 열립니다. Constant Long AW_HOR_NEGATIVE = 2 // 위에서 아래로 펼쳐지며 열립니다. Constant Long AW_VER_POSITIVE = 4 // 아래에서 위로 펼쳐지며 열립니다. Constant Long AW_VER_NEGATIVE = 8 // 가운데서부터 펼쳐지며 열립니다. Constant Long AW_CENTER = 16 // 윈도우감추기 Constant Long AW_HIDE = 65536 // 윈도우 활성화 Constant Long AW_ACTIVATE = 131072 // 미끌어지기 효과 Constant Long AW_SLIDE = 262144 // 분산효과 Constant Long AW_BLEND = 524288 AnimateWindow( Handle( this ), 500, AW_VER_NEGATIVE) this.setredraw(true)