/*
  vbasic.js - korzystanie z funkcji Visual Basic Script w jezyku JavaScript.
  Copyright (C) 1999 by Patryk Szczyglowski. All rights reserved.
  E-mail: psz@liceum26.waw.ids.pl

Plik "vbasic.js" nalezy dodawac do strony dopisujac do niej nastepujacy tekst:
  <script language="JavaScript" src="vbasic.js"></script>

Plik "vbasic.js" udostepnia nastepujace funkcje (Uwaga! Wielkosc liter ma znaczenie):
Uwaga! Wszystkie ponizsze funkcje wymagaja przegladarki Microsoft Internet Explorer.

  vbHex - zwraca wartosc reprezentujaca heksadecymalna (szesnastkowa) wartosc liczby dziesietnej
    Skladnia: vbHex(liczba);
  vbMsgBox - tworzy najzwyklejsze okienko Windows'owe np. znane z Notatnika pytanie o
   potwierdzenie zachowania pliku.
    Skladnia: vbMsgBox("tekst", atrybuty, "tytul");
    Uwaga! Parametr atrybuty moze byc suma nastepujace stalych (z kazdej grupy nalezy uzyc jednej
     stalej):
     Opisuje liczbe i typy przyciskow:
      vbOKOnly, vbOKCancel, vbAbortRetryIgnore, vbYesNoCancel, vbYesNo, vbRetryCancel
     Opisuje rodzaje ikon:
      vbCritical, vbQuestion, vbExclamation, vbInformation
     Okresla domyslny przycisk okna:
      vbDefaultButton1, vbDefaultButton2, vbDefaultButton3, vbDefaultButton4
     Stale definiujace zwacana wartosc oznaczajaca nacisniecie odpowiedniego przycisku w oknie:
      vbOK, vbCancel, vbAbort, vbRetry, vbIgnore, vbYes, vbNo
*/

ie = ((navigator.appName == "Microsoft Internet Explorer") ? true : false);

vbOKOnly = 0;
vbOKCancel = 1;
vbAbortRetryIgnore = 2;
vbYesNoCancel = 3;
vbYesNo = 4;
vbRetryCancel = 5;

vbCritical = 16;
vbQuestion = 32;
vbExclamation = 48;
vbInformation = 64;

vbDefaultButton1 = 0;
vbDefaultButton2 = 256;
vbDefaultButton3 = 512;
vbDefaultButton4 = 768;

vbOK = 1;
vbCancel = 2;
vbAbort = 3;
vbRetry = 4;
vbIgnore = 5;
vbYes = 6;
vbNo = 7;

if (ie) {
  document.writeln("<script language='VBScript'>");

  document.writeln("Function insMsgBox(Param1, Param2, Param3)");
  document.writeln("insMsgBox = MsgBox(Param1, Param2, Param3)");
  document.writeln("End Function");

  document.writeln("Function insHex(Param1)");
  document.writeln("insHex = Hex(Param1)");
  document.writeln("End Function");

  document.writeln("</script>");
}

function vbHex(liczba) {
  if (ie) {
    if (liczba == null || liczba == "" || isNaN(liczba)) liczba = 0;
    return insHex(liczba);
  }
}

function vbMsgBox(mtext, mstyle, mtitle) {
  if (ie) {
    if (mtext == null) mtext = "";
    if (mstyle == null || mstyle == "" || isNaN(mstyle)) mstyle = 0;
    if (mtitle == null) mtitle = "";
    return insMsgBox(mtext, mstyle, mtitle);
  }
}