c# sms için api uyarlama

 SMS FİRMASI İLE GÖRÜŞTÜM, BANA ŞU CEVABI VERDİLER.

 "Bizim SMS servisimize ilişkin API kodlarımız sadece
basit HTTP FORM POST mantığı ile çalışıyor. Yani siz csharp ile bir web
sayfasına bir iletişim formuna nasıl içerik gönderiyorsanız; o şekilde bizim
API'mize de SMS gönderebilirsiniz."

 

Private Sub Komut326_Click()

' Bağlantıyı aç

    Dim strYolla

    strYolla = "kullanici=" & URLEncode(Metin327) & _

                "&parola=" & URLEncode(Metin329) &
_

                "&telefonlar=" & Metin333 & _

                "&mesaj=" & URLEncode(Metin323) & _

                "&gonderen=" & URLEncode(Metin331)

  

    Dim xmlhttp As Object

    Dim cevap As String

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

   

    xmlhttp.Open "POST", " http://api.pusulasms.com/toplusms.as p",
False

    xmlhttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"

   

    ' Postala

    xmlhttp.send strYolla

   

    cevap = xmlhttp.ResponseText

    Dim satirlar() As String, s As Integer

    satirlar = Split(cevap, vbCrLf)

   

    Dim gonderildi As Boolean

    gonderildi = False

   

    Dim Hata As String

    Hata = ""

   

    For s = LBound(satirlar) To UBound(satirlar)

      strPusulaSMS = PusulaSMS(satirlar(s))

      If strPusulaSMS = "OK" Then

        gonderildi = True

      Else

        Hata = Hata & vbCrLf & strPusulaSMS

      End If

    Next

 

    'hata = Replace(hata, vbCrLf, "<br>")

   

    Set xmlhttp = Nothing

   

    If gonderildi Then

      MsgBox "Mesajınız " & adet & " telefona başarıyla
gönderildi.", vbInformation

    Else

      MsgBox Hata, vbExclamation

    End If

End Sub

Public Function PusulaSMS(ByVal satir As String) As String

  Dim strCevap

  dortlu = left(Trim(satir), 4)

  strCevap = Mid(satir, 6)

 

  Select Case dortlu

    Case "3409"

      PusulaSMS = "OK"

    Case Else

      PusulaSMS = strCevap

  End Select

 

End Function

Public Function URLEncode(StringToEncode As String, Optional _

   ArtiKullan As Boolean = False) As String

Dim TempAns As String

Dim CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToEncode)

  Select Case Asc(Mid(StringToEncode, CurChr, 1))

    Case 48 To 57, 65 To 90, 97 To 122

      TempAns = TempAns & Mid(StringToEncode, CurChr, 1)

    Case 32

      If ArtiKullan = True Then

        TempAns = TempAns & "+"

      Else

        TempAns = TempAns & "%" & Hex(32)

      End If

   Case Else

         TempAns = TempAns & "%" & _

              right("00" & Hex(Asc(Mid(StringToEncode, _

              CurChr, 1))), 2)

End Select

  CurChr = CurChr + 1

Loop

URLEncode = TempAns

End Function

Public Function URLDecode(StringToDecode As String) As String

Dim TempAns As String

Dim CurChr As Integer

CurChr = 1

Do Until CurChr - 1 = Len(StringToDecode)

  Select Case Mid(StringToDecode, CurChr, 1)

    Case "+"

      TempAns = TempAns & " "

    Case "%"

      TempAns = TempAns & Chr(Val("&h" & _

         Mid(StringToDecode, CurChr + 1, 2)))

       CurChr = CurChr + 2

    Case Else

      TempAns = TempAns & Mid(StringToDecode, CurChr, 1)

  End Select

CurChr = CurChr + 1

Loop

URLDecode = TempAns

End Function

End Function

Private Sub Komut336_Click()

Dim strYolla

    strYolla = "kullanici=" & URLEncode(Metin327) & _

                "&parola=" & URLEncode(Metin329)

   

    Dim xmlhttp As Object

    Dim cevap As String

    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")

   

    xmlhttp.Open "POST", " http://api.pusulasms.com/kontorsms.as p",
False

    xmlhttp.setRequestHeader "Content-Type",
"application/x-www-form-urlencoded"

   

    ' Postala

    xmlhttp.send strYolla

   

    cevap = xmlhttp.ResponseText

        Dim satirlar() As String, s As Integer

    satirlar = Split(cevap, vbCrLf)

   

    Dim gonderildi As Boolean

    gonderildi = False

   

    Dim Hata As String

    Hata = ""

   

    For s = LBound(satirlar) To UBound(satirlar)

      strPusulaSMS = PusulaSMS(satirlar(s))

      If strPusulaSMS = "OK" Then

        gonderildi = True

      Else

        Hata = Hata & vbCrLf & strPusulaSMS

      End If

    Next

 

    'hata = Replace(hata, vbCrLf, "<br>")

   

    Set xmlhttp = Nothing

   

    If gonderildi Then

      MsgBox "Mesajınız " & adet & " telefona başarıyla
gönderildi.", vbInformation

    Else

      MsgBox Hata, vbExclamation

    End If

End Sub