[alex]

Χριστός Ανέστη σε όλη την κοινότητα,
στους φίλους Τάσο Χρόνια Πολλά φίλε μου,
επίσης Γιώργο τα φιλιά στη Κύπρο.
Κοίταξε το συνημμένο αυτό που σου στέλνω αν σου δουλεύει αφού πρώτα βάλεις το όνομα χρήστη και κωδικό πρόσβασης της εταιρίας που αγοράζεις αλλά και τα αντίστοιχα website της εταιρίας που αγοράζεις πάλι τα δίνει δωρεάν το πρώτο είναι για την αποστολή μηνυμάτων και το δεύτερο για το υπόλοιπο μηνυμάτων. Μπορεί να σου δουλέψει. Αν βάλεις πολλά κινητά με διαχωριστικό ένα κομμα τότε θα μπορείς να στέλνεις αυτόματα πολλαπλά μηνύματα αλλα στον αποστολέα μπορείς να βάλεις και νούμερο και κείμενο.Οπότε δεν φαίνεται ο παραλήπτης του μηνύματος
Πρόσθεσε και το παρακάτω κώδικα: Άλλαξε Reference από το Microsoft XML V.6 σε Microsoft XML V,3

Private Sub btn1SendSMS_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

    Dim data As String
    
    data = "username=" & Nz(Me.txtUsername) & _
           "&password=" & Nz(Me.txtPassword) & _
           "&from=" & Nz(Me.txtFrom) & _
           "&to=" & Nz(Me.txtTo) & _
           "&message=" & URLEncode(Nz(Me.txtMessage))
    
    Dim Result As String
    
    Result = WinHTTPPostRequest(Me.txtWebsite2, data)
    Me.Credits = Result
    'MsgBox result
End Sub]

' Επικύρωση πεδίων μηνυμάτων(SMS) (Validate SMS fields)
Private Function ValidateSMSFields() As Boolean
    If IsEmptyStr(txtMessage) Then MsgBox "Παρακαλώ εισάγετε το κείμενο του μηνύματος.", 
    vbExclamation: Exit Function
    If IsEmptyStr(txtTo) Then MsgBox "Παρακαλώ εισάγετε τον αριθμό τηλεφώνου του 
    παραλήπτη.", vbExclamation: Exit Function
    ValidateSMSFields = True
End Function