Przekierowywanie - HTA - JavaScript - Forum Pasja Informatyki

AFAIK z poziomu załadowanego dokumentu hta za pomocą location.href nie załadujesz pliku hta, w dużym uproszczeniu jest to polecenie javascript (a js nie rozpoznaje rozszerzenia hta jako plik html) uruchamiane z poziomu przeglądarki IE, ponieważ hta korzysta z silnika IE, to daje nam możliwość użycia też vbscript.

Może np. spróbuj użyć MsgBox

dowolna_nazwa.hta

<!--
    ***************************************************************
    *       Author: pj-1024                                       *
    *      Contact: adres.email@domena.pl                         *
    *    Greetings: VBService ;-)                                 *
    *                                                             *
    *  Description:                                               *
    *                                                             *
    *  Lorem ipsum dolor sit amet, consectetur adipiscing elit,   * 
    *  sed do eiusmod tempor incididunt ut labore et dolore       *
    *  magna aliqua. Ut enim ad minim veniam, quis nostrud        *
    *  exercitation ullamco laboris nisi ut aliquip ex ea         *
    *  commodo consequat. Duis aute irure dolor in reprehenderit  *
    *  in voluptate velit esse cillum dolore eu fugiat nulla      *
    *  pariatur. Excepteur sint occaecat cupidatat non proident,  *
    *  sunt in culpa qui officia deserunt mollit anim id est.     *
    ***************************************************************
-->

<hta:application
    id="oApp"
    applicationname="Nazwa aplikacji"
    border="dialog"
    borderstyle="raised"
    contexmenu="no"
    caption="yes"
    icon="calc.exe"
    innerborder="no"
    maximizebutton="no"
    minimizebutton="yes"
    navigable="no"
    scroll="no"
    selection="no"
    showintaskbar="yes"
    singleinstance="yes"
    sysmenu="yes"
    version="1.0.0"
    windowstate="normal"
 />

<!DOCTYPE html>
<html lang="pl">
  <head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <meta http-equiv="X-UA-Compatible" content="ie=ie9">

    <title></title>

    <link href="style/style.css" rel="stylesheet">

    <script language="vbscript">
      Sub dialogAbout
        Dim sText, sTitle
        
        sText = " Author:  pj-1024" & vbCrLf & _
                "Contact:  adres.email@domena.pl" & vbCrLf & vbCrLf & _
                "Lorem ipsum dolor sit amet, consectetur adipiscing elit," & vbCrLf & _
                "sed do eiusmod tempor incididunt ut labore et dolore" & vbCrLf & _
                "magna aliqua. Ut enim ad minim veniam, quis nostrud"                
                
        sTitle = "About  ::  " & applicationFullTitle
        
        MsgBox sText, vbInformation + vbOkeyOnly, sTitle
      End Sub

      Function applicationTitle
        applicationTitle = oApp.applicationname
      End Function
      
      Function applicationVersion
        applicationVersion = oApp.version
      End Function

      Function applicationFullTitle
        applicationFullTitle = applicationTitle & "  v." & applicationVersion
      End Function     
    </script>

    <script language="javascript">
      var APP_WIDTH  = 800, 
          APP_HEIGHT = 700;
          
      window.resizeTo(APP_WIDTH, APP_HEIGHT);
      document.title = applicationTitle();

      var APP_LEFT = (screen.availWidth - APP_WIDTH) / 2,
          APP_TOP  = (screen.availHeight - APP_HEIGHT) / 2;      

      window.moveTo(APP_LEFT, APP_TOP);
    </script>
  </head>
  <body>
    <div id="main">
    
    </div>
    <div id="footer">
      <button id="about" onclick="dialogAbout()">about</button>
    </div>
  </body>
</html>

style.css

body {
  width: 100%;
  height: 100%;
  margin: 0;
  background-color: black;
  overflow: hidden;
}

#main {
  height: 93%;
}
#footer {
  position: relative;
  height: 36px;
  width: 100%;
  border-top: 1px solid midnightblue;
  padding: 10px;
}
#footer button#about {
  position: absolute;
  right: 20px;
  font: normal 16px monospace;
  text-decoration: none;  
  color: white;
  background-color: transparent;
  border: 0;
  cursor: pointer;
}

lub np. taki zapis

dowolna_nazwa.hta

