• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Chuyên Đề HTAs (HTML Applications)

Các bài viết hướng dẫn, giúp các bạn hiểu và tiếp cận với Visual Basic nhanh hơn
Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Chuyên Đề HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Hai 14/09/2009 9:01 pm

Tên bài viết: Sơ lược nhánh VB: HTAs (HTML Applications)
Tác giả: truongphu
Cấp độ bài viết: Căn bản
Tóm tắt: Giới thiệu HTML Applications


Cũng tương tự VBA (Visual Basic for Application), MicroSoft đã cho ra đời (từ lâu) bộ (ngôn ngữ) ứng dụng cho HTML.
Với VBA, các Application của Office (WinWord.EXE, Excel.EXE...) sẽ đảm nhận môi trường và biên dịch; Riêng HTAs thì chả có môi trường làm việc: chỉ cần Notepad đơn giản để gõ code là xong!, và phần biên dịch thì giao cho mshta.exe (Windows\system32\)

Để viết HTAs, bạn cần biết code của VB6, nhưng chính xác hơn là code của VBS; nói chung 2 ngôn ngữ nầy là tương đồng, chỉ khác nhau một vài hàm nên ta có thể bổ sung sau. Khi viết code VBS, nếu bạn lưu dưới đuôi file là *.VBS thì đấy là VBS, còn lưu dưới đuôi *.HTA thì đấy là HTAs

Một file HTA thông thường có 2 phần: phần HT + phần A
* Phần HTML: Viết code có cấu trúc tương tự như viết html, vd: <body>..</body>
* Phần App: Code như VBS

Khi ta click double vào file HTA, (chậm một chút) mshta.exe sẽ đọc và biên dịch cho ta một ứng dụng có đủ (vài thứ) các control trên giao diện đồ họa, các control nầy hoạt động giao tiếp như các phần mềm khác...

Đương nhiên, HTAs là nhánh VB nên không chính thống, công cụ nghèo nàn, nhưng, KHÔNG CẦN CÀI ĐẶT, chạy bất kỳ đâu (Windows thôi nha), viết đơn giản... thì HTAs cũng xứng đáng để các bạn tham khảo

Tham khảo:
Introduction to HTML Applications (HTAs)
http://msdn.microsoft.com/en-us/library/ms536496(VS.85).aspx

Để làm quen với HTAs, cách nhanh nhất là dùng luôn ứng dụng và đọc code.
Mời các bạn...

Ứng dụng đơn giản đầu tiên: Liệt kê các số nguyên tố trong 1000 số tự nhiên đầu tiên
Tiêu đề quá đơn giản, nhưng có điểm mới: Code vb6 hổ trợ hoàn toàn tiếng Việt, kể cả TitleBar
Đóng gói gọn: 1,75KB, file nén: 684 bytes :D
Nhờ các bạn test thử xem
S_ nguyên t_.rar
(684 Byte) Đã tải 845 lần
Sửa lần cuối bởi truongphu vào ngày T.Hai 21/09/2009 4:06 pm với 3 lần sửa.


o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Liệt kê các số nguyên tố

Gửi bàigửi bởi truongphu » T.Ba 15/09/2009 6:44 am

Để thuận tiện cho các bạn đọc code HTA
bạn chạy Application sau: Add Edit Context Menu HTA
Nó có nhiệm vụ thêm vào Menu chuột phải của file HTA mục Edit để gọi notepad
Từ đây, để xem code HTA, bạn chỉ nhấn chuột phải, chọn Edit là xong!
Tập tin đính kèm
Add Edit Context Menu HTA.rar
(589 Byte) Đã tải 526 lần
Sửa lần cuối bởi truongphu vào ngày T.Tư 16/09/2009 10:23 am với 2 lần sửa.
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

CPU của máy tính có số ?

Gửi bàigửi bởi truongphu » T.Ba 15/09/2009 8:43 pm

CPU của máy tính có số ?
Tập tin đính kèm
Processor ID.rar
(676 Byte) Đã tải 472 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Các Thông tin về CPU

Gửi bàigửi bởi truongphu » T.Ba 15/09/2009 9:01 pm

Các Thông tin về CPU
Tập tin đính kèm
Thông tin CPU.rar
(1.29 KiB) Đã tải 467 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Các Thông tin về RAM

Gửi bàigửi bởi truongphu » T.Ba 15/09/2009 9:13 pm

Các Thông tin về RAM
Tập tin đính kèm
Thông tin RAM.rar
(1.09 KiB) Đã tải 452 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

PING: Bài tập cuối ngày

Gửi bàigửi bởi truongphu » T.Ba 15/09/2009 10:26 pm

PING: Bài tập cuối ngày
Đóng máy, đi ngủ
Tập tin đính kèm
PING.rar
(1.04 KiB) Đã tải 449 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Tư 16/09/2009 10:52 am

Và đây là sản phẩm HTA của chuyên gia (Rick Vachon) làm: Binary Clock HTA
Binary Clock HTA.rar
(1.89 KiB) Đã tải 469 lần


