外挂编程

开发平台：
Visual Basic

Form2.frm：源码内容
							VERSION 5.00
Begin VB.Form Form2 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "功能设置"
   ClientHeight    =   5625
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9360
   Icon            =   "Form2.frx":0000
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5625
   ScaleWidth      =   9360
   StartUpPosition =   1  '所有者中心
   Begin VB.Frame Frame3 
      Caption         =   "特殊设置"
      ForeColor       =   &H000000FF&
      Height          =   1065
      Left            =   120
      TabIndex        =   62
      Top             =   4020
      Width           =   9135
      Begin VB.ComboBox Combo3 
         Height          =   300
         ItemData        =   "Form2.frx":038A
         Left            =   1680
         List            =   "Form2.frx":0397
         Style           =   2  'Dropdown List
         TabIndex        =   69
         Top             =   270
         Width           =   2415
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         Left            =   5280
         Style           =   2  'Dropdown List
         TabIndex        =   65
         Top             =   270
         Width           =   2175
      End
      Begin VB.Label Label38 
         Caption         =   "刷新"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   8045
         MouseIcon       =   "Form2.frx":03C4
         MousePointer    =   99  'Custom
         TabIndex        =   70
         Top             =   315
         Width           =   405
      End
      Begin VB.Label Label37 
         Caption         =   "目录"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   8520
         MouseIcon       =   "Form2.frx":0516
         MousePointer    =   99  'Custom
         TabIndex        =   68
         Top             =   315
         Width           =   405
      End
      Begin VB.Label Label36 
         Caption         =   "试听"
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   7560
         MouseIcon       =   "Form2.frx":0668
         MousePointer    =   99  'Custom
         TabIndex        =   67
         Top             =   315
         Width           =   405
      End
      Begin VB.Label Label35 
         Caption         =   "自定义声音方法： 请将100KB以下的音频文件(只支持 *.wav格式)，存放在“sound”目录下，并点击“刷新”。"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   120
         TabIndex        =   66
         Top             =   720
         Width           =   8900
      End
      Begin VB.Label Label34 
         Caption         =   "音频文件："
         Height          =   255
         Left            =   4300
         TabIndex        =   64
         Top             =   315
         Width           =   975
      End
      Begin VB.Label Label33 
         Caption         =   "验证码提示方式："
         Height          =   255
         Left            =   120
         TabIndex        =   63
         Top             =   320
         Width           =   1455
      End
   End
   Begin VB.Frame Frame2 
      Caption         =   "安全设置 "
      ForeColor       =   &H000000FF&
      Height          =   3855
      Left            =   4440
      TabIndex        =   17
      Top             =   120
      Width           =   4815
      Begin VB.TextBox Text11 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   3500
         MaxLength       =   3
         TabIndex        =   58
         Text            =   "30"
         Top             =   3030
         Width           =   515
      End
      Begin VB.TextBox Text10 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1080
         MaxLength       =   3
         TabIndex        =   56
         Text            =   "100"
         Top             =   3030
         Width           =   560
      End
      Begin VB.CheckBox Check11 
         Caption         =   "每扫描"
         Height          =   255
         Left            =   120
         TabIndex        =   55
         Top             =   3030
         Width           =   975
      End
      Begin VB.TextBox Text7 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   3
         TabIndex        =   46
         Text            =   "15"
         Top             =   2620
         Width           =   615
      End
      Begin VB.TextBox Text6 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   2
         TabIndex        =   44
         Text            =   "8"
         Top             =   2230
         Width           =   615
      End
      Begin VB.TextBox Text5 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   5
         TabIndex        =   41
         Text            =   "300"
         Top             =   1850
         Width           =   615
      End
      Begin VB.TextBox Text4 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   5
         TabIndex        =   38
         Text            =   "1000"
         Top             =   1470
         Width           =   615
      End
      Begin VB.TextBox Text3 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   5
         TabIndex        =   35
         Text            =   "1000"
         Top             =   1070
         Width           =   615
      End
      Begin VB.TextBox Text9 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2880
         MaxLength       =   3
         TabIndex        =   29
         Text            =   "15"
         Top             =   3465
         Width           =   495
      End
      Begin VB.TextBox Text8 
         Alignment       =   2  'Center
         ForeColor       =   &H00FF0000&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   1320
         MaxLength       =   3
         TabIndex        =   27
         Text            =   "30"
         Top             =   3465
         Width           =   495
      End
      Begin VB.CheckBox Check14 
         Caption         =   "伴侣每工作"
         Height          =   255
         Left            =   120
         TabIndex        =   26
         Top             =   3465
         Width           =   1215
      End
      Begin VB.TextBox Text2 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   3
         TabIndex        =   25
         Text            =   "180"
         Top             =   675
         Width           =   615
      End
      Begin VB.TextBox Text1 
         Alignment       =   2  'Center
         ForeColor       =   &H000000FF&
         Height          =   270
         IMEMode         =   3  'DISABLE
         Left            =   2400
         MaxLength       =   5
         TabIndex        =   24
         Text            =   "1000"
         Top             =   285
         Width           =   615
      End
      Begin VB.Label Label32 
         Caption         =   "挂机参考设置"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   2400
         MouseIcon       =   "Form2.frx":07BA
         MousePointer    =   99  'Custom
         TabIndex        =   61
         Top             =   0
         Width           =   1260
      End
      Begin VB.Label Label30 
         Caption         =   "分钟"
         Height          =   255
         Left            =   4105
         TabIndex        =   59
         Top             =   3075
         Width           =   495
      End
      Begin VB.Label Label29 
         Caption         =   "个好友农场,暂停扫描"
         Height          =   255
         Left            =   1680
         TabIndex        =   57
         Top             =   3075
         Width           =   1815
      End
      Begin VB.Label Label27 
         Caption         =   "(参考:15)"
         ForeColor       =   &H00FF8080&
         Height          =   255
         Left            =   3600
         TabIndex        =   53
         Top             =   2650
         Width           =   1095
      End
      Begin VB.Label Label26 
         Caption         =   "(参考:4)"
         ForeColor       =   &H00FF8080&
         Height          =   255
         Left            =   3600
         TabIndex        =   52
         Top             =   2270
         Width           =   1095
      End
      Begin VB.Label Label25 
         Caption         =   "(参考:300)"
         ForeColor       =   &H008080FF&
         Height          =   255
         Left            =   3600
         TabIndex        =   51
         Top             =   1885
         Width           =   1095
      End
      Begin VB.Label Label24 
         Caption         =   "(参考:1000)"
         ForeColor       =   &H008080FF&
         Height          =   255
         Left            =   3600
         TabIndex        =   50
         Top             =   1510
         Width           =   1095
      End
      Begin VB.Label Label23 
         Caption         =   "(参考:1000)"
         ForeColor       =   &H008080FF&
         Height          =   255
         Left            =   3600
         TabIndex        =   49
         Top             =   1110
         Width           =   1095
      End
      Begin VB.Label Label22 
         Caption         =   "(参考:180)"
         ForeColor       =   &H008080FF&
         Height          =   255
         Left            =   3600
         TabIndex        =   48
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label21 
         Caption         =   "(参考:1000)"
         ForeColor       =   &H008080FF&
         Height          =   255
         Left            =   3600
         TabIndex        =   47
         Top             =   330
         Width           =   1095
      End
      Begin VB.Label Label20 
         Caption         =   "小时"
         Height          =   255
         Left            =   3120
         TabIndex        =   45
         Top             =   2270
         Width           =   495
      End
      Begin VB.Label Label14 
         Caption         =   "更新好友列表的时间间隔："
         Height          =   255
         Left            =   120
         TabIndex        =   43
         ToolTipText     =   "刷新好友名单列表，尽量时间间隔大一点。"
         Top             =   2270
         Width           =   2295
      End
      Begin VB.Label Label13 
         Caption         =   "秒钟"
         Height          =   255
         Left            =   3120
         TabIndex        =   42
         Top             =   1885
         Width           =   495
      End
      Begin VB.Label Label8 
         Caption         =   "刷新自己农场的时间间隔："
         Height          =   255
         Left            =   120
         TabIndex        =   40
         ToolTipText     =   "刷新自己农场作物信息,尽量设置高一点。"
         Top             =   1885
         Width           =   2295
      End
      Begin VB.Label Label19 
         Caption         =   "毫秒"
         Height          =   255
         Left            =   3120
         TabIndex        =   39
         Top             =   1510
         Width           =   495
      End
      Begin VB.Label Label18 
         Caption         =   "好友的农场操作时间间隔："
         Height          =   255
         Left            =   120
         TabIndex        =   37
         ToolTipText     =   "操作好友农场的时间间隔（偷取、锄草、除虫、浇水）"
         Top             =   1510
         Width           =   2295
      End
      Begin VB.Label Label6 
         Caption         =   "毫秒"
         Height          =   255
         Left            =   3120
         TabIndex        =   36
         Top             =   1110
         Width           =   495
      End
      Begin VB.Label Label5 
         Caption         =   "自己的农场操作时间间隔："
         Height          =   255
         Left            =   120
         TabIndex        =   34
         ToolTipText     =   "操作自己农场的时间间隔（收割、播种、播种、锄草等等）"
         Top             =   1110
         Width           =   2295
      End
      Begin VB.Label Label17 
         Caption         =   "分钟"
         Height          =   255
         Left            =   3120
         TabIndex        =   32
         Top             =   2650
         Width           =   495
      End
      Begin VB.Label Label16 
         Caption         =   "农场被临时限制自动休息："
         Height          =   255
         Left            =   120
         TabIndex        =   31
         ToolTipText     =   "因为操作繁忙，被临时限制时休息重试时间。"
         Top             =   2650
         Width           =   2175
      End
      Begin VB.Label Label15 
         Caption         =   "分钟继续工作"
         Height          =   255
         Left            =   3420
         TabIndex        =   30
         Top             =   3510
         Width           =   1095
      End
      Begin VB.Label Label11 
         Caption         =   "分钟,休息"
         Height          =   255
         Left            =   1920
         TabIndex        =   28
         Top             =   3510
         Width           =   1335
      End
      Begin VB.Label Label4 
         Alignment       =   2  'Center
         Caption         =   "默认设置"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FF0000&
         Height          =   255
         Left            =   3720
         MouseIcon       =   "Form2.frx":090C
         MousePointer    =   99  'Custom
         TabIndex        =   23
         Top             =   0
         Width           =   975
      End
      Begin VB.Label Label12 
         Caption         =   "分钟"
         Height          =   255
         Left            =   3120
         TabIndex        =   22
         Top             =   720
         Width           =   495
      End
      Begin VB.Label Label10 
         Caption         =   "毫秒"
         Height          =   255
         Left            =   3120
         TabIndex        =   21
         Top             =   330
         Width           =   495
      End
      Begin VB.Label Label7 
         Caption         =   "搜索每轮好友后自动休息："
         Height          =   255
         Left            =   120
         TabIndex        =   19
         ToolTipText     =   "每轮搜索所有好友农场作物信息后自动休息一段时间，晚上挂机减少验证码,建议设置超过8小时(480分钟)。"
         Top             =   720
         Width           =   2175
      End
      Begin VB.Label Label3 
         Caption         =   "扫描每个好友农场的频率："
         Height          =   255
         Left            =   120
         TabIndex        =   18
         ToolTipText     =   "更新每个好友的农场作物的时间间隔。"
         Top             =   330
         Width           =   2295
      End
   End
   Begin QQ伴侣.XPButton2 XPButton22 
      Cancel          =   -1  'True
      Height          =   375
      Left            =   8160
      TabIndex        =   11
      Top             =   5160
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      Caption         =   "取消"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin QQ伴侣.XPButton2 XPButton21 
      Default         =   -1  'True
      Height          =   375
      Left            =   6840
      TabIndex        =   0
      Top             =   5160
      Width           =   1095
      _ExtentX        =   1931
      _ExtentY        =   661
      Caption         =   "确定"
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin VB.Frame Frame1 
      Caption         =   "高级设置"
      ForeColor       =   &H00FF0000&
      Height          =   1815
      Left            =   120
      TabIndex        =   10
      Top             =   2160
      Width           =   4215
      Begin VB.CheckBox Check15 
         Caption         =   "识别狗狗(有狗且有狗粮的农场将不自动偷取)"
         Height          =   180
         Left            =   120
         TabIndex        =   33
         ToolTipText     =   "开启后将不偷取看园狗不饿(有狗粮)的农场作物。"
         Top             =   1395
         Value           =   1  'Checked
         Width           =   3970
      End
      Begin VB.CheckBox Check10 
         Caption         =   "当日好友帮助次数达到上限(150次),自动暂停"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         ToolTipText     =   "建议开启，每日农场帮忙次数超过150次，将不再增加经验和金钱。"
         Top             =   990
         Value           =   1  'Checked
         Width           =   3975
      End
      Begin VB.ComboBox Combo1 
         ForeColor       =   &H00000000&
         Height          =   300
         ItemData        =   "Form2.frx":0A5E
         Left            =   1485
         List            =   "Form2.frx":0A60
         Style           =   2  'Dropdown List
         TabIndex        =   15
         Top             =   240
         Width           =   2430
      End
      Begin VB.CheckBox Check9 
         Caption         =   "自动播种"
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   120
         TabIndex        =   14
         Top             =   260
         Width           =   1095
      End
      Begin VB.Label Label31 
         Caption         =   "温馨提示：建议种植与自身等级相同的作物！"
         ForeColor       =   &H00808080&
         Height          =   255
         Left            =   405
         TabIndex        =   60
         Top             =   645
         Width           =   3615
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "基本设置"
      ForeColor       =   &H00008000&
      Height          =   1935
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   4215
      Begin VB.CheckBox Check1 
         Caption         =   "自动收割"
         Height          =   255
         Left            =   120
         TabIndex        =   9
         Top             =   480
         Value           =   1  'Checked
         Width           =   1095
      End
      Begin VB.CheckBox Check2 
         Caption         =   "自动浇水"
         Height          =   255
         Left            =   120
         TabIndex        =   8
         Top             =   840
         Value           =   1  'Checked
         Width           =   1335
      End
      Begin VB.CheckBox Check3 
         Caption         =   "自动除虫"
         Height          =   255
         Left            =   120
         TabIndex        =   7
         Top             =   1200
         Value           =   1  'Checked
         Width           =   1335
      End
      Begin VB.CheckBox Check4 
         Caption         =   "自动锄草"
         Height          =   255
         Left            =   120
         TabIndex        =   6
         Top             =   1560
         Value           =   1  'Checked
         Width           =   1335
      End
      Begin VB.CheckBox Check5 
         Caption         =   "自动偷好友果实"
         Height          =   255
         Left            =   2040
         TabIndex        =   5
         Top             =   480
         Value           =   1  'Checked
         Width           =   1935
      End
      Begin VB.CheckBox Check6 
         Caption         =   "自动帮好友浇水"
         Height          =   255
         Left            =   2040
         TabIndex        =   4
         Top             =   840
         Value           =   1  'Checked
         Width           =   2055
      End
      Begin VB.CheckBox Check7 
         Caption         =   "自动帮好友除虫"
         Height          =   255
         Left            =   2040
         TabIndex        =   3
         Top             =   1200
         Value           =   1  'Checked
         Width           =   2055
      End
      Begin VB.CheckBox Check8 
         Caption         =   "自动帮好友锄草"
         Height          =   255
         Left            =   2040
         TabIndex        =   2
         Top             =   1560
         Value           =   1  'Checked
         Width           =   1935
      End
      Begin VB.Label Label2 
         Caption         =   "对好友："
         Height          =   255
         Left            =   2040
         TabIndex        =   13
         Top             =   240
         Width           =   735
      End
      Begin VB.Label Label1 
         Caption         =   "对自己："
         Height          =   255
         Left            =   120
         TabIndex        =   12
         Top             =   240
         Width           =   855
      End
   End
   Begin VB.Label Label28 
      Caption         =   "提醒：红色参数比较重要,请谨慎更改!"
      ForeColor       =   &H000000FF&
      Height          =   255
      Left            =   2640
      TabIndex        =   54
      Top             =   5280
      Width           =   3255
   End
   Begin VB.Label Label9 
      Caption         =   "设置方案交流"
      ForeColor       =   &H00FF0000&
      Height          =   255
      Left            =   120
      MouseIcon       =   "Form2.frx":0A62
      MousePointer    =   99  'Custom
      TabIndex        =   20
      Top             =   5280
      Width           =   1215
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check10_Click()
    On Error Resume Next
    If Form2.Visible = True Then
        If Check10.value = 0 Then
            If MsgBox("农场限制每日对好友帮助有效次数为150次，超过则不再增加经验值!" & vbCrLf & vbCrLf & "你确定要关闭该功能吗？这可能会影响到游戏秩序，建议不要关闭!", 32 Or vbYesNo, "关闭确认") = vbNo Then
                Check10.value = 1
            End If
        End If
    End If
