Excel Forum

snasui wrote: เท่าที่ดูก็อ้างอิงชื่อปุ่มบนเว็บที่แนบมาถูกต้องแล้ว ส่วนที่ Login ไม่ได้นั้นไม่สามารถตรวจสอบให้ได้เนื่องจากไม่มี Project ไม่ทราบว่ามี Error ใดหรือไม่ครับ

snasui wrote: ผมดาวน์โหลดไม่ได้ ติด Permission ไม่ทราบว่า Project มีขนาดเท่าใด ตัดเอามาเฉพาะงานนี้ก็พอครับ

Imports System.Net
Imports System.IO
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim req As HttpWebRequest = WebRequest.Create("http://bot.whatismyipaddress.com")
        Dim res As HttpWebResponse = req.GetResponse
        Dim stream As Stream = res.GetResponseStream
        Dim sr As New StreamReader(stream)
        TextBox3.Text = sr.ReadToEnd
    End Sub
End Class

snasui wrote: Project ที่แนบมามีแต่ Code ด้านล่างเท่านั้น

Code: Select all

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://ini3netcafe.mygame.in.th/")
    End Sub
End Class

ช่วยแนบ Code สำหรับการ Login, Code แสดง IP ที่บอกว่าเป็นปัญหามาใน Project ด้วยครับ

thanasit55 wrote:

snasui wrote: Project ที่แนบมามีแต่ Code ด้านล่างเท่านั้น

Code: Select all

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://ini3netcafe.mygame.in.th/")
    End Sub
End Class

ช่วยแนบ Code สำหรับการ Login, Code แสดง IP ที่บอกว่าเป็นปัญหามาใน Project ด้วยครับ

โอ้ ขอภัยด้วยครับอาจารย์ แนบไฟลใหม่ครับในส่วนของ IP อยากให้มันขึ้นแบบในรูปนี้ครับ

Dim res As HttpWebResponse = req.GetResponse

snasui wrote: กรณีการ Login น่าจะใช้ Code นี้ได้

Code: Select all

WebBrowser1.Document.GetElementById("btn-login").InvokeMember("click")

แต่เท่าที่ลองก็ไม่แสดงผลอะไร เดี๋ยวหากมีเวลาแล้วจะหาคำตอบให้รวมทั้งกรณี Error ด้วยครับ

thanasit55 wrote:ในส่วนของ IP ที่อยากให้แสดงเป็น 4 textbox นี่สามารถทำได้หรือไม่ครับ

Dim ipVar as variant
dim txtIP as string
ipVar = split(txtIP,".")
tBox1 = ipVar(0)
tBox2 = ipVar(1)
tBox3 = ipVar(2)
tBox4 = ipVar(3)

snasui wrote:

thanasit55 wrote:ในส่วนของ IP ที่อยากให้แสดงเป็น 4 textbox นี่สามารถทำได้หรือไม่ครับ

ทำได้ครับ

ตัวอย่าง Code

Code: Select all

Dim ipVar as string
dim txtIP as string
ipVar = split(txtIP,".")
tBox1 = ipVar(0)
tBox2 = ipVar(1)
tBox3 = ipVar(2)
tBox4 = ipVar(3)

โดย txtIP คือค่าตัวแปรแทนหมายเลข IP ส่วน tBox1, tBox2, tBox3, tBox4 คือ TextBox ที่รับค่า IP แต่ละค่าที่แบ่งออกมาแล้ว

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim req As HttpWebRequest = WebRequest.Create("http://bot.whatismyipaddress.com")
        Dim res As HttpWebResponse = req.GetResponse
        Dim stream As Stream = res.GetResponseStream
        Dim sr As New StreamReader(Stream)
        TextBox3.Text = sr.ReadToEnd
        Dim ipVar As String
        Dim textbox3 As String
        ipVar = Split(textbox3, ".")
        TextBox4 = ipVar(0)
        TextBox5 = ipVar(1)
        TextBox6 = ipVar(2)
        TextBox7 = ipVar(3)
    End Sub

snasui wrote: ตัวอย่าง Code สำหรับการแสดง IP ครับ

ส่วนของ Site ที่แนบมานั้นเกิด Error ไม่สามารถแสดง IP ได้

Code: Select all

