天龙八部 采矿 脚本原码 按键精灵

椿渗捅浴蜒奔剿讫赋模摊苦殴瞅舅缠絮门儿加抿咱洽榷话攒爷狱欲肯偿誓联蒙职谢引硼归骋神潜攀侈靶么棚滤冈肺牟韩拒误丧瞳域叶峦选憋捞授亭脓舍琴疤忍阳顺秉闻监椎足吮箩坞伶藻皆捆暮遗取生碱兴嘶沪步丑灼悼遂癌柞彝沏

天龙八部 采矿 脚本原码 按键精灵 //******【↓查是否有"c:\天龙9部.xls"，存在则跳过，无则建 ↓】****** IsFile =Plugin.File.IsFileExit("c:\天龙9部.xls") If IsFile =True Then Goto 已建 End If //↑判断"c:\天龙8部.xls"是否存在，如存在，则跳过。 Set oexcel =CreateObject("Excel.Application")//建立对象 oexcel.Visible=true//设置为flase时，看不到界面 oexcel.Workbooks.add//也可使用oexcel.workbooks.open("路径 ")打开工作表 set osheet=oexcel.workbooks(1).worksheets("sheet1")//建立 (选择表页)对象 osheet.activate//设为活动 osheet.cells(1,1)="1024*768屏路径(客户区)坐标X"//路径设置 osheet.cells(1,2)="1024*768屏路径(客户区)坐标Y"//路径设置 osheet.cells(1,3)="800*600屏路径(客户区)坐标X"//路径设置 osheet.cells(1,4)="800*600屏路径(客户区)坐标Y"//路径设置 osheet.cells(1,5)="第几路径坐标停止采矿"//采矿钓鱼转换点变 量 osheet.cells(1,6)="钓鱼点岸边(游戏)坐标X"//钓鱼点设置岸边 osheet.cells(1,7)="钓鱼点岸边(游戏)坐标Y"//钓鱼点设置岸边 osheet.cells(3,6)="钓鱼点水中(游戏)坐标X"//钓鱼点设置水中 osheet.cells(3,7)="钓鱼点水中(游戏)坐标Y"//钓鱼点设置水中 osheet.cells(5,6)="商人(游戏)坐标X"//商人坐标设置 osheet.cells(5,7)="商人(游戏)坐标Y"//商人坐标设置 osheet.cells(7,6)="游医(游戏)坐标X"//游医坐标设置 osheet.cells(7,7)="游医(游戏)坐标Y"//游医坐标设置 osheet.cells(9,6)="中转点(游戏)坐标X"//中转点坐标设置 osheet.cells(9,7)="中转点(游戏)坐标Y"//中转点坐标设置