Bonjour à tous,
J'ai un petit problèùe en ce qui concerne la balance avec la clé Huawei 3G E 3131
avec un telephone mobil tout ce passe bien sans probleme Je reçois le solde "balance" mais avec une cle 3g huawei ca ne marche pas
je ne sais pas ou ce trouve l'erreur
jai chercher dans le forum vb mais jai rien trouvé peut etre que jai pas bien chercher merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Command1_Click()
On Error Resume Next
Label1.Caption = ""
    strBuffer = ""
         If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
    With MSComm1
        .CommPort = 8
        .RTSEnable = True
        .RThreshold = 1
        .PortOpen = True
       .Output = "AT+CUSD=1," & Chr(34) & "*222#" & Chr(34) & ",15" & vbCrLf
    End With
End Sub
 
Private Sub MSComm1_OnComm()
 
On Error Resume Next
strBuffer = strBuffer & MSComm1.Input
    If InStr(1, strBuffer, ",15") Then
        Dim s() As String
        s = Split(strBuffer, vbCrLf)
        Dim I As Integer
        For I = 0 To UBound(s)
            If InStr(1, s(I), "+CUSD") Then
                X = s(I)
            End If
        Next
    End If
    If X <> "" Then
       s = Split(X, ",")
Label1.Caption = Mid$(s(1), 2, Len(s(1)) - 2)
    End If
 
End Sub