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


HSPTV!·Ç¼¨ÈÄ


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

2014
1219
¤Ø¤ê¤¢¤ó¼Â¹Ô¥Õ¥¡¥¤¥ë¤ËD&D¤·¤¿¥Õ¥©¥ë¥ÀÆâ¤Ë¤¢¤ë¥Æ¥­¥¹¥È¤ò½ñ¤­´¹¤¨¤¿¤¤9²ò·è


¤Ø¤ê¤¢¤ó

¥ê¥ó¥¯

2014/12/19(Fri) 18:30:37|NO.66505

¼Â¹Ô¥Õ¥¡¥¤¥ë¤Ø°ìÅÙ¤ËÊ£¿ô¤Î¥Õ¥©¥ë¥À¤òD&D¤·¡¢¤½¤ì¤¾¤ì¤Î¥Õ¥©¥ë¥ÀÆâ¤Ë¤¢¤ëini¥Õ¥¡¥¤¥ë¤Î
ºÇ½ª¹Ô¤Ëʸ¾Ï¤ò²Ã¤¨¤Æ¾å½ñ¤­Êݸ¤¹¤ë¤È¤¤¤¦¥Ä¡¼¥ë¤òºî¤í¤¦¤È»×¤Ã¤Æ¤¤¤Þ¤¹¡£
dirinfo¤änoteadd¤ò»È¤¦¤³¤È¤Ïʬ¤«¤Ã¤¿¤ó¤Ç¤¹¤¬¡¢¤¦¤Þ¤¯½ÐÍè¤Þ¤»¤ó¡£
sample¤Î¥½¡¼¥¹¤âÍøÍѤ·¤Æ¤ß¤Þ¤·¤¿¤¬¡¢¤¦¤Þ¤¯¤¤¤­¤Þ¤»¤ó¤Ç¤·¤¿¡£

¤Þ¤À½é¿´¼Ô¤Ç¤¹¤¬¤è¤í¤·¤¯¤ª´ê¤¤¤·¤Þ¤¹¡£



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


¤¢¤¢¤¢

¥ê¥ó¥¯

2014/12/20(Sat) 14:47:58|NO.66521

bload¤È¤«bsave¤·¤¿¤é



fortunehill

¥ê¥ó¥¯

2014/12/21(Sun) 01:18:35|NO.66527

/*¤´»²¹Í¡ÊUACÅù´ÉÍý¼Ô¸¢¸Â¤ÇÃƤ«¤ì¤ë¾ì¹ç¤ÏÃΤê¤Þ¤»¤ó¡Ë*/

#uselib "shell32" #func global DragAcceptFiles "DragAcceptFiles" sptr,sptr #func global DragQueryFileA "DragQueryFileA" sptr,sptr,sptr,sptr #func global DragQueryPoint "DragQueryPoint" sptr,sptr #func global DragFinish "DragFinish" sptr :DragAcceptFiles hwnd,1 oncmd gosub *label,$233 ;DROPFILES stop *label :DragQueryFileA wparam,-1,0,0 :ii = stat :jj = 0,0 if (ii > 0) {sdim ss,512 :sdim rr,2048 ;DragQueryPoint wparam,varptr(jj) :rr = ""+ii+","+jj+","+jj(1)+"\n" repeat ii :DragQueryFileA wparam,cnt,varptr(ss),512 :rr += ss+"\n" :loop} :DragFinish wparam ;mes ii ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô ;mes rr ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¡Ê²þ¹Ô¶èÀÚ¤ê¡Ë notesel rr repeat ii :noteget pp,cnt;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¼èÆÀÍÑ notesel dd ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Æ¥­¥¹¥È¼èÆÀÍÑ noteload pp ; mes dd ;²¿¤À¤«¤ó¤À½èÍý¤ò¹Ô¤¦ noteunsel ;¥Î¡¼¥ÈÌ¿Îá¤ÎÂоݤòÁ°¤ËÌ᤹¡Ê¥Õ¥¡¥¤¥ë¥Ñ¥¹¾ðÊó¡Ë wait 50 :cls :loop return



¤Ø¤ê¤¢¤ó

¥ê¥ó¥¯

