Petit Problème à propos de window.location

Version imprimable

18/11/2012, 03h09
djun1

Petit Problème à propos de window.location

Bonjour.

Je travailles avec hta. Lorsque je clique sur le button "Newgame", il y a un message qui dit voulez ouvrir, enregistrer ou enregistrer sous :

http://nsa32.casimages.com/img/2012/...1228575141.jpg

Ensuite, ma location apparait dans une autre fenetre.

Que faire pour que hta arrête de faire ça?
18/11/2012, 11h31
ProgElecT

Salut

Citation:

.....
Lorsque je clique sur le button "Newgame"
.....

Quel code est déclenché par ce bouton ?, ce bouton est de quel type, button, SUBMIT.
18/11/2012, 13h05
djun1

C'est plus un tableau que lorsqu'on clique dessus on dirige vers une page. :lol:
18/11/2012, 13h46
hackoofr

Citation:

Envoyé par djun1

C'est plus un tableau que lorsqu'on clique dessus on dirige vers une page. :lol:

:salut:
Pouvez-vous poster le code complet de votre HTA
:merci:

Code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
<html>
<head>
<title>Construit un empire qui dominera la terre</title>
<link rel="stylesheet" type="text/css" href="feuilledestyle.css">
<script language="javascript" src="evenement.js">
</script>
<script language="vbscript" src="script.vbs">
</script>
</head>
<body bgcolor="#5100FF">
<img src="image\home\logo.jpg" id="logo">
<table border="4" bordercolor="#3900B3" id="menu_general" width="400" height="300">
<tr>
<td valign="center" align="center" id="newgame" onmouseover="survol('newgame')" onmouseout="desurvol('newgame')" name="newgame">Commencer Une nouvelle partie.</td>
</tr>
<tr>
<td valign="center" align="center" id="loadgame" onmouseover="survol('loadgame')" onmouseout="desurvol('loadgame')" name="loadgame">Charger une partie.</td>
</tr>
<tr>
<td valign="center" align="center" id="howplay" onmouseover="survol('howplay')" onmouseout="desurvol('howplay')" name="howplay">Instruction.</td>
</tr>
<tr>
<td valign="center" align="center" id="tutorial" onmouseover="survol('tutorial')" onmouseout="desurvol('tutorial')" name="tutorial">Tutoriel.</td>
</tr>
</table>
</body>
</html>

contenue de evenement.js :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
function survol(x)
{
if(x === 'newgame')
 {
  document.getElementById('newgame').style.backgroundColor = "#8640FF";
 }
if(x === 'howplay')
 {
  document.getElementById('howplay').style.backgroundColor = "#8640FF";
 }
if(x === 'loadgame')
 {
  document.getElementById('loadgame').style.backgroundColor = "#8640FF";
 }
if(x === 'tutorial')
 {
  document.getElementById('tutorial').style.backgroundColor = "#8640FF";
 }
}
 
function desurvol(x)
{
 if(x === 'newgame')
 {
  document.getElementById('newgame').style.backgroundColor = "#5100FF";
 }
if(x === 'howplay')
 {
  document.getElementById('howplay').style.backgroundColor = "#5100FF";
 }
if(x === 'loadgame')
 {
  document.getElementById('loadgame').style.backgroundColor = "#5100FF";
 }
if(x === 'tutorial')
 {
  document.getElementById('tutorial').style.backgroundColor = "#5100FF";
 }
}

Contenue de script :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Newgame()
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("Database\partie.txt") Then 
Answer = MsgBox("Voulez-vous vraiment recommencer. Vous risquez de perdre vos donnés.",vbOKCancel)
If Answer = VbOk Then
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
window.location = "newgame.hta"
End If
Else
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
window.location = "newgame.hta"
End If
End Function
 
Sub newgame_Onclick()
Newgame()
End Sub

23/11/2012, 10h38
hackoofr

:salut:
il y a des choses qui ne sont pas encore très claire dans le code par exemple le code source de newgame.hta ? :calim2:
et il y a quoi dans Database\partie.txt :koi: le chemin :koi:
si vous pouvez zipper tout les fichiers ensemble et l'envoyer en pièce-jointe pour voir plus claire.
:merci:
24/11/2012, 14h23
djun1

1 pièce(s) jointe(s)

J'ai rien mis encore dans partie.txt.

Pièce jointe 106190

:salut:
modifier le code de script.vbs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Newgame()
set ws = createobject("wscript.shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("Database\partie.txt") Then 
Answer = MsgBox("Voulez-vous vraiment recommencer. Vous risquez de perdre vos donnés.",vbOKCancel)
If Answer = VbOk Then
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
ws.run "newgame.hta"
End If
Else
Set objFile = objFSO.CreateTextFile("Database\partie.txt")
ws.run "newgame.hta"
End If
End Function
 
Sub newgame_Onclick()
Newgame()
End Sub

24/11/2012, 19h20
djun1

Merci. Mais, il y un moyen pour que newgame.hta apparait dans le même window que menu.hta.

Vous voyez ce que je veux dire?
24/11/2012, 20h00
hackoofr

:salut:
peut-être vous voulez dire faire quelque chose comme ceci :
Exemple de Menu en HTA
24/11/2012, 21h34
djun1

oui