话就少说点，说点关键的用法，要用这脚本，你还要自己抓两个图片，一个是阳光，一个是玉米头（要开的花的），开始游戏后你只要点一下右键就可以在那看了，因为他会自动开炮，自已收阳光，当你动了鼠标后可以加南瓜补的别的什么，这时自动开炮及自动收阳光就会暂时停止，当你再次点右键时就可以又开始了！
先说这么多，下面给代码

前面楼主的帖子好像没有被删额~~

Dim hwnd,fx,myhnd,mx,my,i,theDate,pplai,ppkai,yi,paox,paoy,paox2,paoy2,n
Dim mypaox(8),mypaoy(8) //保存有炮的坐标
DimEnv wx,wy
BeginThread mywindow
theDate=Now
Delay 2200
pplai=0
ppkai=0
For i=0 to 7
mypaox(i)=1
next
//初始化大炮坐标
i=0
Do While true
//找阳光
Call FindPic(wx,wy+100,wx+800,wy+600,"2.bmp",0.6,px,py)
//找炮,分二个区找炮，加快速度
Call FindPic(wx,wy,wx+550,wy+240,"5.bmp",0.45,paox,paoy)
Call FindPic(wx,wy+240,wx+550,wy+550,"5.bmp",0.45,paox2,paoy2)
   //第一个区的炮
If paox>0 and paoy>0 then
   kefang=0
   //不要收重复的炮
   For n=0 to 7
   If mypaox(n)>paox-10 and mypaox(n)<paox+10 and mypaoy(n)>paoy-10 and mypaoy(n)<paoy+10 then kefang=1
  
    Next
If kefang=0 then
   mypaox(pplai)=paox
   mypaoy(pplai)=paoy
    pplai=pplai+1
   If pplai>7 then pplai=0
   End if
End if  
//If GetLastKey = 65 then MsgBox mypaox(0) & "a " & mypaox(1) & "b " & mypaox(2) & "c " & mypaox(3) & "d " & mypaox(4) & "e " & mypaox(5) & "f " & mypaox(6) & "g " & mypaox(7)
//如果手动点过炮，要按B清一下数组的数据，找过一次炮，可以不要，要了当然更好
If GetLastKey = 66 then
   For i=0 to 7
   mypaox(i)=1
   next
End if
// //第二个区的炮
If paox2>0 and paoy2>0 then
   paox=paox2
   paoy=paoy2
    kefang=0
   //不要收重复的炮
   For n=0 to 7
   If mypaox(n)>paox-10 and mypaox(n)<paox+10 and mypaoy(n)>paoy-10 and mypaoy(n)<paoy+10 then
   kefang=1
    End if
    Next
If kefang=0 then
   mypaox(pplai)=paox
   mypaoy(pplai)=paoy
    pplai=pplai+1
   If pplai>7 then pplai=0
   End if
End if
//找炮结束
   mym=GetLastClick()
//阳光收集点坐标
If mym=32774 or mym=32773 then
   mtox=wx+400
   mtoy=wy+200
   MoveTo mtox,mtoy
End if
// //中键滑动 开炮标志
// If mym=32781 then
// kp=kp+1
//
// End if
caodix=wx+720
caodiy=wy+157
caodiy2=wy+490
MoveTo caodix,caodiy2
MsgBox wy & "dd"& wx
//Call FindColorEx(caodix,caodiy,wx+720,wy+162,"1DE026",0,0.9,x,y)
//Call FindColorEx(caodix,caodiy2,wx+720,wy+597,"1DE026",0,0.9,x2,y2)   
//kaipao=0
caos1=GetPixelColor(caodix,caodiy)
caos2=GetPixelColor(caodix,caodiy2)
//MsgBox caos1
If caos1<>"65EC4A" or caos2<>"16DE1B" Then  
     kaipao=1
     Else
     kaipao=0  
End If
//开炮条件
Call GetCursorPos(mx,my)
mytime=DateDiff("s", theDate,Now)


For 2
If mypaox(ppkai)<>1 and kaipao=1 and mx=mtox then
ptox=wx+635
If i Mod 2=0 then
ptoy=wy+220
Else
ptoy=wy+490
End if
If mytime>6 then
    MoveTo mypaox(ppkai),mypaoy(ppkai)
// MsgBox mypaox(ppkai) & " " & mypaoy(ppkai)&" kk"& ppkai
    Delay 350
    LeftClick 1
   //如果没有变红就要再补点一次，就是没点中炮，有钱，花什么的
    For 3
     Call FindColorEx(mypaox(ppkai),mypaoy(ppkai),mypaox(ppkai)+15,mypaoy(ppkai)+15,"1200FF",1,0.9,x,y)
      If x<0 and y<0
    //MsgBox "kk"
    Delay 200
    LeftClick 1   
    End if
    Next
   
    MoveTo ptox,ptoy
   LeftClick 1
   Delay 150
   if i mod 2 =1   then   
   theDate=Now
   //MsgBox mytime
    End if
   i=i+1
   mypaox(ppkai)=1
   ppkai=ppkai+1
   If ppkai>7 then ppkai=0  
   MoveTo mtox,mtoy
   //开完炮就收阳光
End if
  
End if
Next
If px>0 and py>0 then
SaveMousePos
//收阳光代码
   If mx=mtox and my=mtoy   then
    MoveTo px,py
    LeftClick 1
   RestoreMousePos
    End if
End if
Delay 20
loop
//玩游戏时窗口可以动的，过五秒自己又找回来
Sub mywindow()
Do While true
hwnd=Plugin.Window.GetKeyFocusWnd()
CLRECT_STR=Plugin.Window.GetClientRect(hwnd)
If myhnd<>hwnd or CLRECT_STR<>fx then
fx=CLRECT_STR
CLRECT_VAL=split(CLRECT_STR,"|")
wx=Cint(CLRECT_VAL(0)):wy=Cint(CLRECT_VAL(1))
myhnd=hwnd
//MsgBox wx&"!"&wy&"kk"&" "&myhnd
End if
Delay 5000
Beep
loop
End sub
//以上代码请高手指点！

应该木有被删

又是一堆

http://tieba.baidu.com/f?kz=780845647
看下这个帖子能对你有帮助么

回复：4楼
哪，我发的一篇，只是收阳光的，没有自动开炮打过关的呀！

楼主学编程的么

回复：9楼
你给你贴子，还是很有启发的，下一步我要防干扰，把后排及前排的钱都捡了，害我有时都找不到春哥
回LS我写过一些程序！

我生平最佩服编程的 因为我对电脑编程无比恐惧。。。
晚安。。。

下一步的目标，实践自动挂机过几关。
真希望还有高手提几点意见，晚了，明天再写吧！
今天已一天没离电脑了！为了这个自动开炮。

等待你的好消息哦