VBS Dim Max_x,max_y

//max_x→当前屏幕的X值，max_y→当前屏幕的Y值

VBS Dim rwb_x,rwb_y,hzb_x,hzb_y

//rwb→人物包，hzb→猴子包

VBS Dim rwb_dabzb_x1,rwb_dabzb_y1,rwb_xiaobzb_x1,rwb_xiaobzb_y1

//人物包大包的坐标，小包的坐标

VBS Dim hzb_wplzb_x,hzb_wplzb_y,hzb_gnszzb_x,hzb_gnszzb_y

//猴子包的物品栏坐标，功能设置坐标

VBS Dim hzb_sqk_x,hzb_sqk_y,hzb_zsqzj_x,hzb_zsqzj_y,hzb_sqbr_x,hzb_sqbr_y,hzb_sqqtwp_x,hzb_sqqtwp_y,hzb_szhqr_x,hzb_szhqr_y

//猴子包的各项目功能设置坐标

VBS Dim hzb_zfw_x1,hzb_zfw_x2,hzb_zfw_y1,hzb_zfw_y2

//猴子包物品栏的范围

VBS Dim hzb_sygfw_x1,hzb_sygfw_y1,hzb_sygfw_x2,hzb_sygfw_y2

//猴子包剩余格的范围

VBS Dim rwb_hfw_x1,rwb_hfw_y1,rwb_hfw_x2,rwb_hfw_y2

//人物包放置红药的范围

VBS Dim rwb_lfw_x1,rwb_lfw_y1,rwb_lfw_x2,rwb_lfw_y2

//人物包放置蓝药的范围

VBS Dim rwb_jfw_x1,rwb_jfw_y1,rwb_jfw_x2,rwb_jfw_y2

//人物包放置箭矢的范围

VBS Dim rwb_zzyfw_x1,rwb_zzyfw_y1,rwb_zzyfw_x2,rwb_zzyfw_y2

//人物包周转用空位的范围

VBS Dim rwb_zzy_x,rwb_zzy_y

//人物包周转用的空位坐标

VBS Dim rwb_qwfw1_x1,rwb_qwfw1_y1,rwb_qwfw1_x2,rwb_qwfw1_y2

//人物主包从猴子包取物放置的范围1

VBS Dim rwb_qwfw2_x1,rwb_qwfw1_y2,rwb_qwfw2_x2,rwb_qwfw2_y2

//人物主包从猴子包取物放置的范围2

VBS Dim rwb_qwfw3_x1,rwb_qwfw3_y1,rwb_qwfw1_x3,rwb_qwfw3_y2

//人物次包从猴子包取物放置的范围3

VBS Dim kw_x,kw_y

//kw_x→包里的空位（X），kw_y→包里的空位（Y）

VBS Dim HP_x,HP_y,MP_x,MP_y,BinF_x,BinF_y,HuoF_x,HuoF_y,DuF_x,DuF_y,DianF_x,DianF_y,JSF_x,JSF_y,CiC_x,Cic_y,HuiB_x,HuiB_y

VBS Dim JianG_x,JianG_y,LiL_x,LiL_y,ZhiL_x,ZhiL_y,MingZ_x,MingZ_y,LaiJ_x,LaiJ_y,QuM_x,QuM_y,ShouH_x,ShouH_y

//上两行是绿玉符石类

VBS Dim AoM_x,AoM_y,DingL_x,DingL_y,DouZ_x,DouZ_y,HuanH_x,HuanH_y,JingZ_x,JingZ_y,ShangW_x,ShangW_y,ShengY_x,ShengY_y

VBS Dim TianF_x,TianF_y,WuJ_x,WuJ_y,WuX_x,WuX_y,XueR_x,XueR_y,YongQ_x,YongQ_y,ZhiM_x,ZhiM_y

//上两行是红玉符石类

VBS Dim WuQ_x,WuQ_y,FangJ_x,FangJ_y,ShouS_x,ShouS_y,DunP_x,DunP_y

//炼金药类

VBS Dim hzb_ChaoH_x,hzb_ChaoH_y,hzb_ChaoL_x,hzb_ChaoL_y,hzb_ChaoYQ_x,hzb_ChaoYQ_y,hzb_DaH_x,hzb_DaH_y,hzb_DaL_x,hzb_DaL_y,hzb_HPJJ_x,hzb_HPJJ_y,hzb_MPJJ_x,hzb_MPJJ_y,hzb_YQJJ_x,hzb_YQJJ_y,hzb_wly_x,hzb_wly_y

//猴子包里喝的药水类

VBS Dim dwqrzb_x,dwqrzb_y,pmzxzb_x,pmzxzb_y,qrhc_x1,qrhc_x2,qrhc_x2,qrhc_y2,

//丢物确认坐标，屏幕中心坐标

VBS Dim JianS_x,JianS_y,NuJ_x,NuJ_y,HuiCJ_x,HuiCJ_y,KongW_x,KongW_y,HeTWG_x,HeTWG_y,huan_x,huan_y

//其它类

VBSCall Call GetScreenResolution(Max_x,max_y)

VBS pmzxzb_x=max_x/2

VBS pmzxzb_y=max_y/2

VBS dwqrzb_x=max_x/2-45

VBS dwqrzb_y=max_y/2+67

VBS qrhc_x1=max_x-130

VBS qrhc_y1=0

VBS qrhc_x2=max_x

VBS qrhc_y2=50

Delay 1000  

建议你优化一下你的代码。尽量减少变量数

还有，变量是可以重复使用的。

举个例子，

你可以用变量1来存取屏幕查找的结果。

同时，变量1也中以用来做其他的用。比如，变量的计数。