画像UP用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

kaunto = 0

; WM_DROPFILES メッセージハンドラを設定
oncmd goto *OnDropFiles, WM_DROPFILES

; ファイルをドラッグ&ドロップできるように設定
DragAcceptFiles hwnd, 1

title "ウィンドウにファイルをドロップしてください"
mes "なんか範囲指定しても始めに処理されるファイルは\nクリック&ドラッグされたファイルからになるよ"
mes "そのあとはまた最初のファイルに戻って処理されるから気をつけてね"
stop

*OnDropFiles
; --- ファイルがドロップされたとき ---

cls

notesel buf

; ドロップされたファイルの数を取得する
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
        notesel buf2
        mes getpath (filename, 8)
        noteadd getpath (filename, 8)
        //noteunsel
        notesel buf
        noteadd "<p><a href=\"images/"+getpath (filename, 8)+"\"><img border=\"0\" alt=\"\" src=\"images/resize/"+getpath (filename, 9)+"_s"+getpath (filename, 2)+"\"></a><br>\n<br>"  //ここでいろいろ操作してください
  //noteunsel
  kaunto++
  if(kaunto >= 20){
   dialog "確認しとけ"
   cls
   kaunto = 0
  }
loop

//notesave dirinfo($10000) + "\\gazouscript.txt" ; デスクトップに

//notesel buf
//mes ""+strsize+" バイト"
//noteunsel
//notesel buf2
//noteadd ""+strsize+" バイト"


dialog "デスクトップに画像はりようのhtmlスクリプトを保存しますか?", 2
if(stat == 6){
 notesave dirinfo($10000) + "\\gazouscript.txt" ; デスクトップに
 mes ""+strsize+" バイト"
 notesel buf2
 noteadd ""+strsize+" バイト"
}

//noteunsel

notesel buf2
dialog "デスクトップに表示内容を保存しますか?", 2
if(stat == 6){
 notesave dirinfo($10000) + "\\log.txt" ; デスクトップに
}

noteunsel

; ドロップファイル情報をクリア (これをしないとメモリリークになる)
DragFinish hdrop
end
----------ここまで----------

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
2013.12.11作成
最終更新日 2014.2.24
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ホーム
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
アクセスカウンター
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
このホームページは

 +   ∧_∧      +      +
    (0゚・∀・) ドキドキ    。
  oノ∧つ⊂)     +
  ( (0゚・∀・) ワクワク     。
  oノ∧つ⊂)     +   +    。
  ( (0゚・∀・) テカテカ     。
  oノ∧つ⊂)        。
  ( (0゚・∀・) ワクワク     +
  oノ∧つ⊂)       。
  ( (0゚・∀・) テカテカ      +
  oノ∧つ⊂)
  ( (0゚-∀-) ワクワク +
  ∪( ∪ ∪            。
    と__)__)

wktk serverの提供でお送りします
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
ValueCommerce

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
A8.net

−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−
フッターの
作成日:2014.2.24
最終更新日:2014.3.3
−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−−