module2.bas

可以有助于实现无线发送和接受

Attribute VB_Name = "Module2"
Public Sub kaishilianjie() '开始连接
 
If dcc_hdl <= 0 Then
mode = MODE_TCP
dc_ip = Form1.Text5.Text
dc_port = Int(Form1.Text6.Text)
block = MODE_NONBLOCK
port = 4000
dcc_hdl = dcc_init(mode, port, dc_ip, dc_port, block) '初始化
If dcc_hdl > 0 Then    '判断连接是否成功
  Call xianshizhuangtai("数据中心连接成功！")
Else
  Call xianshizhuangtai("数据中心连接失败！请重新连接！")
End If
Else: MsgBox "已连接到数据中心,请不要重复连接!", vbOKOnly + vbInformation, "提示"
End If
End Sub



Public Sub duankailianjie() '断开连接

If dcc_hdl > 0 Then
dcc_close (dcc_hdl)
dcc_hdl = 0
Call xianshizhuangtai("数据中心断开连接！")
Else: MsgBox "数据中心已断开连接!", vbOKOnly + vbInformation, "提示"
End If
End Sub
Public Sub fasongshuju() '发送数据

Dim ffasong As Long
Dim msgfasong As dc_msg
Dim stemp As String
Dim I As Integer
Dim fasongdata As String
Dim zhuangtai As String

stemp = Trim(Form1.Text3.Text)
  If Len(stemp) <> 15 Then
    MsgBox "请输入正确的IMEI号码！", vbOKOnly + vbInformation, "注意"
    Exit Sub
  Else
    For I = 1 To 15
        msgfasong.ImeiDTU(I) = Asc(Mid(stemp, I, 1))
    Next I
    msgfasong.ImeiDTU(16) = 0

    msgfasong.msg_type = 0 '设置消息类型，数据

    fasongdata = Form1.Text4.Text
    msgfasong.msg_len = Len(fasongdata)
    For I = 1 To msgfasong.msg_len
        msgfasong.msg_body(I) = Asc(Mid(fasongdata, I, 1))
    Next I
If dcc_hdl > 0 Then
ffasong = dcc_msg_send(dcc_hdl, msgfasong)

If ffasong > 0 Then
Call xianshifasong(fasongdata, stemp)
'   zhuangtai = "向IMEI: " + stemp + " 发送数据: " + fasongdata + " 成功！"
'   Call xianshizhuangtai(zhuangtai)
'ElseIf ffasong = 0 Then
'   zhuangtai = "向IMEI: " + stemp + " 发送数据： " + fasongdata + " 不能立刻完成，请再次发送！"
'   Call xianshizhuangtai(zhuangtai)
'Else
'   zhuangtai = "向IMEI: " + stemp + " 发送数据： " + fasongdata + " 失败！"
'   Call xianshizhuangtai(zhuangtai)
End If

End If
End If
End Sub
Public Sub fenlizhongduan() '分离终端

Dim ffenli As Long
Dim msgfenli As dc_msg
Dim stemp As String
Dim I As Integer

stemp = Trim(Form1.Text3.Text)
   If Len(stemp) <> 15 Then
   MsgBox "请输入正确的IMEI号码！", vbOKOnly + vbInformation, "注意"
   Exit Sub
Else
    For I = 1 To 15
        msgfenli.ImeiDTU(I) = Asc(Mid(stemp, I, 1))
    Next I
    msgfenli.ImeiDTU(16) = 0
    msgfenli.msg_type = DC_MSG_DISC_DTU
    msgfenli.msg_len = 0
    
If dcc_hdl > 0 Then
 ffenli = dcc_msg_send(dcc_hdl, msgfenli)
End If

End If
End Sub

Public Sub huoquzhuangtai() '获取状态

Dim fhuoqu As Long
Dim msghuoqu As dc_msg
Dim stemp As String
Dim I As Integer

stemp = Trim(Form1.Text8.Text)
   If Len(stemp) <> 15 Then
   MsgBox "请输入正确的IMEI号码！", vbOKOnly + vbInformation, "注意"
   Exit Sub
   Else
    For I = 1 To 15
        msghuoqu.ImeiDTU(I) = Asc(Mid(stemp, I, 1))
    Next I
 msghuoqu.ImeiDTU(16) = 0
 msghuoqu.msg_type = 3
 msghuoqu.msg_len = 0
 If dcc_hdl > 0 Then
 fhuoqu = dcc_msg_send(dcc_hdl, msghuoqu)
 End If
 
