PacketX: Simple.vbs

00001 '
00002 '// File:         Simple.vbs
00003 '//
00004 '// Description:  This script demonstrates how to capture HTTP packets
00005 '//
00006 '// Notes:        Run the script from command line using the cscript.exe program
00007 '//
00008 '// Created:      May 10, 2004
00009 '//
00010 '// Copyright (c) 2000-2004 BeeSync Technologies.
00011 '
00012 
00013 '// Create PacketX instance
00014 Set oPktX = WScript.CreateObject("PktX.PacketX","PacketX_")
00015 
00016 '// Display network adapters
00017 For i = 1 To oPktX.Adapters.Count
00018   If oPktX.Adapters(i).IsGood Then
00019     WScript.Echo "(" & i & ") " & RTrim(LTrim(oPktX.Adapters(i).Description))
00020   End If
00021 Next
00022 
00023 '// Select network adapter
00024 oPktX.Adapter = Nothing
00025 While oPktX.Adapter Is Nothing
00026   WScript.StdOut.Write "Choose adapter#"
00027   On Error Resume Next
00028     oPktX.Adapter = oPktX.Adapters(RTrim(LTrim(WScript.StdIn.ReadLine)))
00029   On Error Goto 0
00030 Wend
00031 
00032 '// Apply BPF capture filter
00033 oPktX.Adapter.BPFilter="port 80"
00034 
00035 oPktX.Start
00036   WScript.Sleep(60000)
00037 oPktX.Stop
00038 
00039 Public Sub PacketX_OnPacket(ByRef oPacket)
00040   WScript.Stdout.Write "A"
00041 End Sub