Visual Basic Source Code Samples
EvilTek E Logo

Visual Basic Scripting (VBS) is a Programming Language that’s very versatile and relatively easy to use.
As a Developer and Programmer you have to know several Coding Languages and if you’re a Novice Visual Basic is pretty simple to learn, especially if you have knowledge with HTML (This is a great Website).
If you’re a Beginner Visual Studio may be a little much to wrap your head around right off so start with a more simple program such as VBSEdit which is very functional and Easy To Use, or just edit them with Notepad (New Text Document).
Finding good examples can take hours of time so to make things a little easier some Easy To Use and Basic Scripts are available here and more will be added.

VB Script Source Code Samples

  • Wintools Application and Source Code  | Open Source In PopUp

Latest News

Follow Like And Share
0

About

Veteran Web Developer, Programmer and SEO Specialist.

<html>
<head>
<title>EvilTek WinTools HTA Application</title>
<HTA:APPLICATION
APPLICATIONNAME="EvilTek WinTools HTA Application"
ICON="Elogo.ico"
ID="EvilTek WinTools HTA Application"
BORDER="sunken"
INNERBORDER="no"
MAXIMIZEBUTTON="no"
SCROLL="no"
SCROLLFLAT="yes"
NAVIGABLE="yes"
VERSION="1.0"/>
<meta http-equiv="x-ua-compatible">
<meta charset="utf-8">
<style>
.basicTextShadow p, h2 {
zoom: 1;
background-color: white;
filter: progid:DXImageTransform.Microsoft.Chroma(Color=white)
progid:DXImageTransform.Microsoft.DropShadow(OffX=2, OffY=2, Color=#99cc99);
}
.basicTextShadow p, h1 {
zoom: 1;
background-color: white;
filter: progid:DXImageTransform.Microsoft.Chroma(Color=white)
progid:DXImageTransform.Microsoft.DropShadow(OffX=1, OffY=2, Color=#ccc5c5);
}

</style>
<!-- End Font CSS -->

<!-- This Makes It Work -->
<script type="text/vbscript">
Dim objShell
Set objShell = CreateObject("WScript.Shell")

Sub StartProcesses
Dim Checkbox
For Each Checkbox In Document.getElementsByName("process")
If Checkbox.Checked Then
objShell.Run """" & Checkbox.getAttribute("path") & """"
End If
Next
End Sub
</script>
</head>

<script language="VBScript">

Sub Window_OnLoad
Dim width,height
width=800
height=600
self.ResizeTo width,height
self.MoveTo (screen.AvailWidth-width)/2,(screen.AvailHeight-height)/2
'This method will be called when the application loads
'Add your code here
End Sub
'Sub OnClickButtonOK()
Sub OnClickButtonMSG()
'This method will be called when OK is clicked
'Add your code here
'window.Close
MsgBox "Don't Forget To Bookmark EvilTek."& vbCrLf & "https://eviltek.net/"
End Sub

Sub OnClickButtonClose()
'This method will be called when Cancel is clicked
'Add your code here
window.Close
End Sub

</script>

<body bgcolor="buttonface">
<table border=0 width=100% height=100%>
<tr><td height=100% width=100% valign=top align=left>

<font face=Roboto>
<h1>
Check the program you would like to run! <br>
Available programs to run for now: <br>
<div id="ProcessList">
<input type="checkbox" name="process" path="https://eviltek.net/">EvilTek<br>
<input type="checkbox" name="process" path="http://shogunbrowser.com/">Shogun<br>
<input type="checkbox" name="process" path="https://google.com/">Google<br>
<input type="checkbox" name="process" path="calc.exe">Calculator <br>
<input type="checkbox" name="process" path="notepad.exe">Notepad <br>
</div></h1>
<i>Select from the choices above, you may select multiple choices.</i>
</font><br>
<input type="button" onclick="StartProcesses" value="Submit"><br>
<div id="error"></div>
<h2>Below is the code as a .txt file. You can easily edit a .hta file in Notepad</h2>
</td></tr>
<tr><td align=right>
<input type="button" style="width: 80px" name="MSG" id="MSG" value="Click Me" onclick="OnClickButtonMSG">&nbsp;&nbsp;
<input type="button" style="width: 80px" name="Close" id="Cancel" value="Close" onclick="OnClickButtonCancel">
</td></tr>
</table>
</table>
</body>
</html>

Share on Social Media