1 Konuyu açan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Konu: Http'ye Post

urlx="http://77.245.145.69/api_v1/?content=get_post&type=send_sms_non_senderid&user=user&pass=pass&msg=mesaj&numbers=505XXXXXXX&flash=0&date=&send_id=1"
               
lcoiex=CreateObject('internetexplorer.application')
lcoiex.navigate(urlx)
lcoiex.visible=.F.

Yukarıdaki şekilde kısa sms gönderiyorum. Başarılı ise 00, başarısız ise 01 kodu oluşuyor. Bu gönderim sonrası gelen 00 veya 001 değerini nasıl yakalayabilirim. Eğer visible degeri T olursa explarer açılıyor ve gelen kodu orada görebiliyorum. Ancak ben Explorer açılmadan o kodu yakalamak istiyorum.

2 Cevaplayan KONURALP

  • KONURALP
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 4,969

Re: Http'ye Post

merhaba,
ben daha önce turatel , jetsms , aytel firmalarına    web üzerinden sms göndermek için
yazılım yaptım ama c# da

hiç foxda denemedim

kolay gelsin

3 Cevaplayan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Re: Http'ye Post

Eğer visible T olursa browser içinde gelen sonucu görebiliyorum. F olduğunda sonucu almak istiyorum.

4 Cevaplayan Aligocmen

  • Aligocmen
  • Aligocmen
  • Uzman Üye
  • Offline
  • Yer: Manisa
  • Kayıt Tarihi: 30.01.2007
  • İleti: 158

Re: Http'ye Post

Selam,

Bir süre önce Çetin in gönderdiği bir örneği sana uyarladım. Umarım işine yarar.

Visual Fox Pro
Public oForm

oForm = Createobject('htmForm')

RELEASE oForm    

WAIT WINDOW "Lütfen bekleyin" TIMEOUT 5

Define Class htmForm As Form

    Top = 0

    Left = 0   

    Height = 600

    visible = .f.

    Width = 900

    DoCreate = .T.

    Caption = "SMS GÖNDER"

    Name = "Form1"

    WindowType = 1

    cHTML = ""

    FirstTime = .T.

    Add Object htmlviewer As OleControl With ;

        Height = 600, ;

        Width = 900, ;

        Anchor=15, ;

        OleClass = 'Shell.Explorer'

 

    Procedure Init

    Lparameters tcUrl

    With Thisform.htmlviewer

        .Navigate2('http://77.245.145.69/api_v1/?content=get_post&type=send_sms_non_senderid&user=user&pass=pass&msg=mesaj&numbers=505XXXXXXX&flash')

        Do While .ReadyState # 4

        Enddo

    Endwith

    Endproc

    Procedure Destroy

    Local loDocument

    loDocument = Thisform.htmlviewer.Object.Document

    loHtml = loDocument.Body.InnerText

    =Strtofile(loHtml,"c:\sonuc.txt")

    Endproc

Bu kod Serverden dönen sonucu =Strtofile(loHtml,"c:\sonuc.txt") bilgisayarına Text olarak indiriyor. bu texti işleyerek dönen sonucu yorumlayabilirsin.

5 Cevaplayan smentes

  • smentes
  • smentes
  • Uzman Üye
  • Offline
  • Yer: Denizli
  • Kayıt Tarihi: 01.09.2006
  • İleti: 389

Re: Http'ye Post

Ali bey teşekkürler. İstediğim buydu.