End Sub
Private Sub Check16_Click()
    On Error Resume Next
    If Form2.Visible = True Then
        If Check16.value = 1 Then
            MsgBox "使用前须知：" & vbCr & vbCr & "本功能正在在测试中，不保证能有效防止被限制或降级!", 64, "提醒"
        End If
    End If
End Sub
Private Sub Check9_Click()
    On Error Resume Next
    If Form2.Visible = True Then
        If Check9.value = 1 Then
            MsgBox "挂机前请确保背包中有足够多,你所选作物的种子数量!", 64, "提醒"
        End If
    End If
End Sub
Private Sub Label32_Click()
    On Error Resume Next
    Form2.Text1.Text = 3000              '扫描每个好友农场的频率
    Form2.Text2.Text = 480                '搜索每轮好友后自动休息
    Form2.Text3.Text = 1000              '自己的农场操作时间间隔
    Form2.Text4.Text = 1000              '好友的农场操作时间间隔
    Form2.Text5.Text = 900               '刷新自己农场的时间间隔
    Form2.Text6.Text = 8                 '更新好友列表的时间间隔
    Form2.Text7.Text = 15                '农场被临时限制自动休息
    Form2.Check14.value = 0              '是否自动休息
    Form2.Text8.Text = 30                '工作时间
    Form2.Text9.Text = 15                '休息时间
    Form2.Check11.value = 1              '扫秒休息
    Form2.Text10.Text = 100              '扫秒人数
    Form2.Text11.Text = 30               '扫秒休息时间
