22/05/14 14:22
Giulia006
Salve gente )
Sto creando un Speditore di SMS ,
Come faccio a mettere un limite ? ovvero dopo 5 messaggi spediti , anche nella prossima apertura il programma non funziona .
il testo (sono stati spediti il limite , ecc) si attiva dopo che sono stati spediti 2 messaggi , vorrei che una volta che da quel messaggio non faccia spedire altri messaggi quindi che il codice sotto non venga attivato ! , grazie
sto utilizzando questa dll
Imports TrialCounter.MainTrial
ecco il codice sorgente
Sto creando un Speditore di SMS ,
Come faccio a mettere un limite ? ovvero dopo 5 messaggi spediti , anche nella prossima apertura il programma non funziona .
il testo (sono stati spediti il limite , ecc) si attiva dopo che sono stati spediti 2 messaggi , vorrei che una volta che da quel messaggio non faccia spedire altri messaggi quindi che il codice sotto non venga attivato ! , grazie
sto utilizzando questa dll
Imports TrialCounter.MainTrial
ecco il codice sorgente
MsgBox(Attivazione(2, "Sono stati spediti il limite massimo di messaggi , acquistare un nuovo paccheto per continuare", False)) ' il testo sopra (sono stati spediti il limite , ecc) si attiva dopo che sono stati spediti 2 messaggi , vorrei che una volta che da quel messaggio non faccia spedire altri messaggi quindi che il codice sotto non venga attivato ! , grazie ' 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")
Ultima modifica effettuata da Giulia006 22/05/14 15:16
aaa