Làm sao để tự động click?

Fedex · 17/6/10

Nhờ mọi người giúp mình với. mình muốn thay vì phải click chuột thì ie mới search mình muốn dùng Vba để tự động click nut search với đoạn code sau:

&nbsp <input class="btngrey" id="iceForm:_id305:0:_id308:_id836:_id844" name="iceForm:_id305:0:_id308:_id836:_id844" onblur="setFocus('');" onclick="pleaseWait(event);iceSubmit(form,this,event);return false;" onfocus="setFocus(this.id);" type="submit" value="Search" />

|||||

Mình không biết viết code trong vba như thế nào để tư động click nút search này. hi vọng mọi người giúp dỡ. tks

Fedex · 18/6/10

hix..!!sao không có ai giúp mình thế nhỉ. mình muốn auto click cái nút search này bằng cách setfocus cho nó rồi dùng sendkeys để enter mà mình không biết code trong vba để setfocus hoặc tư động kích hoạt nút search ( mình dùng câu lệnh "ie.doccument.forms(0).submit" nhưng vẫn không được " rất mong bạn nào biết chỉ cho mình với mình đang rất cần.

Hai Lúa Miền Tây · 18/6/10

Fedex đã viết:
hix..!!sao không có ai giúp mình thế nhỉ. mình muốn auto click cái nút search này bằng cách setfocus cho nó rồi dùng sendkeys để enter mà mình không biết code trong vba để setfocus rất mong bạn nào biết chỉ cho mình với mình đang rất cấn

-Tạo phím nóng cho nó
-SetDefault cho nó là Yes, khi enter thì nó tự nhận.
-Tạo 1 sub riêng, khi thực hiện xong cái trước đó thì gọi sub đó lên.
Không ai trả lời bạn vì không hiểu bạn muốn gì, bạn xem lại bài 1 bạn viết coi như thế nào nhé.

Fedex · 18/6/10

Cảm ơn bạn đã reply. ý mình là thay vì phải click vào nút search trên trang web mình muốn viết code trên Vba để nó tự động thực hiện chức năng này. đây là đoạn html của nút search trên trang web:

<html>
<body>
<textarea class="tabledata-txt-l-bottom" cols="25" id="iceForm:_id305:0:_id308:_id836:ccnTransNo" name="iceForm:_id305:0:_id308:_id836:ccnTransNo" onmousedown="this.focus();" rows="2"></textarea>
&nbsp <input class="btngrey" id="iceForm:_id305:0:_id308:_id836:_id844" name="iceForm:_id305:0:_id308:_id836:_id844" onblur="setFocus('');" onclick="pleaseWait(event);iceSubmit(form,this,event);return false;" onfocus="setFocus(this.id);" type="submit" value="Search" />
<body>
<html>
các bạn copy đoạn code trên vào note và lưu tên file *. htm sẽ thấy như hình bên dưới:

Ý mình là sau khi vba paste dữ liệu cần tìm vào khung thì nó tự động click nút search. bình thường mình dùng đoạn code " ie.document.forms().submit' là nó tự động click hoạt nút lệnh này nhưng với nút search trên thì câu lệnh này không tác dụng gì hết nên mình nhờ mọi người giúp mình phải viết code trong vba như thế nào với cái nút search trên. Rất mong mọi người giúp đỡ mình

-SetDefault cho nó là Yes, khi enter thì nó tự nhận.

với code " onfocus="setFocus(this.id);" của nút search trên để vba setdefault cho nó thì mình phài viết như thế nào. cám ơn bạn nhiều. Rất mong mọi người giúp đỡ !

Fedex · 21/6/10

bạn nào biết làm ơn giúp mình với. chẳng lẽ không ai biết sao! bình thường trong listbox trên để paste dữ liệu cần tìm thì mình nhập bien.document.item("iceForm:_id305:0:_id308:_id836:ccnTransNo" name="iceForm:_id305:0:_id308:_id836:ccnTransNo"). value = giá trị cần paste .Vây bạn nào biết cái onfocus trên có dùng được như cái listbox trên không tức là mình cũng gán cái value cho nó. nếu được thì value của cái onfocus này là gì ? Còn nếu không phải như vậy thì làm thế nào có thể kích hoạt được cái onfocus trên nút search này. mình đang rất bí rất mong mọi người quan tâm giúp đỡ cho dù là ý tưởng cũng được.

Fedex · 16/7/10

Không có ai quan tâm tới vấn đề này sao. sau khi tìm kiếm mình đã tìm đươc cách để điều khiển focus & tư động click bất cú đâu trên web ma minh thích vi dụ như với nút lệnh trên de click nó mình dùng code:
for each bien in ie.document.all
if bien.id="iceForm:_id305:0:_id308:_id836:_id844" name="iceForm:_id305:0:_id308:_id836:_id844" then bien.click
next
thì sẽ tự động click nút search đó. để focus bạn cũng làm tương tự, code focus đến nút search trên:
for each bien in ie.document.all
bien.all.item("iceForm:_id305:0:_id308:_id836:_id844" name="iceForm:_id305:0:_id308:_id836:_id844").focus
next
Hi vọng mọi người quan tâm đến vấn đề này và giúp đõ mình với. hiện tại mình vẫn gặp khó khăn là trang web nó toàn giống nhau ( id, name,...onclick ) mỗi id, onclick, name lại là biến nên mình không thể sử dụng phương pháp trên được.

Fedex · 16/7/10

Fedex đã viết:
hiện tại mình vẫn gặp khó khăn là trang web nó toàn giống nhau ( id, name,...onclick ) mỗi id, onclick, name lại là biến nên mình không thể sử dụng phương pháp trên được.

khà khà! vấn đề này mình đã giải xong. mọi người cho minh hỏi là trong vba để nhấn và giữ phím thì làm thế nào. hj vong mọi người giúp đỡ mình với mình chỉ biết chút xíu về lập trình à

Fedex · 17/7/10

Mình nhấn và giữ được control rồi như chỉ được có 1 lần à.mình dung code này:
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Const KEYEVENTF_KEYUP = &H2
Dim x As Boolean

Private Sub CommandButton1_Click()
Do Until x = True
If x = True Then Exit Do
DoEvents
keybd_event vbKeyControl, 0, 0, 0
Debug.Print "shift pressed"
Loop
keybd_event vbKeyControl, 0, KEYEVENTF_KEYUP, 0
End Sub

Private Sub CommandButton2_Click()
x = True
End Sub
hj vọng mọi người giúp"""

Fedex · 18/7/10

hi hi hôm nay mình đã viết xong đoạn code lõi tự động rồi chỉ còn 1 tinh chỉnh râu ria chút xíu là ok thôi he he. cam on mọi người đã đọc . toplic này thành top tự sướng rồi ^^!!

adult · 24/7/10

vậy bạn có thể share code bạn đã thực hiện thành công được không? Có thể mọi người cũng chưa tìm được hướng giải quyết nên chưa giúp được bạn thôi. Các anh /chị trên diễn đàn cũng nhiệt tình lắm.
Thanks!

Làm sao để tự động click?

Fedex

Thành viên mới

Fedex

Thành viên mới

Hai Lúa Miền Tây

❆❆❆❆❆❆❆❆

Fedex

Thành viên mới

Fedex

Thành viên mới

Fedex

Thành viên mới

Fedex

Thành viên mới

Fedex

Thành viên mới

Fedex

Thành viên mới

adult

Thành viên hoạt động

Bài viết mới nhất

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Đếm ngược thời gian