ผู้เขียน หัวข้อ: [VB.Net] แจกโค้ดฟรีการล็อคอินเข้าเฟซบุ๊คด้วย VB.Net (2010)  (อ่าน 388 ครั้ง)

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
บทความนี้ก็ใช้หลักการวิธีคิดแบบบ้านๆอีกแล้ว หรือเรียกได้ว่าระดับขั้นพื้นฐาน โดยไม่อาศัย Facebook API เข้ามาช่วยเหลือแต่ประการใดครับพี่น้อง นั่นคืออาศัยการอ่านค่าเอกสาร HTML (HyperText Markup Language) ซึ่งก็เป็น Text File ธรรมดาๆนี่แหละครับ ซึ่งหากให้พูดหรูๆหน่อยมันก็คือ Tag ในเอกสาร HTML นั่นเอง ดังนั้นเราจึงทำการค้นหาคำ (บางคำ) จากช่องที่กรอกข้อมูลเข้าไปใน Tag ที่ว่ามานี้ แล้วเลือก Element ตัวนั้นๆนำมาใช้งาน ผ่านทาง Visual Basic .NET


การล็อคอิน (เฟซบุ๊ค Mr.Common หรือนายคำหม่อน) ไปการสนทนา (Chat) แบบระบุเพื่อนด้วย ID


คลิ๊กเมาส์ขวาแล้วเลือก View Source


ค้นหาด้วยคีย์เวิร์ด email เราก็จะเอา Element ในส่วนนี้แหละมาใช้งาน

มาดูโค้ดกันเถอะ

' / ----------------------------------------------------------------------------------------
' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
' / eMail : thongkorn@hotmail.com
' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
' / Facebook: http://www.facebook.com/g2gnet (For Thailand)
' / Facebook: http://www.facebook.com/commonindy (For International)
' / Purpose: Log on facebook via web browser in VB.Net
' / Microsoft Visual Basic .NET (2010)
' / ----------------------------------------------------------------------------------------

Public Class frmFacebook

    Private Sub frmFacebook_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Me.CenterToScreen()
        PictureBox1.BackColor = Color.FromArgb(69, 97, 157)
        Label1.Parent = Me.PictureBox1
        Label2.Parent = Me.PictureBox1
        Label3.Parent = Me.PictureBox1
        Label1.BackColor = Color.Transparent
        Label2.BackColor = Color.Transparent
        Label3.BackColor = Color.Transparent

        txtUsername.Text = ""
        txtPassword.Text = ""
        ' Goto Wall page
        WebBrowser1.Navigate("https://www.facebook.com/")
        ' Goto messenger all friends
        'WebBrowser1.Navigate("https://www.facebook.com/messages")

        ' Goto Messenger specifically friend
        'WebBrowser1.Navigate("https://www.facebook.com/messages/ID_of_Your_Friend")

    End Sub

    Private Sub btnLogin_Click(sender As System.Object, e As System.EventArgs) Handles btnLogin.Click
        If txtUsername.Text = "" Or txtPassword.Text = "" Then Return
        Try
            With WebBrowser1
                .Document.GetElementById("Email").SetAttribute("value", txtUsername.Text)
                .Document.GetElementById("pass").SetAttribute("value", txtPassword.Text)
                .Document.GetElementById("loginbutton").InvokeMember("click")
            End With
        Catch ex As Exception
            'MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub frmFacebook_FormClosed(sender As System.Object, e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        Me.Dispose()
        Application.Exit()
    End Sub

    Private Sub frmFacebook_Resize(sender As Object, e As System.EventArgs) Handles Me.Resize
        ' / Resize my old styles ... LOL
        WebBrowser1.Width = Me.Width
        WebBrowser1.Height = Me.Height - PictureBox1.Height
        PictureBox1.Width = Me.Width
        btnLogin.Location = New Point(PictureBox1.Width - btnLogin.Width - 20, 30)
        txtPassword.Location = New Point(PictureBox1.Width - btnLogin.Width - txtPassword.Width - 30, 32)
        txtUsername.Location = New Point(PictureBox1.Width - btnLogin.Width - txtPassword.Width - txtUsername.Width - 40, 32)
        Label1.Location = New Point(txtUsername.Location.X, 12)
        Label2.Location = New Point(txtPassword.Location.X, 12)
    End Sub
End Class

Conslusion: หวังว่าคงพอจะได้มุมมองและแนวคิดไอเดียใหม่ๆ นำไปประยุกต์ใช้งานกันบ้างน่ะครับ


บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด

ออฟไลน์ indyzbinary

  • Newbie
  • *
  • กระทู้: 1
Re: [VB.Net] แจกโค้ดฟรีการล็อคอินเข้าเฟซบุ๊คด้วย VB.Net (2010)
« ตอบกลับ #1 เมื่อ: กรกฎาคม 20, 2016, 08:37:03 pm »
แนะนำ ใช้ การหา ID tag html โดยใช้  Inspect ใน Chrome ครับ คลิกขวา แล้ว เลือก Inspect  หรือ  Ctrl+Shift+l


บันทึกการเข้า

ออฟไลน์ ทองก้อน ทับทิมกรอบ

  • Administrator
  • *****
  • กระทู้: 245
  • เพศ: ชาย
  • Webmaster G2GNet
Re: [VB.Net] แจกโค้ดฟรีการล็อคอินเข้าเฟซบุ๊คด้วย VB.Net (2010)
« ตอบกลับ #2 เมื่อ: กรกฎาคม 20, 2016, 10:32:26 pm »
แนะนำ ใช้ การหา ID tag html โดยใช้  Inspect ใน Chrome ครับ คลิกขวา แล้ว เลือก Inspect  หรือ  Ctrl+Shift+l

คืออันนี้ผมใช้ IE ทดสอบน่ะครับ และโดยส่วนใหญ่ (หรือเฉพาะพวกคนรุ่นเก่าๆก็ไม่รู้ 5555+) น่าจะนิยมแบบคลิ๊กเมาส์ขวาเพื่อ View Source มากกว่าครับผม ...

บันทึกการเข้า
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด