Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
3
Yazılar
2
Üyeler
0
Reactions
1,381
Görüntüleme
Konu başlatıcı
C# İLE KENDİMCE BİR PROGRAM YAZMAYA ÇALIŞIYORUM. İNTERNETTEN BİR SMS FİRMASININ
APİ KODLARINI PROGRAMIMA UYARLAMAYA ÇALIŞIYORUM.
APİ KODLARINI PROGRAMIMA UYARLAMAYA ÇALIŞIYORUM.
DAHA ÖNCE ACCESS İLE
BİR PROGRAM YAZMIŞTIM, ONA UYARLADIM. FAKAT C# TA TAKILDIM KALDIM. ACCESS
KODLARI AŞAĞIDADIR. BUNU C#’A GÖRE NASIL UYARLAYABİLİRİM? YARDIMCI OLURSANIZ SEVİNİRİM.
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
Gönderildi : 01/10/2014 17:03
Konu başlatıcı
YARDIMCI OLABİLECEK KİMSE YOK GALİBA. YİNEDE TEŞEKKÜR EDERİM.
Gönderildi : 08/10/2014 17:38
Hocam yardım edelımde sen direk access kodları paylaşmıssın c# kısmında takıldıgın yeri paylaşırsan yardımcı olmaya calısalım
saygılarımla
ProfectSoft Yazılım ve Danışmanlık Hizmetleri
LogPusher & Bifyou E-Commerce System
www.profectsoft.com
Gönderildi : 08/10/2014 17:40