End If
End Sub

Public Sub xianshijieshou(jsdata As String, jsimei As String)    '根据格式显示接受数据

Dim string_1 As String
Dim string_2 As String


If Form1.Check1.Value = Checked Then
   If Form1.Check2.Value = Checked Then
      string_1 = "   接收数据： " + jsdata + "     IMEI： " + jsimei + Chr(13) + Chr(10)
   Else
      string_1 = "   接收数据： " + jsdata + Chr(13) + Chr(10)
   End If
   
Else
   If Form1.Check2.Value = Checked Then
      string_1 = "   IMEI：   " + jsimei + Chr(13) + Chr(10)
   Else
      string_1 = ""
   End If
End If


If Form1.Check3.Value = Checked Then
   If Form1.Check4.Value = Checked Then
      string_2 = "   日期： " + CStr(Date) + "     时间： " + CStr(Time) + Chr(13) + Chr(10)
   Else
      string_2 = "   日期： " + CStr(Date) + Chr(13) + Chr(10)
   End If
Else
   If Form1.Check4.Value = Checked Then
      string_2 = "   时间： " + CStr(Time) + Chr(13) + Chr(10)
   Else
      string_2 = ""
   End If
End If
   Form1.Text1.Text = Form1.Text1.Text + string_2 + string_1 + Chr(13) + Chr(10)
   
   Form1.Text1.SelStart = 32 * 1000 - 1

End Sub

Public Sub xianshifasong(fsdata As String, fsimei As String)    '根据格式显示发送数据

Dim string_1 As String
Dim string_2 As String


If Form1.Check5.Value = Checked Then
   If Form1.Check6.Value = Checked Then
      string_1 = "   发送数据： " + fsdata + "   IMEI：   " + fsimei + Chr(13) + Chr(10)
   Else
      string_1 = "   发送数据： " + fsdata + Chr(13) + Chr(10)
   End If
   
Else:
   If Form1.Check6.Value = Checked Then
      string_1 = "   IMEI：   " + fsimei + Chr(13) + Chr(10)
   Else
      string_1 = ""
   End If
End If


If Form1.Check7.Value = Checked Then
   If Form1.Check8.Value = Checked Then
      string_2 = "   日期：   " + CStr(Date) + "     时间：   " + CStr(Time) + Chr(13) + Chr(10)
   Else
      string_2 = "   日期：   " + CStr(Date) + Chr(13) + Chr(10)
   End If
Else:
   If Form1.Check8.Value = Checked Then
      string_2 = "   时间：   " + CStr(Time) + Chr(13) + Chr(10)
   Else
      string_2 = ""
   End If
End If
   Form1.Text2.Text = Form1.Text2.Text + string_2 + string_1 + Chr(13) + Chr(10)
   
   Form1.Text2.SelStart = 32 * 1000 - 1

End Sub

Public Sub xianshizhuangtai(zhuangtai As String)
   
   zhuangtai = "   日期：   " + CStr(Date) + "     时间：   " + CStr(Time) + Chr(13) + Chr(10) + "   状态：   " + zhuangtai + Chr(13) + Chr(10)
   Form1.Text10.Text = Form1.Text10.Text + zhuangtai + Chr(13) + Chr(10)
   Form1.Text10.SelStart = 32 * 1000 - 1
End Sub

Public Sub fasongAT()

Dim ffsAT As Long
Dim msgfsAT As dc_msg
Dim stemp As String
Dim I As Integer
Dim fsATdata As String

stemp = Trim(Form2.Text1.Text)
    If Len(stemp) <> 15 Then
    MsgBox "请输入正确的IMEI号码！", vbOKOnly + vbInformation, "注意"
    Exit Sub
    Else
    For I = 1 To 15
        msgfsAT.ImeiDTU(I) = Asc(Mid(stemp, I, 1))
    Next I
    msgfsAT.ImeiDTU(16) = 0

    msgfsAT.msg_type = 10 '设置消息类型，数据

    fsATdata = Form2.Text2.Text
    msgfsAT.msg_len = Len(fsATdata)
    For I = 1 To msgfsAT.msg_len
        msgfsAT.msg_body(I) = Asc(Mid(fsATdata, I, 1))
    Next I
If dcc_hdl > 0 Then
ffsAT = dcc_msg_send(dcc_hdl, msgfsAT)
End If

End If
End Sub