Forum Smadav

Teknologi Komputer dan Internet => Programming => Topik dimulai oleh: Frans Mangarahut Situmorang pada Juni 25, 2012, 09:56:03 PM

Judul: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juni 25, 2012, 09:56:03 PM
Wah sepertinya banyak yang ingin tau cara mendeteksi apakah computer tersambung keinternet atau tidak seperti Smadav, Nah kali ini saya akan memberi 1 Tips bagi AV-maker yang ingin mengabungkan source code ini ke Avnya  :-bd :-bd :-bd :-bd :-bd :-bd


Sediakan :
1 Form =>Caption "Cek Internet"
1 Module => Name "basModCek"
1 Commad Button "cmdLinCek"

Lalu masukan source code ini pada Form

Private Sub cmdLinCek_Click()
If Cek_Lin = True Then
MsgBox "Computer terkoneksi ke Internet", vbInformation, "Giusppe Smart Security" '<== Bisa diganti dengan alamat website Anda
' ShellExecute Me.hwnd, "Open", "http://www.giusppesmartsecurity.blogspot.com", "", "", 1
Else
MsgBox "Computer tidak terkoneksi ke Internet", vbExclamation, "Giusppe Smart Security"
End If
End Sub


Trus masukan code berikut ini pada basModCek

Public Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxDeviceType = 16
Public Const RAS95_MaxDeviceName = 32
'
Public Type RASCONN95
    dwSize As Long
    hRasCon As Long
    szEntryName(RAS95_MaxEntryName) As Byte
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Public Type RASCONNSTATUS95
    dwSize As Long
    RasConnState As Long
    dwError As Long
    szDeviceType(RAS95_MaxDeviceType) As Byte
    szDeviceName(RAS95_MaxDeviceName) As Byte
End Type

Public Function Cek_Lin() As Boolean
  Dim TRasCon(255) As RASCONN95
  Dim lg As Long
  Dim lpcon As Long
  Dim RetVal As Long
  Dim Tstatus As RASCONNSTATUS95
  

    TRasCon(0).dwSize = 412
    lg = 256 * TRasCon(0).dwSize
    
    RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
    If RetVal <> 0 Then
        MsgBox "ERROR"
        Exit Function
    End If
    
    Tstatus.dwSize = 160
    RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
    If Tstatus.RasConnState = &H2000 Then
        Cek_Lin = True
      Else
        Cek_Lin = False
    End If
End Function


Selamat mencoba  :-bd :-bd :-bd :-bd :-bd :-bd :-bd :-bd :-bd :-bd


News
Blog GiusppeSmartSecurity udah dialihkan ke
www.maximusoft.com
 (http://www.maximusoft.com)

http://www.maximusoft.com/2015/02/klikofficecoid-belanja-online-peralatan.html (http://www.maximusoft.com/2015/02/klikofficecoid-belanja-online-peralatan.html)


Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Deny MiniDwarf pada Juni 25, 2012, 09:58:08 PM
Coolll...thnx ilmunya gan...
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juni 26, 2012, 10:55:59 AM
Cendolnya gan :D
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: yorin pada Juni 26, 2012, 11:30:21 AM
mantabbb... thanks infonya gan  :-bd :-bd :-bd
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juni 29, 2012, 10:10:57 PM
Ok :)

Saling berbagi itu Indah ;)
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Qie.aja pada Juni 30, 2012, 07:07:21 PM
wah mantap, tp kalo sekalian dilampirin filenya lebih mantap kayaknya :D
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: ★ harboot ★ pada Juni 30, 2012, 10:31:50 PM
Buat penggemar Visual Basic.
Beli buku Tip Trik 100/200/400 Visual Basic.
Bentuknya buku saku, mungil.

Lumayan jadi kamus berjalan,,

Banyak kode2 menarik.
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juli 05, 2012, 06:53:46 AM
wah mantap, tp kalo sekalian dilampirin filenya lebih mantap kayaknya :D
[Mantab] :-bd :-bd :-bd :-bd :-bd :-bd baru ingat saya kalau lebih bagus pakai lampiran  ;) ;) ;) ;) ;) ;)
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juli 13, 2012, 01:06:36 AM
nice share gan and nice info
sama- sama gan  :-* :-* :-* :-* :-* :-*
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Ruli_Sigma pada Juli 18, 2012, 07:01:35 PM
Mantap gan .... thx infony ....  :-bd :-bd :-bd
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: rizaldiygbiru pada Juli 18, 2012, 07:10:59 PM
mantab inpo nya gan ...
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Juli 20, 2012, 07:16:36 PM
sama- sama Dut  ;) ;) ;) ;) ;) ;)
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: ronie jack pada Oktober 26, 2012, 02:23:36 PM
thx
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Maxx pada Oktober 27, 2012, 10:39:21 AM
Frans, ada yg buat download langsung file g? Kek smadav contohnya, download databasenya langsung tanpa buka browser. :D
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: ViperGM pada Oktober 27, 2012, 11:04:13 AM
Nice gan^^ +1 dulu ^^
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: belajar pada Februari 10, 2013, 06:05:45 AM
Siph gan
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: dyfa_grahatama pada Februari 10, 2013, 11:18:36 AM
di klik kanan trus status network ,,di pokok bawah kanan
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Frans Mangarahut Situmorang pada Februari 19, 2013, 10:44:35 AM
Frans, ada yg buat download langsung file g? Kek smadav contohnya, download databasenya langsung tanpa buka browser. :D
Oh seperti smadav gitu ?
di source code CMC sepertinya ada agan Maxx  ;) ;)
Coba download aja  :-bd
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: yupix80 pada Maret 21, 2013, 02:43:20 PM
nice info..
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Nanosuit_Drive pada Juni 08, 2013, 11:50:03 AM
Berguna Banget Untuk AV
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: RifqiSah pada Juni 09, 2013, 04:05:56 AM
ini kalo di WIFI ngga kedetect
Judul: Re: Cara Mendeteksi Status Internet
Ditulis oleh: Egyptians pada Maret 28, 2014, 01:46:46 AM
thanks gan, menuju TKP
walau saya baru pengen coba menjadi programer, patut di coba :D
Judul: Re:Cara Mendeteksi Status Internet
Ditulis oleh: cotezska pada Maret 14, 2016, 12:18:25 PM
coba ping google.com