Để xem code, nhắc lại, bạn đọc bài viết ở trên:
viewtopic.php?f=22&t=9205&p=58250#p58161

hoặc mở file HTA bằng notepad
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Simple HTA Clock

Gửi bàigửi bởi truongphu » T.Tư 16/09/2009 3:37 pm

Simple HTA Clock cũng là của chuyên gia:
Created by The Scripting Community
Published on 8/10/2009

Bạn có thể edit lại code để vị trí của đồng hồ xuất hiện trên màn hình theo ý muốn
tôi đã set: góc trên phải

Mã: Chọn hết

  1. window.resizeTo 170,20
  2. window.moveTo 850,5


* nhấn show desktop để đưa xuống taskbar
* End: gọi taskManager , kill mshta.exe
Tập tin đính kèm
Simple HTA Clock.rar
(529 Byte) Đã tải 417 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Sáu 18/09/2009 8:15 pm

Đây là trình Net Send có giao diện đẹp
Mã nguồn hay
Nhờ các bạn test thử
Tập tin đính kèm
graphical interface Net Send.rar
(1.81 KiB) Đã tải 480 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Bảy 19/09/2009 8:54 am

HTA có truy xuất dữ liệu từ access không? Có!
Đây là trình QLHS tôi viết từ đầu năm, gởi ở mục Giao lưu (lâu ngày bị xóa)
Mời các bạn test thử.
Eidt mã nguồn tùy thích để phù hợp nhu cầu của các bạn
Tập tin đính kèm
QLHS.rar
(24.45 KiB) Đã tải 469 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Viết HTAs

Gửi bàigửi bởi truongphu » T.Bảy 19/09/2009 6:04 pm

1- Tạo một TextBox
Mở Notepad, dán đoạn code sau:

Mã: Chọn hết

  1.    <input type="text" name="Text1" size="30">

và lưu dưới đuôi *.HTA, ví dụ TextBox.hta

Chạy file TextBox.hta, bạn có một textbox nho nhỏ

Trong câu code trên:
< Mở đầu lệnh
> Đóng lệnh
input type="text" Lệnh tạo textbox
name="Text1" Đặt tên textbox, có thể đặt tên tùy ý
size="30" Độ dài textbox, có thể thay đổi tùy ý

2- Tạo một Button
Mở Notepad, dán đoạn code sau:

Mã: Chọn hết

  1. <input type="button" value="Run Script" name="button1">

và lưu dưới đuôi *.HTA, ví dụ Button.hta

Chạy file TextBox.hta, bạn có một button nho nhỏ

Trong câu code trên:
< Mở đầu lệnh
> Đóng lệnh
input type="button" Lệnh tạo button
value="Run Script" Caption của button
name="button1" Đặt tên textbox, có thể đặt tên tùy ý

3- Button hoạt động:
Mở Notepad, dán đoạn code sau:

Mã: Chọn hết

  1. <SCRIPT LANGUAGE="VBScript">
  2.     Sub TestSub
  3.         Msgbox Text1.Value
  4.     End Sub
  5. </SCRIPT>
  6.  
  7.     <input type="text" name="Text1" size="60"><P>
  8.     <input type="button" value="Run Script" name="button1"  onClick="TestSub">


và lưu dưới đuôi *.HTA, ví dụ Test.hta

Chạy Test.hta, gõ nội dung vào text1. Nhấn nút "Run Script", bảng thông báo hiện nội dung trên text1
Trong đoạn code trên:
<SCRIPT LANGUAGE="VBScript"> Khai tập lệnh ngôn ngữ VBScript, vì chỉ khai báo mà không có lệnh nên gọi là thẻ mở đầu
</SCRIPT> Kết thúc thẻ Script, có dấu / ở trước
Giữa thẻ Script là các sub hay function có kết cấu đơn giản. VB6 có thể hoạt động ở đây

Hàng dưới, lệnh tạo Textbox, ta thấy có: <P> Đó là lệnh xuống dòng
Xóa <P> thì textbox và button cùng hàng
Hàng code button có đoạn: onClick="TestSub" là lệnh hoạt động trên Sub TestSub

2 dòng code textbox và button ta có thể để trong thẻ hầu khai báo minh bạch như sau:

Mã: Chọn hết

  1. <body>
  2.     <input type="text" name="Text1" size="60"><P>
  3.     <input type="button" value="Run Script" name="button1"  onClick="TestSub">
  4. </body>


Khai bài bản, ta viết:
<html>
<head>
<title> </title>
</head>
<SCRIPT LANGUAGE="VBScript">

</SCRIPT>

<body>

</body>
</html>


Và đương nhiên các bạn có thể mở các file ứng dụng gởi ở trên bằng notepad để xem code hầu nhanh cho1nh nắm bắt ứng dụng VB trong HTML nầy
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Bảy 19/09/2009 8:34 pm

Và đây là trình Ping do Microsoft làm
hoạt động cực nhanh

Code khá phức tạp
Mời các bạn xem thử
Tập tin đính kèm
Ping Utility.rar
(1.82 KiB) Đã tải 423 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

HISTORY LIST

