Bạn có muốn đếm từng giây ngay trên màn hình Desktop hay không . Để thực hiện điều mà bạn
muốn .
Bạn mở Notepad và chép đoạn mã dưới đây vào : Option Explicit
On Error Resume Next
Dim timerID, now, nowMonth, nowDate, nowYear, nowHour, nowMinute, nowSecond, Elapsed,
WshShell, CRLF
Dim thisYear, lpyra, lpyrb, issue, yearsPast, total, mns, scs, temp2, doLoop, btnCode, insStr
timerID = 0
CRLF = Chr(13) & Chr(10) doLoop = TRUE
Set WshShell = CreateObject( "WScript.Shell" ) insStr = CRLF & CRLF & "Press OK to Stop" ' Main
While doLoop = TRUE
If stardate() = 1 Then ' drop out of loop if OK clicked doLoop = FALSE
End If WEnd
Function stardate() now = Date()
nowMonth = Month(now) - 1 'subtract cos so Jan=0 not 1 to be consistent with getMonth Vb
function nowDate = Day(now) nowYear = Year(now) + 1900 now = Time() nowHour = Hour(now) nowMinute = Minute(now) nowSecond = Second(now) now = 0
Elapsed = nowSecond + 60 * (nowMinute) + 3600 * (nowHour) +86400 * (nowDate - 1)
If (nowMonth>10) Then
Else If (nowMonth>9) Then Elapsed = Elapsed + (86400*304) Else If (nowMonth>8) Then Elapsed = Elapsed + (86400*273) Else If (nowMonth>7) Then Elapsed = Elapsed + (86400*243) Else If (nowMonth>6) Then Elapsed = Elapsed + (86400*212) Else If (nowMonth>5) Then Elapsed = Elapsed + (86400*181) Else If (nowMonth>4) Then Elapsed = Elapsed + (86400*151) Else If (nowMonth>3) Then Elapsed = Elapsed + (86400*120) Else If (nowMonth>2) Then Elapsed = Elapsed + (86400*90) Else If (nowMonth>1) Then Elapsed = Elapsed + (86400*59) Else If (nowMonth>0) Then Elapsed = Elapsed + (86400*31) End If End If End If End If End If End If End If End If End If End If End If If (nowYear>2100) Then nowYear = nowYear-1900 End If
thisYear = Round( Elapsed / 315.36) / 100 lpyra= Round(nowYear/400) lpyrb= nowYear/400 If (lpyra=lpyrb) Then If (nowMonth>2) Then Elapsed = Elapsed + (86400) End If End If issue = Round(((nowYear-2323)/100)-.5)
yearsPast = (nowYear - (2323+(issue * 100))) * 1000 total = thisYear+yearsPast If (nowMinute<10) Then mns="0" Else mns="" End If If (nowSecond<10) Then scs="0" Else scs="" End If
temp2 = "[" & issue & "] " & total & " " & nowHour & ":" & mns & nowMinute & ":" & scs &
nowSecond & insStr
stardate = WshShell.Popup( temp2, 1, "StarDate", 0) End Function
Lưu tập tin này lại và đặt tên là counttime.vbs 671. Chat trong mạng nội bộ Windows 2000/XP
Trong Windows 2000/XP có 1 chương trình nhỏ gọn dùng để chat trong mạng nội bộ nhưng nếu
không nói ra thì… ít ai biết vì chẳng hiểu sao Microsoft lại không tạo biểu tượng mặc định cho
chương trình này trong nhóm Communication.
Để muốn sử dụng chương trình này bạn làm theo các bước dưới đây.
Tạo biểu tượng cho chương trình bằng cách chạy Explorer , mở thư mục Windows/System32 tìm
file Winchat.exe , bấm và giử phím phải chuột trên file rồi kéo ra màn hình Desktop , nhả phím
chuột rồi chọn lịnh Create Shortcut Here.
Nếu muốn chương trình chạy thường trú mỗi khi khởi động Windows bạn bấm phím phải chuột
lên nút Start rồi chọn lịnh Explorer All Users trong menu rút gọn. Mở Start
Menu/Programs/Startup .
Bấm phím phải chuột trong cửa sổ liệt kê nội dung nhóm Startup, chọn lịnh New/Shortcut . Bấm
nút Browse và chỉ đến file Winchat.exe
Các máy đang chạy Winchat trong cùng 1 mạng nội bộ có thể chát với nhau, nếu muốn chat với
máy nào bạn bấm chuột nút Dial trong thanh công cụ hay dùnh lịnh Dial trong menu
Biểu tượng chat trong máy được gọi sẽ chớp sáng và phát âm thanh, nếu người được gọi chấp
nhận trả lời sẽ bấm nút Answers rồi hai bên trao đổi thông điệp với nhau. Nửa cửa sổ bên trên là
thông điệp gởi, nửa cửa sổ bên dưới là thông điệp nhận. Bạn có thể mở nhiều cửa sổ chat để
chat cùng lúc với nhiều người, khi không muốn chat với ai bạn bấm nút Hangs up trong cửa sổ
tương ứng để ngắt.
Chú ý: Nếu bạn đóng chương trình, không ai có thể chat với bạn. Bạn mở menu Options để xác lập font chữ tiếng Việt, màu nền cho cửa sổ, cách xếp đặt cửa sổ
(trên dưới hay song song).