2014/12/23(Tue) 00:43:31|NO.66540

»×¤Ã¤Æ¤¤¤¿¤è¤êÆñ¤·¤¤¤ó¤Ç¤¹¤Í¡Ä¤Ç¤â¤ª¤«¤²ÍͤǤʤó¤È¤«Ê¬¤«¤ê¤Þ¤·¤¿¡ª
¥Õ¥¡¥¤¥ë¤òľÀÜ»ý¤Ã¤Æ¹Ô¤Ã¤Æ¤Î½ñ¤­´¹¤¨¤Ï½ÐÍ褿¤ó¤Ç¤¹¤¬¡¢¥Õ¥©¥ë¥À¤´¤È¥É¥í¥Ã¥×¤·¤Æ¤â¥¨¥é¡¼¤¬
Ê֤äƤ­¤Æ¤·¤Þ¤¤¤Þ¤·¤¿¡£
¥Õ¥©¥ë¥ÀÆâ¤Ë¤¢¤ë»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤ò½ñ¤­´¹¤¨¤ë¤Ë¤Ï¤É¤¦¤¹¤ì¤Ð¤¤¤¤¤Ç¤¹¤«¡©
¥Õ¥©¥ë¥ÀÆâ¤ÎÊѹ¹¤·¤¿¤¤.ini¥Õ¥¡¥¤¥ë¤Ï°ì¤Ä¤À¤±¤Ç¤¹¡£
dirlist¤Î¥Õ¥¡¥¤¥ë¥Þ¥¹¥¯¤ò»È¤Ã¤Æ¤â»ä¤Î¼ÂÎϤǤϤ¦¤Þ¤¯½ÐÍè¤Þ¤»¤ó¤Ç¤·¤¿¡£



fortunehill

¥ê¥ó¥¯

2014/12/23(Tue) 01:25:35|NO.66543

/*¤´»²¹Í¡Êexist¤Ç¥Ñ¥¹¤Î¼ïÎà¤ò³Îǧ¤¹¤ë¡§¥í¥Ã¥¯¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤ÏÃΤê¤Þ¤»¤ó¡Ë*/

repeat ii :noteget pp,cnt exist pp if (strsize == -1) {nn = "folder"} ; -1=¥É¥í¥Ã¥×¤·¤¿¤Î¤Ë¥Õ¥¡¥¤¥ë¥¬Â¸ºß¤·¤Ê¤¤¡£ else {nn = "file" } ; mes strf("%-50s = %s",pp,nn) ; ¢­¥Õ¥©¥ë¥À¤Ê¤é¥Ñ¥¹¤Ë¥Þ¥¹¥¯¤òÉÕ¤±¤Æ¥Õ¥¡¥¤¥ë¤òÃê½Ð¤¹¤ë¡£ if (nn == "folder") {dirlist ff,pp+"/*.ini" :mes ff} loop



¤Ø¤ê¤¢¤ó

¥ê¥ó¥¯

2014/12/23(Tue) 15:56:18|NO.66552


#uselib "shell32" #func global DragAcceptFiles "DragAcceptFiles" sptr,sptr #func global DragQueryFileA "DragQueryFileA" sptr,sptr,sptr,sptr #func global DragQueryPoint "DragQueryPoint" sptr,sptr #func global DragFinish "DragFinish" sptr :DragAcceptFiles hwnd,1 oncmd gosub *label,$233 ;DROPFILES stop *label :DragQueryFileA wparam,-1,0,0 :ii = stat :jj = 0,0 if (ii > 0) {sdim ss,512 :sdim rr,2048 ;DragQueryPoint wparam,varptr(jj) :rr = ""+ii+","+jj+","+jj(1)+"\n" repeat ii :DragQueryFileA wparam,cnt,varptr(ss),512 :rr += ss+"\n" :loop} :DragFinish wparam ;mes ii ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô ;mes rr ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¡Ê²þ¹Ô¶èÀÚ¤ê¡Ë repeat ii :noteget pp,cnt exist pp if (strsize == -1) {nn = "folder"} ; -1=¥É¥í¥Ã¥×¤·¤¿¤Î¤Ë¥Õ¥¡¥¤¥ë¥¬Â¸ºß¤·¤Ê¤¤¡£ else {nn = "file" } ; mes strf("%-50s = %s",pp,nn) ; ¢­¥Õ¥©¥ë¥À¤Ê¤é¥Ñ¥¹¤Ë¥Þ¥¹¥¯¤òÉÕ¤±¤Æ¥Õ¥¡¥¤¥ë¤òÃê½Ð¤¹¤ë¡£ if (nn == "folder") {dirlist ff,pp+"/*.ini" :mes ff} loop notesel rr repeat ii :noteget pp,cnt;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¼èÆÀÍÑ notesel dd ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Æ¥­¥¹¥È¼èÆÀÍÑ noteload pp ; noteadd "²¿¤À¤«¤ó¤À" notesave pp ;²¿¤À¤«¤ó¤À½èÍý¤ò¹Ô¤¦ noteunsel ;¥Î¡¼¥ÈÌ¿Îá¤ÎÂоݤòÁ°¤ËÌ᤹¡Ê¥Õ¥¡¥¤¥ë¥Ñ¥¹¾ðÊó¡Ë wait 50 :cls :loop return

