ICheer_No0M

best view in 720p full screen.

Private Sub Command1_Click() Dim Startup_key As String Startup_key = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\...

Function Chr2Hex(ByVal strChr As String) As String Dim i As Integer For i = 46 To 122 Step 1     If Chr(i) = strChr Then         Chr2Hex = H...

Public Function ReplaceText(ByVal txt As String, ByVal from_str As String, ByVal to_str As String) As String Dim result As String Dim from_l...

Private Function MidText(ByVal strText As String, ByVal Find1 As String, ByVal Find2 As String, Optional ByVal lStart As Long = 1, Optional ...

ถึงตอนนี้ก็เสร็จเป็นที่เรียบร้อยแล้วกับโปรเจ็คพิเศษนี้ อิอิ

กระทู้นี้ก็ไม่มีอะไรมากครับ เป็นพื้นฐานการทำตัวแก้ไวรัสหรือ Virus Removal Tool นั้นเองง่ายๆครับมีอยู่ไม่กี่ขึ้นตอน มาดูกันเลย ... สำหรับคน...

Open "C:\log.txt" For Append As #1 Print #1, Text1.Text Print #1, "ICheer_No0M" Close #1 For Append As #1   คื...

Private Function StringHex(EvalString As String) As String Dim intStrLen As Integer Dim intLoop As Integer Dim strHex As String EvalString =...

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long) Use : Sleep 5000 ____________________________________...