串口调试助手c源码

⑴ 求VB串口调试助手源码361232171

热心朋友 传的不错

⑵ 串口调试助手

串口调试助手（不断完善中）
说明
说明：版权所有：沧海一声笑
邮箱：[email protected]
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Option Explicit
Dim inputsignal
Dim text_temp As String
Dim flag_dis As Boolean '是否停止显示标志量
Dim rx_count As Single '接收到的字符数
Dim tx_count As Single '发送除去的字符数
'关闭程序
Private Sub Command6_Click()
MSComm1.PortOpen = False '关闭串口
Unload Me '关闭程序
End Sub
'单击“帮助”按钮打开网页链接
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
End Sub
Private Sub Command8_Click()
Open Label16.Caption & "\com_data.txt" For Append As #1
Write #1, " 保存时间：", Format(Now, "yyyy 年m 月dd 日 hh:mm")
Write #1, Text1.Text
Close #1 '关闭文件
End Sub
''''''''初始化
Private Sub form_load()
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 1 '串口1
MSComm1.InputLen = 0 '表示一次读取所有数据
MSComm1.InBufferSize = 5120
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 5120
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 '每接收一个字符触发一次oncomm 事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True '打开串口
Shape1.Shape = 2
Shape1.Visible = True
Shape1.FillStyle = 0 '全部填充
Shape1.FillColor = QBColor(12) '红色
flag_dis = False
Timer2.Enabled = True
Timer2.Interval = 250
rx_count = 0
tx_count = 0
Label14.Caption = rx_count '接收到的字符数
Label15.Caption = tx_count '发送出去的字符数
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
'波特率
Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "2400"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "43000"
Combo2.AddItem "115200"
'校验位
Combo3.AddItem "N"
Combo3.AddItem "E"
Combo3.AddItem "O"
'数据位
Combo4.AddItem "8"
Combo4.AddItem "7"
Combo4.AddItem "6"
'停止位
Combo5.AddItem "1"
Combo5.AddItem "2"
Call new_folder
End Sub
'自动发送
Private Sub Check1_Click()
If Check1.Value Then
If Text2.Text <> "" Then
Timer1.Interval = Text3.Text
Timer1.Enabled = True
End If
End If
End Sub
'手动发送
Private Sub Command1_Click()
MSComm1.Output = Text2.Text
tx_count = tx_count + Len(Text2.Text)
End Sub
'打开\关闭串口
Private Sub Command2_Click()
If Command2.Caption = "打开串口" Then
Command2.Caption = "关闭串口"
MSComm1.PortOpen = True
Shape1.FillColor = QBColor(12) '红色
Else
Command2.Caption = "打开串口"
MSComm1.PortOpen = False
Shape1.FillColor = QBColor(8) '黑色
End If
End Sub
'清空接收区
Private Sub Command3_Click()
Text1.Text = ""
End Sub
'停止显示
Private Sub Command4_Click()
If flag_dis = False Then
flag_dis = True
Command4.Caption = "继续显示"
Else
flag_dis = False
Command4.Caption = "停止显示"
End If
End Sub
'串口响应事件
Private Sub mscomm1_oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
inputsignal = MSComm1.Input
rx_count = Len(Trim(inputsignal)) + rx_count
If flag_dis = True Then
text_temp = Text1.Text '将接收区的文本信息锁存
Text1.Text = text_temp
Else
Text1.Text = (Text1.Text) & (inputsignal)
End If
Case Else
End Select
End Sub
Private Sub Timer1_Timer()
If MSComm1.PortOpen = True Then '如果串口处于打开的状态
If Check1.Value Then
If Text2.Text <> "" Then
Timer1.Interval = Text3.Text
Timer1.Enabled = True
MSComm1.Output = Text2.Text
End If
End If
End If
End Sub
Private Sub Timer2_Timer()
Label14.Caption = rx_count
Label15.Caption = tx_count
End Sub
'创建一个文件
Public Sub new_folder()
Dim fol, fso, fil, fils, s, f, fldr
Dim aa As String
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
aa$ = "C:\COMDATA"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
aa$ = "C:\COMDATA\test"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
End Sub
用到的知识点：
1、通过单击按钮打开网页链接。
由于要调用api，故在程序开头声明如下：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpoperation As String, ByVal lpfile As String, ByVal lpparameters As String, _
ByVal lpdirectory As String, ByVal nshowcmd As Long) As Long

