เทคนิคการคลิ๊กใ้ช้.exe ได้เพียงครั้งเดียวแล้วก็บลบตัวเอง++ (Source Code VB6.0)

[akenan2007_old]

เทคนิคการคลิ๊กใ้ช้.exe ได้เพียงครั้งเดียวแล้วก็บลบตัวเอง++ (Source Code VB6.0)

เช่นผมส่งไฟล์.exe หนึ่งไปให้เพื่อนคลิ๊ก แต่เมื่อคลิ๊กแล้วมันก็จะทำงานตามที่เรากำหนดพอทำเร็จแร๊ะไฟล์นั้นก็หายไปเลย Recycle Bin ก็ไม่มี +555
ลองดูน่ะครับ เผื่อได้ไอเดียดีๆ เอาไปใช้กัน

แต่อย่าเอาไปทำเครื่องเขาพังล่ะกันน่ะครับ แค่สนุก+ล้อเล่นกันก็พอน่ะครับ
**Hidden Content: Check the thread to see hidden data.**

[akenan2007_old]

ส่วนอันนี้จะต่างจากอันก่อนน่ะครับ
เป็นการใช้ Private Function "kernel32" โดยไม่ต้องอาศัย Scripts ต่างๆเลย +++แจ่มกว่าครับ++++

[hide=5]

[code]
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetEnvironmentVariable Lib "kernel32" Alias "GetEnvironmentVariableA" (ByVal lpName As String, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
'-------------------------------------------------------------------------------------------
Function ComSpecMelt() As Boolean
Dim szFile As String * 256, szCmd As String * 256

If GetModuleFileName(0, ByVal szFile, 256) <> 0 Then

[zcoolmax]

คล้ายๆกับการทำ trial version เลยนะครบ

เพียงแต่ถ้าผู้ใช้มีโปรแกรมที่ถุกีบอัดด้วย winrar ก้อจะ คลายไฟล์ออกมาใช้ได้ทุกครั้งเลยหนิครับ

ถ้ามีการตรวจสอบไห้เยอะคงใช้ได้ครั้งเดวไปเลย

[immortalpao]

ไม่เคยเจอมาก่อน น่าลองๆ