¿§¤ó¤Ê¾ì½ê¤ËÆþ¤ì¤Æ¤ß¤Þ¤·¤¿¤¬¡Ö¥Ñ¥é¥á¡¼¥¿¤ÎÃͤ¬°Û¾ï¤Ç¤¹¡×¤Èɽ¼¨¤µ¤ì¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤É¤³¤ËÆþ¤ì¤ì¤Ð¤¤¤¤¤ó¤Ç¤·¤ç¤¦¤«¡©



fortunehill

¥ê¥ó¥¯

2014/12/23(Tue) 22:59:29|NO.66566

/*¼Ø­¡Ê¤¢¤¯¤Þ¤Ç¡É¤´»²¹Í¡É¤Ç¤¢¤ê´°À®¤µ¤ì¤¿Êª¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡Ë*/

#uselib "shell32" #func global DragAcceptFiles "DragAcceptFiles" sptr,sptr #func global DragQueryFileA "DragQueryFileA" sptr,sptr,sptr,sptr #func global DragQueryPoint "DragQueryPoint" sptr,sptr #func global DragFinish "DragFinish" sptr :DragAcceptFiles hwnd,1 oncmd gosub *label,$233 ;DROPFILES stop *label :DragQueryFileA wparam,-1,0,0 :ii = stat :jj = 0,0 if (ii > 0) {sdim ss,512 :sdim rr,2048 ;DragQueryPoint wparam,varptr(jj) :rr = ""+ii+","+jj+","+jj(1)+"\n" repeat ii :DragQueryFileA wparam,cnt,varptr(ss),512 :rr += ss+"\n" :loop} :DragFinish wparam ;mes ii ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô ;mes rr ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¡Ê²þ¹Ô¶èÀÚ¤ê¡Ë notesel rr ;º¡½è¤«¤é repeat ii :noteget pp,cnt exist pp if (strsize == -1) {nn = "folder"} ; -1=¥É¥í¥Ã¥×¤·¤¿¤Î¤Ë¥Õ¥¡¥¤¥ë¥¬Â¸ºß¤·¤Ê¤¤¡£ else {nn = "file" } ; mes strf("%-50s = %s",pp,nn) ; ¢­¥Õ¥©¥ë¥À¤Ê¤é¥Ñ¥¹¤Ë¥Þ¥¹¥¯¤òÉÕ¤±¤Æ¥Õ¥¡¥¤¥ë¤òÃê½Ð¤¹¤ë¡£ if (nn == "folder") {dirlist ff,pp+"/*.ini" :mes ff} loop ;º¡½è¤Þ¤Ç¤òÆþ¤ìÂؤ¨¤ÆÆ°ºî³Îǧ¤¹¤ë¤À¤±¡¦¡¦¡¦ return



¤Ø¤ê¤¢¤ó

¥ê¥ó¥¯

2014/12/27(Sat) 02:00:36|NO.66660

