| |
 |
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
|
กระทู้ #2360 [Vb] (จาก IP: 124.121.183.253)
Web Browser Control
ต้องการทราบคำสั่งของ Web Browser Control ในการนำข้อความจาก Textbox ของโปรแกรมเรา กรอกลงใน Textbox ของเว็บที่เราเปิด และคำสั่งในการคลิกลิ้ง ณ ตำแหน่งที่เรากำหนด ถ้าสะดวกขออีเมลล์ในการคุยปรึกษาหน่อยครับ ขอบคุณครับ
|
| จากคุณ
:
ลอง VB / sengjung99@ hotmail.com [2008-11-06 15:52:49]
|
|
ความคิดเห็น #27207 (จาก IP: 58.8.180.23)
<div id="signin"> <h2 class="ir"><em></em>Sign in</h2> <form action="/login/" method="post"> <input id="login-url" name="login[url]" type="hidden" value="/characters/"/><input id="login-urlError" name="login[urlError]" type="hidden" value="/account/?error=1"/> <fieldset><ul> <li class="row"><label for="login-username">Username <span class="req">*</span></label><input id="login-username" name="login[username]" type="text" class="TextBox" value=""/></li> <li class="row"><label for="login-password">Password <span class="req">*</span></label><input id="login-password" name="login[password]" type="password" class="TextBox Password" value=""/></li> <li class="but"><input name="login[submit]" type="image" class="img" alt="Login »" src="/_pub/img/hp/but-login.png"/></li> </ul></fieldset> </form> <p><a href="/account/password-reset/">ACCOUNT TROUBLE?</a></p> </div>
--------------------------------
WebBrowser1.Document.GetElementById("login-username").SetAttribute("Value", Information.txtuser.Text)WebBrowser1.Document.GetElementById("login-password").SetAttribute("Value", Information.txtpass.Text) |
| จากคุณ
:
sup98 [2008-11-07 00:41:17]
|
|
ความคิดเห็น #27209 (จาก IP: 124.122.227.10)
| คำสั่งในการคลิกลิ้ง ณ ตำแหน่งที่เรากำหนด ล่ะครับ พอรู้ไหมครับว่าต้องใช้คำสั่งอะไรครับ |
| จากคุณ
:
ลอง VB [2008-11-08 22:41:44]
|
|
ความคิดเห็น #27210 (จาก IP: 58.8.198.131)
| ผมมีโค้ดที่เป็น delphi ครับแต่ผมขาย ส่วน vb ยังไม่เคยเขียนครับ แต่สามารถแปลงมาได้ครับ สนใจจ้างพัฒนาติดต่อมาได้ครับ |
| จากคุณ
:
sup98 [2008-11-09 10:52:31]
|
|
ความคิดเห็น #27217 (จาก IP: 124.121.193.194)
| ขายเท่าไรคับ |
| จากคุณ
:
ลอง VB [2008-11-13 20:12:30]
|
|
ความคิดเห็น #27252 (จาก IP: 61.19.66.50)
ผมเึคยเขียนแบบกำหนดจุดบนหน้าจอแล้วให้เมาส์ไปคลิ๊กตามตำแหน่งครับ
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Dim Xpos As Long
Dim Ypos As Long
Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetActiveWindow Lib "user32" () As Long
'Timer ãªéÃѺ¤èÒµÓá˹è§à¤ÍÃìà«ÍÃì»Ñ¨¨ØºÑ¹
Private Sub Timer1_Timer()
Dim pt As POINTAPI
GetCursorPos pt
Xpos = pt.x
Ypos = pt.y
Me.Caption = "µÓáË¹è§ Mouse X : " & Xpos & " Y : " & Ypos
End Sub
'àÃÕ¡ «ÑºÃÙ·Õ¹ MouseClick â´ÂÃѺ¤èÒÁÒ¨Ò¡ txtX áÅÐ txtY
'Private Sub cmdDbClick_Click()
'End Sub
Sub MouseClick(ByVal PosX As Long, ByVal PosY As Long)
SetCursorPos PosX, PosY 'Set µÓáË¹è§ cursor µÒÁ¾Ô¡Ñ´ã¹ text box
'ÊÃéÒ§ event click
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub |
| จากคุณ
:
supachai2u [2008-12-17 13:20:28]
|
|
|
| - - - - - - - - - - - - - - ผู้ให้การสนับสนุน- - - - - - - - - - - - - -
|
|
| |
|
|
New Article
อัตราค่าโฆษณา
