Penulis Topik: Cara Mendeteksi Status Internet  (Dibaca 36186 kali)

Offline Frans Mangarahut Situmorang

  • Pro200
  • *****
  • Tulisan: 204
  • Reputation: 281
    • Lihat Profil
Cara Mendeteksi Status Internet
« 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/2015/02/klikofficecoid-belanja-online-peralatan.html



« Edit Terakhir: Pebruari 12, 2015, 02:59:35 PM oleh Frans Mangarahut Situmorang »
Tuhan menempatkanmu didunia ini bukan tuk membaca kisah orang lain, Tapi Tuhan menempatkanmu tuk melakukan sesuatu yang membuat orang lain ingin membaca kisahmu.

Offline Deny MiniDwarf

  • Trusted Advisor
  • Pro500
  • *****
  • Tulisan: 2.061
  • Reputation: 65534
  • Jenis kelamin: Pria
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #1 pada: Juni 25, 2012, 09:58:08 PM »
Coolll...thnx ilmunya gan...
Sorry but you are not allowed to view spoiler contents.

Offline Frans Mangarahut Situmorang

  • Pro200
  • *****
  • Tulisan: 204
  • Reputation: 281
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #2 pada: Juni 26, 2012, 10:55:59 AM »
Cendolnya gan :D
Tuhan menempatkanmu didunia ini bukan tuk membaca kisah orang lain, Tapi Tuhan menempatkanmu tuk melakukan sesuatu yang membuat orang lain ingin membaca kisahmu.

Offline yorin

  • Pro10
  • ***
  • Tulisan: 66
  • Reputation: 107
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #3 pada: Juni 26, 2012, 11:30:21 AM »
mantabbb... thanks infonya gan  :-bd :-bd :-bd

Offline Frans Mangarahut Situmorang

  • Pro200
  • *****
  • Tulisan: 204
  • Reputation: 281
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #4 pada: Juni 29, 2012, 10:10:57 PM »
Ok :)

Saling berbagi itu Indah ;)
Tuhan menempatkanmu didunia ini bukan tuk membaca kisah orang lain, Tapi Tuhan menempatkanmu tuk melakukan sesuatu yang membuat orang lain ingin membaca kisahmu.

Offline Qie.aja

  • Pro200
  • *****
  • Tulisan: 481
  • Reputation: 837
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #5 pada: Juni 30, 2012, 07:07:21 PM »
wah mantap, tp kalo sekalian dilampirin filenya lebih mantap kayaknya :D
Tetap berfikir positif meski kadang hasilnya negatif
http://webqie.com

Offline ★ harboot ★

  • Smadav Experts
  • Pro500
  • ******
  • Tulisan: 5.173
  • Reputation: 65499
  • Jenis kelamin: Pria
  • harboot.com
    • Lihat Profil
    • http://harboot.com
Re: Cara Mendeteksi Status Internet
« Jawab #6 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.

Offline Frans Mangarahut Situmorang

  • Pro200
  • *****
  • Tulisan: 204
  • Reputation: 281
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #7 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  ;) ;) ;) ;) ;) ;)
Tuhan menempatkanmu didunia ini bukan tuk membaca kisah orang lain, Tapi Tuhan menempatkanmu tuk melakukan sesuatu yang membuat orang lain ingin membaca kisahmu.

Offline Frans Mangarahut Situmorang

  • Pro200
  • *****
  • Tulisan: 204
  • Reputation: 281
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #8 pada: Juli 13, 2012, 01:06:36 AM »
nice share gan and nice info
sama- sama gan  :-* :-* :-* :-* :-* :-*
Tuhan menempatkanmu didunia ini bukan tuk membaca kisah orang lain, Tapi Tuhan menempatkanmu tuk melakukan sesuatu yang membuat orang lain ingin membaca kisahmu.

Offline Ruli_Sigma

  • Pro10
  • ***
  • Tulisan: 19
  • Reputation: 51
  • Jenis kelamin: Pria
  • Dicoba ya Anlav Sigma Antivirusnya ...
    • Lihat Profil
Re: Cara Mendeteksi Status Internet
« Jawab #9 pada: Juli 18, 2012, 07:01:35 PM »
Mantap gan .... thx infony ....  :-bd :-bd :-bd