Try
	Dim codeProjectHost As String = "www.google.com" '"http://www.ini3netcafe.mygame.in.th/"
	Dim ips As IPAddress() = Dns.GetHostAddresses(codeProjectHost)
	Dim t As String = String.Empty
	Dim ipSeparate() As String
	For Each ip As IPAddress In ips
		t += t & ip.ToString()
		Exit For
	Next
	TextBox3.Text = t
	ipSeparate = Split(t, ".")
	TextBox4.Text = ipSeparate(0)
	TextBox5.Text = ipSeparate(1)
	TextBox6.Text = ipSeparate(2)
	TextBox7.Text = ipSeparate(3)
Catch ex As Exception
	MessageBox.Show(ex.Message)
End Try

ด้านล่างเป็นภาพการเพิ่ม TextBox เข้ามารับค่า IP ที่แบ่งออกเป็น 4 ชุดครับ

snasui wrote: ตัวอย่าง Code สำหรับการคลิกปุ่มเพื่อ Login ครับ

Code: Select all

If TextBox1.Text = "" Then
	MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = "" Then
	MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
Else
	WebBrowser1.Document.GetElementById("inputID").SetAttribute("value", TextBox1.Text)
	WebBrowser1.Document.GetElementById("inputPW").SetAttribute("value", TextBox2.Text)
	Try
		Dim theElementCollection As HtmlElementCollection
		theElementCollection = WebBrowser1.Document.All
		For Each curElement As HtmlElement In theElementCollection
			If curElement.GetAttribute("OuterHtml").Contains("btn-login.png") Then
				curElement.InvokeMember("click")
				'MsgBox("it does the job")
			End If
		Next
	Catch exc As Exception
		MsgBox(exc.Message)
	End Try
End If

thanasit55 wrote:

snasui wrote: ตัวอย่าง Code สำหรับการคลิกปุ่มเพื่อ Login ครับ

Code: Select all

If TextBox1.Text = "" Then
	MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = "" Then
	MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
Else
	WebBrowser1.Document.GetElementById("inputID").SetAttribute("value", TextBox1.Text)
	WebBrowser1.Document.GetElementById("inputPW").SetAttribute("value", TextBox2.Text)
	Try
		Dim theElementCollection As HtmlElementCollection
		theElementCollection = WebBrowser1.Document.All
		For Each curElement As HtmlElement In theElementCollection
			If curElement.GetAttribute("OuterHtml").Contains("btn-login.png") Then
				curElement.InvokeMember("click")
				'MsgBox("it does the job")
			End If
		Next
	Catch exc As Exception
		MsgBox(exc.Message)
	End Try
End If

ขอบคุณครับอาจารย์ ขอนำไปทดสอบแล้วจะแจ้งผลนะครับ
ส่วนของการแสดง IP ผมติด error ตรงคำว่า IPaddress() ครับ มันแจ้งว่า type 'IPaddress' is not defined ผมต้องไปกำหนดอะไรเพิ่มเติมหรอครับ

ขอบคุณอาจารย์มากครับผม

ปล.code login สามารถทำงานได้ตามต้องการแล้วครับ

Imports System.Net
Imports System.IO

thanasit55 wrote:อาจารย์ครับ ในส่วนของ IP ยังไม่ตรงครับ มันเป็น DNS IP หรือปล่าวครับเพราะ IP ในโปรแกรมกับ IP ของผมไม่ตรงกันครับ

snasui wrote:

thanasit55 wrote:อาจารย์ครับ ในส่วนของ IP ยังไม่ตรงครับ มันเป็น DNS IP หรือปล่าวครับเพราะ IP ในโปรแกรมกับ IP ของผมไม่ตรงกันครับ

Code ที่ผมเขียนเป็นตัวอย่างไปเป็น IP ของ Google สังเกตจาก Dim codeProjectHost As String = "[color=#FF4000]www.google.com[/color]" '"http://www.ini3netcafe.mygame.in.th/" ครับ ส่วนของ Web ที่ให้มานั้นไม่สามารถที่จะดึง IP มาด้วย Code ที่ผมเขียนไปได้ ซึ่งผมได้แจ้งเอาไว้แล้วเช่นกัน อันนี้ผมคงช่วยไม่ได้ คงต้องลองค้นดูเองว่าเกิดจากปัญหาใดครับ