Je débute dans le HTA et je bloque

Version imprimable

Bonsoir à tous, voilà je souhaiterais me lancer dans le HTA et j'ai donc essayé de créer un programme simpliste (un programme qui crée un raccourci en rentrant manuellement les paramètres)

Voici la bête:

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
<html> 
<head> 
<HTA:APPLICATION 
    ICON="http://www.iconarchive.com/download/i38830/google/chrome/Google-Chrome.ico"
    APPLICATIONNAME = "Shortcut creator" 
    BORDER="dialog"
    BORDERSTYLE="complex"
    CONTEXTMENU="no"
    SYSMENU="yes"
    MAXIMIZEBUTTON="no"
    SCROLL="no" 
>
<title>Shortcut creator</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 
<style>
    body{
        background-color: black;
    }
    label,.btn{
        font-weight: bold;
    }
</style>
<script language="VBScript">
 
 
    Sub window_onload()
        CenterWindow 380, 240
    End Sub
 
    Sub CenterWindow(x,y)
        window.resizeTo x, y
        iLeft = window.screen.availWidth/2 - x/2
        itop = window.screen.availHeight/2 - y/2
        window.moveTo ileft, itop
    End Sub
 
 
 
Sub Createshortcut(Urlico, Frqtache)
 
 
        Set oShell = CreateObject("WScript.Shell")
        strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
        Set lnk = oShell.CreateShortcut(strHomeFolder & "\monraccourci.lnk")
        lnk.WindowStyle = 7
        lnk.IconLocation = Urlico
        lnk.TargetPath = "cmd.exe"
        lnk.arguments = "/C SCHTASKS /Create /F /SC Frqtache /TN Test3 /TR calc.exe"
 
end sub
 
</script> 
  
 
</head> 
<body>
 
<label for="Urlico" style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Url icone: </p></label><input type="text" id="Urlico" name="Urlico" value="Url de l'icone"><br />
<label for="Frqtache" style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Frequence tache: </p></label><input type="text" id="Frqtache" name="Frqtache" value="MINUTE, HOURLY, DAILY, WEEKLY, MONTHLY, ONCE"><br /> 
 
<p><center><input class="btn" type="button" value="Creer" onClick="lnk.Save"></p></center>
 
</body> 
</html>

Je n'arrive pas à le faire fonctionner, le problème vient que je n'arrive pas à entrer correctement les paramètres, je pense que c'est tout bête mais ça fait pas mal de temps que je bloque dessus ... pourriez vous me donner une piste ?

Je vous remercie ! :)

Peut-être avec des modifications :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
<html> <head> 
<HTA:APPLICATION 
    ICON="http://www.iconarchive.com/download/i38830/google/chrome/Google-Chrome.ico"
    APPLICATIONNAME = "Shortcut creator" 
    BORDER="dialog"
    BORDERSTYLE="complex"
    CONTEXTMENU="no"
    SYSMENU="yes"
    MAXIMIZEBUTTON="no"
    SCROLL="no" 
>
<title>Shortcut creator</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 
<style>
    body{
        background-color: black;
    }
    label,.btn{
        font-weight: bold;
    }
</style>
 
<script language="VBScript">
 
    Sub window_onload()
        CenterWindow 380, 240
    End Sub
 
    Sub CenterWindow(x,y)
        window.resizeTo x, y
        iLeft = window.screen.availWidth/2 - x/2
        itop = window.screen.availHeight/2 - y/2
        window.moveTo ileft, itop
    End Sub
 
Sub Createshortcut()
 
    Dim Urlico, Frqtache
    Set oShell = CreateObject("WScript.Shell")
    strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
    Set lnk = oShell.CreateShortcut(strHomeFolder & "\monraccourci.lnk")
       lnk.WindowStyle = 7
    lnk.IconLocation = document.getElementById("Urlico").value
    lnk.TargetPath = "cmd.exe"
    lnk.arguments = "/C SCHTASKS /Create /F /SC Frqtache /TN Test3 /TR calc.exe"
    lnk.Save
end sub
 
</script> 
 </head> 
<body>
 
<label for="Urlico" style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Url icone: </p></label>
<input type="text" id="Urlico" name="Urlico" value="Url de l'icone"><br>
<label for="Frqtache" style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Frequence tache: </p>
</label><input type="text" id="Frqtache" name="Frqtache" value="MINUTE, HOURLY, DAILY, WEEKLY, MONTHLY, ONCE"><br /> 
<p><center><input class="btn" type="button" value="Creer" onClick="Createshortcut()"></p></center>
 
</body> 
</html>

09/12/2018, 20h50
Marion33

Bonsoir, merci beaucoup pour la solution ! je ne pense pas que j'aurais trouvé toute seule.

Pour la prise en charge de la fréquence d'exécution de la tâche, une modification du code s'avère nécessaire :

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
<html><head>
<HTA:APPLICATION 
    ICON="http://www.iconarchive.com/download/i38830/google/chrome/Google-Chrome.ico"
    APPLICATIONNAME = "Shortcut creator" 
    BORDER="dialog"
    BORDERSTYLE="complex"
    CONTEXTMENU="no"
    SYSMENU="yes"
    MAXIMIZEBUTTON="no"
    SCROLL="no" 
>
<title>Shortcut creator</title> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 
<style>
    body{
        background-color: black;
    }
    label,.btn{
        font-weight: bold;
    }
</style>
 
<script language="VBScript">
 
    Sub window_onload()
        CenterWindow 380, 240
    End Sub
 
    Sub CenterWindow(x,y)
        window.resizeTo x, y
        ileft = (window.screen.availWidth - x)/2
        itop = (window.screen.availHeight - y)/2
        window.moveTo ileft, itop
    End Sub
 
Sub Createshortcut()
 
    Set oShell = CreateObject("WScript.Shell")
    strHomeFolder = oShell.ExpandEnvironmentStrings("%USERPROFILE%")
 
    Set lnk = oShell.CreateShortcut(strHomeFolder & "\monraccourci.lnk")
    lnk.WindowStyle = 7
    lnk.IconLocation = Urlico.value
    lnk.TargetPath = "cmd.exe"
    lnk.arguments = "/C SCHTASKS /Create /F /SC" & Frqtache.value & " /TN Test3 /TR calc.exe"
    lnk.Save
end sub
 
</script> 
 </head> 
<body>
 
<label style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Url icone: </p></label>
<input type="text" id="Urlico" name="Urlico" value="Url de l'icone"><br>
<label style="width: 120; textalign: right;"><p style="color:#FFFFFF";>Frequence tache: </p></label>
<input type="text" id="Frqtache" name="Frqtache" value="MINUTE, HOURLY, DAILY, WEEKLY, MONTHLY, ONCE"><br /> 
<p><center><input class="btn" type="button" value="Creer" onClick="Createshortcut()"></p></center>
 
</body>  </html>

On peut également tester si l'url de l'icône est valide ou non puis décider si on continue avec ou sans icône.