Solved

How to create a form using VB script?

Posted on 2009-04-10
6
1,180 Views
Last Modified: 2012-05-06
HI,
i need to create a usr form with some option buttons,2 text boxes and two buttons.

how to do this?Help pls
0
Comment
Question by:ArunAchudh
  • 4
6 Comments
 
LVL 5

Accepted Solution

by:
brandonvmoore earned 30 total points
ID: 24120991
If you don't know enough about VB Script to do this, then I would strongly suggest that you learn javascript instead as vbscript is only compatible with IE browsers.  Use javascript so other browsers can view your form too.  Go to w3schools.com and you'll find some tutorials that you can go through that are very short and concise.  If you absolutely need to use VB Script they have tutorials on that as well.

I assume that you will actually want to 'do' something with your form controls, so me just giving you the code to make a form that has these controls won't be very helpful.  The tutorials won't take you very long to go through.
0
 

Author Comment

by:ArunAchudh
ID: 24121001
No. actually i am using a atutomation test tool which works using VB script. i just want a from displaying options to be listed to the users adn the user can select which test to run.

so VB script is the must in this case.
0
 
LVL 5

Expert Comment

by:brandonvmoore
ID: 24121010
Same answer: go to w3schools.com.  They've got code there you can copy and paste.
0
Top 6 Sources for Identifying Threat Actor TTPs

Understanding your enemy is essential. These six sources will help you identify the most popular threat actor tactics, techniques, and procedures (TTPs).

 
LVL 5

Expert Comment

by:brandonvmoore
ID: 24121026
Oh, I should clarify something for you though.  What you are wanting to do doesn't require the use of VB Script.  It's just HTML code.  And when I say it doesn't require VB script, I don't mean that you 'could' do it with VB Script but that it's easier to just use VB Script.  I mean that making a form with controls has nothing to do with VB Script.  You can use VB Script to manipulate forms and controls, but VB script does not create them, HTML does.
0
 
LVL 5

Expert Comment

by:brandonvmoore
ID: 24121029
Sorry, one of the sentences in my above post doesn't quite make sense.  It should read:

... but that it's easier to just use "HTML" ...
0
 
LVL 27

Expert Comment

by:Lukasz Chmielewski
ID: 24121635
this is an example of vbscript for wmi queries of BIOS properties, but it should get you to the point
on how to create a form
Imports System

Imports System.Drawing

Imports System.Collections

Imports System.ComponentModel

Imports System.Windows.Forms

Imports System.Data

Imports System.Management
 

