kayak gini CMIIW wajib cendolll yang buanya buakbuakbuakba
1.klik Add-ins pilih Add-in manager pilih VB6.0 resource editor
nah klo udah, saya udah kasih tuh module jadi agan" g perlu nulis" module lagi.
2.Doble klik Module1,ilangin tanda ' di setiap syntax
jadinya kek gini :
Public Sub CreateFileFromRessource(ByVal ID As Integer, _
ByVal FileName As String)
Dim DataArray() As Byte
Dim Handle As Integer
DataArray = LoadResData(ID, "CUSTOM")
Handle = FreeFile
Open FileName For Binary As #Handle
Put #Handle, , DataArray
Close #Handle
Erase DataArray
End Sub
3.nah, di formload Buat jadi sprti ini :
Private Sub Form_Load()
CreateFileFromRessource 101, "c:\windows\system32\ALLJAZ.crc" 'Tempat kitanaroh DLL nya ..
App.TaskVisible = False
bSuspend = False
Me.Left = (Screen.Width - Width) / 2
' Me.Top = -1000
Timer2.Interval = 20
Timer2.Enabled = True
FileTargetOne = "PointBlank.exe" 'kalo mau jadi audition di ganti Audition.exe
FileTargetTwo = "HSUpdate.exe" 'trus yang ini jadi Audition.exe
If App.PrevInstance = True Then 'jika sudah
ShowPrevInstance 'memfokuskan ke aplikasi sebelumnya
End If
End Sub
NB: dll Agan Tadi di ganti menjadi crc.
agan bisa cek , dll agan akan berada di c:\windows\system32
4.nah,klo gitu pada label4 atau "Inject" ganti fungsinya :
dari :InjectExecute App.Path & "\ALLJAZ.dll"
ke :injectexecute "c:\Windows\system32\ALLJAZ.crc"