Gõ tiếng Việt Unicode bằng Unikey trên IE của Windows Vista

Nếu bạn gặp rắc rối trong việc gõ tiếng Việt Unicode bằng Unikey trên IE của Windows Vista, trong khi vẫn gõ trên Office được thì bạn làm cách sau:

+ Mở IE
+ Chọn Tools/Internet Option
+ Chọn tab Security
+ Tắt chế độ Enable protected mode ...
+ Khởi động lại IE.

Mọi thứ sẽ OK

Tải phần mềm diệt virus SAV32CLI

Tải tại đây


Cách dùng: SAV32CLI -remove

Tải phần mềm diệt virus SCAN miễn phí

Tải ở đây

Enable Regedit trong Windows XP

Start menu -> Run
Nhập vào dòng này
reg add HKLM\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f

start -> run
Nhập vào dòng này
reg add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f

How to enable Task Manager again in Windown XP?

• Click Start
• Click Run
• Enter gpedit.msc in the Open box and click OK
• In the Group Policy settings window
o Select User Configuration
o Select Administrative Templates
o Select System
o Select Ctrl+Alt+Delete options
o Select Remove Task Manager
o Double-click the Remove Task Manager option

Tắt tính năng hibernation trong Microsoft Windows Server 2008

Để tắt tính năng hibernation trong Microsoft Windows Server 2008 bạn dùng dòng lệnh powercfg.exe /hibernate off

Virus tự động logoff

Virus khi đăng nhập vào windows cả chế độ safemode, tự động logoff ko làm gì được.
Đó là con Misa
Cách diệt: Do con virus không cho vào Windows nữa nên chúng ta cần dùng đến đĩa CD
-Dùng đĩa Hiren’s Boot :sử dụng DOS có hỗ trợ NTFS (nếu ổ đĩa của bạn chia theo định dạng này)
+ Xóa tất cả các file autorun.inf, Mixa_I.exe trong tất cả các ổ đĩa
+ Xóa C:\Windows\Mixa.exe
+ Xóa C:\Windows\System32\systemio.exe
+ Copy C:\Windows\System32\Userinit.exe sang ổ D:\Userinit.exe
+ Đổi tên D:\Userinit.exe thành D:\systemio.exe
+ Move D:\systemio.exe sang C:\Windows\System32\
-Khởi động Windows: lúc này bạn đã có thể log on vào windows đc rồi đấy!

Sửa lỗi Run Time Error 200 của Turbo Pascal/Turbo C

Sửa lỗi Run Time Error 200 của Turbo Pascal/Turbo C:

Chỉ cần tìm trong file EXE chuỗi B9 37 00 F7 F1 và thay bằng B8 FF FF 90 90

Thuật toán chuyển từ số sang chữ tiếng Anh, dùng trong môi trường Microsoft Office, Visual Basic, ASP, ...

Function Read1Word(r1 As Long) As String
Select Case r1
Case 0
Read1Word = "zero"
Case 1
Read1Word = "one"
Case 2
Read1Word = "two"
Case 3
Read1Word = "three"
Case 4
Read1Word = "four"
Case 5
Read1Word = "five"
Case 6
Read1Word = "six"
Case 7
Read1Word = "seven"
Case 8
Read1Word = "eight"
Case 9
Read1Word = "nine"
End Select
End Function

Function Read2Word(r2 As Long) As String
Select Case r2
Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9
Read2Word = Read1Word(r2)
Case 10
Read2Word = "ten"
Case 11
Read2Word = "eleven"
Case 12
Read2Word = "twelve"
Case 13
Read2Word = "thirteen"
Case 14
Read2Word = "fourteen"
Case 15
Read2Word = "fifteen"
Case 16
Read2Word = "sixteen"
Case 17
Read2Word = "seventeen"
Case 18
Read2Word = "eighteen"
Case 19
Read2Word = "nineteen"
Case 20
Read2Word = "twenty"
Case 30
Read2Word = "thirty"
Case 40
Read2Word = "forty"
Case 50
Read2Word = "fifty"
Case 60
Read2Word = "sixty"
Case 70
Read2Word = "seventy"
Case 80
Read2Word = "eighty"
Case 90
Read2Word = "ninety"
Case Else
Read2Word = Read2Word(Int(r2 \ 10) * 10) + " " + Read1Word(r2 - Int(r2 \ 10) * 10)
End Select
End Function

Function Read3Word(r3 As Long) As String
If r3 < 10 Then
Read3Word = Read1Word(r3)
Else
If r3 < 100 Then
Read3Word = Read2Word(r3)
Else
Read3Word = Read1Word(Int(r3 \ 100)) + " hundred" + IIf(Read2Word(r3 - Int(r3 \ 100) * 100) = "zero", "", " and " + Read2Word(r3 - Int(r3 \ 100) * 100))
End If
End If
End Function

