Simple.vbs

This example demonstrates how to capture HTTP packets from VBScript.

See also:

PacketX , BPFilter

'
'// File:         Simple.vbs
'//
'// Description:  This script demonstrates how to capture HTTP packets
'//
'// Notes:        Run the script from command line using the cscript.exe program
'//
'// Created:      May 10, 2004
'//
'// Copyright (c) 2000-2004 BeeSync Technologies.
'

'// Create PacketX instance
Set oPktX = WScript.CreateObject("PktX.PacketX","PacketX_")

'// Display network adapters
For i = 1 To oPktX.Adapters.Count
  If oPktX.Adapters(i).IsGood Then
    WScript.Echo "(" & i & ") " & RTrim(LTrim(oPktX.Adapters(i).Description))
  End If
Next

'// Select network adapter
oPktX.Adapter = Nothing
While oPktX.Adapter Is Nothing
  WScript.StdOut.Write "Choose adapter#"
  On Error Resume Next
    oPktX.Adapter = oPktX.Adapters(RTrim(LTrim(WScript.StdIn.ReadLine)))
  On Error Goto 0
Wend

'// Apply BPF capture filter
oPktX.Adapter.BPFilter="port 80"

oPktX.Start
  WScript.Sleep(60000)
oPktX.Stop

Public Sub PacketX_OnPacket(ByRef oPacket)
  WScript.Stdout.Write "A"
End Sub