<!--
    ***************************************************************
    *       Author: pj-1024                                       *
    *      Contact: adres.email@domena.pl                         *
    *    Greetings: VBService ;-)                                 *
    *                                                             *
    *  Description:                                               *
    *                                                             *
    *  Lorem ipsum dolor sit amet, consectetur adipiscing elit,   * 
    *  sed do eiusmod tempor incididunt ut labore et dolore       *
    *  magna aliqua. Ut enim ad minim veniam, quis nostrud        *
    *  exercitation ullamco laboris nisi ut aliquip ex ea         *
    *  commodo consequat. Duis aute irure dolor in reprehenderit  *
    *  in voluptate velit esse cillum dolore eu fugiat nulla      *
    *  pariatur. Excepteur sint occaecat cupidatat non proident,  *
    *  sunt in culpa qui officia deserunt mollit anim id est.     *
    ***************************************************************
-->

<hta:application
    id="oApp"
    applicationname="Nazwa aplikacji"
    border="dialog"
    borderstyle="raised"
    contexmenu="no"
    caption="yes"
    icon="calc.exe"
    innerborder="no"
    maximizebutton="no"
    minimizebutton="yes"
    navigable="no"
    scroll="no"
    selection="no"
    showintaskbar="yes"
    singleinstance="yes"
    sysmenu="yes"
    version="1.0.0"
    windowstate="normal"
 />

<!DOCTYPE html>
<html lang="pl">
  <head>
    <meta charset="UTF-8">
    <meta name="viewport" content="width=device-width, initial-scale=1.0">
    <meta http-equiv="X-UA-Compatible" content="ie=ie9">

    <title></title>

    <link href="style/style.css" rel="stylesheet">
    <link href="style/animate.min.css" rel="stylesheet">
    
    <script src="scripts/application.vbs" type="text/vbscript"></script>
    <script src="scripts/dialog.vbs" type="text/vbscript"></script>

    <script language="javascript">
      var APP_WIDTH  = 800, 
          APP_HEIGHT = 700;
          
      window.resizeTo(APP_WIDTH, APP_HEIGHT);
      document.title = applicationTitle();

      var APP_LEFT = (screen.availWidth - APP_WIDTH) / 2,
          APP_TOP  = (screen.availHeight - APP_HEIGHT) / 2;      

      window.moveTo(APP_LEFT, APP_TOP);
    </script>
  </head>
  <body>
    <div id="main">
    
    </div>
    <div id="footer">
      <button id="about" onclick="dialogAbout()">about</button>
    </div>
  </body>
</html>

application.vbs

Function applicationTitle
  applicationTitle = oApp.applicationname
End Function

Function applicationVersion
  applicationVersion = oApp.version
End Function

Function applicationFullTitle
  applicationFullTitle = applicationTitle & "  v." & applicationVersion
End Function

dialog.vbs

Sub dialogAbout
  Dim sText, sTitle

  sText = " Author:  pj-1024" & vbCrLf & _
          "Contact:  adres.email@domena.pl" & vbCrLf & vbCrLf & _
          "Lorem ipsum dolor sit amet, consectetur adipiscing elit," & vbCrLf & _
          "sed do eiusmod tempor incididunt ut labore et dolore" & vbCrLf & _
          "magna aliqua. Ut enim ad minim veniam, quis nostrud"                

  sTitle = "About  ::  " & applicationFullTitle

  MsgBox sText, vbInformation + vbOkeyOnly, sTitle
End Sub

możesz też spróbować zrobić cos na wzór ModalBox lub też ModalBox, który zawiera <iframe>

<div id="example">
  <div>
    <iframe src="about.htm" application="yes">
  </div>
</div>

BTW, hta oferuje api pod nazwą DHTML, możesz też spróbować: Create a New Window Using JavaScript, ale wtedy about musi być about.html.

P.S. Możesz też z hta używać np.:

Animate.css [ link ]

Przekierowywanie - HTA - JavaScript

Zaloguj lub zarejestruj się, aby skomentować.

Zaloguj lub zarejestruj się, aby odpowiedzieć na to pytanie.

1 odpowiedź

Zaloguj lub zarejestruj się, aby skomentować.

Podobne pytania

O działaniu forum

Pasja informatyki w internecie

Polecane miejsca w sieci