HanAVI Antivirus 2016

[MozaikTM]

Untuk yang itu memang saya biarkan 0 gan..

-_- gk scan apa apa dong...

[HanAVI]

-_- gk scan apa apa dong...

Meskipun File Scanned-nya 0 tapi tetep Scan kok gan.. lagipula yang di scan gk lebih dari 20..

[MozaikTM]

Meskipun File Scanned-nya 0 tapi tetep Scan kok gan.. lagipula yang di scan gk lebih dari 20..

-_-
oh ya gan, itu file wmp.dll buat apaan?
emangnya ada proses yg ngebutuhin file wmp.dll?

[HanAVI]

-_-
oh ya gan, itu file wmp.dll buat apaan?
emangnya ada proses yg ngebutuhin file wmp.dll?

Oh.. itu buat suara Alert gan,tapi belum saya tambahin file wav-nya... (lupa )

[MozaikTM]

Oh.. itu buat suara Alert gan,tapi belum saya tambahin file wav-nya... (lupa )

gk perlu file itu juga kali,
ane ada caranya yg gk pake file wmp.dll
trus file .wav nya juga bisa di embed alias dimasukin langsung ke aplikasinya, pake Resource Editor bawaan VB6

[HanAVI]

gk perlu file itu juga kali,
ane ada caranya yg gk pake file wmp.dll
trus file .wav nya juga bisa di embed alias dimasukin langsung ke aplikasinya, pake Resource Editor bawaan VB6

Whoho.. bagaimana caranya gan... please

[HanAVI]

gk perlu file itu juga kali,
ane ada caranya yg gk pake file wmp.dll
trus file .wav nya juga bisa di embed alias dimasukin langsung ke aplikasinya, pake Resource Editor bawaan VB6

Untuk caranya bisa besok ya gan... soalnya saya tdk betah ngantuk..

[MozaikTM]

Whoho.. bagaimana caranya gan... please

[spoiler=KODENYA]

Kode: (#1 Declare Function) [Pilih]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Kode: (#2 PlayRESSound) [Pilih]

Private Sub PlayRESSound(ByVal ID As String, Optional ByVal bWait As Boolean = False)
    Dim lFlags As Long, vAddress As String
   
    lFlags = IIf(bWait = True, &H0 Or &H4, &H1 Or &H4)
    vAddress = StrConv(LoadResData(ID, "SOUND"), vbUnicode)
    sndPlaySound vAddress, lFlags
End Sub


Kode: (#3 playZink) [Pilih]

Public Sub playZink()
    PlayRESSound "ZINK", False
End Sub
[/spoiler]

Penjelasan:
#1
(gk perlu gwe jelasin]

#2
Ngambil data dari resource berdasarkan ID,
kalo bWait valuenya TRUE, programnya muter suara dulu, baru ngejalanin kode yg lain
kalo bWait valuenya FALSE, programnya muter suara sambil ngejalanin kode yg lain yg ada dibawahnya

#3
bikin suara "ngiiiiiinngggggggg",
nama resourcenya "SOUND", ID nya "ZINK"

download file ZINK.WAV:
http://minami.zz.mu/public/zink.wav

cara embed file resource:
pilih menu Add-Ins, Add-Ins Manager
terus cari pilihan VB6 Resource Editor
kasih tanda centang di pilihan "Loaded/Unloaded" sama "Load on startup", klik OK

klik kanan Project Explorer, pilih Add, pilih Resource File,
tulis namanya terserah agan aja, terus klik Open, klik OK

di Project Explorer, pilih Related Documents, pilih "nama filenya".res,
pilih Add Custom Resource, cari file .wav nya, terus klik Open

pilih file yg abis dimasukin tadi,
klik kanan, pilih Properties,
bagian type, isinya "SOUND",
bagian ID, isinya "ZINK" atau yg lain,
klik OK
simpen resourcenya,
DONE.

[MozaikTM]

#Post diatas udah panjang, gue lanjutin disini,

karena file .wav isinya masih asli, belum dikompres,
pilih filenya yg gk terlalu besar, ngaruh sama ukuran file aplikasinya (jelaslah.....)

kalo mau bikin suara pas ada form muncul, kasih kode "playZink" atau apalah yg agan buat, ditulis paling atas (gk atas" banget juga)

[HanAVI]

[spoiler=KODENYA]

Kode: (#1 Declare Function) [Pilih]

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long


Kode: (#2 PlayRESSound) [Pilih]

Private Sub PlayRESSound(ByVal ID As String, Optional ByVal bWait As Boolean = False)
    Dim lFlags As Long, vAddress As String
   
    lFlags = IIf(bWait = True, &H0 Or &H4, &H1 Or &H4)
    vAddress = StrConv(LoadResData(ID, "SOUND"), vbUnicode)
    sndPlaySound vAddress, lFlags
End Sub


Kode: (#3 playZink) [Pilih]

Public Sub playZink()
    PlayRESSound "ZINK", False
End Sub
[/spoiler]

Penjelasan:
#1
(gk perlu gwe jelasin]

#2
Ngambil data dari resource berdasarkan ID,
kalo bWait valuenya TRUE, programnya muter suara dulu, baru ngejalanin kode yg lain
kalo bWait valuenya FALSE, programnya muter suara sambil ngejalanin kode yg lain yg ada dibawahnya

#3
bikin suara "ngiiiiiinngggggggg",
nama resourcenya "SOUND", ID nya "ZINK"

download file ZINK.WAV:
http://minami.zz.mu/public/zink.wav

cara embed file resource:
pilih menu Add-Ins, Add-Ins Manager
terus cari pilihan VB6 Resource Editor
kasih tanda centang di pilihan "Loaded/Unloaded" sama "Load on startup", klik OK

klik kanan Project Explorer, pilih Add, pilih Resource File,
tulis namanya terserah agan aja, terus klik Open, klik OK

di Project Explorer, pilih Related Documents, pilih "nama filenya".res,
pilih Add Custom Resource, cari file .wav nya, terus klik Open

pilih file yg abis dimasukin tadi,
klik kanan, pilih Properties,
bagian type, isinya "SOUND",
bagian ID, isinya "ZINK" atau yg lain,
klik OK
simpen resourcenya,
DONE.

Thanks gan.. udah saya coba n sukses...