Function ReadWord(r As String) As String
Dim s As String
If Len(r) > 9 Then r = Left(r, 9)
Dim r1 As Long
Dim r2 As Long
s = " "
If InStr(r, ".") > 0 Then
r1 = Val(Left(r, InStr(r, ".") - 1))
r2 = Val(Mid(r, InStr(r, "."), 3)) * 100
Else
r1 = Val(r)
r2 = 0
End If
If r1 < 10 Then
s = Read1Word(r1)
Else
If r1 < 100 Then
s = Read2Word(r1)
Else
If r1 < 1000 Then
s = Read3Word(r1)
Else
If r1 < 1000000 Then
If (r1 \ 1000) * 1000 = r1 Then
s = Read3Word(Int(r1 \ 1000)) + " thousand"
Else
s = Read3Word(Int(r1 \ 1000)) + " thousand and " + Read3Word(r1 - Int(r1 \ 1000) * 1000)
End If
Else
If (r1 \ 1000000) * 1000000 = r1 Then
s = Read3Word(Int(r1 \ 1000000)) + " million"
Else
s = Read3Word(Int(r1 \ 1000000)) + " million and " + ReadWord(r1 - Int(r1 \ 1000000) * 1000000)
End If
End If
End If
End If
End If
If r2 > 0 Then s = s + " point " + Read3Word(r2)
s = UCase$(Left(s, 1)) + LCase$(Mid$(s, 2, 255))
ReadWord = s
End Function

----------------

Cách dùng: readword("123456789.12")

Thuật toán chuyển từ số sang chữ, dùng trong môi trường Microsoft Office, Visual Basic, ASP, ...

Function Doc_1_chu_so(C As String) As String
Doc_1_chu_so = IIf(C = "0", "khoâng", IIf(C = "1", "moät", IIf(C = "2", "hai", IIf(C = "3", "ba", IIf(C = "4", "boán", IIf(C = "5", "naêm", IIf(C = "6", "saùu", IIf(C = "7", "baûy", IIf(C = "8", "taùm", "chín")))))))))
End Function
Function Doc_3_chu_so(S As String)
Dim ss As String
If S = "000" Then
ss = " "
Else
ss = ""
If Left(S, 1) <> " " Then
ss = ss + Doc_1_chu_so(Left(S, 1)) + " traêm"
End If
If Mid(S, 2, 1) <> " " Then
If Mid(S, 2, 1) = "0" Then
If Mid(S, 3, 1) <> "0" Then
ss = ss + " linh " + Doc_1_chu_so(Mid(S, 3, 1))
End If
Else
If Mid(S, 2, 1) <> "1" Then
ss = ss + " " + Doc_1_chu_so(Mid(S, 2, 1)) + " möôi"
Else
ss = ss + " möôøi"
End If
If Mid(S, 3, 1) <> "0" Then
If Not (Mid(S, 3, 1) = "1" Or Mid(S, 3, 1) = "4" Or Mid(S, 3, 1) = "5") Then
ss = ss + " " + Doc_1_chu_so(Mid(S, 3, 1))
Else
If Mid(S, 3, 1) = "1" Then
If Mid(S, 2, 1) <> "1" Then
ss = ss + " moát"
Else
ss = ss + " moät"
End If
Else
If Mid(S, 3, 1) = "4" And Mid(S, 2, 1) = "1" Then
ss = ss + " boán"
Else
If Mid(S, 3, 1) = "4" Then
ss = ss + " tö"
Else
If Mid(S, 3, 1) = "5" Then
ss = ss + " laêm"
End If
End If
End If
End If
End If
End If
End If
Else
ss = Doc_1_chu_so(Mid(S, 3, 1))
End If
End If
Doc_3_chu_so = ss

End Function
Function Doc_so(InputNum As Double) As String
Dim i As Integer
Dim Mem As String
If InputNum = 0 Then
StrOut = ""
Else
StrOut = Trim$(Str(InputNum))
While (Mid(StrOut, Len(StrOut), 1) = "." Or Mid(StrOut, Len(StrOut), 1) = "0") And InStr(StrOut, ".") > 0
StrOut = Mid(StrOut, 1, Len(StrOut) - 1)
Wend
If InStr(StrOut, ".") > 0 Then
Mem = Mid(StrOut, 1, InStr(StrOut, ".") - 1)
Else
Mem = StrOut
End If
While Len(Mem) Mod 3 <> 0
Mem = " " + Mem
Wend
Ex = ""
For i = 1 To Len(Mem) \ 3
Select Case i
Case 1
If Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) <> " " Then
Ex = Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) + Ex
End If
Case 2
If Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) <> " " Then
Ex = Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) + " nghìn " + Ex
End If
Case 3
If Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) <> " " Then
Ex = Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) + " trieäu " + Ex
End If
Case 4
Ex = Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) + " tyû " + Ex
Case 5
Ex = Doc_3_chu_so(Mid(Mem, Len(Mem) - i * 3 + 1, 3)) + " nghìn tyû " + Ex
End Select
Next i
If InStr(StrOut, ".") > 0 Then
Mem = Mid(StrOut, InStr(StrOut, ".") + 1, 2)
While Len(Mem) < 3
Mem = " " + Mem
Wend
Mem = Doc_3_chu_so(Mem)
While Left(Mem, 1) = " "
Mem = Mid(Mem, 2, Len(Mem) - 1)
Wend
StrOut = Ex + " phaåy " + Mem
Else
StrOut = Ex
End If
End If
StrOut = Trim$(StrOut)
If Len(StrOut) > 1 Then StrOut = UCase$(Left$(StrOut, 1)) + Right$(StrOut, Len(StrOut) - 1)
If Trim$(StrOut) = "" Then StrOut = "Khoâng"
Doc_so = StrOut

End Function

-------------------------------

Cách dùng : Doc_so (123456789.12)
Tiếng Việt kết quả dùng font VNI, ai muốn font khác liên hệ với tôi nhé.