Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6 Wed 27 Oct 2010, 08:57 | |
| - Code:
-
Dim Windows_Firewall
Dim DigitalCat
Private Sub Command1_Click()
Set Windows_Firewall = CreateObject("HNetCfg.fwMgr")
Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile
DigitalCat.FIREWALLENABLED = False
MsgBox "Firewall OFF", vbInformation
End Sub
Private Sub Command2_Click()
Set Windows_Firewall = CreateObject("HNetCfg.fwMgr")
Set DigitalCat = Windows_Firewall.LocalPolicy.CurrentProfile
DigitalCat.FIREWALLENABLED = True MsgBox "Firewall ON", vbInformation End Sub
Aplikasi ini di gunakan untuk mematikan dan menghidupkan Firewall komputer anda.. mau tau lebih lanjut download project nya di link bawah ini [You must be registered and logged in to see this link.] |
|
Change Your Avatar --------------> syahwani
Rank : Level one
Jumlah posting : 1 Point : 1 Reputasi : 0 Join date : 2012-02-26
| Subject: Re: Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6 Sun 26 Feb 2012, 15:37 | |
| linknya kagak bisa gan... |
|
Change Your Avatar --------------> admin
Rank : Admin
My Pets : Jumlah posting : 550 Point : 2147483647 Reputasi : 47 Join date : 2010-04-23 Age : 31 Lokasi : indonesia
| Subject: Re: Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6 Wed 29 Feb 2012, 10:01 | |
| - syahwani wrote:
- linknya kagak bisa gan...
di buat aja lagi buat form seperti itu kodingnya tinggal kopas simpan di setiap button |
|
Change Your Avatar --------------> Sponsored content
Rank :
| Subject: Re: Aplikasi Menghidupkan dan Mematikan Firewall Dengan VB6 | |
| |
|