DG8SAQ VECTOR NETWORK ANALYZER VNWA HILFE - SDR-Kits

- If higher 16 bits of WParam are zero, then the message contains the VNWA remote handle = LParam. VNWAlistens to message code = WParam in this case.- If higher 16 bits of WParam are NOT zero, then the return message contains an error code. The error code =higher 16 bit of WParam.Error codes:1: No error2: Script file error, non existent file error, non existent directory error3: File access error (e.g. write-file blocked)Software ImplementationDas folgende Delphi/Pascal Beispiel codiert Shows, wie man die VNWA Software entfernt startet und sie entferntkontrolliert:unit URemote;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, ShellAPI, Menus;typeTForm1 = class(TForm)BStartVNWA: TButton;ListBox: TListBox;EPath: TEdit;ERuntimeArgument: TEdit;BSendMessage: TButton;ECommand: TEdit;EParameter: TEdit;Label1: TLabel;Label2: TLabel;PopupMenu1: TPopupMenu;ClearScreen1: TMenuItem;Edit5: TEdit;BSendWName: TButton;Label3: TLabel;Label4: TLabel;Edit6: TEdit;BSendRName: TButton;procedure BStartVNWAClick(Sender: TObject);procedure FormCreate(Sender: TObject);procedure BSendMessageClick(Sender: TObject);procedure ClearScreen1Click(Sender: TObject);procedure BSendWNameClick(Sender: TObject);procedure BSendRNameClick(Sender: TObject);privatePrivate declarationspublicPublic declarationsremotehandle: hwnd;WM_REMOTE: WORD;procedure Receiver(var Msg: TMessage); message WM_USER;end;varForm1: TForm1;implementation$R *.dfmprocedure TForm1.BStartVNWAClick(Sender: TObject);var path, argument: string;beginPostMessage(remotehandle, WM_REMOTE, 0, 0); //try to terminate VNWA if it is still runningsleep(500); //wait for VNWA to terminate- 370 -