End Sub
Private Sub Label4_Click()
    On Error Resume Next
    Form2.Text1.Text = 1000              '扫描每个好友农场的频率
    Form2.Text2.Text = 180                '搜索每轮好友后自动休息
    Form2.Text3.Text = 1000              '自己的农场操作时间间隔
    Form2.Text4.Text = 1000              '好友的农场操作时间间隔
    Form2.Text5.Text = 300               '刷新自己农场的时间间隔
    Form2.Text6.Text = 8                 '更新好友列表的时间间隔
    Form2.Text7.Text = 15                '农场被临时限制自动休息
    Form2.Check14.value = 0              '是否自动休息
    Form2.Text8.Text = 30                '工作时间
    Form2.Text9.Text = 15                '休息时间
    Form2.Check11.value = 0              '扫秒休息
    Form2.Text10.Text = 100              '扫秒人数
    Form2.Text11.Text = 30               '扫秒休息时间
End Sub
Private Sub Label9_Click()
    Call gotojiaoliu
End Sub
Private Sub XPButton21_Click()
    On Error Resume Next
    Dim sz As String
    Text1.Text = Val(Trim(Text1.Text))
    Text2.Text = Val(Trim(Text2.Text))
    Text3.Text = Val(Trim(Text3.Text))
    Text4.Text = Val(Trim(Text4.Text))
    Text5.Text = Val(Trim(Text5.Text))
    Text6.Text = Val(Trim(Text6.Text))
    Text7.Text = Val(Trim(Text7.Text))
    Text8.Text = Val(Trim(Text8.Text))
    Text9.Text = Val(Trim(Text9.Text))
    If Val(Text1.Text) <= 500 Then
        Text1.Text = 500
    ElseIf Val(Text1.Text) > 60000 Then
        Text1.Text = 60000
    End If
    
    If Val(Text2.Text) < 15 Then
        Text2.Text = 15
    End If
    If Val(Text3.Text) <= 500 Then
        Text3.Text = 500
    ElseIf Val(Text3.Text) > 60000 Then
        Text3.Text = 60000
    End If
    
    If Val(Text4.Text) <= 500 Then
        Text4.Text = 500
    ElseIf Val(Text4.Text) > 60000 Then
        Text4.Text = 60000
    End If
    
    If Val(Text5.Text) < 10 Then
        Text5.Text = 10
    End If
    
    If Val(Text10.Text) > 300 Then
        Text10.Text = 300
    End If
    
    
    If MsgBox("您确定要保存当前设置吗？　　", 48 Or vbYesNo, "保存确认") = vbNo Then
        Exit Sub
    End If
    
    '基本设置
    zdsg = Check1.value           '是否自动收割
    zdsc = Check3.value           '是否自动杀虫
    zdcc = Check4.value           '是否自动锄草
    zdjs = Check2.value           '是否自动浇水
    zdbz = Check9.value           '是否自动播种
    zdtq = Check5.value           '是否自动偷取
    zdbsc = Check7.value          '是否自动帮好友杀虫
    zdbcc = Check8.value          '是否自动帮好友锄草
    zdbjs = Check6.value          '是否自动帮好友浇水
    xzbz = Check10.value          '是否限制满150次帮助自动停止帮忙
    fqgg = Check15.value          '是否放弃狗狗
    bzzl = Combo1.ListIndex       '播种作物种类
    bzid = Split(kind(bzzl + 1), ",")(1) '作物ID
    
    '高级设置
    blpl = Val(Text1.Text)               '扫描每个好友农场的频率
    blxx = Val(Text2.Text)               '搜索每轮好友后自动休息
    mypl = Val(Text3.Text)               '自己的农场操作时间间隔
    hypl = Val(Text4.Text)               '好友的农场操作时间间隔
    mysx = Val(Text5.Text)               '刷新自己农场的时间间隔
    lbsx = Val(Text6.Text)               '更新好友列表的时间间隔
    xzsj = Val(Text7.Text)               '农场被临时限制自动休息
    zdxx = Val(Check14.value)            '是否自动休息
    gzsj = Val(Text8.Text)               '工作时间
    xxsj = Val(Text9.Text)               '休息时间
    smxx = Val(Check11.value)            '扫描休息
    smrs = Val(Text10.Text)              '扫描人数
    smxxsj = Val(Text11.Text)            '扫描休息时间
      
    yzmts = Combo3.ListIndex             '验证码提示方式
    shengyin = Combo2.Text               '提示声音文件
    
    If smxx = 0 And Form1.Label34.Caption = "继续扫描" Then
       Form1.Label33.Visible = True
       Form1.Label34.ForeColor = &H808080
       Form1.Label34.Caption = "农场扫描"
    End If
   
    
    If blpl >= 60000 Then blpl = 60000
    If mypl >= 60000 Then mypl = 60000
    If hypl >= 60000 Then hypl = 60000
    
    Form1.Timer5.Interval = blpl    '扫描每个好友农场的频率
    Form1.Timer19.Interval = mypl   '自己的农场操作时间间隔
    Form1.Timer6.Interval = hypl    '好友的农场操作时间间隔
    
    sz = zdsg & "," & zdsc & "," & zdcc & "," & zdjs & "," & zdbz & "," & zdtq & "," & zdbsc & "," & zdbcc & "," & zdbjs & "," & xzbz & "," & bzzl & "," & fqgg
    WritePrivateProfileString MyQQ, "szini", sz, App.Path & "Config.ini"
    Debug.Print "保存设置成功!"
    sz = blpl & "," & blxx & "," & mypl & "," & hypl & "," & mysx & "," & lbsx & "," & xzsj & "," & zdxx & "," & gzsj & "," & xxsj & "," & smxx & "," & smrs & "," & smxxsj
    WritePrivateProfileString MyQQ, "szini1", sz, App.Path & "Config.ini"
    Debug.Print "保存设置成功1!"
    
    sz = yzmts
    WritePrivateProfileString MyQQ, "yzmts", sz, App.Path & "Config.ini"
    If Len(shengyin) = 0 Then shengyin = "音频1.wav"
    WritePrivateProfileString MyQQ, "shengyin", shengyin, App.Path & "Config.ini"
    
    Call addsxlb(Myuid, (Farmqk = False) + 1)  '刷新个人农场
    
    MsgBox "设置成功!   ", 64, "提示"
    Form2.Visible = False
