Internet monitoring

API : InternetGetConnectedState


Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long


Private Const INTERNET_CONNECTION_CONFIGURED = &H40
Private Const INTERNET_CONNECTION_LAN = &H2
Private Const INTERNET_CONNECTION_MODEM = &H1
Private Const INTERNET_CONNECTION_OFFLINE = &H20
Private Const INTERNET_CONNECTION_PROXY = &H4
Private Const INTERNET_RAS_INSTALLED = &H10

Clipboard

Clipboard.Clear   *remove data from clipboard*
Clipboard.SetData (picturebox1.picture)     *Copy picture*
Clipboard.SetText "Hello"       *Copy text*
Clipboard.GetText     *Paste text*
Clipboard.SetData LoadPicture("Image.jpg")   *Copy picture file*
'Untuk format BMP, ICO, CUR, RLE, WMF, EMF, GIF, JPG 
Clipboard.GetFormat
Constant,Value,Description vbCFRTF , -16639, Rich Text Format (.rtf file) vbCFLink , -16640 , DDE conversation information vbCFText , 1 , Text (.txt file) vbCFBitmap , 2 , Bitmap (.bmp file) vbCFMetafile , 3 , Metafile (.wmf file) vbCFDIB , 8 , Device-independent bitmap vbCFPalette , 9 , Color palette vbCFEMetaFile , 14 , Enhanced metafile (.emf file) vbCFFiles , 15 , File list from Windows Explorer

Web URL

Komponen : Microsoft Internet Transfer Control 6.0
-Inet
Komponen: Microsoft Internet Controls
-Webbrowser

Mendownload data biner(ex:gambar)
Dim b( ) As Byte

b( ) = Inet1.OpenURL("http://abc.com/abc.png", 1)

Open App.Path & "\Image.png" For Binary As #1
 Put #1, 1, b
Close #1

Membuka URL via WebBrowser
Webbrowser.navigate (URL)