¤º¤Ã¤È¹Í¤¨¤Þ¤·¤¿¤¬¡¢¤É¤¦¤·¤Æ¤ânoteload¤ËÊÑ¿ô¤¬Æþ¤ê¤Þ¤»¤ó¡£
²¿¤ò¤·¤Æ¤â¥¨¥é¡¼¤·¤«½Ð¤Ê¤¤¤Ç¤¹¡£

#uselib "shell32" #func global DragAcceptFiles "DragAcceptFiles" sptr,sptr #func global DragQueryFileA "DragQueryFileA" sptr,sptr,sptr,sptr #func global DragQueryPoint "DragQueryPoint" sptr,sptr #func global DragFinish "DragFinish" sptr :DragAcceptFiles hwnd,1 oncmd gosub *label,$233 ;DROPFILES stop *label :DragQueryFileA wparam,-1,0,0 :ii = stat :jj = 0,0 if (ii > 0) {sdim ss,512 :sdim rr,2048 ;DragQueryPoint wparam,varptr(jj) :rr = ""+ii+","+jj+","+jj(1)+"\n" repeat ii :DragQueryFileA wparam,cnt,varptr(ss),512 :rr += ss+"\n" :loop} :DragFinish wparam ;mes ii ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô ;mes rr ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¡Ê²þ¹Ô¶èÀÚ¤ê¡Ë notesel rr ;º¡½è¤«¤é repeat ii :noteget pp,cnt exist pp if (strsize == -1) {nn = "folder"} ; -1=¥É¥í¥Ã¥×¤·¤¿¤Î¤Ë¥Õ¥¡¥¤¥ë¥¬Â¸ºß¤·¤Ê¤¤¡£ else {nn = "file" } ; mes strf("%-50s = %s",pp,nn) ; ¢­¥Õ¥©¥ë¥À¤Ê¤é¥Ñ¥¹¤Ë¥Þ¥¹¥¯¤òÉÕ¤±¤Æ¥Õ¥¡¥¤¥ë¤òÃê½Ð¤¹¤ë¡£ if (nn == "folder") {dirlist ff,pp+"/*.ini" :mes ff} noteload ff noteadd "aaa" notesave ff noteunsel ;¥Î¡¼¥ÈÌ¿Îá¤ÎÂоݤòÁ°¤ËÌ᤹¡Ê¥Õ¥¡¥¤¥ë¥Ñ¥¹¾ðÊó¡Ë wait 50 :cls :loop ;º¡½è¤Þ¤Ç¤òÆþ¤ìÂؤ¨¤ÆÆ°ºî³Îǧ¤¹¤ë¤À¤±¡¦¡¦¡¦ return



¤Ø¤ê¤¢¤ó

¥ê¥ó¥¯

2014/12/28(Sun) 22:07:13|NO.66691

¿§¡¹»î¤·¤Þ¤·¤¿¤¬¤ä¤Ï¤ênoteload¤Ç»ß¤Þ¤ê¤Þ¤¹¤Í¡¦¡¦¡¦

#uselib "shell32" #func global DragAcceptFiles "DragAcceptFiles" sptr,sptr #func global DragQueryFileA "DragQueryFileA" sptr,sptr,sptr,sptr #func global DragQueryPoint "DragQueryPoint" sptr,sptr #func global DragFinish "DragFinish" sptr :DragAcceptFiles hwnd,1 oncmd gosub *label,$233 ;DROPFILES stop *label :DragQueryFileA wparam,-1,0,0 :ii = stat :jj = 0,0 if (ii > 0) {sdim ss,512 :sdim rr,2048 ;DragQueryPoint wparam,varptr(jj) :rr = ""+ii+","+jj+","+jj(1)+"\n" repeat ii :DragQueryFileA wparam,cnt,varptr(ss),512 :rr += ss+"\n" :loop} :DragFinish wparam ;mes ii ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¿ô ;mes rr ;¥É¥í¥Ã¥×¤µ¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹¡Ê²þ¹Ô¶èÀÚ¤ê¡Ë notesel rr ;º¡½è¤«¤é repeat ii :noteget pp,cnt exist pp if (strsize == -1) {nn = "folder"} ; -1=¥É¥í¥Ã¥×¤·¤¿¤Î¤Ë¥Õ¥¡¥¤¥ë¥¬Â¸ºß¤·¤Ê¤¤¡£ else {nn = "file" } ; mes strf("%-50s = %s",pp,nn) ; ¢­¥Õ¥©¥ë¥À¤Ê¤é¥Ñ¥¹¤Ë¥Þ¥¹¥¯¤òÉÕ¤±¤Æ¥Õ¥¡¥¤¥ë¤òÃê½Ð¤¹¤ë¡£ if (nn == "folder") {dirlist ff,pp+"/*.ini" :mes ff} A= ""+pp+"\\"+ff+" notesel buf noteload A noteadd "ËÜʸ" notesave A loop ;º¡½è¤Þ¤Ç¤òÆþ¤ìÂؤ¨¤ÆÆ°ºî³Îǧ¤¹¤ë¤À¤±¡¦¡¦¡¦ return