然后可以通过单击“帮助”按钮打开网页链接，click 事件代码如下：
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
End Sub
2、如何初始化combobox 的下拉列表。
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
3、串口的相关初始化操作。
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 1 '串口1
MSComm1.InputLen = 0 '表示一次读取所有数据
MSComm1.InBufferSize = 5120
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 5120
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 '每接收一个字符触发一次oncomm 事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True '打开串口
4、如何创建多级文件夹。
Public Sub new_folder()
Dim fol, fso, fil, fils, s, f, fldr
Dim aa As String
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
aa$ = "C:\COMDATA"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
aa$ = "C:\COMDATA\test"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
End Sub
可以看出来，是先建立文件夹COMDATA 后才建立他的子文件夹，不能一次性创建多级文件夹。
5、怎样在指定目录创建文件夹和文件，并写入数据。以及时间的格式化操作。
Private Sub Command8_Click()
Open Label16.Caption & "\com_data.txt" For Append As #1
Write #1, " 保存时间：", Format(Now, "yyyy 年m 月dd 日 hh:mm")
Write #1, Text1.Text
Close #1 '关闭文件
End Sub
6、用shape 控件画圆并将其用特定颜色填充满。
Shape1.Shape = 2 '圆
Shape1.Visible = True '可见
Shape1.FillStyle = 0 '全部填充
Shape1.FillColor = QBColor(12) '红色
另外，QBColor(8)是黑色，QBColor(12)是红色。
最新源码：
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal
lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String,
ByVal nShowCmd As Long) As Long
Option Explicit
Dim inputsignal
Dim text_temp As String
Dim flag_dis As Boolean '是否停止显示标志量
Dim rx_count As Single '接收到的字符数
Dim tx_count As Single '发送除去的字符数
'***********************************
Dim x1 As String, x2 As String, x3 As String, x4 As String, x5 As String
Dim comset_temp As String
Private Sub Combo1_click()
Combo1.ForeColor = RGB(255, 0, 0)
Combo1.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo2_click()
Combo2.ForeColor = RGB(255, 0, 0)
Combo2.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo3_click()
Combo3.ForeColor = RGB(255, 0, 0)
Combo3.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo4_click()
Combo4.ForeColor = RGB(255, 0, 0)
Combo4.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
Private Sub Combo5_click()
Combo5.ForeColor = RGB(255, 0, 0)
Combo5.BackColor = RGB(12, 0, 0)
Call comm_set
End Sub
'计数清零
Private Sub Command5_Click()
rx_count = 0
tx_count = 0
End Sub
'关闭程序
Private Sub Command6_Click()
MSComm1.PortOpen = False '关闭串口
Unload Me '关闭程序
End Sub
'单击“帮助”按钮打开网页链接
Private Sub Command7_Click()
ShellExecute Me.hwnd, "open", "http://domyself.cublog.cn", "", "", 5
End Sub
Private Sub Command8_Click()
Call new_folder
Open Label16.Caption & "\com_data.txt" For Append As #1
Write #1, " 保存时间：", Format(Now, "yyyy 年m 月dd 日 hh:mm")
Write #1, Text1.Text
Close #1 '关闭文件
End Sub
''''''''初始化
Private Sub form_load()
MSComm1.Settings = "9600,n,8,1" '串口的相关参数设置
MSComm1.CommPort = 1 '串口1
MSComm1.InputLen = 0 '表示一次读取所有数据
MSComm1.InBufferSize = 5120
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 5120
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 '每接收一个字符触发一次oncomm 事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True '打开串口
Shape1.Shape = 2
Shape1.Visible = True
Shape1.FillStyle = 0 '全部填充
Shape1.FillColor = QBColor(12) '红色
flag_dis = False
Timer2.Enabled = True
Timer2.Interval = 250
rx_count = 0
tx_count = 0
Label14.Caption = rx_count '接收到的字符数
Label15.Caption = tx_count '发送出去的字符数
'串口选择
Combo1.AddItem "COM1"
Combo1.AddItem "COM2"
Combo1.AddItem "COM3"
Combo1.AddItem "COM4"
'波特率
Combo2.AddItem "300"
Combo2.AddItem "600"
Combo2.AddItem "1200"
Combo2.AddItem "2400"
Combo2.AddItem "4800"
Combo2.AddItem "9600"
Combo2.AddItem "19200"
Combo2.AddItem "38400"
Combo2.AddItem "43000"
Combo2.AddItem "115200"
'校验位
Combo3.AddItem "N"
Combo3.AddItem "E"
Combo3.AddItem "O"
'数据位
Combo4.AddItem "8"
Combo4.AddItem "7"
Combo4.AddItem "6"
'停止位
Combo5.AddItem "1"
Combo5.AddItem "2"
'设置combobox.text 初始值
Combo1.Text = "COM1"
Combo2.Text = "9600"
Combo3.Text = "N"
Combo4.Text = "8"
Combo5.Text = "1"
Call new_folder
Call comm_set
End Sub
'自动发送
Private Sub Check1_Click()
If Check1.Value Then
If Text2.Text <> "" Then
Timer1.Interval = Text3.Text
Timer1.Enabled = True
End If
End If
End Sub
'手动发送
Private Sub Command1_Click()
MSComm1.Output = Text2.Text
tx_count = tx_count + Len(Text2.Text)
End Sub
'打开\关闭串口
Private Sub Command2_Click()
If Command2.Caption = "打开串口" Then
Command2.Caption = "关闭串口"
MSComm1.PortOpen = True
Shape1.FillColor = QBColor(12) '红色
Else
Command2.Caption = "打开串口"
MSComm1.PortOpen = False
Shape1.FillColor = QBColor(8) '黑色
End If
End Sub
'清空接收区
Private Sub Command3_Click()
Text1.Text = ""
End Sub
'停止显示
Private Sub Command4_Click()
If flag_dis = False Then
flag_dis = True
Command4.Caption = "继续显示"
Else
flag_dis = False
Command4.Caption = "停止显示"
End If
End Sub
'串口响应事件
Private Sub mscomm1_oncomm()
Select Case MSComm1.CommEvent
Case comEvReceive
inputsignal = MSComm1.Input
rx_count = Len(Trim(inputsignal)) + rx_count
If flag_dis = True Then
text_temp = Text1.Text '将接收区的文本信息锁存
Text1.Text = text_temp
Else
Text1.Text = (Text1.Text) & (inputsignal)
End If
Case Else
End Select
End Sub
'定时器1 用于定时发送
Private Sub Timer1_Timer()
If MSComm1.PortOpen = True Then '如果串口处于打开的状态
If Check1.Value Then
If Text2.Text <> "" Then
Timer1.Interval = Text3.Text
Timer1.Enabled = True
MSComm1.Output = Text2.Text
End If
End If
End If
End Sub
'定时器2 用于接收发送量显示
Private Sub Timer2_Timer()
Label14.Caption = rx_count
Label15.Caption = tx_count
End Sub
'创建一个文件
Public Sub new_folder()
Dim fol, fso, fil, fils, s, f, fldr
Dim aa As String
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
aa$ = "C:\COMDATA"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
aa$ = "C:\COMDATA\test"
If fso.folderexists(aa$) = False Then
fol = fso.CreateFolder(aa$)
'MkDir aa
End If
End Sub
'***************************
Public Sub comm_set()
If MSComm1.PortOpen <> False Then
MSComm1.PortOpen = False
End If
x1 = Combo1.Text
x2 = Combo2.Text
x3 = Combo3.Text
x4 = Combo4.Text
x5 = Combo5.Text
MSComm1.InputLen = 0 '表示一次读取所有数据
MSComm1.InBufferSize = 512
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 1 '每接收一个字符触发一次oncomm 事件
MSComm1.SThreshold = 1
MSComm1.CommPort = Val(Right(x1, 1))
comset_temp = x2 & "," & x3 & "," & x4 & "," & x5
MSComm1.Settings = (comset_temp)
Command2.Caption = "打开串口"
Shape1.FillColor = QBColor(8) '黑色
End Sub
效果图:
最新工程文件：
文件: 串口调试助手.rar
大小: 18KB
下载: 下载

