★エッチな掲示板をお気に入り登録しよう！★

mikumaniaのパッケージ画像 ミク×リンのパッケージ画像 涼○ハルヒの煩悶のパッケージ画像 DQIII RPG ALL STARのパッケージ画像

★無料のエロ動画をお気に入り登録しよう！★

ID:94 DLLの使用
by うｗｓｃ 2009/05/30(Sat) 19:30:27
//　DLLの使用
DEF_DLL SetWindowTextA(HWND,string):user32.DLL
DEF_DLL EnableWindow(HWND,Bool):Bool:user32.DLL
DEF_DLL EnableMenuItem(HWND,UINT,UINT):DWORD:user32.DLL
DEF_DLL GetSubMenu(HWND,int):HWND:user32.DLL
DEF_DLL ModifyMenuA(HWND,Long,Long,Long,Long):Long:user32.DLL
DEF_DLL GetCursorPos({long,long}):bool:user32　　　　　//　構造体使用
DEF_DLL ClipCursor({long,long,long,long}):bool:user32　　//　構造体使用

MF_BYPOSITION =$400
MF_GRAYED =$1
SC_CLOSE =$F060

//　メモ帳を弄る　　終了はALT +F4 で
id =exec("notepad")
hwnd =GetSubMenu(GetCtlHnd(id,GET_MENU_HND),0)　　　　//　メニュ->ファイル
EnableMenuItem(hwnd,8,MF_BYPOSITION+MF_GRAYED)　 　//　終了をグレー
hwnd =GetCtlHnd(id,GET_SYSMENU_HND)　　　　　　　　　　　//　システムメニュ
ModifyMenuA(hwnd,SC_CLOSE,MF_GRAYED,0,0)　　　　　　　//　クローズボタンをグレー
ClkItem(id,"バージョン情報")
hwnd =GetCtlHnd(GETID("バージョン情報"),"OK")
SetWindowTextA(hwnd,"押せまい")　　　　　　　　　　　　　　　//　OKボタン書換え
EnableWindow(hwnd,False)

//　構造体を使用したものは展開して設定
dim x,y
GetCursorPos(x,y)
print "マウス位置="+x +","+y
ClipCursor(x-100,y-100,x+100,y+100)　　//　+-100以内にマウス移動を限定
Sleep(10)

//　Post/Message は以下のように
DEF_DLL PostMessageA(HWND,LONG,LONG,DWORD):Bool:user32.DLL
DEF_DLL SendMessageA(HWND,LONG,LONG,DWORD):LONG:user32.DLL

//var宣言を付けると参照引数（ポインター渡し)
//DEF_DLL teststr(var string,var int,var double):string:TEST.DLL