HSP¥Ý¡¼¥¿¥ë
¥µ¥¤¥È¥Þ¥Ã¥× ¤ªÌ䤤¹ç¤ï¤»


HSPTV!·Ç¼¨ÈÄ


̤²ò·è ²ò·è Ää»ß ºï½üÍ×ÀÁ

2013
0525
snakery¥Õ¥©¥ë¥À¡¦¥Õ¥¡¥¤¥ë¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤À¤±¤Ç¥Ñ¥¹Ì¾¤òɽ¼¨¤·¤¿¤¤13²ò·è


snakery

¥ê¥ó¥¯

2013/5/25(Sat) 10:43:19|NO.54277

¥Õ¥©¥ë¥À¡¦¥Õ¥¡¥¤¥ë¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤À¤±¤Ç¥Ñ¥¹Ì¾¤òɽ¼¨¤·¤¿¤¤¤Ç¤¹¡£

¡ÚÎã¡Û
HSP¤¬´Æ»ë¤·¤Æ¤¤¤Þ¤¹¡£
HSP¤«¤é³°¤ì¤ÆÅÅÂî¤ò¥¯¥ê¥Ã¥¯¤¹¤ë¤ÈHSP¤Ë¥Ñ¥¹Ì¾¤¬É½¼¨¤µ¤ì¤ë
C:\Users\¥æ¡¼¥¶¡¼Ì¾\Desktop\calc.exe
D:\calc.exe
¤Î¤è¤¦¤Ê´¶¤¸¡£
¤É¤³¤Ë¥Õ¥¡¥¤¥ë¤¬¤¢¤Ã¤Æ¤â¥Ñ¥¹Ì¾¤ò¼èÆÀ¤Ç¤­¤ë¤è¤¦¤Ê¤â¤Î¤òºî¤ì¤ëÊý¤¤¤¿¤é¥µ¥ó¥×¥ë¥½¡¼¥¹¤ª´ê¤¤¤·¤Þ¤¹¡ª¡ª



¤³¤Îµ­»ö¤ËÊÖ¿®¤¹¤ë


woodfiels

¥ê¥ó¥¯

2013/5/26(Sun) 12:34:23|NO.54306

¥Õ¥©¥ë¥À¡¦¥Õ¥¡¥¤¥ë¤Ê¤é¡¢¥Þ¥¦¥¹±¦¥¯¥ê¥Ã¥¯¤Î¡Î¥×¥í¥Ñ¥Æ¥£¡Ï¤Ç¤ï¤«¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
¤Þ¤¿¡¢ÅÅÂî¤ËÁ÷¤é¤ì¤ë¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯¤ò¥Õ¥Ã¥¯¤¹¤ë¤Î¤Ïº¤Æñ¤È¤¤¤¦¤«¡¢¹Ôµ·¤¬°­¤¤¤È¤ª¤â¤¤¤Þ¤¹¡£

¥µ¥ó¥×¥ë¥¹¥¯¥ê¥×¥È¤Ç¤Ï¡¢°Ê²¼¤Î¼ê½ç¤Ç¡¢¥Þ¥¦¥¹²¼¤Î¥¦¥£¥ó¥É¥¦¤Î¼Â¹Ô¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹Ì¾¤òɽ¼¨¤·¤Þ¤¹¡£
­¡ ginfo(0) ¤Èginfo(1) ¤Ç¥Þ¥¦¥¹°ÌÃÖ¤ò´Æ»ë¤¹¤ë
­¢ WindowFromPoint ¤È GetWindowLong ¤Ç¥¦¥£¥ó¥É¥¦¥Ï¥ó¥É¥ë¤ò¼èÆÀ
­£ GetWindowThreadProcessId ¤Ç¥×¥í¥»¥¹£É£Ä¤ò¼èÆÀ
­¤ OpenProcess ¤Ç¥×¥í¥»¥¹¥Ï¥ó¥É¥ë¤ò¼èÆÀ
­¥ EnumProcessModules ¤Ç¥â¥¸¥å¡¼¥ë¥Ï¥ó¥É¥ë¤òÎóµó
­¦ GetModuleFileNameEx ¤Ç¥â¥¸¥å¡¼¥ë¤Î¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹¤ò¼èÆÀ ¢ª .exe¥Õ¥¡¥¤¥ë¤ò¸¡º÷

