外挂编程

开发平台：

Visual Basic

Form1.frm：源码内容

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{D05C3AD7-7EF1-4749-885E-A2006408FC13}#1.0#0"; "VSListview.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "QQ伴侣"
ClientHeight = 8655
ClientLeft = 45
ClientTop = 615
ClientWidth = 9900
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8655
ScaleWidth = 9900
StartUpPosition = 2 '屏幕中心
Begin VB.FileListBox File1
Height = 270
Left = 6120
TabIndex = 58
Top = 9840
Width = 255
End
Begin MSWinsockLib.Winsock Winsock11
Left = 1920
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Frame Frame5
Caption = "收益统计"
ForeColor = &H00008000&
Height = 630
Left = 120
TabIndex = 47
Top = 5250
Width = 9665
Begin VB.Label Label46
Caption = "次。"
Height = 255
Left = 7680
TabIndex = 60
Top = 270
Width = 375
End
Begin VB.Label Label45
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 255
Left = 7200
TabIndex = 59
Top = 270
Width = 375
End
Begin VB.Label Label44
Caption = ")"
Height = 255
Left = 8880
TabIndex = 57
Top = 270
Width = 375
End
Begin VB.Label Label43
Caption = "重新统计"
ForeColor = &H00FF0000&
Height = 255
Left = 8160
MouseIcon = "Form1.frx":5C3A
MousePointer = 99 'Custom
TabIndex = 56
Top = 270
Width = 750
End
Begin VB.Label Label42
Caption = "("
Height = 255
Left = 8040
TabIndex = 55
Top = 270
Width = 255
End
Begin VB.Label Label41
Caption = "点,今日帮忙："
Height = 255
Left = 6000
TabIndex = 54
Top = 270
Width = 1215
End
Begin VB.Label Label40
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 255
Left = 5400
TabIndex = 53
Top = 270
Width = 585
End
Begin VB.Label Label39
Caption = "金币,获得经验："
Height = 255
Left = 4080
TabIndex = 52
Top = 270
Width = 1455
End
Begin VB.Label Label38
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 255
Left = 3360
TabIndex = 51
Top = 270
Width = 735
End
Begin VB.Label Label37
Caption = "个,预计收益："
Height = 255
Left = 2280
TabIndex = 50
Top = 270
Width = 1215
End
Begin VB.Label Label36
Alignment = 2 'Center
Caption = "0"
ForeColor = &H000000FF&
Height = 255
Left = 1680
TabIndex = 49
Top = 270
Width = 615
End
Begin VB.Label Label35
Caption = "收获果实："
Height = 255
Left = 840
TabIndex = 48
Top = 270
Width = 975
End
End
Begin SHDocVwCtl.WebBrowser WebBrowser1
Height = 135
Left = 4320
TabIndex = 36
Top = 10200
Width = 255
ExtentX = 450
ExtentY = 238
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin VB.Frame Frame4
Caption = "操作日志"
ForeColor = &H00008000&
Height = 2295
Left = 120
TabIndex = 6
Top = 5970
Width = 9665
Begin VB.ListBox List4
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1920
ItemData = "Form1.frx":5D8C
Left = 120
List = "Form1.frx":5D8E
TabIndex = 7
Top = 240
Width = 9425
End
Begin VB.Label Label29
Alignment = 2 'Center
Caption = "清空日志"
ForeColor = &H00FF0000&
Height = 255
Left = 8640
MouseIcon = "Form1.frx":5D90
MousePointer = 99 'Custom
TabIndex = 35
Top = 0
Width = 840
End
End
Begin VB.Frame Frame3
Caption = "好友列表"
ForeColor = &H00008000&
Height = 5100
Left = 120
TabIndex = 3
Top = 120
Width = 5225
Begin VB.Timer Timer22
Enabled = 0 'False
Interval = 100
Left = 4320
Top = 3600
End
Begin VB.Timer Timer24
Enabled = 0 'False
Interval = 10
Left = 4320
Tag = "快速切换窗体"
Top = 2400
End
Begin MSWinsockLib.Winsock Winsock10
Left = 2760
Tag = "自动领取奖励"
Top = 1200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer23
Interval = 500
Left = 4320
Tag = "响应广告"
Top = 3000
End
Begin MSWinsockLib.Winsock Winsock9
Left = 1200
Tag = "更新key"
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer21
Interval = 1000
Left = 3720
Tag = "显示成熟列表"
Top = 2400
End
Begin VB.Timer Timer20
Interval = 10000
Left = 3720
Tag = "成熟列表"
Top = 3600
End
Begin QQ伴侣.XPButton2 XPButton22
Height = 335
Left = 2520
TabIndex = 40
Top = 4695
Width = 1095
_ExtentX = 1931
_ExtentY = 582
Caption = "成熟列表"
ForeColor = 16711680
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 MSWinsockLib.Winsock Winsock8
Left = 3360
Top = 1200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer19
Interval = 500
Left = 3120
Tag = "个人操作事件"
Top = 2400
End
Begin VB.Timer Timer18
Enabled = 0 'False
Interval = 5000
Left = 3120
Tag = "超时处理"
Top = 3600
End
Begin MSWinsockLib.Winsock Winsock7
Left = 4560
Tag = "检测是否掉线"
Top = 1200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin VB.Timer Timer17
Interval = 1000
Left = 2520
Tag = "自动等待"
Top = 3600
End
Begin VB.Timer Timer16
Interval = 500
Left = 2520
Tag = "检测新版本"
Top = 2400
End
Begin VB.Timer Timer15
Interval = 1000
Left = 1920
Tag = "防止加速软件"
Top = 2400
End
Begin MSWinsockLib.Winsock Winsock6
Left = 3960
Tag = "获取key"
Top = 1200
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer14
Enabled = 0 'False
Interval = 10
Left = 1320
Tag = "日志右键弹出"
Top = 2400
End
Begin MSWinsockLib.Winsock Winsock5
Left = 2760
Top = 600
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Timer13
Enabled = 0 'False
Interval = 10
Left = 720
Tag = "加载MDB数据库"
Top = 2400
End
Begin MSWinsockLib.Winsock Winsock4
Left = 3360
Tag = "自动更新"
Top = 600
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin VB.Timer Timer12
Interval = 2000
Left = 120
Tag = "打开网页统计"
Top = 2400
End
Begin VB.Timer Timer11
Interval = 1000
Left = 1920
Tag = "多功能自动计时"
Top = 3600
End
Begin VB.Timer Timer10
Enabled = 0 'False
Interval = 200
Left = 1320
Tag = "立即更新好友农场"
Top = 3600
End
Begin VB.Timer Timer9
Enabled = 0 'False
Interval = 100
Left = 720
Tag = "查找"
Top = 3600
End
Begin VB.TextBox Text1
Height = 300
Left = 700
TabIndex = 34
Top = 4710
Width = 1215
End
Begin QQ伴侣.XPButton2 XPButton21
Height = 335
Left = 3840
TabIndex = 32
Top = 4695
Width = 1095
_ExtentX = 1931
_ExtentY = 582
Caption = "停止工作"
ForeColor = 32768
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.Timer Timer8
Enabled = 0 'False
Interval = 10
Left = 120
Tag = "自动检测时差"
Top = 3600
End
Begin VB.Timer Timer7
Interval = 3000
Left = 3720
Tag = "循环得到成熟列表"
Top = 3000
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 200
Left = 120
Tag = "打开登陆框"
Top = 3000
End
Begin VB.Timer Timer6
Interval = 1000
Left = 3120
Tag = "自动检测事件"
Top = 3000
End
Begin MSWinsockLib.Winsock Winsock3
Index = 0
Left = 600
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin VB.Timer Timer5
Interval = 2000
Left = 2520
Tag = "循环读取农场信息"
Top = 3000
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 10
Left = 720
Tag = "加载好友名单"
Top = 3000
End
Begin VB.Timer Timer3
Interval = 5000
Left = 1320
Tag = "刷新我的农场"
Top = 3000
End
Begin VB.Timer Timer4
Interval = 10000
Left = 1920
Tag = "显示好友信息"
Top = 3000
End
Begin MSWinsockLib.Winsock Winsock2
Index = 0
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock1
Left = 3960
Top = 600
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin vsListViewXP.vsListView vsListView1
Height = 4410
Left = 105
TabIndex = 4
Top = 240
Width = 4985
_ExtentX = 8784
_ExtentY = 7779
End
Begin vsListViewXP.vsListView vsListView2
Height = 4410
Left = 105
TabIndex = 41
Top = 240
Visible = 0 'False
Width = 4985
_ExtentX = 8784
_ExtentY = 7779
End
Begin MSWinsockLib.Winsock Winsock2
Index = 1
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 2
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 3
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 4
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 5
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 6
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 7
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 8
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 9
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 10
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 11
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 12
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 13
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 14
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 15
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 17
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 18
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 19
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 20
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 21
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 22
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 23
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 24
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 25
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 26
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 27
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 28
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 29
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock2
Index = 30
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 1
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 2
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 3
Left = 240
Top = 1560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 4
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 5
Left = 240
Top = 1560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 6
Left = 240
Top = 1800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 7
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 8
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 9
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSWinsockLib.Winsock Winsock3
Index = 10
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 11
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 12
Left = 720
Top = 1560
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 13
Left = 600
Top = 2040
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 14
Left = 960
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 15
Left = 2040
Top = 1800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 16
Left = 240
Top = 1680
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 17
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 18
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 19
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 20
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 21
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 22
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 23
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 24
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 25
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 26
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 27
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 28
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 29
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin MSWinsockLib.Winsock Winsock3
Index = 30
Left = 0
Top = 0
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin VB.Label Label34
Alignment = 2 'Center
Caption = "农场扫描"
ForeColor = &H00808080&
Height = 255
Left = 3240
MouseIcon = "Form1.frx":5EE2
MousePointer = 99 'Custom
TabIndex = 46
Top = 10
Width = 855
End
Begin VB.Label Label33
Caption = "扫描进度："
ForeColor = &H00808080&
Height = 255
Left = 2280
TabIndex = 45
Top = 10
Visible = 0 'False
Width = 975
End
Begin VB.Label Label30
Alignment = 2 'Center
Caption = "同步好友"
ForeColor = &H00FF0000&
Height = 255
Left = 4200
MouseIcon = "Form1.frx":6034
MousePointer = 99 'Custom
TabIndex = 37
Top = 10
Width = 825
End
Begin VB.Image Image1
Height = 300
Left = 2000
MouseIcon = "Form1.frx":6186
MousePointer = 99 'Custom
Picture = "Form1.frx":62D8
Top = 4690
Width = 300
End
Begin VB.Label Label28
Caption = "搜索："
Height = 255
Left = 120
TabIndex = 33
Top = 4755
Width = 975
End
End
Begin VB.Frame Frame2
ForeColor = &H00C000C0&
Height = 2535
Left = 5450
TabIndex = 1
Top = 2680
Width = 4335
Begin VB.ListBox List1
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1710
Left = 120
TabIndex = 2
Top = 720
Width = 4095
End
Begin VB.Label Label32
Alignment = 2 'Center
Caption = "刷新"
ForeColor = &H00FF0000&
Height = 255
Left = 3700
MouseIcon = "Form1.frx":66D5
MousePointer = 99 'Custom
TabIndex = 44
Top = 0
Width = 480
End
Begin VB.Label Label18
Alignment = 2 'Center
Caption = "好友农场"
ForeColor = &H000000FF&
Height = 195
Left = 1720
TabIndex = 25
Top = 0
Width = 840
End
Begin VB.Label Label16
Caption = "0 / 0"
Height = 255
Left = 2760
TabIndex = 23
Top = 480
Width = 1335
End
Begin VB.Label Label15
Caption = "经验："
Height = 255
Left = 2160
TabIndex = 22
Top = 480
Width = 615
End
Begin VB.Label Label14
Caption = "0"
Height = 255
Left = 720
TabIndex = 21
Top = 480
Width = 1095
End
Begin VB.Label Label13
Caption = "金钱："
Height = 255
Left = 120
TabIndex = 20
Top = 480
Width = 615
End
Begin VB.Label Label12
Caption = "0"
Height = 255
Left = 2760
TabIndex = 19
Top = 240
Width = 735
End
Begin VB.Label Label11
Caption = "等级："
Height = 255
Left = 2160
TabIndex = 18
Top = 240
Width = 615
End
Begin VB.Label Label10
Caption = "Your Friend"
Height = 255
Left = 720
TabIndex = 17
Top = 240
Width = 1095
End
Begin VB.Label Label9
Caption = "名称："
Height = 255
Left = 120
TabIndex = 16
Top = 240
Width = 615
End
End
Begin VB.Frame Frame1
ForeColor = &H00FF0000&
Height = 2535
Left = 5450
TabIndex = 0
Top = 120
Width = 4335
Begin VB.ListBox List2
Appearance = 0 'Flat
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1710
ItemData = "Form1.frx":6827
Left = 120
List = "Form1.frx":6829
TabIndex = 5
Top = 720
Width = 4095
End
Begin VB.Label Label31
Alignment = 2 'Center
Caption = "刷新"
ForeColor = &H00FF0000&
Height = 255
Left = 3700
MouseIcon = "Form1.frx":682B
MousePointer = 99 'Custom
TabIndex = 42
Top = 0
Width = 480
End
Begin VB.Label Label17
Alignment = 2 'Center
Caption = "我的农场"
ForeColor = &H00008000&
Height = 200
Left = 1720
TabIndex = 24
Top = 0
Width = 855
End
Begin VB.Label Label8
Caption = "0 / 0"
Height = 255
Left = 2760
TabIndex = 15
Top = 480
Width = 1335
End
Begin VB.Label Label7
Caption = "经验："
Height = 255
Left = 2160
TabIndex = 14
Top = 480
Width = 615
End
Begin VB.Label Label6
Caption = "0"
Height = 255
Left = 720
TabIndex = 13
Top = 480
Width = 1095
End
Begin VB.Label Label5
Caption = "金钱："
Height = 255
Left = 120
TabIndex = 12
Top = 480
Width = 615
End
Begin VB.Label Label4
Caption = "0"
Height = 255
Left = 2760
TabIndex = 11
Top = 240
Width = 735
End
Begin VB.Label Label3
Caption = "等级："
Height = 255
Left = 2160
TabIndex = 10
Top = 240
Width = 615
End
Begin VB.Label Label2
Caption = "Your name"
Height = 255
Left = 720
TabIndex = 9
Top = 240
Width = 1095
End
Begin VB.Label Label1
Caption = "名称："
Height = 255
Left = 120
TabIndex = 8
Top = 240
Width = 615
End
End
Begin MSWinsockLib.Winsock Winsock2
Index = 16
Left = 120
Top = 120
_ExtentX = 741
_ExtentY = 741
_Version = 393216
RemotePort = 10
End
Begin VB.Label Label25
Caption = "登陆用户："
Height = 255
Left = 7680
TabIndex = 43
Top = 8360
Width = 975
End
Begin VB.Label Label24
Alignment = 2 'Center
Caption = "0天 00:00:00"
Height = 270
Left = 6075
TabIndex = 39
Top = 8360
Width = 1260
End
Begin VB.Label Label23
Caption = "运行时间："
Height = 255
Left = 5205
TabIndex = 38
Top = 8360
Width = 975
End
Begin VB.Label Label27
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 = 8775
MouseIcon = "Form1.frx":697D
MousePointer = 99 'Custom
TabIndex = 31
Top = 8360
Width = 975
End
Begin VB.Label Label26
Alignment = 2 'Center
ForeColor = &H000000FF&
Height = 255
Left = 8520
TabIndex = 30
Top = 8360
Visible = 0 'False
Width = 1215
End
Begin VB.Label Label22
Caption = "点击拷贝"
ForeColor = &H00FF0000&
Height = 255
Left = 4080
MouseIcon = "Form1.frx":6ACF
MousePointer = 99 'Custom
TabIndex = 29
Top = 8360
Width = 750
End
Begin VB.Label Label21
Caption = "下载地址："
Height = 255
Left = 3120
TabIndex = 28
Top = 8360
Width = 975
End
Begin VB.Label Label20
Caption = "http://www.h876.com"
ForeColor = &H00FF0000&
Height = 255
Left = 1080
MouseIcon = "Form1.frx":6C21
MousePointer = 99 'Custom
TabIndex = 27
Top = 8360
Width = 1830
End
Begin VB.Label Label19
Caption = "使用交流："
Height = 255
Left = 120
TabIndex = 26
Top = 8360
Width = 975
End
Begin VB.Menu xitong
Caption = "系统(&S)"
Begin VB.Menu denglu
Caption = "登陆QQ(&L)"
End
Begin VB.Menu dailisz
Caption = "代理设置(&P)"
End
Begin VB.Menu rzml
Caption = "进入日志目录"
End
Begin VB.Menu fenge1
Caption = "-"
End
Begin VB.Menu exitsoft
Caption = "关闭(&E)"
End
End
Begin VB.Menu buy
Caption = "商店购物(&G)"
End
Begin VB.Menu beibao
Caption = "我的背包(&B)"
End
Begin VB.Menu myck
Caption = "我的仓库(&W)"
End
Begin VB.Menu fuzhu
Caption = "辅助(&T)"
Begin VB.Menu kuaijie
Caption = "快捷方式(&K)"
Begin VB.Menu gotoqzone
Caption = "打开QQ空间"
End
Begin VB.Menu gotoxiaoyou
Caption = "打开QQ校友网"
End
Begin VB.Menu fenge15
Caption = "-"
End
End
Begin VB.Menu fenge25
Caption = "-"
End
Begin VB.Menu Toexps
Caption = "刷经验工具(&E)"
End
Begin VB.Menu xiufu
Caption = "修复数据库(&R)"
End
End
Begin VB.Menu shezhi
Caption = "设置(&O)"
End
Begin VB.Menu lbcd
Caption = "列表右键菜单"
Visible = 0 'False
Begin VB.Menu quanxuan
Caption = "全部选择"
End
Begin VB.Menu fenge22
Caption = "-"
End
Begin VB.Menu quanbuxuan
Caption = "全部不选"
End
End
Begin VB.Menu AnNiuAD
Caption = "菜单按钮广告位"
Visible = 0 'False
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const LB_ITEMFROMPOINT = &H1A9
Private Type UIDKEY '偷取key结构体
uID As Long
key As String
time As Long
End Type
Private Type Maturelist '成熟列表结构体
uID As Long
name As String
Location As Integer
kind As Integer
q As Long
zl As Integer
End Type
Private Type YzmSend '输入验证码后重新连接结构体
lx As Integer
uID As Long
id As Integer
name As String
bj As String
rzl As Integer
End Type
'
Dim keysum As Integer
Dim keyjl As Integer
Dim keyutemp As String
Dim keyu() As UIDKEY
'
Dim kaishi As Boolean
Dim login_temp As String
Dim exppx As Boolean
Dim moneypx As Boolean
Dim myhqtime As String '自己上次的获取时间
Dim hyhqtime As String '好友上次的获取时间
Dim hqtemp(30) As String '获取农场信息网页数据临时变量
Dim hqid(30) As Long '要农场农场的ID
Dim nczl(30) As Integer '农场种类
Dim czzl(30) As Integer '农场种类
Dim listfarmid As Long 'listview列表中的农村ID
Dim listfarmzl As Integer 'listview列表中的农村种类
Dim dianji As Integer 'listview的ID
Dim sxdl As Long '等待刷新的ID
Dim qidongsx As Boolean '是否正在等待刷新
Dim sendid As Integer '获取到发送的ID
Dim sendtime As String '上次发送封包的时间
Dim jctemp As String
Dim jcwork As Boolean
Dim Update_temp As String '自动更新临时网页数据
Public banbenid As Double '程序版本号信息
Public bbrq As String, bbname As String, bbid As String '程序版本信息
Dim gxmyi As Integer '更新自己农场的次数
Dim SH_Temp(30) As String '接受HTTP临时变量
Dim SH_uid(30) As Long '接受HTTP临时变量
Dim SH_id(30) As Integer '接受HTTP临时变量
Dim SH_name(30) As String '接受HTTP临时变量
Dim SH_Myname(30) As String '接受HTTP临时变量
Dim SH_bj(30) As String '接受HTTP临时变量
Dim xiaoyouts As Boolean '校友提示
Dim qzonets As Boolean '空间提示
Dim shangcitime As Long '上次操作时间
Dim keygxtemp As String
Dim zysi As Long '总用时
Dim gzys As Long '工作用时
Dim gzxxing As Boolean '是否正在休息
Dim haoyoui As Integer '好友人数
Dim gxhy As Boolean
Dim Cdlx As Integer
Dim pingi As Integer
Dim pinglx As Integer
Dim dianji2 As Integer
Dim shouhuolb As String '收获列表
Dim touqulb As String '偷取列表
Dim chuchonglb As String '除虫列表
Dim chucaolb As String '锄草列表
Dim jiaoshuilb As String '浇水列表
Dim fandilb As String '翻地列表
Dim bozhonglb As String '播种列表
Dim lqlw As Boolean '领取礼物
Dim templqlw As String
Dim gxsbi As Integer '更新失败
'================
Public keygxi As Integer '更新key计时
Public bbi As Integer '刷新背包
Public myi As Integer '刷新个人信息
Public diaoxiani As Integer '掉线次数
'================
Public keyi As Integer
Dim keytemp As String
Dim xli As Integer '巡逻次数
Dim xlsj As Long '巡逻时间
'Dim czi As Integer '操作次数
'Dim czsj As Long '操作时间
Dim sccz As Long '上一次操作时间
Dim ljcz As Long '累计操作次数
Dim jiasui As Integer '防止加速
Dim jstime As String '加速时间
Dim sdsx As Boolean '是否开始手动刷新
Dim bzsx As Boolean '好友帮助达到上限
Dim sxlbi As Long '刷新列表计时
Dim chazhaoguo As Boolean '查找过数据库
Dim zxjiazai As Boolean '是否已经执行加载
Dim jiazaiing As Boolean '是否正在加载中
Dim Mature(105) As Maturelist '声明成熟列表
Dim MatureSum As Integer '列表数量
Dim deletelist As String '删除列表
Dim bs1 As Integer '变速1
Dim bs2 As Integer '变速2
Dim bs3 As Integer '变速3
Dim tbhy As Boolean '同步好友
Dim AnNiuUrl As String '按钮广告网址
Dim webtem As String
Dim adtime As Date '广告响应时间
Dim zdbsi As Integer '变速时间累积
Dim zdbs As Boolean '是否自动变速
Dim grsxsd As Integer '个人刷新速度
Dim sxlblx As Integer '刷新好友列表类型
Dim NowListID As Integer '当前列表ID
Dim Rqzonei As Integer '读取QQ空间名字次数
Dim yzmlx As YzmSend
Dim smddsj As Long '扫描等待时间
Dim smcs As Integer '扫描次数
Dim scyzmsj As Long '上次验证码时间
Dim yzmcsi As Integer '连续验证码错误次数
Public bfi As Integer '播放声音
Dim fzsxsb As Long '防止刷新失败
Dim tsbozhong As Boolean '提示种子不够
Dim csyzm As Boolean '是否重试验证码
Dim gxshicha As Boolean '是否已经更新时差
Public gxTime As Long '更新时间
Private Sub beibao_Click()
If Label26.Caption = "" Then
If MsgBox("您还没有登录,只有登录才能使用。" & vbCrLf & "" & vbCrLf & "您是否现在进行登录？", 32 Or vbYesNo, "登录提示") = vbYes Then QQLogin.Show vbModal, Me
Else
Form5.Timer1.Enabled = True
Form5.Show vbModal, Me
End If
End Sub
Private Sub buy_Click()
If Label26.Caption = "" Then
If MsgBox("您还没有登录,只有登录才能使用。" & vbCrLf & "" & vbCrLf & "您是否现在进行登录？", 32 Or vbYesNo, "登录提示") = vbYes Then QQLogin.Show vbModal, Me
Else
Form4.Timer4.Enabled = True
Form4.Show vbModal, Me
End If
End Sub
Private Sub dailisz_Click()
On Error Resume Next
Form6.Check1.value = Proxy
Form6.Text1.Text = Proxy_IP
If Proxy_DK > 0 Then Form6.Text2.Text = Proxy_DK
If Len(Proxy_U) > 0 Then Form6.Text3.Text = Proxy_U
If Len(Proxy_P) > 0 Then Form6.Text4.Text = Proxy_P
Form6.Show vbModal, Me
End Sub
Private Sub denglu_Click()
On Error Resume Next
If Myuid > 0 Then
Call wdl '未登录处理
End If
QQLogin.Timer1.Enabled = True
QQLogin.Show vbModal, Me
End Sub
Private Sub exitsoft_Click()
On Error Resume Next
If MsgBox("确定要退出软件吗？", 32 Or vbYesNo, "退出确认") = vbYes Then
tssj = True
Unload Me
End If
End Sub
Private Sub Form_Load()
On Error Resume Next
www = zfw & zfw & zfw & zfdian 'www.
http = zfh & zft & zft & zfp & zfxxm 'http://
htm = zfdian & zfh & zft & zfm '.htm
'======================================
banbenid = "2.36" '设置更新版本号
bbid = "2.36" '设置显示版本号
bbrq = "2009.09.20" '设置版本日期
bbname = "" '设置版本类型
Form1.Caption = "QQ伴侣 V" & bbid & " " & bbname & " -《QQ开心农场》辅助软件 - 同时支持QQ校友和QQ空间"
'======================================
Call jiazaiini '加载ini配置
With vsListView1
'初始化
Call .Initialize
'初始化小图标
' Call .InitializeImageListSmall
'加载资源文件中的Icon
' Call .ImageListSmall_AddIcon(LoadResPicture(101, 1))
'设置列头
Call .ColumnAdd(0, "编号", 50, [caLeft])
Call .ColumnAdd(1, "名称", 74, [caLeft])
Call .ColumnAdd(2, "等级", 40, [caLeft])
Call .ColumnAdd(3, "经验", 90, [caLeft])
Call .ColumnAdd(4, "金钱", 55, [caLeft])
Call .ColumnAdd(5, "ID", 0, [caLeft])
Call .ColumnAdd(6, "xz", 0, [caLeft])
Call .ColumnAdd(7, "zl", 0, [caLeft])
'是否支持重画列表
.RaiseSubItemPrePaint = False
'是否隐藏列头
.HeaderHide = False
'是否支持调整边距
.HeaderFixedWidth = False
'是否支持拖动列头
.HeaderFixedWidth = True
'是否启用复选框
.CheckBoxes = 1
'边框风格
' cbBorderStyle.ListIndex = 1
.BorderStyle = bsThick
'视图
.ViewMode = vmDetails
'显示网格
.GridLines = True
'整行选择
.FullRowSelect = True
'颜色
.BackColor = &HFFFFFF
End With
With vsListView2
'初始化
Call .Initialize
'初始化小图标
Call .InitializeImageListSmall
'加载资源文件中的Icon
' Call .ImageListSmall_AddIcon(LoadResPicture(101, 1))
'设置列头
Call .ColumnAdd(0, "ID", 0, [caLeft])
Call .ColumnAdd(1, "编号", 40, [caLeft])
Call .ColumnAdd(2, "名称", 80, [caLeft])
Call .ColumnAdd(3, "土地", 40, [caLeft])
Call .ColumnAdd(4, "作物", 69, [caLeft])
Call .ColumnAdd(5, "成熟时间", 80, [caLeft])
' Call .ColumnAdd(4, "金钱", 55, [caLeft])
' Call .ColumnAdd(5, "ID", 0, [caLeft])
' Call .ColumnAdd(6, "xz", 0, [caLeft])
'是否支持重画列表
.RaiseSubItemPrePaint = False
'是否隐藏列头
.HeaderHide = False
'是否支持调整边距
.HeaderFixedWidth = False
'是否支持拖动列头
.HeaderFixedWidth = True
'是否启用复选框
.CheckBoxes = 0
'边框风格
' cbBorderStyle.ListIndex = 1
.BorderStyle = bsThick
'视图
.ViewMode = vmDetails
'显示网格
.GridLines = True
'整行选择
.FullRowSelect = True
'颜色
.BackColor = &HFFFFFF
End With
'加载数据
'Call FillData
TrayAddIcon Form1, "登录用户：未登录(******)" & vbCrLf & "-----------------------------" & vbCrLf & "更多源码下载：http://www.h876.com"
' MsgTaskbarRestart = RegisterWindowMessage("TaskbarCreated")
' OldWndProc = SetWindowLong(hwnd, GWL_WNDPROC, AddressOf WndProc)
'===================================================
Timer2.Enabled = True
Call jilu("系统", 100, "更多源码下载：http://www.h876.com")
'加载验证码声音文件
MkDir App.Path & "sound"
File1.Path = App.Path & "sound"
End Sub
Sub jiazaiini() '加载INI配置
On Error Resume Next
'=================加载ini文件=================
Dim k_temp As String
Dim kind_temp() As String
Dim ProxySZ As String
Dim proxyip As String
Dim ProxyDK As String
Dim ProxyU As String
Dim ProxyP As String
Dim inibb_temp As String
Dim flash_temp As String
Dim flashbb_temp As String
If Dir(App.Path & "system.ini") > 0 Then
'加载INI文件配置
inibb_temp = Space$(16)
flash_temp = Space$(32)
flashbb_temp = Space$(32)
GetPrivateProfileString "system", "inibb", "", inibb_temp, 16, App.Path & "system.ini"
GetPrivateProfileString "system", "flash", "", flash_temp, 32, App.Path & "system.ini"
GetPrivateProfileString "system", "flashbb", "", flashbb_temp, 32, App.Path & "system.ini"
inibb = Val(Left$(inibb_temp, Len(Trim$(inibb_temp)) - 1))
flash = Left$(flash_temp, Len(Trim$(flash_temp)) - 1)
flashbb = Left$(flashbb_temp, Len(Trim$(flashbb_temp)) - 1)
'加载种子信息
kind_sum = Space$(4)
GetPrivateProfileString "kind", "sum", "", kind_sum, 4, App.Path & "system.ini"
If Val(kind_sum) > 0 Then
zhonglei(0, 0) = "空地　"
zhonglei(0, 1) = -1
zhonglei(0, 2) = 0
For i = 0 To Val(kind_sum)
kind(i) = Space$(64)
k_temp = i
GetPrivateProfileString "kind", k_temp, "", kind(i), 64, App.Path & "system.ini"
kind(i) = Left$(kind(i), Len(Trim$(kind(i))) - 1)
kind_temp = Split(kind(i), ",")
If UBound(kind_temp()) > 1 Then
If Len(kind_temp(0)) = 2 Then kind_temp(0) = kind_temp(0) & "　"
zhonglei(kind_temp(1), 0) = kind_temp(0)
zhonglei(kind_temp(1), 1) = kind_temp(2)
zhonglei(kind_temp(1), 2) = kind_temp(5)
End If
Next i
End If
Else
inibb = 0
flash = "" & flash
flashbb = "55"
End If
If Dir(App.Path & "Config.ini") > 0 Then
'加载代理配置
ProxySZ = Space$(4)
proxyip = Space$(64)
ProxyDK = Space$(8)
ProxyU = Space$(64)
ProxyP = Space$(64)
GetPrivateProfileString "Proxy", "ProxySZ", "", ProxySZ, 4, App.Path & "Config.ini"
GetPrivateProfileString "Proxy", "ProxyIP", "", proxyip, 64, App.Path & "Config.ini"
GetPrivateProfileString "Proxy", "ProxyDK", "", ProxyDK, 8, App.Path & "Config.ini"
GetPrivateProfileString "Proxy", "ProxyU", "", ProxyU, 64, App.Path & "Config.ini"
GetPrivateProfileString "Proxy", "ProxyP", "", ProxyP, 64, App.Path & "Config.ini"
Proxy = Val(Left$(ProxySZ, Len(Trim$(ProxySZ)) - 1))
Proxy_IP = Left$(proxyip, Len(Trim$(proxyip)) - 1)
Proxy_DK = Val(Left$(ProxyDK, Len(Trim$(ProxyDK)) - 1))
Proxy_U = Left$(ProxyU, Len(Trim$(ProxyU)) - 1)
Proxy_P = Left$(ProxyP, Len(Trim$(ProxyP)) - 1)
If Proxy = 1 Then
SetProxy Proxy_IP, Proxy_DK, True '设置浏览器代理
Else
SetProxy Proxy_IP, Proxy_DK, False '设置浏览器代理
End If
If Len(Proxy_U) > 0 Or Len(Proxy_P) > 0 Then
Basic = StrtoBase64(Proxy_U & ":" & Proxy_P)
If Proxy = 1 Then WebBasic = "Proxy-Authorization: Basic " & Basic
Else
Basic = ""
WebBasic = ""
End If
End If
'===============================================
End Sub
Private Sub goto2523_Click()
Call gotodh
End Sub
Private Sub gotoqzone_Click()
Call gotoqzoneweb
End Sub
Private Sub gotouu23_Click()
Call gotoindex
End Sub
Private Sub gotoxiaoyou_Click()
Call gotoqqxiaoyou
End Sub
Private Sub Label20_Click()
Call gotobbs
End Sub
Private Sub Label22_Click()
On Error Resume Next
If bbname = "Alphal" Or InStr(bbname, "Beta") > 0 Then
MsgBox "内部测试版,不提供外部下载! ", 48, "提醒"
Else
Clipboard.Clear
Clipboard.SetText "QQ伴侣下载地址：" & vbCrLf & "http://down.h876/v" & bbid & ".rar"
MsgBox "复制成功!你可以使用 Ctrl+V 粘贴发送给QQ/MSN好友分享了!", 64, "复制成功"
End If
End Sub
Private Sub Label27_Click()
If Myuid > 0 Then
Label26.Caption = ""
Label26.Visible = False
Label27.Visible = True
Myuid = 0
csi = 0
login_uid = ""
login_skey = ""
Myexp = 0
Mymoney = 0
vsListView1.Clear
List1.Clear
List2.Clear
End If
QQLogin.Show vbModal, Me
End Sub
Private Sub Label29_Click()
List4.Clear
End Sub
Private Sub Label30_Click()
If Label26.Caption = "" Then
If MsgBox("您还没有登录,只有登录才能使用。" & vbCrLf & "" & vbCrLf & "您是否现在进行登录？", 32 Or vbYesNo, "登录提示") = vbYes Then QQLogin.Show vbModal, Me
Exit Sub
End If
If zxjiazai = True Then
xiaoyouts = False
qzonets = False
sxlblx = 0
gxsbi = 0
tbhy = True
sdsx = True
zxjiazai = False
Call vsListView1.Clear
Call Timer1_Timer
Else
MsgBox "好友正在重新加载中了,请不要重复刷新!", 64, "提醒"
End If
End Sub
Private Sub Label31_Click()
Call update_MyFrom
End Sub
Private Sub Label32_Click() '手动刷新好友农场信息
If sxdl <> listfarmid Then
sxdl = listfarmid
Call update_From(listfarmzl)
End If
End Sub
Private Sub List1_DblClick() '双击偷取
Call SendHttp(2, listfarmid, List1.ListIndex, Label10.Caption, "0", listfarmzl)
End Sub
Private Sub List2_DblClick() '双击收获
If Farmqk = True Then
Call SendHttp(1, Myuid, List2.ListIndex, Label2.Caption, "0", 0)
Else
Call SendHttp(1, Myuid, List2.ListIndex, Label2.Caption, "0", 1)
End If
End Sub
Private Sub SendHttp(lx As Integer, uID As Long, id As Integer, name As String, bj As String, rzl As Integer) '发送Http协议
On Error Resume Next
Dim sid As Integer
If lx = 0 Then '获取时差
sid = SHi() + 1
SH_Temp(sid) = ""
ElseIf lx = 1 Then '收获果实
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 2 Then '偷取果实
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 3 Then '除虫
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 4 Then '锄草
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 5 Then '浇水
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 6 Then '翻地
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 7 Then '播种
sid = SHi() + 1
SH_Temp(sid) = ""
SH_uid(sid) = uID
SH_id(sid) = id
SH_name(sid) = name
SH_bj(sid) = bj
ElseIf lx = 8 Then '刷新背包
sid = SHi() + 1
SH_Temp(sid) = ""
End If
Winsock3(sid).Tag = lx
czzl(sid) = rzl
If rzl = 1 Then
SH_Myname(sid) = Myqzone
Else
SH_Myname(sid) = Myxiaoyou
End If
If Proxy = 1 Then '使用代理
Winsock3(sid).Close
Winsock3(sid).RemoteHost = Proxy_IP
Winsock3(sid).RemotePort = Proxy_DK
Winsock3(sid).Connect
Else
Winsock3(sid).Close
If lx = 2 Then
If rzl = 1 Then
Winsock3(sid).RemoteHost = "nc.qzone.qq.com"
Else
Winsock3(sid).RemoteHost = "nc.xiaoyou.qq.com"
End If
Else
If rzl = 1 Then
Winsock3(sid).RemoteHost = "happyfarm.qzone.qq.com"
Else
Winsock3(sid).RemoteHost = "happyfarm.xiaoyou.qq.com"
End If
End If
Winsock3(sid).RemotePort = 80
Winsock3(sid).Connect
End If
End Sub
Private Sub List4_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
On Error Resume Next
Dim pos As Long, idx As Long
pos = X / Screen.TwipsPerPixelX + y / Screen.TwipsPerPixelY * 65536
idx = SendMessage(List1.hwnd, LB_ITEMFROMPOINT, 0, ByVal pos)
If idx >= 65536 Then idx = idx - 65536
If idx >= 0 And Button = 2 And MyQQ > 0 Then
List4.ListIndex = idx
Cdlx = 1
Timer14.Enabled = True
End If
End Sub
Private Sub Timer14_Timer()
On Error Resume Next
Timer14.Enabled = False
If Cdlx = 1 Then
Form1.PopupMenu Main.rzgl
ElseIf Cdlx = 2 Then
Form1.PopupMenu Form1.lbcd
End If
End Sub
Private Sub myck_Click()
On Error Resume Next
If Label26.Caption = "" Then
If MsgBox("您还没有登录,只有登录才能使用。" & vbCrLf & "" & vbCrLf & "您是否现在进行登录？", 32 Or vbYesNo, "登录提示") = vbYes Then QQLogin.Show vbModal, Me
Else
Form3.Timer1.Enabled = True
Form3.Show vbModal, Me
End If
End Sub
Private Sub rzml_Click()
On Error Resume Next
Call jilu("打开日志", 0, "open2")
End Sub
Private Sub Timer10_Timer()
On Error Resume Next
Timer10.Enabled = False
If sxdl <> listfarmid Then
sxdl = listfarmid
Call update_From(listfarmzl)
End If
End Sub
Private Sub Timer11_Timer() '多功能自动计时
On Error Resume Next
If login = False Then Exit Sub
Dim sum As Integer, temp As Long, keytemp As String
Dim s_zysi As String, f_zysi As String, m_zysi As String
sxlbi = sxlbi + 1
bbi = bbi + 1
' keyi = keyi + 1
keygxi = keygxi + 1
If XPButton21.Caption = "停止工作" Then pingi = pingi + 1
If pingi >= 300 Then pingi = 1
zysi = zysi + 1 '使用总用时
If zdxx = 1 And dengdai = False Then gzys = gzys + 1
If gxshicha = True Then
If Time_Cx + 28800 > gxTime Then
Dim gxTemp As String
gxTemp = Val(DateDiff("s", DateSerial(1970, 1, 1), Format(FromUnixTime(Time_Cx, 8), "yyyy-M-d 23:59:59")) + 1)
If Len(gxTemp) = 10 Then
If gxTime <> Val(gxTemp) Then
Label45.Caption = 0
WritePrivateProfileString MyQQ, "BmCs", "0", App.Path & "Config.ini"
End If
gxTime = Val(gxTemp)
WritePrivateProfileString MyQQ, "BmTime", gxTemp, App.Path & "Config.ini"
bzsx = False '清空疲劳状态
lqlw = False '清空礼物领取记录
End If
End If
End If
If zdbs = True Then '个人农场自动变速
zdbsi = zdbsi + 1
If zdbsi > 60 Then
zdbsi = 0
zdbs = False
grsxsd = 29
End If
End If
If (Len(Myxiaoyou) = 0 Or Len(Myqzone) = 0) And Time_C - login_time >= 10 And XPButton21.Caption = "停止工作" Then
Rqzonei = Rqzonei + 1
If Rqzonei <= 10 And Time_C Mod 3 = 0 Then Call update_MyFrom
End If
If lbsx = 0 Then lbsx = 1
If sxlbi >= lbsx * 3600 And Time_C - shangcitime > 120 Then '自动刷新好友名单
xiaoyouts = False
qzonets = False
sxlbi = 0
sxlblx = 0
gxsbi = 0
sdsx = True
zxjiazai = False
Timer1.Enabled = False
Timer1.Interval = 100
Timer1.Enabled = True
End If
If bbi > 300 And shicha > 0 Then '自动刷新背包
bbi = 0
If XPButton21.Caption = "停止工作" Then
If Farmqk = True Then
Call SendHttp(8, 0, 0, 0, 0, 0) '刷新背包
Else
Call SendHttp(8, 0, 0, 0, 0, 1) '刷新背包
End If
End If
If XPButton21.Caption = "停止工作" Or dengdai = True Then
'发送ping
' If Proxy = 1 Then '使用代理
' Winsock8.Close
' Winsock8.RemoteHost = Proxy_IP
' Winsock8.RemotePort = Proxy_DK
' Winsock8.Connect
' Else
' Winsock8.Close
' Winsock8.RemoteHost = "xiaoyou.qq.com"
' Winsock8.RemotePort = 80
' Winsock8.Connect
' End If
End If
End If
'更新key
If keygxi > 3600 And (XPButton21.Caption = "停止工作" Or dengdai = True) Or (keygxi > 10 And Len(zzpanelkey) = 0) Then
keygxi = 0
keygxtemp = ""
If Proxy = 1 Then '使用代理
Winsock9.Close
Winsock9.RemoteHost = Proxy_IP
Winsock9.RemotePort = Proxy_DK
Winsock9.Connect
Else
Winsock9.Close
Winsock9.RemoteHost = "dynamic.qzone.qq.com"
Winsock9.RemotePort = 80
Winsock9.Connect
End If
End If
If fzsxsb > 0 Then '防止刷新个人农场失败
Debug.Print Now
If Time_C - fzsxsb >= 10 Then
fzsxsb = Time_C
Call update_MyFrom
Debug.Print "重试刷新个人农场"
End If
End If
'发送ping
' If pingi <= 4 And (XPButton21.Caption = "停止工作" Or dengdai = True) Then
'
' If pingi = 1 Then
' pinglx = 1
' ElseIf pingi = 2 Then
' pinglx = 2
' ElseIf pingi = 3 Then
' pinglx = 3
' ElseIf pingi = 4 Then
' pinglx = 4
' End If
'
' If Proxy = 1 Then '使用代理
' Winsock5.Close
' Winsock5.RemoteHost = Proxy_IP
' Winsock5.RemotePort = Proxy_DK
' Winsock5.Connect
' Else
' Winsock5.Close
' Winsock5.RemoteHost = "pingfore.qq.com"
' Winsock5.RemotePort = 80
' Winsock5.Connect
' End If
'
' End If
' If sd = 0 Then sd = 4
'
' If keyi > 15 * sd And XPButton21.Caption = "停止工作" Then
' keyi = 0
' temp = Val(GetSetting("qqbanlv", "key", "UpdateTime"))
'
' If time_c - timetemp > 15 * sd Then
' keytemp = ""
'
' If Proxy = 1 Then '使用代理
' Winsock6.Close
' Winsock6.RemoteHost = Proxy_IP
' Winsock6.RemotePort = Proxy_DK
' Winsock6.Connect
' Else
' Winsock6.Close
' Winsock6.RemoteHost = "count.qqbanlv.cn"
' Winsock6.RemotePort = 80
' Winsock6.Connect
' End If
'
' Else
' keytemp = GetSetting("qqbanlv", "key", "Farmkey")
'
' If Len(keytemp) = 48 Then
' keytemp = cipher1(keytemp)
' farmTime = Mid(keytemp, 7, 2) & Mid(keytemp, 14, 2) & Mid(keytemp, 20, 2) & Mid(keytemp, 28, 2) & Mid(keytemp, 35, 2)
' farmKey = Mid(keytemp, 1, 6) & Mid(keytemp, 9, 5) & Mid(keytemp, 16, 4) & Mid(keytemp, 22, 6) & Mid(keytemp, 30, 5) & Mid(keytemp, 37, 6)
' UpdateTime = temp
' Else
' keytemp = ""
'
' If Proxy = 1 Then '使用代理
' Winsock6.Close
' Winsock6.RemoteHost = Proxy_IP
' Winsock6.RemotePort = Proxy_DK
' Winsock6.Connect
' Else
' Winsock6.Close
' Winsock6.RemoteHost = "count.qqbanlv.cn"
' Winsock6.RemotePort = 80
' Winsock6.Connect
' End If
'
' End If
'
' End If
'
' End If
If zdxx = 1 Then '软件运行自动休息机制
If gzys >= gzsj * 60 And gzxxing = False Then
gzxxing = True
XPButton21.Caption = "解除休息"
XPButton21.ForeColor = &HFF&
Call jilu("系统", MyQQ, "自动休息：伴侣已工作" & gzsj & "分钟,现在自动休息" & xxsj & "分钟。")
ElseIf gzys >= (gzsj + xxsj) * 60 And gzxxing = True Then
gzys = 0
gzxxing = False
XPButton21.Caption = "停止工作"
XPButton21.ForeColor = &H8000&
Call jilu("系统", MyQQ, "休息完毕,重新开始工作!。")
End If
End If
If yzmqk = True And (yzmts = 0 Or yzmts = 2) Then '播放验证码声音
bfi = bfi + 1
If bfi >= 15 Then
If Dir(App.Path & "sound" & shengyin) <> "" Then
PlaySound App.Path & "sound" & shengyin, 0, SND_ASYNC Or SND_FILENAME
End If
bfi = 0
End If
Else
bfi = 0
End If
If zysi > 3600 Then '软件运行总用时
s_zysi = zysi 3600
f_zysi = (zysi Mod 3600) 60
m_zysi = zysi - s_zysi * 3600 - f_zysi * 60
If s_zysi < 10 Then
s_zysi = 0 & s_zysi
End If
If f_zysi < 10 Then
f_zysi = 0 & f_zysi
End If
If m_zysi < 10 Then
m_zysi = 0 & m_zysi
End If
If s_zysi < 24 Then
Label24.Caption = "0天 " & "" & s_zysi & ":" & f_zysi & ":" & m_zysi
Else
tian = s_zysi 24
s_zysi = s_zysi - 24 * tian
Label24.Caption = tian & "天 " & "" & s_zysi & ":" & f_zysi & ":" & m_zysi
End If
' If zysi > 0 And zysi Mod 8 * 3600 = 0 Then '定时刷新网页
' Timer12.Enabled = True
' End If
Else
If zysi > 60 Then
f_zysi = zysi 60
m_zysi = zysi - f_zysi * 60
If f_zysi < 10 Then
f_zysi = 0 & f_zysi
End If
If m_zysi < 10 Then
m_zysi = 0 & m_zysi
End If
Label24.Caption = "0天 " & "00:" & f_zysi & ":" & m_zysi
Else
If zysi < 10 Then
Label24.Caption = "0天 " & "00:00:0" & zysi & ""
Else
Label24.Caption = "0天 " & "00:00:" & zysi & ""
End If
End If
End If
End Sub
Private Sub Timer18_Timer() '超时处理
Timer18.Enabled = False
If jcwork = True Then
jcwork = False
Call jilu("系统", MyQQ, "农场可能被临时限制,故休息" & xzsj & "分钟后自动重试!!")
XPButton21.Caption = "解除休息"
XPButton21.ForeColor = &HFF&
dengdai = True
ddi = 0
jctemp = ""
Winsock7.Close
End If
End Sub
Private Sub Timer19_Timer()
On Error Resume Next
Dim rzl As Integer
If login = True And dengdai = False And (XPButton21.Caption = "停止工作" Or gzxxing = True) And yzmqk = False Then
Dim temp As String, tem1 As String, tempuid As Long, tempid As Integer, tempname As String
If shicha = 0 Then Exit Sub
If Time_C - login_time <= 4 Then Exit Sub
If Len(shouhuolb) > 0 Then '自动收割
temp = Split(shouhuolb, "//")(0)
tempuid = Val(Replace(Split(temp, "|")(0), "/", ""))
tempid = Val(Split(temp, "|")(1))
tempname = Split(temp, "|")(2)
rzl = Split(Split(shouhuolb, "//")(1), "||")(0)
If tempuid > 0 Then
shouhuolb = Replace(shouhuolb, temp & "//" & rzl & "||", "")
Call SendHttp(1, tempuid, tempid, tempname, "1", rzl)
End If
End If
If Len(fandilb) > 0 Then '自动翻地
temp = Split(fandilb, "//")(0)
tempuid = Val(Replace(Split(temp, "|")(0), "/", ""))
tempid = Val(Split(temp, "|")(1))
tempname = Split(temp, "|")(2)
rzl = Split(Split(fandilb, "//")(1), "||")(0)
If tempuid > 0 Then
fandilb = Replace(fandilb, temp & "//" & rzl & "||", "")
Call SendHttp(6, tempuid, tempid, tempname, "1", rzl)
End If
End If
If Len(bozhonglb) > 0 And Len(fandilb) = 0 And sexp = False Then '自动播种
If InStr(mybox, "/" & bzid & "|") > 0 Then
temp = Split(bozhonglb, "//")(0)
tempuid = Val(Replace(Split(temp, "|")(0), "/", ""))
tempid = Val(Split(temp, "|")(1))
tempname = Split(temp, "|")(2)
rzl = Split(Split(bozhonglb, "//")(1), "||")(0)
Debug.Print temp
If tempuid > 0 Then
bozhonglb = Replace(bozhonglb, temp & "//" & rzl & "||", "")
tem1 = bzid
Call SendHttp(7, tempuid, tempid, tempname, tem1, rzl)
End If
Debug.Print "开始播种啦!" & tempid & " " & bozhonglb
tsbozhong = False
ElseIf Len(bozhonglb) > 0 And tsbozhong = False And sexp = False Then
tsbozhong = True
Call jilu("播种", MyQQ, "播种失败，您背包里【" & Replace(zhonglei(bzid, 0), "　", "") & "】种子可能不够，请注意购买！")
End If
End If
End If
End Sub
Private Sub Timer24_Timer()
On Error Resume Next
Timer24.Enabled = False
If qhform = 1 Then
Form4.Timer4.Enabled = True
Form4.Show vbModal, Me
ElseIf qhform = 2 Then
Form5.Timer1.Enabled = True
Form5.Show vbModal, Me
Else
Form3.Timer1.Enabled = True
Form3.Show vbModal, Me
End If
End Sub
Private Sub Toexps_Click()
If Label26.Caption = "" Then
If MsgBox("您还没有登录,只有登录才能使用。" & vbCrLf & "" & vbCrLf & "您是否现在进行登录？", 32 Or vbYesNo, "登录提示") = vbYes Then QQLogin.Show vbModal, Me
Else
ToExp.Show vbModal, Me
End If
End Sub
Private Sub vsListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, y As Single)
If Button = 2 And vsListView1.Count > 0 Then
Cdlx = 2
Timer14.Enabled = True
End If
End Sub
Private Sub quanxuan_Click() '全部选择
On Error Resume Next
If haoyoui < vsListView1.Count Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE Farm SET xz = True", conn, 1, 3
rs.Update
rs.Close
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE friend SET xz = True", conn, 1, 3
rs.Update
rs.Close
gxhy = False
haoyoui = 0
Call jiazai("exp", True) '加载经验降序
End If
End Sub
Private Sub quanbuxuan_Click() '全部不选
On Error Resume Next
If haoyoui > 0 Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE Farm SET xz = False", conn, 1, 3
rs.Update
rs.Close
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE friend SET xz = False", conn, 1, 3
rs.Update
rs.Close
gxhy = False
haoyoui = 0
Call jiazai("exp", True) '加载经验降序
End If
End Sub
Private Sub vsListView1_MouseUp(Button As Integer, Shift As Integer, X As Single, y As Single)
On Error Resume Next
If vsListView1.ItemHitTest(X, y) >= 0 Then
Dim Item As Integer
Item = Val(vsListView1.ItemHitTest(X, y))
If vsListView1.ItemChecked(Item) = True And Len(vsListView1.SubItemText(Item, 6)) = 0 Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE Farm SET xz = True where userId=" & Val(vsListView1.SubItemText(Item, 5)), conn, 1, 3
rs.Update
rs.Close
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE friend SET xz = True where userId=" & Val(vsListView1.SubItemText(Item, 5)), conn, 1, 3
rs.Update
rs.Close
Call vsListView1.SubItemSet(Item, 6, "True", 0)
haoyoui = haoyoui + 1
ElseIf vsListView1.ItemChecked(Item) = False And Len(vsListView1.SubItemText(Item, 6)) > 0 Then
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE Farm SET xz = False where userId=" & Val(vsListView1.SubItemText(Item, 5)), conn, 1, 3
rs.Update
rs.Close
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "UPDATE friend SET xz = False where userId=" & Val(vsListView1.SubItemText(Item, 5)), conn, 1, 3
rs.Update
rs.Close
Call vsListView1.SubItemSet(Item, 6, "", 0)
Debug.Print vsListView1.ItemChecked(Item)
Debug.Print Len(vsListView1.SubItemText(Item, 6))
haoyoui = haoyoui - 1
End If
If dianji <> Item Then
dianji = Item
Call Timer4_Timer
shangcitime = Time_C '记录上次操作时间
End If
End If
End Sub
Private Sub Winsock5_Connect()
On Error Resume Next
Dim strCommand As String
Dim proxytemp As String
Randomize Timer
If Proxy = 1 Then '使用代理
proxytemp = "http://pingfore.qq.com"
End If
If Farmqk = True Then
If pinglx = 1 Then
strCommand = "GET " & proxytemp & "/index.php?mod=frame&width=1&frame=http://happyfarm.xiaoyou.qq.com HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: xiaoyou.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://xiaoyou.qq.com" & vbCrLf
ElseIf pinglx = 2 Then
strCommand = "GET " & proxytemp & "/pingd?dm=happyfarm.xiaoyou.qq.com&url=/&tt=%u5F00%u5FC3%u519C%u573A&rdm=happyfarm.xiaoyou.qq.com&rurl=/&pvid=&scr=1024x768&scl=32-bit&lang=zh-cn&java=1&cc=x86&pf=Win32&tz=-8&ct=lan&vs=3.1&rand=" & Int(Rnd * 90000 + 10000) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: pingfore.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://xiaoyou.qq.com/index.php?mod=home" & vbCrLf
ElseIf pinglx = 3 Then
strCommand = "GET " & proxytemp & "/pingd?dm=xiaoyou.qq.com&url=/index/frame.php&tt=-&rdm=xiaoyou.qq.com&rurl=//index.php&pvid=&scr=-&scl=-&lang=-&java=1&cc=-&pf=-&tz=-8&ct=-&vs=3.3&emu=0." & Int(Rnd * 50000000 + 1) & Int(Rnd * 50000000 + 1) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: pingfore.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://xiaoyou.qq.com/index.php?mod=frame&width=1&frame=http://happyfarm.xiaoyou.qq.com" & vbCrLf
ElseIf pinglx = 4 Then
strCommand = "GET " & proxytemp & "/collect?pj=1990&dm=happyfarm.xiaoyou.qq.com&url=/&arg=&rdm=happyfarm.xiaoyou.qq.com&rurl=/&rarg=&icache=-&uv=&nu=0&ol=0&loc=http%3A//happyfarm.xiaoyou.qq.com/&column=&subject=&nrnd=F9" & Int(Rnd * 9000 + 1000) & Int(Rnd * 90000 + 10000) & "&rnd=" & Int(Rnd * 90000 + 10000) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: trace.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://happyfarm.xiaoyou.qq.com/" & vbCrLf
End If
Else
If pinglx = 1 Then
strCommand = "GET " & proxytemp & "/ HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: happyfarm.qzone.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://happyfarm.qzone.qq.com" & vbCrLf
ElseIf pinglx = 2 Then
strCommand = "GET " & proxytemp & "/pingd?dm=happyfarm.qzone.qq.com&url=/&tt=%u5F00%u5FC3%u519C%u573A&rdm=happyfarm.qzone.qq.com&rurl=/&pvid=&scr=1024x768&scl=32-bit&lang=zh-cn&java=1&cc=x86&pf=Win32&tz=-8&ct=lan&vs=3.1&rand=" & Int(Rnd * 90000 + 10000) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: pingfore.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://xiaoyou.qq.com/index.php?mod=home" & vbCrLf
ElseIf pinglx = 3 Then
strCommand = "GET " & proxytemp & "//pingd?dm=homeact.qzone.qq.com&url=/IC_APP_Entry_353&tt=-&rdm=clientinfocenter.qq.com&rurl=/&pvid=&scr=-&scl=-&lang=-&java=1&cc=-&pf=-&tz=-8&ct=-&vs=3.3&emu=0." & Int(Rnd * 50000000 + 1) & Int(Rnd * 50000000 + 1) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: happyfarm.qzone.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://happyfarm.qzone.qq.com" & vbCrLf
ElseIf pinglx = 4 Then
strCommand = "GET " & proxytemp & "/collect?pj=1990&dm=happyfarm.qzone.qq.com&url=/&arg=&rdm=happyfarm.qzone.qq.com&rurl=/&rarg=&icache=-&uv=&nu=0&ol=0&loc=http%3A//happyfarm.qzone.qq.com/&column=&subject=&nrnd=F9" & Int(Rnd * 9000 + 1000) & Int(Rnd * 90000 + 10000) & "&rnd=" & Int(Rnd * 90000 + 10000) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: trace.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://happyfarm.qzone.qq.com/" & vbCrLf
End If
End If
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: Keep-Alive" & vbCrLf
strCommand = strCommand & "Cookie: " & FarmCookies & vbCrLf
'strCommand = strCommand & "Cookie: uin=" & login_uid & "; skey=" & login_skey & ";" & vbCrLf
strCommand = strCommand & vbCrLf
Winsock5.SendData strCommand
yzmcode = "" '清空验证码
End Sub
Private Sub Winsock8_Connect()
On Error Resume Next
Dim strCommand As String
Dim proxytemp As String
Randomize Timer
If Proxy = 1 Then '使用代理
proxytemp = "http://xiaoyou.qq.com"
End If
strCommand = "GET " & proxytemp & "/ping.php?0." & Int(Rnd * 50000000 + 1) & Int(Rnd * 50000000 + 1) & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept-Language: zh-cn" + vbCrLf
strCommand = strCommand + "Accept-Encoding: gzip, deflate" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: xiaoyou.qq.com" & vbCrLf
strCommand = strCommand & "Referer: http://xiaoyou.qq.com/index.php?mod=frame&width=1&frame=http://happyfarm.xiaoyou.qq.com" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: Keep-Alive" & vbCrLf
strCommand = strCommand & "Cookie: " & FarmCookies & vbCrLf
' strCommand = strCommand & "Cookie: uin=" & login_uid & "; skey=" & login_skey & "; pst=" & pst - 5 & ";" & vbCrLf
strCommand = strCommand & vbCrLf
Winsock8.SendData strCommand
End Sub
Private Sub Winsock6_Connect()
On Error Resume Next
Dim strCommand As String
Dim proxytemp As String
If Proxy = 1 Then '使用代理
proxytemp = "http://count.qqbanlv.cn"
End If
strCommand = "GET " & proxytemp & "/blcount.txt?" & Time_C & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept-Language: zh-cn" + vbCrLf
strCommand = strCommand + "Accept-Encoding: gzip, deflate" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: count.qqbanlv.cn" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: Close" & vbCrLf
strCommand = strCommand & vbCrLf
Winsock6.SendData strCommand
End Sub
Private Sub Winsock6_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
ReDim str(bytesTotal - 1) As Byte
Winsock6.GetData str, vbArray + vbByte
keytemp = keytemp & UTF8_Decode(str)
End Sub
Private Sub Winsock6_Close()
On Error Resume Next
Winsock6.Close
Dim timetemp As Long
If Len(keytemp) > 0 Then
If InStr(keytemp, "count:") > 0 Then
keytemp = Mid(Split(keytemp, "count:")(1), 1, 42)
'===========写入注册表==============
SaveSetting "qqbanlv", "key", "UpdateTime", Time_C
SaveSetting "qqbanlv", "key", "Farmkey", "count:" & keytemp
'===================================
keytemp = cipher1("count:" & keytemp)
timetemp = Mid(keytemp, 7, 2) & Mid(keytemp, 14, 2) & Mid(keytemp, 20, 2) & Mid(keytemp, 28, 2) & Mid(keytemp, 35, 2)
If keytemp <> farmTime Then
farmTime = timetemp
farmKey = Mid(keytemp, 1, 6) & Mid(keytemp, 9, 5) & Mid(keytemp, 16, 4) & Mid(keytemp, 22, 6) & Mid(keytemp, 30, 5) & Mid(keytemp, 37, 6)
UpdateTime = Time_C
Debug.Print farmTime & " " & farmKey
If List2.ListCount < 6 Then Call Timer3_Timer
End If
End If
keytemp = ""
End If
End Sub
Private Sub Winsock9_Connect() '更新key
On Error Resume Next
Dim strCommand As String
Dim proxytemp As String
If Proxy = 1 Then '使用代理
proxytemp = "http://dynamic.qzone.qq.com"
End If
strCommand = "GET " & proxytemp & "/fcg-bin/cgi_web_redirect.fcg?" & Time_C & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept-Language: zh-cn" + vbCrLf
strCommand = strCommand + "Accept-Encoding: gzip, deflate" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: dynamic.qzone.qq.com" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Cookie: " & FarmCookies & vbCrLf
' strCommand = strCommand & "Cookie: uin=" & login_uid & "; skey=" & login_skey & ";" & vbCrLf
strCommand = strCommand & "Connection: Close" & vbCrLf
strCommand = strCommand & vbCrLf
Winsock9.SendData strCommand
End Sub
Private Sub Winsock9_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
ReDim str(bytesTotal - 1) As Byte
Winsock9.GetData str, vbArray + vbByte
keygxtemp = keygxtemp & UTF8_Decode(str)
End Sub
Private Sub Winsock9_Close()
On Error Resume Next
Winsock9.Close
Dim temp As String
If Len(keygxtemp) > 0 Then
If InStr(keygxtemp, "zzpanelkey=") > 0 Then
temp = Split(keygxtemp, "zzpanelkey=")(1)
zzpanelkey = Split(temp, ";path=")(0)
End If
keygxtemp = ""
End If
End Sub
Private Sub Timer12_Timer()
On Error Resume Next
Timer12.Enabled = False
WebBrowser1.Navigate2 "http://count.h876.com/count/v2.30.html?" & Time_C, "GET", , , WebBasic
End Sub
Private Sub Timer13_Timer() '加载数据库
On Error Resume Next
Timer13.Enabled = False
If Dir(Main.SysPath & "Profile_v1_" & MyQQ & ".db") = "" Then
SaveFileFromRes "Profile.db", "MDB", Main.SysPath & "Profile_v1_" & MyQQ & ".db"
End If
Set conn = New Connection
With conn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = Main.SysPath & "Profile_v1_" & MyQQ & ".db"
.CursorLocation = adUseClient
.Open
End With
Call update_mdb '更新数据库
End Sub
Sub update_mdb() '更新数据库
On Error Resume Next
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open "SELECT * FROM dbid where bbid = 1", conn, 1, 3
If rs.Fields("num") < 3 Then
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseServer
rs1.Open "SELECT bj,zl FROM friend", conn, 1, 3
If Err = "-2147217904" Then
If rs.Fields("num") = 1 Then conn.Execute "alter table friend add column bj Integer"
conn.Execute "alter table Farm add column zl Integer"
conn.Execute "alter table friend add column zl Integer"
Debug.Print "更新完毕"
End If
With rs
.Update
!Num = 3
.Update
End With
rs1.Close '关闭数据库
Set rs1 = Nothing
End If
rs.Close '关闭数据库
Set rs = Nothing
End Sub
Private Sub Timer16_Timer() '检测新版本
Timer16.Enabled = False
'版本更新检测
Update_temp = ""
If Proxy = 1 Then '使用代理
Winsock4.Close
Winsock4.RemoteHost = Proxy_IP
Winsock4.RemotePort = Proxy_DK
Winsock4.Connect
Else
Winsock4.Close
Winsock4.RemoteHost = "yz.h876.com"
Winsock4.RemotePort = 80
Winsock4.Connect
End If
End Sub
Private Sub Winsock4_Connect()
On Error Resume Next
Dim strCommand As String
Dim posttem As String
Dim proxytemp As String
If Proxy = 1 Then '使用代理
proxytemp = "http://yz.h876.com"
End If
posttem = "yz=ok"
strCommand = "POST " & proxytemp & "/soft/qqbanlv/yz6.asp?" & Time_C & " HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: yz.h876.com" & vbCrLf
strCommand = strCommand & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
strCommand = strCommand & "Referer: http://yz.h876.com" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: close" & vbCrLf
strCommand = strCommand & "Content-Length: " & Len(posttem) & vbCrLf
strCommand = strCommand & vbCrLf
strCommand = strCommand & posttem
Winsock4.SendData strCommand
End Sub
Private Sub Winsock4_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim webData As String
Winsock4.GetData webData, vbString
Update_temp = Update_temp + webData
End Sub
Private Sub Winsock4_Close()
On Error Resume Next
Winsock4.Close
Dim temp As String
Dim inibb_temp As Integer
Dim flash_temp As String
Dim flashbb_temp As String
If Len(Update_temp) > 0 Then
yzbb = Split(Update_temp, "yz/")(1): yzbb = Split(yzbb, "yz")(0) '获取版本ID
lx = Split(Update_temp, "lx/")(1): lx = Split(lx, "lx")(0) '获取更新类型
Update_web = Split(Update_temp, "New/")(1): Update_web = Split(Update_web, "New")(0) '更新网址
If yzbb > banbenid Then
If lx = 1 Then
MsgBox "发现新版本,点确定自动更新!　　", 64, "提示"
SaveFileFromRes "Update.exe", "Update", "Update.exe"
If Dir(App.Path & "Update.exe") <> "" Then
If Right$(App.Path, 1) <> "" Then
Shell App.Path & "Update.exe " & Update_web & ",http://yz.h876.com/soft/qqbanlv/xinxi/New.txt", 1
Else
Shell App.Path & "Update.exe " & Update_web & ",http://yz.h876.com/soft/qqbanlv/xinxi/New.txt", 1
End If
Else
gotoupdate
End If
tssj = True '关闭软件
Unload Me
ElseIf lx = 2 Then
If MsgBox("发现新版本,是否立即更新？ ", 64 Or vbYesNo, "询问") = vbYes Then
SaveFileFromRes "Update.exe", "Update", "Update.exe"
If Dir(App.Path & "Update.exe") <> "" Then
If Right$(App.Path, 1) <> "" Then
Shell App.Path & "Update.exe " & Update_web & ",http://yz.h876.com/soft/qqbanlv/xinxi/New.txt", 1
Else
Shell App.Path & "Update.exe " & Update_web & ",http://yz.h876.com/soft/qqbanlv/xinxi/New.txt", 1
End If
Else
gotoupdate
End If
tssj = True '关闭软件
Unload Me
End If
ElseIf lx = 3 Then
MsgBox "发现新版本,请下载最新版,才能使用! ", 64, "提示"
gotoupdate
tssj = True '关闭软件
Unload Me
ElseIf lx = 4 Then
If MsgBox("发现新版本,您是否要下载最新版？ ", 64 Or vbYesNo, "询问") = vbYes Then
gotoupdate
tssj = True '关闭软件
Unload Me
End If
End If
Else
temp = Split(Update_temp, "inibb/")(1): inibb_temp = Val(Split(temp, "inibb")(0)) 'INI文件版本
flash_temp = Split(Update_temp, "flash/")(1): flash_temp = Val(Split(flash_temp, "flash")(0)) 'Flash版本
flashbb_temp = Split(Update_temp, "flashbb/")(1): flashbb_temp = Val(Split(flashbb_temp, "flashbb")(0)) 'Flash版本
If inibb_temp > inibb Then '发现新版本
Debug.Print "开始发送"
If Proxy = 1 Then '使用代理
Winsock11.Close
Winsock11.RemoteHost = Proxy_IP
Winsock11.RemotePort = Proxy_DK
Winsock11.Connect
Else
Winsock11.Close
Winsock11.RemoteHost = "yz.h876.com"
Winsock11.RemotePort = 80
Winsock11.Connect
End If
End If
If InStr(flash_temp, ",") > 0 And flash <> flash_temp Then
flash = flash_temp
WritePrivateProfileString "system", "system", flash_temp, App.Path & "system.ini"
End If
If Val(flashbb_temp) > 0 And flashbb <> flashbb_temp Then
flashbb = flashbb_temp
WritePrivateProfileString "system", "flashbb", flashbb_temp, App.Path & "system.ini"
End If
End If
Update_temp = ""
End If
End Sub
Private Sub Winsock11_Connect()
On Error Resume Next
Dim strCommand As String
Dim posttem As String
Dim proxytemp As String
If Proxy = 1 Then '使用代理
proxytemp = "http://yz.h876.com"
End If
strCommand = "GET " & proxytemp & "/soft/qqbanlv/system.txt HTTP/1.1" & vbCrLf
strCommand = strCommand + "Accept: */*" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
strCommand = strCommand & "Host: yz.h876.com" & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: close" & vbCrLf
strCommand = strCommand & "Content-Length: " & Len(posttem) & vbCrLf
strCommand = strCommand & vbCrLf
Winsock11.SendData strCommand
End Sub
Private Sub Winsock11_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim webData As String
Winsock11.GetData webData, vbString
Update_temp = Update_temp + webData
End Sub
Private Sub Winsock11_Close()
On Error Resume Next
Dim temp As String
Winsock11.Close
If InStr(Update_temp, ";QQ伴侣(h876.com)配置文件") > 0 Then
temp = Split(Split(Update_temp, "[system]")(1), ";QQ伴侣(h876.com)配置文件")(0)
temp = "[system]" & vbCrLf & Trim(temp) & vbCrLf & vbCrLf & ";QQ伴侣(h876.com)配置文件"
If Len(temp) > 1000 And Len(temp) < 2500 Then
Open App.Path & "system.ini" For Output As #1
Print #1, temp
Close #1
Call jiazaiini '重新加载ini配置文件
End If
End If
Update_temp = ""
End Sub
Private Sub Timer8_Timer()
On Error Resume Next
If login = True And vsListView1.Count > 0 And shicha = 0 Then
Timer8.Enabled = False
Timer8.Interval = 3000
Timer8.Enabled = True
Debug.Print "开始更新时差"
Call SendHttp(0, 0, 0, 0, 0, 0) '更新时差
End If
End Sub
Private Sub Winsock3_Connect(Index As Integer)
On Error Resume Next
If login = False Then Exit Sub
Dim strCommand As String
Dim posttem As String
Dim lx As Integer
Dim proxytemp As String
Dim Fkey As String
Randomize Timer
lx = Winsock3(Index).Tag
If lx = 2 Then
If Proxy = 1 Then '使用代理
If czzl(Index) = 1 Then
proxytemp = "http://nc.qzone.qq.com"
Else
proxytemp = "http://nc.xiaoyou.qq.com"
End If
End If
Else
If Proxy = 1 Then '使用代理
If czzl(Index) = 1 Then
proxytemp = "http://happyfarm.qzone.qq.com"
Else
proxytemp = "http://happyfarm.xiaoyou.qq.com"
End If
End If
End If
If lx = 0 Then
strCommand = "GET " & proxytemp & "/?" & Time_C & " HTTP/1.1" & vbCrLf
ElseIf lx = 1 Then '收获自己的成果
posttem = "farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=harvest HTTP/1.1" & vbCrLf
ElseIf lx = 2 Then '偷取果实
If InStr(keyutemp, "/" & SH_uid(Index) & "/") > 0 Then
For i = 0 To keyjl - 1
If SH_uid(Index) = keyu(i).uID Then
If Time_C - keyu(i).time <= 7200 Then
Fkey = "&fkey=" & keyu(i).key
End If
Exit For
End If
Next i
End If
posttem = "fName=" & UTF8EncodeURI(SH_Myname(Index)) & "&tName=" & UTF8EncodeURI(SH_name(Index)) & "&farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index) & Fkey
strCommand = "POST " & proxytemp & "/cgi-bin/cgi_farm_steal?mod=farmlandstatus&act=scrounge HTTP/1.1" & vbCrLf
ElseIf lx = 3 Then '除虫
posttem = "fName=" & UTF8EncodeURI(SH_Myname(Index)) & "&tName=" & UTF8EncodeURI(SH_name(Index)) & "&farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=spraying HTTP/1.1" & vbCrLf
ElseIf lx = 4 Then '锄草
posttem = "fName=" & UTF8EncodeURI(SH_Myname(Index)) & "&tName=" & UTF8EncodeURI(SH_name(Index)) & "&farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=clearWeed HTTP/1.1" & vbCrLf
ElseIf lx = 5 Then '浇水
posttem = "fName=" & UTF8EncodeURI(SH_Myname(Index)) & "&tName=" & UTF8EncodeURI(SH_name(Index)) & "&farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=water HTTP/1.1" & vbCrLf
ElseIf lx = 6 Then '翻地
posttem = "farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=scarify HTTP/1.1" & vbCrLf
ElseIf lx = 7 Then '播种
posttem = "farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx & "&place=" & SH_id(Index) & yzmcode & "&ownerId=" & SH_uid(Index) & "&cId=" & SH_bj(Index)
strCommand = "POST " & proxytemp & "/api.php?mod=farmlandstatus&act=planting HTTP/1.1" & vbCrLf
ElseIf lx = 8 Then '刷新背包物品
posttem = "farmTime=" & Time_Cx & "&farmKey=" & Farmkey_cx
strCommand = "POST " & proxytemp & "/api.php?mod=repertory&act=getUserSeed HTTP/1.1" & vbCrLf
End If
strCommand = strCommand + "Accept: */*" + vbCrLf
strCommand = strCommand + "Accept-Language: zh-cn" + vbCrLf
strCommand = strCommand + "Accept-Encoding: gzip, deflate" + vbCrLf
If Proxy = 1 And Len(Basic) > 0 Then strCommand = strCommand & "Proxy-Authorization: Basic " & Basic & vbCrLf
If lx = 2 Then
If czzl(Index) = 1 Then
strCommand = strCommand & "Host: nc.qzone.qq.com" & vbCrLf
Else
strCommand = strCommand & "Host: nc.xiaoyou.qq.com" & vbCrLf
End If
Else
If czzl(Index) = 1 Then
strCommand = strCommand & "Host: happyfarm.qzone.qq.com" & vbCrLf
Else
strCommand = strCommand & "Host: happyfarm.xiaoyou.qq.com" & vbCrLf
End If
End If
strCommand = strCommand & "Content-Type: application/x-www-form-urlencoded" & vbCrLf
strCommand = strCommand & "Referer: http://appimg.qq.com/happyfarm/module/Main_v_" & flashbb & ".swf" & vbCrLf
strCommand = strCommand & "x-flash-version: " & flash & vbCrLf
strCommand = strCommand & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf
strCommand = strCommand & "Connection: close" & vbCrLf
If lx <> 0 Then
strCommand = strCommand & "Content-Length: " & Len(posttem) & vbCrLf
End If
strCommand = strCommand & "Cookie: " & FarmCookies & vbCrLf
' strCommand = strCommand & "Cookie: uin=" & login_uid & "; skey=" & login_skey & "; pst=" & pst - 5 & ";" & vbCrLf
strCommand = strCommand & vbCrLf
strCommand = strCommand & posttem
Winsock3(Index).SendData strCommand
yzmcode = "" '清空验证码
End Sub
Private Sub Winsock3_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error Resume Next
ReDim str(bytesTotal - 1) As Byte
Winsock3(Index).GetData str, vbArray + vbByte
SH_Temp(Index) = SH_Temp(Index) & UTF8_Decode(str)
End Sub
Private Sub Winsock3_Close(Index As Integer) '★★★★★★★★★★★★ 多功能封包发送 ★★★★★★★★★★★★
On Error Resume Next
Winsock3(Index).Close
If login = False Then Exit Sub
Dim code As Integer, cId As Integer, exp As Long, harvest As Integer, farmlandIndex As Integer, money As Long, sum As Integer
Dim tem1 As String, tem2 As String, lx As Integer
Dim direction As String
Dim rzl As Integer
Dim Fkey As String
Dim pst_temp As Long
lx = Winsock3(Index).Tag
If Farmqk = True Then
rzl = 0
Else
rzl = 1
End If
If Len(SH_Temp(Index)) > 0 Then
'记录QQ服务器时间
If InStr(SH_Temp(Index), "Set-Cookie: pst=") > 0 Then
tem1 = Split(SH_Temp(Index), "Set-Cookie: pst=")(1)
pst_temp = Val(Split(tem1, ";")(0))
If pst_temp > 0 Then pst = pst_temp
pst_temp = Time_C - pst_temp
If pst_temp > 0 Then shicha = pst_temp
Call shichaini(shicha) '更新时差
End If
If InStr(SH_Temp(Index), """time""") > 0 Then
pst_temp = Val(split_m(2, SH_Temp(Index), "time"))
If pst_temp > 0 Then pst = pst_temp
pst_temp = Time_C - pst_temp
If pst_temp > 0 Then shicha = pst_temp
Call shichaini(shicha) '更新时差
End If
If InStr(SH_Temp(Index), """updateTime""") > 0 Then
pst_temp = Val(split_m(1, SH_Temp(Index), "updateTime"))
If pst_temp > 0 Then pst = pst_temp
pst_temp = Time_C - pst_temp
If pst_temp > 0 Then shicha = pst_temp
Call shichaini(shicha) '更新时差
End If
If InStr(SH_Temp(Index), "请重新登录") > 0 Or InStr(SH_Temp(Index), "u8BF7u91CDu65B0u767Bu5F55") > 0 Then '登录超时
diaoxiani = diaoxiani + 1
' If diaoxiani = 1 And InStr(bbname, "Beta") > 0 Then Call jilu("调试", MyQQ, "偷取、帮忙时出现超时!")
If diaoxiani >= 5 And login = True And jcwork = False Then
SH_Temp(Index) = ""
jctemp = ""
jcwork = True
Timer18.Interval = 5000
Timer18.Enabled = True
If Proxy = 1 Then '使用代理
Winsock7.Close
Winsock7.RemoteHost = Proxy_IP
Winsock7.RemotePort = Proxy_DK
Winsock7.Connect
Else
Winsock7.Close
Winsock7.RemoteHost = "xiaoyou.qq.com"
Winsock7.RemotePort = 80
Winsock7.Connect
End If
diaoxiani = 0
Exit Sub
End If
Else
diaoxiani = 0
End If
If InStr(SH_Temp(Index), "你不在TA的好友列表里") > 0 Or InStr(SH_Temp(Index), "u4F60u4E0Du5728TAu7684u597Du53CBu5217u8868u91CC") > 0 Then
Call xiemdb(2, SH_uid(Index), 0) '删除作物记录
End If
If InStr(hqtemp(Index), ":""validateCode") > 0 Then '需要输入验证码
yzmlx.lx = lx
yzmlx.uID = SH_uid(Index)