Namespace WMISample
 

    Public Class MyQuerySample 

        Inherits System.Windows.Forms.Form
 

        Friend WithEvents userNameLabel As System.Windows.Forms.Label

        Friend WithEvents userNameBox As System.Windows.Forms.TextBox

        Friend WithEvents passwordBox As System.Windows.Forms.TextBox

        Friend WithEvents passwordLabel As System.Windows.Forms.Label

        Friend WithEvents OKButton As System.Windows.Forms.Button

        Friend WithEvents closeButton As System.Windows.Forms.Button

        

        Private components As System.ComponentModel.IContainer
 

        Public Sub New()

            MyBase.New()
 

            InitializeComponent()

        End Sub
 

        Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

        

            If disposing Then

                If Not (components Is Nothing) Then

                    components.Dispose()

                End If

            End If

            MyBase.Dispose(disposing)

        End Sub
 

        <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
 

            Me.userNameLabel = new System.Windows.Forms.Label

            Me.userNameBox = new System.Windows.Forms.TextBox

            Me.passwordBox = new System.Windows.Forms.TextBox

            Me.passwordLabel = new System.Windows.Forms.Label

            Me.OKButton = new System.Windows.Forms.Button

            Me.closeButton = new System.Windows.Forms.Button

            Me.SuspendLayout()

            ' 

            ' userNameLabel

            ' 

            Me.userNameLabel.Location = New System.Drawing.Point(16, 8)

            Me.userNameLabel.Name = "userNameLabel"

            Me.userNameLabel.Size = New System.Drawing.Size(160, 32)

            Me.userNameLabel.TabIndex = 0

            Me.userNameLabel.Text = "Enter the user name for the remote computer:"

            ' 

            ' userNameBox

            ' 

            Me.userNameBox.Location = New System.Drawing.Point(160, 16)

            Me.userNameBox.Name = "userNameBox"

            Me.userNameBox.Size = New System.Drawing.Size(192, 20)

            Me.userNameBox.TabIndex = 1

            Me.userNameBox.Text = ""

            ' 

            ' passwordBox

            ' 

            Me.passwordBox.Location = New System.Drawing.Point(160, 48)

            Me.passwordBox.Name = "passwordBox"

            Me.passwordBox.PasswordChar = "*"

            Me.passwordBox.Size = new System.Drawing.Size(192, 20)

            Me.passwordBox.TabIndex = 3

            Me.passwordBox.Text = ""

            ' 

            ' passwordLabel

            ' 

            Me.passwordLabel.Location = new System.Drawing.Point(16, 48)

            Me.passwordLabel.Name = "passwordLabel"

            Me.passwordLabel.Size = new System.Drawing.Size(160, 32)

            Me.passwordLabel.TabIndex = 2

            Me.passwordLabel.Text = "Enter the password for the remote computer:"

            ' 

            ' OKButton

            ' 

            Me.OKButton.Location = New System.Drawing.Point(40, 88)

            Me.OKButton.Name = "OKButton"

            Me.OKButton.Size = new System.Drawing.Size(128, 23)

            Me.OKButton.TabIndex = 4

            Me.OKButton.Text = "OK"

            ' 

            ' closeButton

            ' 

            Me.closeButton.DialogResult = System.Windows.Forms.DialogResult.Cancel

            Me.closeButton.Location = New System.Drawing.Point(200, 88)

            Me.closeButton.Name = "closeButton"

            Me.closeButton.Size = New System.Drawing.Size(128, 23)

            Me.closeButton.TabIndex = 5

            Me.closeButton.Text = "Cancel"

            ' 

            ' MyQuerySample

            ' 

            Me.AcceptButton = Me.OKButton

            Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)

            Me.CancelButton = Me.closeButton

            Me.ClientSize = New System.Drawing.Size(368, 130)

            Me.ControlBox = false

            Me.Controls.Add(Me.closeButton)

            Me.Controls.Add(Me.OKButton)

            Me.Controls.Add(Me.passwordBox)

            Me.Controls.Add(Me.passwordLabel)

            Me.Controls.Add(Me.userNameBox)

            Me.Controls.Add(Me.userNameLabel)

            Me.Name = "MyQuerySample"

            Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

            Me.Text = "Remote Connection"

            Me.ResumeLayout(false)
 

        End Sub
 

        Public Overloads Shared Function Main() As Integer
 

            Application.Run(New MyQuerySample)

        End Function
 

        Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click

        

            Try

                Dim connection As New ConnectionOptions

                connection.Username = userNameBox.Text

                connection.Password = passwordBox.Text

                connection.Authority = "ntlmdomain:DOMAIN"
 

                Dim scope As New ManagementScope( _

                    "\\FullComputerName\root\CIMV2", connection)

                scope.Connect()
 

                Dim query As New ObjectQuery( _

                    "SELECT * FROM Win32_BIOS") 
 

                Dim searcher As New ManagementObjectSearcher(scope, query) 
 

                For Each queryObj As ManagementObject in searcher.Get()
 

                    Console.WriteLine("-----------------------------------")

                    Console.WriteLine("Win32_BIOS instance")

                    Console.WriteLine("-----------------------------------")

                Next
 

                Close()

            Catch err As ManagementException

                MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)

            Catch unauthorizedErr As System.UnauthorizedAccessException
 

                MessageBox.Show("Connection error (user name or password might be incorrect): " & unauthorizedErr.Message)

            End Try

        End Sub
 

        Private Sub closeButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles closeButton.Click
 

            Close()

        End Sub

    End Class

End Namespace

Open in new window

0

Featured Post

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
Deploying a Microsoft Access application in a Citrix environment is not difficult but takes a few steps. However, Citrix system people are often of little help, as they typically know next to nothing about Access. The script provided here will take …
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

746 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now