#uselib "user32.dll" #func WindowFromPoint "WindowFromPoint" sptr,sptr #func GetWindowLong "GetWindowLongA" sptr,sptr ; HWND hWnd, ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë ; int nIndex ¼èÆÀ¤¹¤ëÃͤΥª¥Õ¥»¥Ã¥È #const GWL_HWNDPARENT $FFFFFFF8 ; -8 ¿Æ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë #cfunc GetWindowThreadProcessId "GetWindowThreadProcessId" sptr,sptr ;¥¦¥£¥ó¥É¥¦¤òºîÀ®¤·¤¿¥¹¥ì¥Ã¥É¤Î ID ¤¬ÊÖ¤ê¤Þ¤¹¡£ ; HWND hWnd, ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë ; LPDWORD lpdwProcessId ¥×¥í¥»¥¹ ID ; ¢¬»ØÄꤹ¤ë¤È¡¢¤½¤ì¤¬»Ø¤¹ÊÑ¿ô¤Ë¥×¥í¥»¥¹ ID ¤¬¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ; NULL ¤ò»ØÄꤷ¤¿¾ì¹ç¤Ï¡¢¥×¥í¥»¥¹ ID ¤Î¼èÆÀ¤Ï¹Ô¤ï¤ì¤Þ¤»¤ó¡£ ; Ìá¤êÃͤϥ¦¥£¥ó¥É¥¦¤òºîÀ®¤·¤¿¥¹¥ì¥Ã¥É¤Î ID ¤¬ÊÖ¤ê¤Þ¤¹¡£ #uselib "KERNEL32.DLL" #func CloseHandle "CloseHandle" int #func OpenProcess "OpenProcess" int,int,int ; DWORD dwDesiredAccess, // ¥¢¥¯¥»¥¹¥Õ¥é¥° ; BOOL bInheritHandle, // ¥Ï¥ó¥É¥ë¤Î·Ñ¾µ¥ª¥×¥·¥ç¥ó ; DWORD dwProcessId // ¥×¥í¥»¥¹¼±ÊÌ»Ò #const PROCESS_QUERY_INFORMATION 0x0400 #const PROCESS_VM_READ 0x0010 #uselib "psapi.dll" #func EnumProcessModules "EnumProcessModules" sptr,sptr,sptr,sptr ; HANDLE hProcess, // ¥×¥í¥»¥¹¤Î¥Ï¥ó¥É¥ë ; HMODULE * lphModule, // ¥â¥¸¥å¡¼¥ë¥Ï¥ó¥É¥ë¤ò¼õ¤±¼è¤ëÇÛÎó ; DWORD cb, // ÇÛÎó¤Î¥µ¥¤¥º ; LPDWORD lpcbNeeded // ɬÍפʥХ¤¥È¿ô #func GetModuleFileNameEx "GetModuleFileNameExA" sptr,sptr,sptr,sptr ; HANDLE hProcess, // ¥×¥í¥»¥¹¤Î¥Ï¥ó¥É¥ë ; HMODULE hModule, // ¥â¥¸¥å¡¼¥ë¤Î¥Ï¥ó¥É¥ë ; LPTSTR lpFilename, // ¥Ñ¥¹¤ò¼õ¤±¼è¤ë¥Ð¥Ã¥Õ¥¡ ; DWORD nSize // ¼èÆÀ¤·¤¿¤¤Ê¸»ú¤ÎºÇÂç¤ÎŤµ screen 0,300,100,0,ginfo_dispx-305,5 gsel 0,2 file_path="" : mesbox file_path ,300,100,0 : id_mesbox=stat *mainloop wait 10 x_mouse=ginfo(0) : y_mouse=ginfo(1) title "ŽÏŽ³Ž½XºÂɸ"+x_mouse+" ŽÏŽ³Ž½YºÂɸ"+y_mouse if (x_mouse != x_mouse_old) | (y_mouse != y_mouse_old) { x_mouse_old=x_mouse : y_mouse_old=y_mouse hwnd_under=0 : pid_under=0 : thr_under=0 : hProcess=0 : hModule=0 : sdim file_path, 256 WindowFromPoint x_mouse, y_mouse : hwnd_under=stat GetWindowLong hwnd_under,GWL_HWNDPARENT : if stat != 0 : hwnd_under=stat thr_under=GetWindowThreadProcessId(hwnd_under,varptr(pid_under)) if pid_under { OpenProcess PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, 0, pid_under : hProcess=stat if hProcess { EnumProcessModules hProcess,varptr(hModule),4,varptr(size) if stat { dim v_hModule,size/4 ;: list_hModule=""+size/4+"\n" EnumProcessModules hProcess, varptr(v_hModule), size, varptr(size) repeat size/4 ;list_hModule+=""+v_hModule.cnt+"\n" GetModuleFileNameEx hProcess, v_hModule.cnt, varptr(file_path), 256 newcom oReg,"VBScript.RegExp" oReg("Pattern")=".exe$" ; ¸¡º÷¥Ñ¥¿¡¼¥ó <= .exe¥Õ¥¡¥¤¥ë¤ò¸¡º÷¤¹¤ë oReg("IgnoreCase")=1 ; Âçʸ»ú¾®Ê¸»ú¤ò¶èÊ̤·¤Ê¤¤ val_mach=oReg("Test", file_path) delcom oReg if val_mach { objprm id_mesbox,"Ž³Ž¨ŽÝŽÄŽÞŽ³ŽÊŽÝŽÄŽÞŽÙ:"+hwnd_under+"\nŽÌŽßŽÛŽ¾Ž½ID:"+pid_under+"(Ž½ŽÚŽ¯ŽÄŽÞID:"+thr_under+")\nŽÌŽßŽÛŽ¾Ž½ŽÊŽÝŽÄŽÞŽÙ:"+ hProcess+"\nŽÓŽ¼ŽÞŽ­Ž°ŽÙŽÊŽÝŽÄŽÞŽÙ:"+v_hModule.cnt+"\n"+file_path+"\n";+size } loop ;dialog "ŽÓŽ¼ŽÞŽ­Ž°ŽÙŽÊŽÝŽÄŽÞŽÙ¡Ê"+size/4+"¸Ä¡Ë"+list_hModule } CloseHandle hProcess } } } goto *mainloop