End Sub
Private Sub Label36_Click()
    On Error Resume Next
    If Dir(App.Path & "sound" & Combo2.Text) <> "" Then
       PlaySound App.Path & "sound" & Combo2.Text, 0, SND_ASYNC Or SND_FILENAME
    End If
End Sub
Private Sub Label37_Click()  '打开目录
    On Error Resume Next
    ShellExecute Form1.hwnd, "open", "", 0, App.Path & "sound", SW_SHOW
End Sub
Private Sub XPButton22_Click()
    Form2.Visible = False
End Sub
Private Sub Label38_Click()  '刷新
    On Error Resume Next
    Dim cz As Boolean
    Form1.File1.Refresh
    If Form1.File1.ListCount > 0 Then
       Combo2.Clear
       For i = 0 To Form1.File1.ListCount - 1
           If shengyin = Form1.File1.List(i) Then cz = True
           If InStr(LCase(Form1.File1.List(i)), ".wav") > 0 And FileLen(App.Path & "sound" & Form1.File1.List(i)) < 1001024 Then
              Combo2.AddItem Form1.File1.List(i)
           End If
       Next i
       If cz = True Then
          Combo2.Text = shengyin
       Else
          Combo2.ListIndex = 0
       End If
       MsgBox "音频列表刷新完毕!", 64, "提示"
    Else
       MsgBox "目录下没有任何音频文件,请及时添加!", 48, "提示"
    End If
End Sub

						