886 lines
19 KiB
HTML
886 lines
19 KiB
HTML
|
<!doctype html>
|
||
|
|
<head>
|
||
|
|
<title>Popular Programs</title>
|
||
|
|
<link rel="stylesheet" type="text/css" href="../other/css.css">
|
||
|
|
<HTA:APPLICATION
|
||
|
|
ID="Popular Programs"
|
||
|
|
VERSION="1.0"
|
||
|
|
APPLICATIONNAME="Popular Programs"
|
||
|
|
icon = "../other/favicon.ico"
|
||
|
|
SCROLL="yes"
|
||
|
|
WINDOWSTATE="normal"
|
||
|
|
border = "thin"
|
||
|
|
caption = "yes"
|
||
|
|
maximizeButton = "no"
|
||
|
|
minimizeButton = "yes"
|
||
|
|
showInTaskbar = "yes"
|
||
|
|
version = "1.0"
|
||
|
|
/>
|
||
|
|
<script language="vbscript">
|
||
|
|
Set objShell = CreateObject("WScript.Shell")
|
||
|
|
</script>
|
||
|
|
</head>
|
||
|
|
<body>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Security Software</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub avastInst
|
||
|
|
result = MsgBox ("Install Avast FreeAV?", vbYesNo, "Avast FreeAV...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst avastfreeantivirus")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/avast.jpg" class="imageStyl" onClick="avastInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub malwarebytesInst
|
||
|
|
result = MsgBox ("Install Malwarebytes?", vbYesNo, "Malwarebytes...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst malwarebytes")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/malwarebytes.jpg" class="imageStyl" onClick="malwarebytesInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub herdProtectInst
|
||
|
|
result = MsgBox ("Install HerdProtect?", vbYesNo, "HerdProtect...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --insecure --url https://www.herdprotect.com/installers/herdProtectScan_Setup.exe --output Downloads\herdProtectScan_Setup.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\herdProtectScan_Setup.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/herdProtect.jpg" class="imageStyl" onClick="herdProtectInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub privateFirewallInst
|
||
|
|
result = MsgBox ("Install PrivateFirewall?", vbYesNo, "PrivateFirewall...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --url http://www.privacyware.com/software/privatefirewall.exe --output Downloads\privatefirewall.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\privatefirewall.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/privateFirewall.jpg" class="imageStyl" onClick="privateFirewallInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub hitmanproInst
|
||
|
|
result = MsgBox ("Install HitmanPro Portable?", vbYesNo, "HitmanPro Portable...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst HitmanProPortable_x86")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/hitmanpro.jpg" class="imageStyl" onClick="hitmanproInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub tdsskillerInst
|
||
|
|
result = MsgBox ("Install TDSSKiller Portable?", vbYesNo, "TDSSKiller Portable...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst TDSSKillerPortable")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/tdsskiller.jpg" class="imageStyl" onClick="tdsskillerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub superantispywareInst
|
||
|
|
result = MsgBox ("Install SuperAntiSpyware?", vbYesNo, "SuperAntiSpyware...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst superantispyware")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/superantispyware.jpg" class="imageStyl" onClick="superantispywareInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub adwcleanerInst
|
||
|
|
result = MsgBox ("Install Adwcleaner?", vbYesNo, "Adwcleaner...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst adwcleaner")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/adwcleaner.jpg" class="imageStyl" onClick="adwcleanerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub roguekillerInst
|
||
|
|
result = MsgBox ("Install RogueKiller Portable?", vbYesNo, "RogueKiller Portable...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst RogueKillerPortable")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/roguekiller.jpg" class="imageStyl" onClick="roguekillerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub teamviewerInst
|
||
|
|
result = MsgBox ("Install Teamviewer?", vbYesNo, "Teamviewer...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst teamviewer")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/teamviewer.jpg" class="imageStyl" onClick="teamviewerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Internet Related Programs</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub firefoxInst
|
||
|
|
result = MsgBox ("Install Firefox?", vbYesNo, "Firefox...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst firefox")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/firefox.jpg" class="imageStyl" onClick="firefoxInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub chromeInst
|
||
|
|
result = MsgBox ("Install Chrome?", vbYesNo, "Chrome...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst GoogleChrome")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/chrome.jpg" class="imageStyl" onClick="chromeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub operaInst
|
||
|
|
result = MsgBox ("Install Opera?", vbYesNo, "Opera...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst opera")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/opera.jpg" class="imageStyl" onClick="operaInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub midoriInst
|
||
|
|
result = MsgBox ("Install Midori?", vbYesNo, "Midori...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst midori-browser")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/midori.jpg" class="imageStyl" onClick="midoriInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub qupzillaInst
|
||
|
|
result = MsgBox ("Install Qupzilla?", vbYesNo, "Qupzilla...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst qupzilla")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/qupzilla.jpg" class="imageStyl" onClick="qupzillaInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub fileZillaInst
|
||
|
|
result = MsgBox ("Install Filezilla?", vbYesNo, "Filezilla...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst filezilla")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/fileZilla.jpg" class="imageStyl" onClick="fileZillaInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub dropboxInst
|
||
|
|
result = MsgBox ("Install Dropbox?", vbYesNo, "Dropbox...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst dropbox")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/dropbox.jpg" class="imageStyl" onClick="dropboxInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub megaSyncInst
|
||
|
|
result = MsgBox ("Install MegaSync?", vbYesNo, "MegaSync...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --url https://mega.nz/MEGAsyncSetup.exe --output Downloads\MegaSync.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\MegaSync.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/megaSync.jpg" class="imageStyl" onClick="megaSyncInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Office/Art Programs</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub calibreInst
|
||
|
|
result = MsgBox ("Install Calibre?", vbYesNo, "Calibre...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst calibre")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/calibre.jpg" class="imageStyl" onClick="calibreInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub libreofficeInst
|
||
|
|
result = MsgBox ("Install Libreoffice?", vbYesNo, "Libreoffice...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst libreoffice")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/libreoffice.jpg" class="imageStyl" onClick="libreofficeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub openofficeInst
|
||
|
|
result = MsgBox ("Install OpenOffice?", vbYesNo, "Openoffice...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst OpenOffice")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/openoffice.jpg" class="imageStyl" onClick="openofficeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub wpsOfficeInst
|
||
|
|
result = MsgBox ("Install WPSOffice?", vbYesNo, "WPSOffice...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --url http://Downloads.wps.com/personal/wps_office_free.exe --output Downloads\WPSOffice.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\WPSOffice.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/wpsOffice.jpg" class="imageStyl" onClick="wpsOfficeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub foxitInst
|
||
|
|
result = MsgBox ("Install FoxitPDF Reader?", vbYesNo, "FoxitPDF Reader...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst FoxitReader")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/foxit.jpg" class="imageStyl" onClick="foxitInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub notepadPlusPlusInst
|
||
|
|
result = MsgBox ("Install Notepad++?", vbYesNo, "Notepad++...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst notepadplusplus")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/notepad++.jpg" class="imageStyl" onClick="notepadPlusPlusInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub gimpInst
|
||
|
|
result = MsgBox ("Install Gimp?", vbYesNo, "Gimp...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst gimp")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/gimp.jpg" class="imageStyl" onClick="gimpInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub kritaInst
|
||
|
|
result = MsgBox ("Install Krita?", vbYesNo, "Krita...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst krita")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/krita.jpg" class="imageStyl" onClick="kritaInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub paintnetInst
|
||
|
|
result = MsgBox ("Install Paint.Net?", vbYesNo, "Paint.Net...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst paint.net")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/paintnet.jpg" class="imageStyl" onClick="paintnetInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub xnviewInst
|
||
|
|
result = MsgBox ("Install XnView?", vbYesNo, "XnView...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst XnView")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/xnview.jpg" class="imageStyl" onClick="xnviewInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Media Programs</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub daumPotPlayerInst
|
||
|
|
result = MsgBox ("Install Daum PotPlayer?", vbYesNo, "Daum PotPlayer...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst potplayer")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/daumPotPlayer.jpg" class="imageStyl" onClick="daumPotPlayerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub smplayer2Inst
|
||
|
|
result = MsgBox ("Install SMPlayer2?", vbYesNo, "SMPlayer2...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst smplayer2")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/smplayer2.jpg" class="imageStyl" onClick="smplayer2Inst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub vlcInst
|
||
|
|
result = MsgBox ("Install VLC?", vbYesNo, "VLC...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst vlc")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/vlc.jpg" class="imageStyl" onClick="vlcInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub obsInst
|
||
|
|
result = MsgBox ("Install Open Broadcaster Software?", vbYesNo, "Open Broadcaster Software...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst obs")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/obs.jpg" class="imageStyl" onClick="obsInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Torrent Clients</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub qBittorrentInst
|
||
|
|
result = MsgBox ("Install qBittorrent?", vbYesNo, "qBittorrent...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst qbittorrent")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/qBittorrent.jpg" class="imageStyl" onClick="qBittorrentInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub delugeInst
|
||
|
|
result = MsgBox ("Install Deluge?", vbYesNo, "Deluge...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst deluge")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/deluge.jpg" class="imageStyl" onClick="delugeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub vuzeInst
|
||
|
|
result = MsgBox ("Install Vuze?", vbYesNo, "Vuze...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst vuzeclient")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/vuze.jpg" class="imageStyl" onClick="vuzeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub transmissionInst
|
||
|
|
result = MsgBox ("Install Transmission?", vbYesNo, "Transmission...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst transmission-qt")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/transmission-qt.jpg" class="imageStyl" onClick="transmissionInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Social Programs</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub thunderbirdInst
|
||
|
|
result = MsgBox ("Install Thunderbird?", vbYesNo, "Thunderbird...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst thunderbird")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/thunderbird.jpg" class="imageStyl" onClick="thunderbirdInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub pidginInst
|
||
|
|
result = MsgBox ("Install Pidgin?", vbYesNo, "Pidgin...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst pidgin")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/pidgin.jpg" class="imageStyl" onClick="pidginInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub teamSpeakInst
|
||
|
|
result = MsgBox ("Install Teamspeak?", vbYesNo, "Teamspeak...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst teamspeak")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/teamSpeak.jpg" class="imageStyl" onClick="teamSpeakInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub skypeInst
|
||
|
|
result = MsgBox ("Install Skype?", vbYesNo, "Skype...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst teamspeak")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/skype.jpg" class="imageStyl" onClick="skypeInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub hexchatInst
|
||
|
|
result = MsgBox ("Install Hexchat?", vbYesNo, "Hexchat...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst hexchat")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/hexchat.jpg" class="imageStyl" onClick="hexchatInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
<div class="divStyle">
|
||
|
|
<p class="groupTitle"><b>Enhancements & Utilities</b></p>
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub vboxInst
|
||
|
|
result = MsgBox ("Install VirtualBox?", vbYesNo, "VirtualBox...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst virtualbox")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/vbox.jpg" class="imageStyl" onClick="vboxInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub dexpotInst
|
||
|
|
result = MsgBox ("Install Dexpot?", vbYesNo, "Dexpot...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst dexpot")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/dexpot.jpg" class="imageStyl" onClick="dexpotInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub fluxtInst
|
||
|
|
result = MsgBox ("Install F.Lux?", vbYesNo, "F.Lux...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst f.lux")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/flux.jpg" class="imageStyl" onClick="fluxtInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub cloverInst
|
||
|
|
result = MsgBox ("Install Clover?", vbYesNo, "Clover...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst Clover")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/clover.jpg" class="imageStyl" onClick="cloverInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub peazipInst
|
||
|
|
result = MsgBox ("Install Peazip?", vbYesNo, "Peazip...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst peazip")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/peazip.jpg" class="imageStyl" onClick="peazipInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub winrarInst
|
||
|
|
result = MsgBox ("Install Winrar?", vbYesNo, "Winrar...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst winrar")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/winrar.jpg" class="imageStyl" onClick="winrarInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub sevenZipInst
|
||
|
|
result = MsgBox ("Install 7zip?", vbYesNo, "7zip...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst 7zip")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/7zip.jpg" class="imageStyl" onClick="sevenZipInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub vcdInst
|
||
|
|
result = MsgBox ("Install Virtual Clone Drive?", vbYesNo, "Virtual Clone Drive...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst VirtualCloneDrive")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/vcd.jpg" class="imageStyl" onClick="vcdInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub sumoInst
|
||
|
|
result = MsgBox ("Install SUMo?", vbYesNo, "SUMo...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst sumo")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/sumo.jpg" class="imageStyl" onClick="sumoInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub pcdecrapifierInst
|
||
|
|
result = MsgBox ("Install Pc-Decrapifier?", vbYesNo, "Pc-Decrapifier...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst PCDecrapifierPortable")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/pc-decrapifier.jpg" class="imageStyl" onClick="pcdecrapifierInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub cCleanerInst
|
||
|
|
result = MsgBox ("Install cCleaner?", vbYesNo, "cCleaner...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst ccleaner")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/cCleaner.jpg" class="imageStyl" onClick="cCleanerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub bleachbitInst
|
||
|
|
result = MsgBox ("Install Bleachbit?", vbYesNo, "Bleachbit...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.run("cinst bleachbit")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/bleachbit.jpg" class="imageStyl" onClick="bleachbitInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub deffragglerInst
|
||
|
|
result = MsgBox ("Install Deffraggler?", vbYesNo, "Deffraggler...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --url http://download.piriform.com/dfsetup219.exe --output Downloads\Deffraggler.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\Deffraggler.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/deffraggler.jpg" class="imageStyl" onClick="deffragglerInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
<div>
|
||
|
|
<script language="VBScript">
|
||
|
|
Sub myDefragInst
|
||
|
|
result = MsgBox ("Install myDefrag?", vbYesNo, "myDefrag...")
|
||
|
|
Select Case result
|
||
|
|
Case vbYes
|
||
|
|
objShell.Run "curl --url http://www.mydefrag.com/Downloads/Download.php?File=MyDefrag-v4.3.1.exe --output Downloads\myDefrag.exe", 1, True
|
||
|
|
objShell.Exec("Downloads\myDefrag.exe")
|
||
|
|
Case vbNo
|
||
|
|
End Select
|
||
|
|
End Sub
|
||
|
|
</script>
|
||
|
|
<img src="../thumbnails/myDefrag.jpg" class="imageStyl" onClick="myDefragInst">
|
||
|
|
</img>
|
||
|
|
</div>
|
||
|
|
</div>
|
||
|
|
|
||
|
|
|
||
|
|
</body>
|
||
|
|
</html>
|