Gửi bàigửi bởi truongphu » T.Bảy 19/09/2009 10:17 pm

Chỉ cần ứng dụng nho nhỏ nầy, trong tích tắc bạn đã có ngay history của I-Explorer

HISTORY LIST.rar
(660 Byte) Đã tải 417 lần


thêm một ứng dụng nhỏ: các khai báo môi trường của máy tính
Environment.rar
(380 Byte) Đã tải 428 lần


Code cũng đơn giản
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » CN 20/09/2009 7:36 pm

Các bài trước tôi đã trình bày cách tạo TextBox và Button cùng ứng dụng.
Có lẽ các bạn đã quen code cùng ý nghĩa; tương tự như thế, hôm nay với ListBox:

Mã: Chọn hết

  1. <html>
  2. <head>
  3. <title>List Box</title>
  4. </head>
  5.  
  6. <SCRIPT LANGUAGE="VBScript">
  7.     Sub TestSub
  8.         Msgbox "Bạn đã chọn " & OptionChooser.Value & "."
  9.     End Sub
  10.  
  11. </SCRIPT>
  12.  
  13. <body>
  14.  
  15. <select size="5" name="OptionChooser" onChange="TestSub">
  16.     <option value="Máy tính số 01">Máy tính số 01</option>
  17.     <option value="Máy tính số 02">Máy tính số 02</option>
  18.     <option value="Máy tính số 03">Máy tính số 03</option>
  19.     <option value="Máy tính số 04">Máy tính số 04</option>
  20.     <option value="Máy tính số 05">Máy tính số 05</option>
  21.     <option value="Máy tính số 06">Máy tính số 06</option>
  22. </select>
  23.  
  24. </body>

ListBox.rar
(415 Byte) Đã tải 384 lần


--------------
Để thuận tiện cho thao tác với HTA, tôi đã viết 2 công cụ:
1- Add Edit Context Menu HTA.rar
download/file.php?id=7196

2- Tạo mới file HTA ở menu chuột phải:
Hta right mouse Menu.rar
(389 Byte) Đã tải 375 lần


Từ đây, với chuột phải: bạn tạo mới, chọn Edit, dán code vào là xong!


------
TB: Ở đoạn code trên, thay vì <select size="5" bạn có thể sửa lại 4 hay 3 ...
Nhưng khi sửa lại là 1: <select size="1" thì bạn có listBox rất đẹp: gọn, nhấn mới bung như ComboBox
Tập tin đính kèm
ListBox2.rar
(415 Byte) Đã tải 385 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Sơ lược nhánh VB: HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Hai 21/09/2009 10:12 am

1- Password Box
Password Box.rar
(308 Byte) Đã tải 388 lần


2- ServicePack Version
ServicePack Version.rar
(516 Byte) Đã tải 386 lần


3- Icon For HTA
Icon mặc định của HTA không gì đặc biệt
Ta chọn Icon khác, (các bạn có thể thay đổi code để chọn icon thích hợp)
Icon For HTA.rar
(401 Byte) Đã tải 378 lần


4- ListBox hay load qua vòng lặp. Đây là một mẫu
ListBox3 AddItem.rar
(551 Byte) Đã tải 377 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Chuyên Đề HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Hai 21/09/2009 4:09 pm

1- CheckBox
CheckBox.rar
(287 Byte) Đã tải 383 lần


2- TextBox được chọn bôi đen
Tập tin đính kèm
TextBox Duoc chon.rar
(696 Byte) Đã tải 370 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Chuyên Đề HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Hai 21/09/2009 8:07 pm

HTA biết đọc file txt Unicode?
Cũng bình thường
Tập tin đính kèm
oc File TXT Unicode.rar
(730 Byte) Đã tải 377 lần
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh

Hình đại diện của người dùng
truongphu
VIP
VIP
Bài viết: 4760
Ngày tham gia: CN 04/11/2007 10:57 am
Đến từ: Cam Đức, Khánh hòa
Has thanked: 14 time
Been thanked: 515 time

Re: Chuyên Đề HTAs (HTML Applications)

Gửi bàigửi bởi truongphu » T.Ba 22/09/2009 11:04 am

1- Gọi Internet ExplorerTrong file Internet Explorer.HTA sau đây trình bày các kỹ thuật:
* chương trình lúc khởi động
* gọi InternetExplorer
* Paste từ clipboard
Internet Explorer.rar
(510 Byte) Đã tải 381 lần


2- Đọc txt unicode, lưu file, lọc dòng trùng
Trong file Đọc File txt Unicode và Lưu file txt unicode & Lọc dòng Trùng, trình bày các kỹ thuật:
* sử dụng commondialog
* Open file txt unicode
* đọc và ghi vào textbox
* lưu file txt unicode gồm tạo file và viết lên file
* có kỹ thuật lọc các dòng trùng (trả lời bạn dactung93)
download/file.php?id=7267
o0o--truongphu--o0o

.........
Ghé thăm:
Chuyện Linh Tinh


Quay về “[VB] Bài viết hướng dẫn”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.0 khách