Re: ShortcutMe - Cùng khám phá và chia sẻ những macro và thủ thuật hay nào!




Trích dẫn Gửi bởi viethungyp
operamini có chức năng select text sử dụng phím alt+w. có thể kết hợp làm macro copy đoạn văn bản vào clipboard ko?
Ok anh. Em đang viết cái đó. Xong post lên cho anh ngay

[ Posted by Mobile Device ]

--- Added at 22/10/2011, 10:09 ---

COPY TRONG OPERA MINI
Khi đang chạy opera mini đặt trỏ ở chỗ muốn bắt đầu copy và swith ra homescreen để gọi macro.
-App: Macro.
-Shortcuts: Tùy ý.
-Macro:
launch opera mini; //Chạy opera mini
input $Choose; Nhập chọn 1 hoặc 2. 1 để copy từ trên xuống. 2 để copy từ dưới lên.
if0 $Choose < 1||$Choose >2; //nếu choose nhỏ hơn và lớn hơn 2 (để xác định điều kiện khác 1,2)
Then0; // thì

ShowInput Wrong Choose! Please Try Again By Input 1 Or 2 for Choose;stop;endif0; // hiện thông báo lỗi và dừng macro.
if1 $Choose == 1; // nếu choose là 1.
then1; thì

input$MoveDownXLines; // nhập số dòng cần copy từ trên xuống.
delay50;launch opera mini;delay200; //đợi 50ms sau đó chạy Opera Mini, đợi tiếp 200ms để OperaMini chạy.
Keyw;delay500; //Bấm w để hiện trỏ chọn khối. Đợi 500ms để xử lý.
enterkey;delay500; // bấm enter để bắt đầu chọn. Đợi tiếp 500ms.
set$i=0; //Set biến đếm I bằng 0 để chạy vòng while

while1 $i<$MoveDownXLines; // kiểm tra nếu $i nhỏ hơn $MoveDownXLines (là số dòng xuống)
do1; // thì làm

NavMovedown$MoveDownXLines;delay1200; // Quét xuống X dòng như đã nhập ở trên. Mỗi dòng quét cần có thời gian nhất định, vì máy em chậm, opera chậm nên phải mất 1,2 giây để quét 1 dòng. Máy nào nhanh hơn 8800 thì chỉnh ngắn thời gian lại nhé.
inc $i; //Tăng $i 1 đơn vị.
endwhile1; // dừng vòng while.
Delay3000; // đợi 3 giây để có thể chỉnh sửa khối chọn. Có thể tùy chỉnh cái này tùy thích.
enterkey;delay100;enterkey // bấm enter để copy vào cb.
endif1;
// Tương tự với copy từ dưới lên mình không giải thích nhé. Cho vào:

if1 $Choose == 2;then2;input$MoveUpXLines;delay50;launch opera mini;delay200;keyw;delay500;enterkey;delay500;
set$j=0;while2 $j<$MoveUpXLines;
do2;NavUpdown$MoveUpXLines;delay1200;inc$j;endwhil e2;enterkey;delay100;enterkey;endif2


Chú ý: Có thể bỏ hàm choose để chỉ chọn theo 1 kiểu ví dụ bạn thường chỉ bôi đen từ trên xuống thì chỉ lấy đoạn if1 .. Endif1 thôi nhé.
Anh @viethungyp hãy thử test xem nhé. Em chạy ổn trên 88 opera mini 6.1.
Have fun!