Excel Forum

ใน source ของหน้าเว็บไม่ได้แสดงชื่อของปุ่มออกมาเลยครับ

:D กรณีนี้ผมก็ช่วยไม่ได้เช่นกันครับ เพราะไม่ทราบว่า Object มันคืออะไร

แนวทางที่น่าจะลองทำต่อก็คงต้อง Loop เข้าไปถึง Object ของมันแต่ละตัวหากเจอตัวที่ใช่ค่อยคลิกครับ สำหรับตัวอย่างการ Loop ก็ตามที่ผมแนะนำไปแล้วในตอนคลิกปุ่ม Login ครับ

ขอบค ...

:D ได้ลองปรับใช้ Code ที่โพสต์มาในโพสต์แรกแล้วยังครับ

ผมยกทั้งหมดมาอีกทีตามด้านล่าง

Public Class Form1

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As ...

อาจารย์ครับ รบกวนถามต่อจากใน PM ครับ code ผมลองปรับจากของอาจารย์ดูจาก
Try
Dim theElementCollection As HtmlElementCollection
theElementCollection = WebBrowser2.Document.All
For Each curElement As HtmlElement In theElementCollection
If curElement.GetAttribute("OuterHtml").Contains("btn-update abs ...

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

:D Code ที่ผมเขียนเป็นตัวอย่างไปเป็น IP ของ Google สังเกตจาก Dim codeProjectHost As String = "[color=#FF4000]www.google.com[/color]" '"http://www.ini3netcafe.mygame.in.th/" ครับ ส่วนของ ...

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

มันได้ IP 173.194.120.159 มาครับ ซึ่งของผมนั้นต้องขึ้นด้วย 49.xxx.xxx.xxx ครับ

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

If TextBox1.Text = "" Then
MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = "" Then
MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
Else
WebBrowser1.Document.GetElementById("inputID").SetAttribute("value ...

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

If TextBox1.Text = "" Then
MsgBox("กรุณาใส่ Username ก่อน", MsgBoxStyle.Critical)
ElseIf TextBox2.Text = "" Then
MsgBox("กรุณาใส่ Password ก่อน", MsgBoxStyle.Critical)
Else
WebBrowser1.Document.GetElementById("inputID").SetAttribute("value ...

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

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

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 ...

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

:D ทำได้ครับ

ตัวอย่าง Code

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 ...

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

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

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

ครับผม ขอบคุณอาจารย์มากครับ ผมก็ลองหา code จากหลายๆเว็บแล้วมันก็ไม่ทำงาน :flw: ตอนนี้ก็ทำหน้า ...

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

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 ...

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

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 ...

:D ผมดาวน์โหลดไม่ได้ ติด Permission ไม่ทราบว่า Project มีขนาดเท่าใด ตัดเอามาเฉพาะงานนี้ก็พอครับ
เดี๋ยวผมทำเป็น project ใหม่เลยดีกว่าครับให้เป็นแนวทางแก้ไขเอามาปรับใช้ครับ รบกวนอาจารย์หน่อยนะครับ ผมได้แนบไฟล์ไว้ให้แล้วนะครับ

อาจารย์สามารถเทสโดยการกดปุ่ม login ในหน้าเว็บดูได้นะครับโดยไม่ต้องใส่ ID ...

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

ไม่มี error ใดเกิดขึ้นเลยครับมันมีปัญหาตรงเวลากดที่ปุ่ม button1 แล้วใน WebBrowser1 ที่แทรกไว้ มันจะใส่ค่าของ ID กับ password ลงไปเค่น ...

สอบถามอาจารย์หน่อยครับพอดีไม่มีความรู้เรื่อง VB เลย พอดีอยากทำ Login web เลยดูคลิปตาม youtube แล้วลองทำตามดู ตามคลิปนี้ครับ
https://www.youtube.com/watch?v=zVJ9r3TrXPM
ตอนนี้ทำตามหมดติดปัญหาตรงที่ให้มันกดปุ่ม Login ครับ พอดีผมทำกับเว็บอื่นครับ เว็บ https://ini3netcafe.mygame.in.th/
ซึ่งในตัวปุ่ม ...

snasui wrote: ทั้งหมดที่กล่าวมานั้นไม่สามารถจัดการได้ครับ

กล่องข้อความนั้นไม่มี Option ให้ไปกำหนดสิ่งที่กล่าวมา ยกเว้นการแสดงปุ่ม แสดงข้อความเท่านั้นครับ

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

:D ช่วยอธิบายคำว่า "อยู่ตรงกลาง" ว่ามีลักษณะเป็นอย่างไร วาดเป็นภาพมาก็ได้ครับ

การใส่สีข้อความก็เช่นเดียวกัน ต้องการใส่สีข้อความไหน อย่างไร อธิบายเพิ่มเติมด้วยครับ

- ข้อความที่อยากให้อยู่ตรงกลางคือข้อความใน MsgBox ที่เด้งขึ้นมาหลังจากกดปุ่ม ครับ อยากให้มันเหมือนในรูปนี้ครับ(ใช้ paintตัดข ...

suka wrote:ใช้ ActiveWindow.Close แทน Application.Quit ไหมคะ

ได้แล้วครับขอบคุณมากครับ

ถามต่อครับ อยากให้ข้อความใน MsgBox ให้มันมาอยู่ตรงกลางแบบนี้มันสามารถทำได้ไหมครับ กับพวกใส่สีในข้อความ ครับ

ขอบคุณมากนะครับ

รบกวนอาจารย์หน่อยนะครับพอดีติดปัญหาการใช code เพื่อปิดตัวโปรแกรม excel ครับ เวลารัน code แล้ว มันจะไปปิดโปรแกรม excel อื่นๆ ด้วยครับ ผมอยากให้มันปิดแค่ตัวงาน นั้นๆแทนไปครับ เช่นเปิดงาน 3 งาน ชื่อ 1.xlsx 2.xlsm 3.xlsm Run code ที่ 2.xlsm ก็ให้มันปิดแค่ 2.xlsm ครับ ตัวอย่าง code ครับ

Sub saveexit ...

ขอสอบามว่าถ้าจะเลื่อน Cell ที่มีเลขตรงกับ A1 ให้เลื่อนขึ้นมาด้านบนโดยที่แถวบนสุดมีการตรึงแนวเอาไว้ เมื่อเปลี่ยนเลขใน Cell A1 ไปเลขใดก็ตาม 1-10 ให้ Cell ด้านล่างที่มีเลขตรงกลับ A1 เลื่อนขึ้นมาครับ ผมมีไฟล์แนบมาด้านล่าง ไม่ทราบว่ามันสามารถใช้สูตรเฉยๆ ไม่ใช้ VBA ได้หรือไม่ครับ ขอบคุณล่วงหน้าครับ

:D ...