snakery

¥ê¥ó¥¯

2013/5/26(Sun) 14:49:52|NO.54312

Ť¤¥½¡¼¥¹¤¢¤ê¤¬¤¿¤¤¤Ç¤¹¤¬¡¢¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­¤Ë¤Û¤·¤¤¤Ç¤¹¡£¡£



ht.

¥ê¥ó¥¯

2013/5/26(Sun) 14:53:37|NO.54313

GetActiveWindow¤ò´Æ»ë¤¹¤ì¤Ð¥Õ¥Ã¥¯Ìµ¤·¤Ç¤â²Äǽ¤Ç¤¹¤Í¡£



²Ë¿Í

¥ê¥ó¥¯

2013/5/26(Sun) 15:46:35|NO.54315

>if (x_mouse != x_mouse_old) | (y_mouse != y_mouse_old) {
¤³¤ì¤ÎÂå¤ï¤ê¤Ëgetkey¤È¤«stick¤Î¥¢¥¯¥Æ¥£¥Ö¥Á¥§¥Ã¥¯OFF¤Ç
¥¯¥ê¥Ã¥¯´Æ»ë¤¹¤ì¤ÐÎɤ¤¤À¤±¤¸¤ã¡©
wait 10¤À¤ÈÈ¿±þÆߤ¯¤Ê¤ë¤«¤é¤½¤ÎÊÕ¤âÊѤ¨¤Æ



snakery

¥ê¥ó¥¯

2013/5/26(Sun) 16:11:37|NO.54317

GetActiveWindow
¤Ï¤â¤¦µ¯Æ°ºÑ¤ß¤Ç¤¹¤è¤Í¡£

¥Õ¥©¥ë¥À¤ä¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤·¤è¤¦¤È¤¹¤ë¤È¤­¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¤è¤Í¡£
¤½¤Î¥¯¥ê¥Ã¥¯¤·¤¿ÅۤΥѥ¹Ì¾¤¬¤Û¤·¤¤¤ó¤Ç¤¹¡£



woodfields

¥ê¥ó¥¯

2013/5/26(Sun) 17:34:32|NO.54319

³«¤¤¤Æ¤¤¤ëÅÅÂî¤Î¥¦¥£¥ó¥É¥¦¤ò¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­¡¢ÅÅÂî¤Î¼Â¹Ô¥â¥¸¥å¡¼¥ë¡Ê.exe¥Õ¥¡¥¤¥ë¡Ë¤Î¥Ñ¥¹Ì¾¤¬ÃΤꤿ¤¤¤È¤¤¤¦¤Õ¤¦¤ËÍý²ò¤·¤Þ¤·¤¿¤¬¡¢¤É¤¦¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡©

¾¥¦¥£¥ó¥É¥¦¤Î¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯¤Ï²Ë¿Í¤µ¤ó¤Î¤´»ØŦ¤Î¤è¤¦¤Ë¡¢getkey¤È¤«stick¤Î¥¢¥¯¥Æ¥£¥Ö¥Á¥§¥Ã¥¯OFF¤ÇÃΤꤨ¤Þ¤¹¡£
ht.¤µ¤ó¤Î¤´»ØŦ¤Î¤È¤ª¤êGetActiveWindow¤ò¤Ä¤«¤Ã¤Æ¤ß¤Þ¤·¤¿¤¬¡¢¤¦¤Þ¤¯¤¤¤­¤Þ¤»¤ó¡£
¤É¤í¤Ê¤ï¤Ç¤¹¤¬¡¢°Ê²¼»²¹Í¤Þ¤Ç¤Ë¥¹¥¯¥ê¥×¥È¡£

#uselib "user32.dll" #func GetActiveWindow "GetActiveWindow" #cfunc GetForegroundWindow "GetForegroundWindow" #func WindowFromPoint "WindowFromPoint" sptr,sptr #func GetWindowLong "GetWindowLongA" sptr,sptr ; HWND hWnd, ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë ; int nIndex ¼èÆÀ¤¹¤ëÃͤΥª¥Õ¥»¥Ã¥È #const GWL_HWNDPARENT $FFFFFFF8 ; -8 ¿Æ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë #cfunc GetWindowThreadProcessId "GetWindowThreadProcessId" sptr,sptr ;¥¦¥£¥ó¥É¥¦¤òºîÀ®¤·¤¿¥¹¥ì¥Ã¥É¤Î ID ¤¬ÊÖ¤ê¤Þ¤¹¡£ ; HWND hWnd, ¥¦¥£¥ó¥É¥¦¤Î¥Ï¥ó¥É¥ë ; LPDWORD lpdwProcessId ¥×¥í¥»¥¹ ID ; ¢¬»ØÄꤹ¤ë¤È¡¢¤½¤ì¤¬»Ø¤¹ÊÑ¿ô¤Ë¥×¥í¥»¥¹ ID ¤¬¥³¥Ô¡¼¤µ¤ì¤Þ¤¹¡£ ; NULL ¤ò»ØÄꤷ¤¿¾ì¹ç¤Ï¡¢¥×¥í¥»¥¹ ID ¤Î¼èÆÀ¤Ï¹Ô¤ï¤ì¤Þ¤»¤ó¡£ ; Ìá¤êÃͤϥ¦¥£¥ó¥É¥¦¤òºîÀ®¤·¤¿¥¹¥ì¥Ã¥É¤Î ID ¤¬ÊÖ¤ê¤Þ¤¹¡£ #uselib "KERNEL32.DLL" #func CloseHandle "CloseHandle" int #func OpenProcess "OpenProcess" int,int,int ; DWORD dwDesiredAccess, // ¥¢¥¯¥»¥¹¥Õ¥é¥° ; BOOL bInheritHandle, // ¥Ï¥ó¥É¥ë¤Î·Ñ¾µ¥ª¥×¥·¥ç¥ó ; DWORD dwProcessId // ¥×¥í¥»¥¹¼±ÊÌ»Ò #const PROCESS_QUERY_INFORMATION 0x0400 #const PROCESS_VM_READ 0x0010 #uselib "psapi.dll" #func EnumProcessModules "EnumProcessModules" sptr,sptr,sptr,sptr ; HANDLE hProcess, // ¥×¥í¥»¥¹¤Î¥Ï¥ó¥É¥ë ; HMODULE * lphModule, // ¥â¥¸¥å¡¼¥ë¥Ï¥ó¥É¥ë¤ò¼õ¤±¼è¤ëÇÛÎó ; DWORD cb, // ÇÛÎó¤Î¥µ¥¤¥º ; LPDWORD lpcbNeeded // ɬÍפʥХ¤¥È¿ô #func GetModuleFileNameEx "GetModuleFileNameExA" sptr,sptr,sptr,sptr ; HANDLE hProcess, // ¥×¥í¥»¥¹¤Î¥Ï¥ó¥É¥ë ; HMODULE hModule, // ¥â¥¸¥å¡¼¥ë¤Î¥Ï¥ó¥É¥ë ; LPTSTR lpFilename, // ¥Ñ¥¹¤ò¼õ¤±¼è¤ë¥Ð¥Ã¥Õ¥¡ ; DWORD nSize // ¼èÆÀ¤·¤¿¤¤Ê¸»ú¤ÎºÇÂç¤ÎŤµ screen 0,300,100,0,ginfo_dispx-305,5 file_path="" : mesbox file_path ,300,90,0 : id_mesbox=stat gsel 0,2 *@ wait 10 ; <= ¤³¤ÎÄøÅ٤ǤâÈ¿±þ¤ËÌäÂê¤Ê¤¤ getkey stat_key,1 if stat_key { ;GetActiveWindow : hwnd_under=stat ; <= ¥³¥ì¤Ï£Î£Ç¡Ê¤¦¤Þ¤¯¤¤¤«¤Ê¤¤¡Ë ;hwnd_under=GetForegroundWindow() ; <= ¥³¥ì¤Ï¤½¤³¤½¤³¡Ê¥¨¥¯¥¹¥×¥í¡¼¥é¤È¤«¤ÇÈ¿±þ¤¤¤Þ¤¤¤Á¡Ë WindowFromPoint ginfo(0),ginfo(1) : hwnd_under=stat ; <= ¥³¥ì¤Ï£Ï£Ë if hwnd_under { pid_under=0 : thr_under=0 : hProcess=0 : hModule=0 : sdim file_path, 256 GetWindowLong hwnd_under,GWL_HWNDPARENT : if stat != 0 : hwnd_under=stat thr_under=GetWindowThreadProcessId(hwnd_under,varptr(pid_under)) if pid_under { OpenProcess PROCESS_QUERY_INFORMATION | PROCESS_VM_READ, 0, pid_under : hProcess=stat if hProcess { EnumProcessModules hProcess,varptr(hModule),4,varptr(size) if stat { dim v_hModule,size/4 EnumProcessModules hProcess, varptr(v_hModule), size, varptr(size) repeat size/4 GetModuleFileNameEx hProcess, v_hModule.cnt, varptr(file_path), 256 newcom oReg,"VBScript.RegExp" oReg("Pattern")=".exe$" ; ¸¡º÷¥Ñ¥¿¡¼¥ó <= .exe¥Õ¥¡¥¤¥ë¤ò¸¡º÷¤¹¤ë oReg("IgnoreCase")=1 ; Âçʸ»ú¾®Ê¸»ú¤ò¶èÊ̤·¤Ê¤¤ val_mach=oReg("Test", file_path) delcom oReg if val_mach { objprm id_mesbox,"Ž³Ž¨ŽÝŽÄŽÞŽ³ŽÊŽÝŽÄŽÞŽÙ:"+hwnd_under+"\nŽÌŽßŽÛŽ¾Ž½ID:"+pid_under+"(Ž½ŽÚŽ¯ŽÄŽÞID:"+thr_under+")\nŽÌŽßŽÛŽ¾Ž½ŽÊŽÝŽÄŽÞŽÙ:"+ hProcess+"\nŽÓŽ¼ŽÞŽ­Ž°ŽÙŽÊŽÝŽÄŽÞŽÙ:"+v_hModule.cnt+"\n"+file_path+"\n";+size } loop } CloseHandle hProcess } } } } goto *@b



snakery

¥ê¥ó¥¯

2013/5/26(Sun) 21:21:58|NO.54331

woodfields¤µ¤óĹ¡¹¤È¤·¤¿¥½¡¼¥¹¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤¹¡£
¤Ç¤¹¤¬¡¢»ä¤Îµá¤á¤Æ¤ë¤Î¤Ï¡Ø¥Õ¥©¥ë¥À¤ä¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤·¤è¤¦¤È¤¹¤ë¤È¤­¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¤è¤Í¡£
¤½¤Î¥¯¥ê¥Ã¥¯¤·¤¿ÅۤΥѥ¹Ì¾¤¬¤Û¤·¤¤¤ó¤Ç¤¹¡£¡Ù
Îã¤Ë¥Ç¥¹¥¯¥È¥Ã¥×¤Ë¥Õ¥©¥ë¥À¤¬¤¢¤ê¤Þ¤¹¤è¤Í¤½¤ì¤Ë¤Ï¥Ñ¥¹¤¬¤¢¤ê¤Þ¤¹¤è¤Í¡£
¤½¤ì¤ò¼èÆÀ¤·¤¿¤¤¤ó¤Ç¤¹



skyblue

¥ê¥ó¥¯

2013/5/27(Mon) 18:26:43|NO.54363

µ¯Æ°¤¹¤ë¤Þ¤Ç¥Ñ¥¹¤Î¼èÆÀ¤Ï¤Ç¤­¤Ê¤¤



YSR

¥ê¥ó¥¯

2013/5/27(Mon) 19:33:58|NO.54366

>¥Õ¥©¥ë¥À¤ä¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤·¤è¤¦¤È¤¹¤ë¤È¤­¥¯¥ê¥Ã¥¯¤·¤Þ¤¹¤è¤Í¡£
¤½¤Î¥¯¥ê¥Ã¥¯¤·¤¿ÅۤΥѥ¹Ì¾¤¬¤Û¤·¤¤¤ó¤Ç¤¹
¥Õ¥¡¥¤¥ë¤ò¥¦¥£¥ó¥É¥¦¤ËD&D¤µ¤»¤ë¤Î¤¬¥¢¥ê¤Ê¤é¡¢
¥µ¥ó¥×¥ë¤Îdragdrop.hsp¤òÆɤá¤Ð¤¹¤°¤Ë²ò·è¤Ê¤ó¤À¤±¤É¤Í¡Ä¡Ä

°Ê²¼¡¢Å¾ºÜ¡£

; Window¤Ø¤Î¥É¥é¥Ã¥°&¥É¥í¥Ã¥×sample ; http://quasiquote.org/hspwiki/ ; thanks ¤Á¤ç¤¯¤È ¤µ¤ó ; http://yokohama.cool.ne.jp/chokuto/urawaza/dragdrop.html ; #uselib "shell32.dll" #func DragAcceptFiles "DragAcceptFiles" int,int #func DragQueryFile "DragQueryFileA" int,int,int,int #func DragQueryPoint "DragQueryPoint" int,int #func DragFinish "DragFinish" int #define WM_DROPFILES 0x0233 ; WM_DROPFILES ¥á¥Ã¥»¡¼¥¸¥Ï¥ó¥É¥é¤òÀßÄê oncmd gosub *OnDropFiles, WM_DROPFILES ; ¥Õ¥¡¥¤¥ë¤ò¥É¥é¥Ã¥°¡õ¥É¥í¥Ã¥×¤Ç¤­¤ë¤è¤¦¤ËÀßÄê DragAcceptFiles hwnd, 1 title "¥¦¥£¥ó¥É¥¦¤Ë¥Õ¥¡¥¤¥ë¤ò¥É¥í¥Ã¥×¤·¤Æ¤¯¤À¤µ¤¤" stop *OnDropFiles ; --- ¥Õ¥¡¥¤¥ë¤¬¥É¥í¥Ã¥×¤µ¤ì¤¿¤È¤­ --- ; ¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô¤ò¼èÆÀ¤¹¤ë hdrop = wParam ; ¥É¥í¥Ã¥×¥Õ¥¡¥¤¥ë¾ðÊó¤Î¥Ï¥ó¥É¥ë DragQueryFile hdrop, -1, 0, 0 ndrop = stat ; ¥Õ¥¡¥¤¥ë¤Î¿ô ; ²èÌ̤ò¥¯¥ê¥¢ syscolor 5 : boxf syscolor 8 : pos 0,0 ; ¥Õ¥¡¥¤¥ë̾¤ò¼èÆÀ¤·¤Æɽ¼¨ sdim filename, 260 repeat ndrop DragQueryFile hdrop, cnt, varptr(filename), 260 mes filename loop ; ¥É¥í¥Ã¥×¥Õ¥¡¥¤¥ë¾ðÊó¤ò¥¯¥ê¥¢ (¤³¤ì¤ò¤·¤Ê¤¤¤È¥á¥â¥ê¥ê¡¼¥¯¤Ë¤Ê¤ë) DragFinish hdrop return



snakery

¥ê¥ó¥¯

2013/5/27(Mon) 19:43:09|NO.54367

¤Ê¤ë¤Û¤É¡£¤Ç¤¹¤¬¥¯¥ê¥Ã¥¯¤Ç¤Ï¤Ê¤¯¤Æ¥Ç¥¹¥¯¥È¥Ã¥×¤Î¥Õ¥©¥ë¥À¤ÏÁ´¤Æ»²¾È¤Ç¤­¤Þ¤·¤¿
¤³¤ì¤ò¥¯¥ê¥Ã¥¯¤·¤¿¤È¤­¤Ë¥¯¥ê¥Ã¥¯¤·¤¿¥Õ¥©¥ë¥À¤Î¤ß¤òɽ¼¨¤È¤«
¤Ç¤­¤Ê¤¤¤Ç¤¹¤«¤Í¡¦¡¦¡¦



screen 0,500,800
font "",10
chdir dirinfo(0x10000)
sdim list, 256
dirlist list,"*.*", 1
mes list



FunnyMaker

¥ê¥ó¥¯

2013/5/27(Mon) 20:29:50|NO.54373

¤É¤Î ¥Õ¥¡¥¤¥ëor¥Õ¥©¥ë¥À (¤Î¥¢¥¤¥³¥ó) ¤¬¡Ö¥¯¥ê¥Ã¥¯¡×¤ä¡ÖÁªÂò¡×¤µ¤ì¤Æ¤¤¤ë¤Î¤« ¤È¤¤¤¦¤³¤È¤Ï¡¢
¡Öexplorer¡×¤È¤¤¤¦¥×¥í¥°¥é¥à¤À¤±¤¬ÃΤäƤ¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡©
»ä¤Îǧ¼±¤Ç¤Ï¡¢¥Ç¥¹¥¯¥È¥Ã¥×¾å¤Ëɽ¼¨¤µ¤ì¤Æ¤¤¤ë¥¢¥¤¥³¥ó¤â¤³¤Î¥×¥í¥°¥é¥à¤¬É½¼¨¡¦´ÉÍý¤·¤Æ¤¤¤ë¤Î¤À¤È»×¤¤¤Þ¤¹¡£

»ä¤Î¾¡¼ê¤ÊÁÛÁü¤Ë¤Ê¤ê¤Þ¤¹¤¬¡¢Â¾¤Î¥×¥í¥°¥é¥à (º£²ó¤ÏHSPÀ½¤Ç¤¹¤Í¡£) ¤«¤é¤½¤Î¾ðÊó¤ò¼èÆÀ¤¹¤ë
¤³¤È¤Ï¡¢¤½¤â¤½¤â¤Ç¤­¤Ê¤¤¤ó¤¸¤ã¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£

¥Õ¥¡¥¤¥ë¥Þ¥Í¡¼¥¸¥ã¤ä¥Ç¥¹¥¯¥È¥Ã¥×¥·¥¹¥Æ¥à¼«ÂΤò¼«ºî¤¹¤ë¤Î¤¬º¬ËÜŪ¤Ê²ò·èºö¤Ë¤Ê¤ë¤ó¤¸¤ã¤Ê¤¤
¤«¤Ê¤È»×¤¤¤Þ¤¹¡£

¶ñÂÎŪ¤Ê¥¢¥É¥Ð¥¤¥¹¤Ë¤Ê¤Ã¤Æ¤¤¤Ê¤¯¤Æ¿½¤·Ìõ¤Ê¤¤¤Ç¤¹¡£



snakery

¥ê¥ó¥¯

2013/5/27(Mon) 21:35:46|NO.54374

FunnyMaker¤µ¤ó

¤Ê¤ë¤Û¤É¤Ç¤¹¤Í¡£¡£¡£¡£
¤ä¤Ã¤Ñ¤ê̵Íý¤Ç¤¹¤«¤Í¤¨¡£¡£¡£
¤Õ¤à¤Õ¤à¡£º¤¤Ã¤¿¤â¤Î¤Ç¤¹¤Í¡¨¡¨

¤É¤¦¤Ë¤«¤·¤¿¤¤¤Ç¤¹¤¬º£²ó¤Ð¤«¤ê¤Ï¤¢¤­¤é¤á¤Þ¤¹¤«¤Í¡°¡°

²óÅú¼Ô¤Î³§¤µ¤ó¤¢¤ê¤¬¤È¤¦¤´¤¶¤¤¤Þ¤·¤¿¡°¡°



snakery

¥ê¥ó¥¯

2013/5/28(Tue) 01:14:23|NO.54382

²ò·è¡ª



ONION software Copyright 1997-2023(c) All rights reserved.