27/05/14 22:38
MpxOS
Ciao, secondo me dovresti creare un impostazione di tipo integer e poi ecco il codice:
Non so se funziona comunque prova e fammi sapere.
If My.Settings.iniviati = 5 Then MsgBox(Attivazione(2, "Sono stati spediti il limite massimo di messaggi , acquistare un nuovo paccheto per continuare", False)) Else ' dichiara la variabile per accedere al servizio Dim MyService As ServiceReference1.ManageSmsClient = New ServiceReference1.ManageSmsClient() ' dichiara le variabili necessarie per l'invio sms Dim MyGroups(0) As String Dim MyRnd As New Random Dim MyResult As ServiceReference1.sendResponse ' dichiara l'array contenente i destinatari Dim MyMsisdn_array(0) As ServiceReference1.msisdn MyMsisdn_array(0) = New ServiceReference1.msisdn() MyMsisdn_array(0).customerId = "destinatario" MyMsisdn_array(0).number = txtDest.Text ' riempe la struttura necessaria richiesta dal metodo send() Dim MySendPayload As ServiceReference1.sendPayLoad = New ServiceReference1.sendPayLoad MySendPayload.username = "username" MySendPayload.password = "psw" MySendPayload.from = txtSender.Text MySendPayload.dateTime = "" MySendPayload.text = txtMessage.Text MySendPayload.groups = MyGroups MySendPayload.transactionId = MyRnd.Next() MySendPayload.numbers = MyMsisdn_array ' chiama il metodo send() del servizio MyResult = MyService.send(MySendPayload) MsgBox("spedito") My.Settings.inviati = My.Settings.inviati +1 End If
Non so se funziona comunque prova e fammi sapere.
aaa