⑶ 版的串口调试助手源代码.怎么实现串口发送文件的

如果你测试的是同一台机子上的两个串口，就连接好2个串口，然后打开两次串口调试助手，分别选好串口编号，设定波特率等参数，点连接，然后在发送区随便填点信息点发送，打开的2个串口调试助手的窗口能互相发送接收，就说明这两个串口能正常通信
如果测试2台不同机子上的串口，就分辨在两台机子上打开串口调试助手，操作一样
如果只测试一个串口，RS422和RS485方式的是测不了的，RS232的可以短接2，3针脚，打开一个串口调试助手，选好串口编号和参数，发送信息能在接收区得到回复，证明该串口能工作

⑷ 各位英雄好汉，小弟跪求串口调试精灵 /或调试助手的VB.NET代码，谢谢，感激不尽！

太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V4.0 (600M)

VB串口通信编程源码200个,多种行业多种应用...
VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家着作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口视频教程44个,一套完整视频教程,讲解直观,更快掌握...

超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M
超级赠品三:串口调试工具80个,应用于各种串口调试与校验计算...
超级赠品四:程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
超级赠品五:更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...

你在淘宝搜索“太阳雨VB串口资料”就可以找到，希望可以帮助到你。
同时,还有"太阳雨VC串口资料"和"太阳雨DELPHI"串口资料...

