📄 主界面.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form Form1
BorderStyle = 0 'None
Caption = "Form1"
ClientHeight = 5955
ClientLeft = 7170
ClientTop = 4965
ClientWidth = 8175
Icon = "主界面.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "主界面.frx":0E42
ScaleHeight = 397
ScaleMode = 3 'Pixel
ScaleWidth = 545
ShowInTaskbar = 0 'False
Begin VB.CommandButton Command3
Caption = "到帮派领票"
Height = 495
Left = 5760
TabIndex = 15
Top = 960
Width = 1215
End
Begin VB.PictureBox Picture2
BorderStyle = 0 'None
Height = 270
Left = 240
Picture = "主界面.frx":865B
ScaleHeight = 270
ScaleWidth = 420
TabIndex = 13
Top = 4920
Visible = 0 'False
Width = 420
End
Begin VB.PictureBox Picture1
BorderStyle = 0 'None
Height = 270
Left = 7260
Picture = "主界面.frx":8D15
ScaleHeight = 270
ScaleWidth = 420
TabIndex = 12
Top = 45
Width = 420
End
Begin MSAdodcLib.Adodc ADO
Height = 495
Left = 0
Top = 6240
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 873
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydata.mdb;Persist Security Info=False"
OLEDBString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydata.mdb;Persist Security Info=False"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "临时商品价格表"
Caption = "Adodc1"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.TextBox Text3
Height = 495
Left = 1560
TabIndex = 5
Top = 960
Width = 1215
End
Begin VB.CommandButton Command1
Caption = "登陆梦幻西游"
Height = 495
Left = 4320
TabIndex = 4
Top = 960
Width = 1335
End
Begin VB.CommandButton Command2
Caption = "开始自动跑商"
Height = 495
Left = 2880
TabIndex = 3
Top = 960
Width = 1335
End
Begin VB.Timer Timer2
Interval = 1000
Left = 0
Top = 5520
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 60000
Left = 0
Top = 5160
End
Begin MSDataGridLib.DataGrid DbGrid
Bindings = "主界面.frx":93CF
Height = 495
Left = 0
TabIndex = 9
Top = 6720
Visible = 0 'False
Width = 1455
_ExtentX = 2566
_ExtentY = 873
_Version = 393216
AllowArrows = 0 'False
ColumnHeaders = -1 'True
HeadLines = 1
RowHeight = 15
AllowAddNew = -1 'True
AllowDelete = -1 'True
BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ColumnCount = 2
BeginProperty Column00
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
BeginProperty Column01
DataField = ""
Caption = ""
BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED}
Type = 0
Format = ""
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
EndProperty
SplitCount = 1
BeginProperty Split0
BeginProperty Column00
EndProperty
BeginProperty Column01
EndProperty
EndProperty
End
Begin VB.Label 清楚临时数据
BackStyle = 0 'Transparent
Caption = " 清空临时数据库"
ForeColor = &H000000FF&
Height = 495
Left = 120
TabIndex = 14
Top = 960
Width = 1335
End
Begin VB.Image Image4
Height = 270
Left = 720
Picture = "主界面.frx":93E1
Top = 4560
Visible = 0 'False
Width = 435
End
Begin VB.Image Image3
Height = 270
Left = 240
Picture = "主界面.frx":9A53
Top = 4560
Visible = 0 'False
Width = 450
End
Begin VB.Image Image2
Height = 270
Left = 720
Picture = "主界面.frx":A10D
Top = 4920
Visible = 0 'False
Width = 435
End
Begin VB.Image Image1
Height = 270
Left = 7680
Picture = "主界面.frx":A77F
Top = 45
Width = 435
End
Begin VB.Label Lbl_Name
BackStyle = 0 'Transparent
Caption = "用户名称"
ForeColor = &H000000FF&
Height = 255
Left = 720
TabIndex = 11
Top = 120
Width = 1095
End
Begin VB.Label Lbl_Pswd
BackStyle = 0 'Transparent
Caption = "用户密码"
ForeColor = &H000000FF&
Height = 255
Left = 720
TabIndex = 10
Top = 480
Width = 1095
End
Begin VB.Label MyState
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 255
Left = 1920
TabIndex = 8
Top = 480
Width = 5895
End
Begin VB.Line 线
X1 = 0
X2 = 1016
Y1 = 56
Y2 = 56
End
Begin VB.Label Label5
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 255
Left = 5760
TabIndex = 7
Top = 120
Width = 1455
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "银票："
ForeColor = &H000000FF&
Height = 255
Left = 5280
TabIndex = 6
Top = 120
Width = 615
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "密码："
ForeColor = &H000000FF&
Height = 375
Left = 120
TabIndex = 2
Top = 480
Width = 615
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "帐号："
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 1
Top = 120
Width = 615
End
Begin VB.Label 梦幻西游默认路径
BackStyle = 0 'Transparent
ForeColor = &H000000FF&
Height = 255
Left = 1920
TabIndex = 0
Top = 120
Width = 3015
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Private Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
'----------------------------------------------------------------------------------------------------------
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal wIndx As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpSting As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal insaft As Long, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal flgs As Long) As Long
Private Type PointAPI
X As Long
Y As Long
End Type
Private Type RECT
Left As Long
ToP As Long
Right As Long
Bottom As Long
End Type
Private Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As PointAPI
ptMaxPosition As PointAPI
rcNormalPosition As RECT
End Type
Private Type Goods '商品变量的类型，包括名称，价格，卖出价，数量，像素字符等。名称不是重要的
Name As String
Price As Long
Sale As Long
Nums As Long
Pixels As String '1-10的点像素值
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -