[VIDEO] Pusher API Notification On Website

Xin chào mọi người, bài viết này mình đã chia sẽ rất lâu, gần 10 năm về trước. Về cách thức tạo cho mình một trang website để gửi thông tin từ website này tới website đích và ngược lại, mình viết một chương trình WINDOWS để phục vụ tiện cho những anh chị nào có thông tin gì hay gửi lên kịp thơi, để mọi người có thể đón nhận nó.

Phía trên là hình ảnh giao diện, và lúc đó mình mới bước chân vào blogger cũng không biết tên miền gì cho phù hợp nên mình đã chọn tên miền đúng với cái tên ở nhà của mình là BỜM nên mình mua luôn tên miền BOMKHUNG.COM

Bài mình viết từ khi bắt đầu. https://bomkhung.blogspot.com/2015/07/visual-basic-pusher-api-posted.html.

Và mình viết ra chương trình này là lấy theo ý tưởng của NamCoder về bài viết "Hướng dẫn Pusher - Viết ứng dụng thời gian thực" mình đã lên ý tưởng và phát triển nó ra thành Client sử dụng trên Windows, Nhìn vậy thôi chứ mình dùng hàm HTTP Request.

Bên dưới là đoạn code mình viết cho chương trình máy tính.

Dim postData As String = "http://domain.com/execute.php&message=" & TextBox1.Text & "&username=" & TextBox3.Text
            Dim tempCookies As New CookieContainer
            Dim encoding As New UTF8Encoding
            Dim byteData As Byte() = encoding.GetBytes(postData)

            Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("http://pusher.16mb.com/execute.php"), HttpWebRequest)
            postReq.Method = "POST"
            postReq.KeepAlive = True
            postReq.CookieContainer = tempCookies
            postReq.ContentType = "application/x-www-form-urlencoded"
            postReq.Referer = "http://pusher.16mb.com/user.html"
            postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
            postReq.ContentLength = byteData.Length

            Dim postreqstream As Stream = postReq.GetRequestStream()
            postreqstream.Write(byteData, 0, byteData.Length)
            postreqstream.Close()
            Dim postresponse As HttpWebResponse

            postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
            tempCookies.Add(postresponse.Cookies)
            logincookie = tempCookies
            Dim postreqreader As New StreamReader(postresponse.GetResponseStream())
            Dim thepage As String = postreqreader.ReadToEnd
            TextBox3.Enabled = True

Nhìn vào hình ảnh và đoạn code bên trên mọi người cũng biết thêm gì vào chương trình rồi chứ.

Bên dưới là VIDEO DEMO.

Bài viết này mình muốn chia sẽ cho mọi người được biết về việc gửi thông tin PUSH NOTIFICATIONS hiện tại và lúc đó còn không xa lạ gì nữa, và lúc đó nếu bạn nắm bắt được thời đại đi lên thế nào thì có thể áp dụng vào trang website của bản để không còn bị gò bó ở việc thông báo mới.

Qua bài viết này mình cũng xin lỗi mọi người vì bộ mã nguồn này vì sự cố máy chủ mà mình đã mất toàn bộ dữ liệu hệ thống nên không còn bộ mã nguồn này.

Cảm ơn các bạn đã xem.