⑸ 求一份串口调试助手源代码，C/C++都可以，最好是接收的数据能连接数据库

你好！需要控制什么数据库呢

⑹ 关于串口调试助手VC源程序及详细编程过程

这样你每接受一个字符,如:strtemp.Format("%X",bt); 就把这个字符串的没一位转换成十进制,然后,把第一个十进制左移4位,然后加上后一个十进制数字,得出的结果也就是你要的数字,这个方法我测试过，一定行的
注意:你这个for(k=0;k<len;k++) 循环,每循环一次就接收一个字符,你只要每接收一个字符后,按我上面的方法转换,得到的值就一顶是你相应16进制转换成10进制的值,哈哈哈哈

⑺ 高手求串口调试助手的工程文件（源程序）

1.建立项目：打开VC＋＋6.0，建立一个基于对话框的MFC应用程序SCommTest（与我源代码一致，等会你会方便一点）；
2.在项目中插入MSComm控件 选择Project菜单下Add To Project子菜单中的 Components and Controls…选项，在弹出的对话框中双击Registered ActiveX Controls项（稍等一会，这个过程较慢），则所有注册过的ActiveX控件出现在列表框中。 选择Microsoft Communications Control, version 6.0，，单击Insert按钮将它插入到我们的Project中来，接受缺省的选项。（如果你在控件列表中看不到Microsoft Communications Control, version 6.0，那可能是你在安装VC6时没有把ActiveX一项选上，重新安装VC6，选上ActiveX就可以了），
这时在ClassView视窗中就可以看到CMSComm类了，（注意：此类在ClassWizard中看不到，重构clw文件也一样），并且在控件工具栏Controls中出现了电话图标（如图1所示），现在要做的是用鼠标将此图标拖到对话框中，程序运行后，这个图标是看不到的。

3.利用ClassWizard定义CMSComm类控制对象 打开ClassWizard－>Member Viariables选项卡，选择CSCommTestDlg类，为IDC_MSCOMM1添加控制变量：m_ctrlComm，这时你可以看一看，在对话框头文件中自动加入了//{{AFX_INCLUDES() #include "mscomm.h" //}}AFX_INCLUDES （这时运行程序，如果有错，那就再从头开始）。
4.在对话框中添加控件 向主对话框中添加两个编辑框，一个用于接收显示数据ID为IDC_EDIT_RXDATA，另一个用于输入发送数据，ID为IDC_EDIT_TXDATA，再添加一个按钮，功能是按一次就把发送编辑框中的内容发送一次，将其ID设为IDC_BUTTON_MANUALSEND。别忘记了将接收编辑框的Properties－>Styles中把Miltiline和Vertical Scroll属性选上，发送编辑框若你想输入多行文字，也可选上Miltiline。
再打开ClassWizard－>Member Viariables选项卡，选择CSCommTestDlg类， 为IDC_EDIT_RXDATA添加CString变量m_strRXData， 为IDC_EDIT_TXDATA添加CString变量m_strTXData。说明： m_strRXData和m_strTXData分别用来放入接收和发送的字符数据。
5.添加串口事件消息处理函数OnComm() 打开ClassWizard－>Message Maps，选择类CSCommTestDlg，选择IDC_MSCOMM1，双击消息OnComm，将弹出的对话框中将函数名改为OnComm，（好记而已）OK。
这个函数是用来处理串口消息事件的，如每当串口接收到数据，就会产生一个串口接收数据缓冲区中有字符的消息事件，我们刚才添加的函数就会执行，我们在OnComm()函数加入相应的处理代码就能实现自已想要的功能了。请你在函数中加入如下代码：
void CSCommTestDlg::OnComm()
{
// TODO: Add your control notification handler code here
VARIANT variant_inp;
COleSafeArray safearray_inp;
LONG len,k;
BYTE rxdata[2048]; //设置BYTE数组 An 8-bit integerthat is not signed.
CString strtemp;
if(m_ctrlComm.GetCommEvent()==2) //事件值为2表示接收缓冲区内有字符
{ ////////以下你可以根据自己的通信协议加入处理代码
variant_inp=m_ctrlComm.GetInput(); //读缓冲区
safearray_inp=variant_inp; //VARIANT型变量转换为ColeSafeArray型变量
len=safearray_inp.GetOneDimSize(); //得到有效数据长度
for(k=0;k<len;k++)
safearray_inp.GetElement(&k,rxdata+k);//转换为BYTE型数组
for(k=0;k<len;k++) //将数组转换为Cstring型变量
{
BYTE bt=*(char*)(rxdata+k); //字符型
strtemp.Format("%c",bt); //将字符送入临时变量strtemp存放
m_strRXData+=strtemp; //加入接收编辑框对应字符串
}
}
UpdateData(FALSE); //更新编辑框内容
}