fortunehill

¥ê¥ó¥¯

2014/12/29(Mon) 00:27:16|NO.66695

/*¼Ø­2
­¡¥É¥í¥Ã¥×¤µ¤ì¤¿¥Ñ¥¹¾ðÊó¤Î¥ê¥¹¥È¤ò¼èÆÀ¡ÊNO.66527¡Ë
­¢¥µ¥Ö¥Õ¥©¥ë¥ÀÆâ¤ËÂоݥե¡¥¤¥ë¤¬¤¢¤ë¤«Ãê½Ð¡Ê°ìÃʲ¼¤Î¤ß¡§¼±Ê̤ϥե¡¥¤¥ë¥µ¥¤¥º¤Î¤ß -1¡§NO.66543¡Ë
­£¥µ¥Ö¥Õ¥©¥ë¥À¥Ñ¥¹¾ðÊó¤òºï½ü¡Êº¡¤Î¾ì¹ç¶õ¤Ë¤·¤¿ ¡É¡É¡Ë
­¤¥Ñ¥¹¾ðÊó¤Î¥ê¥¹¥È¤ËÃê½Ð¤µ¤ì¤¿¥Ñ¥¹¾ðÊó¤òÄɲáʺ¡¤Î¾ì¹çºÇ¸å¤ËÄɲä·¤¿¡Ë
­¥¥Ñ¥¹¾ðÊ󤬶õ¤Ç̵¤¤¾ì¹çÆâÍƤòɽ¼¨¤µ¤»¤¿
­¦¤¢¤È¤ÏÌÜŪ¤Ë¹ç¤ï¤»¤Æ²þÎɤäÄɲäò¹Ô¤¦¤À¤±¤Ç¤¹¡ÊÊýË¡¤Ï̵¿ô¤Ë¤¢¤ë¤Î¤Ç¡Ë
*/

;º¡½è¤«¤é¾å¤Ï¾Êά¤·¤Þ¤·¤¿ notesel rr sdim aa ;¥µ¥Ö¥Õ¥©¥ë¥À¤ÎÂоݥѥ¹ÃßÀÑÍÑ repeat ii :noteget pp,cnt exist pp if (strsize == -1) {dirlist ff,pp+"/*.ini" ;¥µ¥Ö¥Õ¥©¥ë¥À¤Î¸¡º÷ :noteadd "",cnt,1 ;¥Õ¥©¥ë¥À¥Ñ¥¹Ì¾¤ò¶õ¤Ë¤¹¤ë :notesel ff repeat notemax :noteget gg,cnt noteadd pp+"\\"+gg,cnt,1 ;Ãê½Ð¥Õ¥¡¥¤¥ë̾¤Ë¥Ñ¥¹¾ðÊó¤òÉղ乤ë loop :noteunsel ;¥Î¡¼¥ÈÌ¿Îá¤ÎÂоݤòÌ᤹ :aa += ff} ;Ãê½ÐÂоݥѥ¹¤Î²Ã»» loop :rr += aa ;¥Ñ¥¹¾ðÊó¤ËÃê½ÐÂоݥѥ¹¤òÄɲà repeat notemax noteget pp,cnt if (pp != "") {title strf("[%d] %s",cnt,pp) :notesel dd :noteload pp :mes dd :noteunsel :wait 90 :cls} loop return



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