Vb

Fermé
Messages postés
2
Date d'inscription
mardi 9 avril 2013
Statut
Membre
Dernière intervention
10 avril 2013
-
Messages postés
2
Date d'inscription
mardi 9 avril 2013
Statut
Membre
Dernière intervention
10 avril 2013
-
Bonjour,
svp pouvez vous m'aidez pour trouver l'interface graphique pour ce code vb6
//
// if COM3 is shown in device manager then put COM4 in foll statement
//
Dim SMSEngine As New SMSCOMMS("COM4")

'the port needs to be initialised

SMSPort = New SerialPort
With SMSPort
.PortName = COMMPORT
.BaudRate = 19200
.Parity = Parity.None
.DataBits = 8
.StopBits = StopBits.One
.Handshake = Handshake.RequestToSend
.DtrEnable = True
.RtsEnable = True
.NewLine = vbCrLf
End With


'this is the set of AT commands to be written on serial port

SMSPort.WriteLine("AT")
'set command message format to text mode(1)
SMSPort.WriteLine("AT+CMGF=1" & vbCrLf)
'set service center address (which varies for service providers (idea, airtel))
SMSPort.WriteLine("AT+CSCA=""+21620657688""" & vbCrLf)
' enter the mobile number whom you want to send the SMS
SMSPort.WriteLine("AT+CMGS= + TextBox1.text + " & vbCrLf)
_ContSMS = False
SMSPort.WriteLine("+ TextBox1.text +" & vbCrLf & Chr(26)) 'SMS sending

Dim i As Integer
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click

SMSEngine.Open() 'open the port
SMSEngine.SendSMS() 'send the SMS

End Sub

2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 197
Bonjour,
Déjà que...
Private Sub Button1_Click(ByVal sender As System.Object, 
ByVal e As System.EventArgs) Handles Button1.Click

C'est pas du VB6 mais du VB.Net, probablement VB2010
Et tu veux un graphique de quoi ?
A+
Messages postés
2
Date d'inscription
mardi 9 avril 2013
Statut
Membre
Dernière intervention
10 avril 2013

oui mais je cherche une interface graphique pour exécuter ce programme