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