PcLeHoan
1996 - 2002
Mirror :
http://www.pclehoan.com
Mirror :
http://www.lehoanpc.net
Mirror :
http://www.ktlehoan.com
Hỏi đáp Lập trình tháng 04
15/04
From: hongphuc@hongphuc.com
Xoá tập tin rác bằng VBScript
Nếu chương trình thiết kế tốt, nó sẽ xoá các tập tin tạm này trước khi kết thúc.
Tuy nhiên, do nguyên nhân nào đó, các tập tin này có thể không bị xoá (do chương
trình bị ngắt quãng giữa chừng,...). Như vậy, sau một thời gian, dung lượng
trống trên ổ cứng của bạn bị giảm đáng kể.
Có nhiều cách để xoá các tập tin không cần thiết này. Thủ công nhất là vào các
thư mục đó và thực hiện thao tác xoá tập tin. Các thư mục mặc định là
Windows/Recent và Windows/Temp. Microsoft cũng cung cấp một số trình dọn dẹp tập
tin tạm, ví dụ như Disk Cleanup. Bạn vào Start.Programs.Accessories.System Tools
và chọn Disk Cleanup. Chương trình có một số chọn lựa như xoá các tập tin
Internet, dọn Recycle Bin, xoá tập tin trong thư mục Temp... Bạn có thể tự làm
một chương trình dọn rác như vậy nhờ vào khả năng của VBScript. ở đây, tôi chỉ
trình bày cách xoá các tập tin trong thư mục Temp và Recent.
Ðiều trước tiên bạn phải làm là kiểm tra xem Windows có hỗ trợ VBScript hay
không. Ðối với WinMe, bạn không phải bận tâm về điều này vì ngôn ngữ VBScript
được cài mặc định trong quá trình cài Windows. Còn đối với Win98 (OEM hoặc SE),
bạn phải vào Control Panel, chạy Add.Remove Programs. Sau đó chọn thẻ Windows
Setup, nhấn đúp vào Accessories để hiện các mục chọn. Nếu thấy mục Windows
Scripting Host đã được chọn nghĩa là máy bạn đã hỗ trợ VBScript. Nếu không, bạn
phải chọn mục này và nhấn OK, khởi động lại máy.
Sau đây là source code thực hiện việc xoá tập tin.
Const TempWin =
"C:\Windows\Temp\"
Const Recent =
"C:\Windows\Recent\*.*"
DelTempDir
Sub DelTempDir
Dim fso, Ask
Set fso =
CreateObject("Scripting.FileSystemObject")
Ask = MsgBox("Do you want to delete all files in WinTemp directory?", vbYesNo,
"Delete Temp File")
If Ask = vbYes Then
fso.DeleteFile TempWin & "*.*", True
fso.DeleteFolder TempWin & "*", True
End If
Ask = MsgBox("Do you want to delete all files in RecentWin directory?", vbYesNo,
"Delete Recent File")
If Ask = vbYes Then
fso.DeleteFile Recent, True
End If
MsgBox "DelTemp has finished.", "Finish function"
End Sub
Bạn lưu tập tin này với phần đuôi mở rộng là .vbs, ví dụ: "DelTemp.vbs".
Muốn thực hiện lệnh bạn chỉ cần nhấn đúp vào tập tin này. Khi chạy, chương trình
sẽ xác nhận lại xem bạn có thực sự muốn xoá các tập tin rác hay không.
Nếu không muốn phải trả lời nhiều lần, bạn có thể lược bớt một số câu lệnh,
chương trình sẽ ngắn hơn:
Const TempWin =
"C:\Windows\Temp\"
Const Recent =
"C:\Windows\Recent\*.*"
DelTempDir
Sub DelTempDir ()
Dim fso
Set fso =
CreateObject("Scripting.FileSystemObject")
fso.DeleteFile TempWin & "*.*", True
fso.DeleteFolder TempWin & "*", True
fso.DeleteFile Recent, True
MsgBox "DelTemp has finished.", "Finish function"
End Sub
Bạn có thể tạo shortcut trên desktop hoặc taskbar để tiện thi hành. Chương trình
có kích thước nhỏ (chỉ là tập tin text), thực hiện nhanh, có thể tuỳ biến theo ý
muốn. Ðó chính là ưu thế của VBScript.
Chúc các bạn thành công với chương trình nhỏ do chính tay bạn tạo ra này.
(Theo PC World VN)
------------------------------------------
7/4
HOI: tung_tnt@bdvn.vnd.net
Chao cac ban!
Cac ban da co ai vao trang web TTVNOnline chua? toi muon tao duoc menu ngang ma
khi dua con chuot toi thi no tu dong tha xuong mot menu doc nhu cua trang
web nay thi phai lam nhu the nao? viet bang ngon ngu gi? Va muon co cai menu ma
khi binh thuong thi no tu dong thu ve ben tay trai man hinh giong trong trang
web nay nua, phai lam the nao?
Xin cac ban chi giup cach tao , cam on cac ban nhieu
DAP: lang_tu@rusoil.net
Bạn dùng chương trình DHTML Menu Builder để tạo. Website của tôi cũng có menu
tương tự như vậy. Bạn có thể vào
http://software.xfx.net để download, Số Serial như sau:
Name: Albert Johnston
Company: Anything you want...
Serial: 55FF61473F9F057DD6C6CE1BDD040617
Nếu rảnh mời bạn ghé
http://sinhvienufa.hn.org chơi!
DAP: ttad@hcm.vnn.vn
- Cac menu giong nhu trang web TTVNOnline thuong duoc viet bang bang
Javascript.
- Ban co the vao dia chi
www.javascriptsource.com de tham khao cach su dung Javascript cung nhu
download cac doan code
---------------------------------------
HOI: ddvdanh@yahoo.com
Nho cac ban chi gium lam the nao de lap trinh duoc 1 button bi nhan (giong nhu
cac nut Bold, Italic, ... trong Word) trong Java voi javax.swing
Cam on nhieu
DAP: victoriay@freesurf.fr
Làm điều này rất dễ: Bạn sử dụng BorderFactory để tạo ra border chìm, nổi, v.v
sẽ làm cho người dùng có cảm giác nút bị lún xuống hay lồi lên. Tôi thử viết một
ví dụ bạn xem thử có đúng ý bạn không:
import javax.swing.*;
import java.awt.event.*;
public class Test implements ActionListener
{
private static JFrame frmMain;
private static JButton cmdTest;
private static int status;
public static void main(String args[])
{
frmMain=new JFrame("Test program");
cmdTest=new JButton("Test");
status=2;
cmdTest.setBorder(BorderFactory.createBevelBorder(0));
frmMain.getContentPane().add("North",cmdTest);
cmdTest.addActionListener(new Test());
frmMain.addWindowListener(new WindowAdapter()
{
public void windowClosing(WindowEvent e)
{
System.exit(0);
}
});
frmMain.setSize(400,400);
frmMain.setVisible(true);
}
public void actionPerformed(ActionEvent e)
{
status=(status+1)%2;
cmdTest.setBorder(BorderFactory.createBevelBorder(status));
}
}
Chương trình này sẽ tạo ra 1 frame có 1 nút bấm. Ban đầu nó lồi lên. Khi bấm vào
nó sẽ lún xuống. Bấm thêm lần nữa thì sẽ lồi lên. Cứ như vậy mà nó lồi lõm mỗi
tuỳ lần bạn bấm. Bạn cứ liên hệ trực tiếp với tôi nếu bạn thích (tôi cũng đang
viết đề tài về Java). Chúc bạn vui vẻ.
------------------------------------
01/04
From: hongphuc@hongphuc.com
Tìm kiếm mã nguồn ASP miễn phí
ASP (Active Server Pages) là ngôn ngữ lập trình trên Internet thông dụng và phổ
biến nhất hiện nay. Việc tìm kiếm các mã nguồn (source code) ASP để học tập,
trao đổi kinh nghiệm là nhu cầu không thể thiếu đối với những ai đang sử dụng
ngôn ngữ này.
ASPSamples là trang web cung cấp miễn phí các mã nguồn mở ASP khá hữu ích mà bạn
có thể tham khảo. Tất cả các mã nguồn trên trang web này được sắp xếp theo từng
chủ đề riêng biệt giúp người xem dễ dàng tìm được mã nguồn mà họ đang cần. Và
đối với từng mã nguồn, trang web sẽ có cả mục hướng dẫn giúp người xem nhanh
chóng hình dung được yêu cầu cũng như giải thuật của nó.
Ngoài ASP, trang web còn cung cấp cả mã nguồn của VBScript, SQL, HTML, Java.
Ðiều hấp dẫn nhất trên trang web này là cửa sổ “tương tác tức thì” cho phép bạn
viết đoạn mã ASP vào và chạy chúng để xem kết quả trực tiếp ngay trên trang web,
điều mà bạn khó gặp ở các trang web khác. Ðịa chỉ:
http://asp-code.aspsamples.com/default.asp
Nguồn tin : NLÐ