到目前为止还不能在接收编辑框中看到数据，因为我们还没有打开串口，但运行程序不应该有任何错误，不然，你肯定哪儿没看仔细，因为我是打开VC6对照着做一步写一行的，运行试试。没错吧？那么做下一步：
6.打开串口和设置串口参数 你可以在你需要的时候打开串口，例如在程序中做一个开始按钮，在该按钮的处理函数中打开串口。现在我们在主对话框的CSCommTestDlg::OnInitDialog()打开串口，加入如下代码：
// TODO: Add extra initialization here
if(m_ctrlComm.GetPortOpen())
m_ctrlComm.SetPortOpen(FALSE);

m_ctrlComm.SetCommPort(1); //选择com1
if( !m_ctrlComm.GetPortOpen())
m_ctrlComm.SetPortOpen(TRUE);//打开串口
else
AfxMessageBox("cannot open serial port");

m_ctrlComm.SetSettings("9600,n,8,1"); //波特率9600，无校验，8个数据位，1个停止位
m_ctrlComm.SetInputModel(1); //1：表示以二进制方式检取数据
m_ctrlComm.SetRThreshold(1);
//参数1表示每当串口接收缓冲区中有多于或等于1个字符时将引发一个接收数据的OnComm事件
m_ctrlComm.SetInputLen(0); //设置当前接收区数据长度为0
m_ctrlComm.GetInput();//先预读缓冲区以清除残留数据
现在你可以试试程序了，将串口线接好后（不会接？去看看我写的串口接线基本方法），打开串口调试助手，并将串口设在com2，选上自动发送，也可以等会手动发送。再执行你编写的程序，接收框里应该有数据显示了。
7.发送数据 先为发送按钮添加一个单击消息即BN_CLICKED处理函数，打开ClassWizard－>Message Maps，选择类CSCommTestDlg，选择IDC_BUTTON_MANUALSEND，双击BN_CLICKED添加OnButtonManualsend()函数，并在函数中添加如下代码：
void CSCommTestDlg::OnButtonManualsend()
{
// TODO: Add your control notification handler code here
UpdateData(TRUE); //读取编辑框内容
m_ctrlComm.SetOutput(COleVariant(m_strTXData));//发送数据
}
运行程序，在发送编辑框中随意输入点什么，单击发送按钮，啊！看看，在另一端的串口调试助手（或别的调试工具）接收框里出现了什么。

⑻ 求串口调试助手的VC++源代码

那个很简单啊 自己写一个也行 就是creatfile 然后把串口参数设好就行了

⑼ 求一个类似串口调试助手的完整 C#程序源码 环境是VS2010 调试成功立刻给悬赏

哈哈，搞深入的硬件你找错地方了（软件还是有的）。。。这地方几乎是不可能有的。。。。
楼上萌萌哒（PS：随便玩2天就有成千财富。。。）