ตัวอย่าง 1 : ทุกอย่างในฟอร์ม
Private Declare Function getdiskfreespacea _
Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal _
  iprootpathname As String, _
  ipsectorspercluster As Long, _
  ipbytespersector As Long, _
  ipnumberoffreeclusters As Long, _
  iptotalnumberofclusters As Long _
) As Long

Private Sub Command1_Click()
result = getdiskfreespacea("c:\", sectors, bytes, freecluster, totcluster)
Text1 = Format(sectors * bytes * freecluster, "##,###") & " Bytes"
Text1 = Text1 & "(" & sectors & "*" & bytes & "*" & freecluster & ")"
msgbox app.path
End Sub

ตัวอย่าง 2 : แยกประกาศในโมดูล และในฟอร์ม
' in module1 (if in form will be error)
Public Type SYSTEMTIME
wYear As Integer
wMonth As Integer
wDayOfWeek As Integer
wDay As Integer
wHour As Integer
wMinute As Integer
wSecond As Integer
wMilliseconds As Integer
End Type
Public Declare Sub GetSystemTime Lib "kernel32" (lpSystemTime As SYSTEMTIME)

' in form1
Private Sub Command1_Click()
Dim x As SYSTEMTIME
GetSystemTime x
MsgBox x.wMilliseconds
End Sub

คำสั่งควรทราบ
List2.Clear
List3.Clear
If List1.ListCount > 255 Then j = List1.ListCount - 255 Else j = 1
For i = List1.ListCount To j Step -1
  List1.ListIndex = i - 1
  If (Mid(List1, 1, 1) = "[") Then 
    List2.AddItem List1 
  Else 
    List3.AddItem List1
  End if
Next
.
.
If Command1.Caption = "START &PING" Then
  checkip
  Timer1.Interval = Text6
  Command1.Caption = "STOP &PING"
Else
  Command1.Caption = "START &PING"
  Timer1.Interval = 0
End If

? ท่านเข้าใจตัวอย่าง code ข้างล่างนี้ว่าอย่างไร
 Dim buff As String
 Open "c:\test.txt" For Input As #1
 filestr = ""
   Do Until EOF(1)
     Line Input #1, TempStr
     filestr = filestr & TempStr & Chr$(13) & Chr$(10)
   Loop
 Close #1
 Text1.Text = filestr
 ' Open App.Path & "\output.txt" For Output As #2
 ' Print #2, s_Student, s_Grade
 

Source code ที่ใช้งาน
' YONOK Log 1.0 ' ขั้นตอน (ปรับปรุง : 2549-10-04) ' 1. เพิ่ม component ชื่อ Microsoft Internet Controls ' 2. สร้าง control ชื่อ webbrowser1 บน form ' 3. สร้าง control ชื่อ timer1 บน form ' 4. ใช้ code ด้านล่างนี้สั่ง connect เข้า web server แล้วปิดตัวเองไปใน 10 วินาที ' 5. กำหนดขนาดของ webbrowser1 กว้างยาวเป็น 1 ก็จะมองไม่เห็นครับ ' 6. Source คือ yonoklog1.frm และ yonoklog1.vbp เก็บใน c:\ ' http://www.cruto.com/Resources/VBScript/VBScript-Examples/network/client/list/List-Network-Adapter-Configuration-Properties.asp ' http://www.codeproject.com/vbscript/VvvHardwareInfo.asp?df=100&forumid=35020&exp=0&select=1464228 '====================== Private Const toserver = "http://www.yonok.ac.th/log/computer.php?q=" 'Private Declare Function GetIpAddrTable_API Lib "IpHlpApi" Alias "GetIpAddrTable" (pIPAddrTable As Any, pdwSize As Long, ByVal bOrder As Long) As Long Private Declare Function CreateRectRgn Lib _ "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, _ ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function CombineRgn Lib _ "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, _ ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long Private Declare Function SetWindowRgn Lib _ "user32" (ByVal hWnd As Long, ByVal hRgn As Long, _ ByVal bRedraw As Boolean) As Long Private Declare Function DeleteObject Lib _ "gdi32" (ByVal hObject As Long) As Long ' Constants used by the CombineRgn function Private Const RGN_AND = 1 Private Const RGN_OR = 2 Private Const RGN_XOR = 3 Private Const RGN_DIFF = 4 Private Const RGN_COPY = 5 Private Sub cmdExit_Click() Unload Me End Sub ' Returns an array with the local IP addresses (as strings). ' Author: Christian d'Heureuse, www.source-code.biz 'Public Function GetIpAddrTable() ' Dim Buf(0 To 511) As Byte ' Dim BufSize As Long: BufSize = UBound(Buf) + 1 ' Dim rc As Long ' rc = GetIpAddrTable_API(Buf(0), BufSize, 1) ' If rc <> 0 Then Err.Raise vbObjectError, , "GetIpAddrTable failed with return value " & rc ' Dim NrOfEntries As Integer: NrOfEntries = Buf(1) * 256 + Buf(0) ' If NrOfEntries = 0 Then GetIpAddrTable = Array(): Exit Function ' ReDim IpAddrs(0 To NrOfEntries - 1) As String ' Dim i As Integer ' For i = 0 To NrOfEntries - 1 ' Dim j As Integer, s As String: s = "" ' For j = 0 To 3: s = s & IIf(j > 0, ".", "") & Buf(4 + i * 24 + j): Next ' IpAddrs(i) = s ' Next ' GetIpAddrTable = IpAddrs ' End Function Private Sub Form_Activate() Dim rgnForm As Long, rgnCombined As Long Dim rgnControl As Long, x As Long Dim formWidth As Single, formHeight As Single Dim borderWidth As Single, titleHeight As Single Dim ctlLeft As Single, ctlTop As Single Dim ctlWidth As Single, ctlHeight As Single Dim ctl As Control ' Calculate the form area borderWidth = (Me.Width - Me.ScaleWidth) / 2 titleHeight = Me.Height - Me.ScaleHeight - borderWidth ' Convert to Pixels borderWidth = ScaleX(borderWidth, vbTwips, vbPixels) titleHeight = ScaleY(titleHeight, vbTwips, vbPixels) formWidth = ScaleX(Me.Width, vbTwips, vbPixels) formHeight = ScaleY(Me.Height, vbTwips, vbPixels) ' Create a region for the whole form rgnForm = CreateRectRgn(0, 0, formWidth, formHeight) rgnCombined = CreateRectRgn(0, 0, 0, 0) ' Make the graphical area transparent by combining the two regions x = CombineRgn(rgnCombined, rgnForm, rgnForm, RGN_DIFF) ' Make the controls visible For Each ctl In Controls ' Make the regions of controls whose container is the form visible ' MsgBox ctl.Name If ctl.Name <> "Timer1" Then If TypeOf ctl.Container Is Form Then ctlLeft = ScaleX(ctl.Left, vbTwips, vbPixels) + borderWidth ctlTop = ScaleX(ctl.Top, vbTwips, vbPixels) + titleHeight ctlWidth = ScaleX(ctl.Width, vbTwips, vbPixels) + ctlLeft ctlHeight = ScaleX(ctl.Height, vbTwips, vbPixels) + ctlTop rgnControl = CreateRectRgn(ctlLeft, ctlTop, ctlWidth, ctlHeight) x = CombineRgn(rgnCombined, rgnCombined, rgnControl, RGN_OR) End If End If Next ctl ' Set the clipping area of the window using the resulting region SetWindowRgn hWnd, rgnCombined, True ' Tidy up x = DeleteObject(rgnCombined) x = DeleteObject(rgnControl) x = DeleteObject(rgnForm) End Sub Private Sub Form_Load() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration") msg = "" lp = Chr(13) macaddr = "" For Each objItem In colItems msg = msg & lp & "ARP Always Source Route: " & objItem.ArpAlwaysSourceRoute msg = msg & lp & "ARP Use EtherSNAP: " & objItem.ArpUseEtherSNAP msg = msg & lp & "Caption: " & objItem.Caption msg = msg & lp & "Database Path: " & objItem.DatabasePath msg = msg & lp & "Dead GW Detection Enabled: " & objItem.DeadGWDetectEnabled msg = msg & lp & "Default IP Gateway: " & objItem.DefaultIPGateway msg = msg & lp & "Default TOS: " & objItem.DefaultTOS msg = msg & lp & "Default TTL: " & objItem.DefaultTTL msg = msg & lp & "Description: " & objItem.Description msg = msg & lp & "DHCP Enabled: " & objItem.DHCPEnabled msg = msg & lp & "DHCP Lease Expires: " & objItem.DHCPLeaseExpires msg = msg & lp & "DHCP Lease Obtained: " & objItem.DHCPLeaseObtained msg = msg & lp & "DHCP Server: " & objItem.DHCPServer msg = msg & lp & "DNS Domain: " & objItem.DNSDomain msg = msg & lp & "DNS Domain Suffix Search Order: " & objItem.DNSDomainSuffixSearchOrder msg = msg & lp & "DNS Enabled For WINS Resolution: " & objItem.DNSEnabledForWINSResolution msg = msg & lp & "DNS Server Search Order: " & objItem.DNSServerSearchOrder msg = msg & lp & "Domain DNS Registration Enabled: " & objItem.DomainDNSRegistrationEnabled msg = msg & lp & "Forward Buffer Memory: " & objItem.ForwardBufferMemory msg = msg & lp & "Full DNS Registration Enabled: " & objItem.FullDNSRegistrationEnabled msg = msg & lp & "Gateway Cost Metric: " & objItem.GatewayCostMetric msg = msg & lp & "IGMP Level: " & objItem.IGMPLevel msg = msg & lp & "Index: " & objItem.Index msg = msg & lp & "IP Address: " & objItem.IPAddress msg = msg & lp & "IP Connection Metric: " & objItem.IPConnectionMetric msg = msg & lp & "IP Enabled: " & objItem.IPEnabled msg = msg & lp & "IP Filter Security Enabled: " & objItem.IPFilterSecurityEnabled msg = msg & lp & "IP Port Security Enabled: " & objItem.IPPortSecurityEnabled msg = msg & lp & "IPSec Permit IP Protocols: " & objItem.IPSecPermitIPProtocols msg = msg & lp & "IPSec Permit TCP Ports: " & objItem.IPSecPermitTCPPorts msg = msg & lp & "IPSec Permit UDP Ports: " & objItem.IPSecPermitUDPPorts msg = msg & lp & "IP Subnet: " & objItem.IPSubnet msg = msg & lp & "IP Use Zero Broadcast: " & objItem.IPUseZeroBroadcast 'msg = msg & lp & "IPX Address: " & objItem.IPXAddress 'msg = msg & lp & "IPX Enabled: " & objItem.IPXEnabled 'msg = msg & lp & "IPX Frame Type: " & objItem.IPXFrameType 'msg = msg & lp & "IPX Media Type: " & objItem.IPXMediaType 'msg = msg & lp & "IPX Network Number: " & objItem.IPXNetworkNumber 'msg = msg & lp & "IPX Virtual Net Number: " & objItem.IPXVirtualNetNumber msg = msg & lp & "Keep Alive Interval: " & objItem.KeepAliveInterval msg = msg & lp & "Keep Alive Time: " & objItem.KeepAliveTime msg = msg & lp & "MTU: " & objItem.MTU msg = msg & lp & "Number of Forward Packets: " & objItem.NumForwardPackets msg = msg & lp & "PMTUBH Detect Enabled: " & objItem.PMTUBHDetectEnabled msg = msg & lp & "PMTU Discovery Enabled: " & objItem.PMTUDiscoveryEnabled msg = msg & lp & "Service Name: " & objItem.ServiceName msg = msg & lp & "Setting ID: " & objItem.SettingID msg = msg & lp & "TCPIP Netbios Options: " & objItem.TcpipNetbiosOptions msg = msg & lp & "TCP Maximum Connect Retransmissions: " & objItem.TcpMaxConnectRetransmissions msg = msg & lp & "TCP Maximum Data Retransmissions: " & objItem.TcpMaxDataRetransmissions msg = msg & lp & "TCP NumC onnections: " & objItem.TcpNumConnections msg = msg & lp & "TCP Use RFC1122 Urgent Pointer: " & objItem.TcpUseRFC1122UrgentPointer msg = msg & lp & "TCP Window Size: " & objItem.TcpWindowSize msg = msg & lp & "WINS Enable LMHosts Lookup: " & objItem.WINSEnableLMHostsLookup msg = msg & lp & "WINS Host Lookup File: " & objItem.WINSHostLookupFile msg = msg & lp & "WINS Primary Server: " & objItem.WINSPrimaryServer msg = msg & lp & "WINS Scope ID: " & objItem.WINSScopeID msg = msg & lp & "WINS Secondary Server: " & objItem.WINSSecondaryServer msg = "" capts = Split(objItem.Caption, " ") For Each capt In capts msg = msg & capt & lp If capt = "Ethernet" Then If macaddr = "" Then If (Len(objItem.DNSHostName) > 1) Then cname = objItem.DNSHostName msg = msg & lp & "DNS Host Name: " & cname If (Len(objItem.MACAddress) > 1) Then macaddr = objItem.MACAddress msg = msg & lp & "MAC Address: " & macaddr End If End If Next 'MsgBox msg Next ' 3 seconds = 3000 miliseconds Timer1.Interval = 3000 WebBrowser1.Navigate (toserver & macaddr & "&n=" & cname) ' Dim IpAddrs ' IpAddrs = GetIpAddrTable ' Dim i As Integer ' For i = LBound(IpAddrs) To UBound(IpAddrs) ' If (Not (IpAddrs(i) = "127.0.0.1")) Then MsgBox IpAddrs(i) ' Next End Sub Private Sub Timer1_Timer() Unload Me End Sub

ตัวอย่าง open.php
<?
$f = fopen("log.txt","a");
fputs($f, $_GET["q"].",".$_GET["n"]."\n");
fclose($f);
?>
ตัวอย่าง list.php
<?
$ar = file("log.txt");
foreach ($ar as $v) echo $v."<br>"; 
?>