• 0

How to import .VBS code to VB Express?


Question

So i have a lot of .VBS files i created and wanted to imoprt them to VB Express which is free from MS and i have installed.

I believe i can compile them to .exe if i do this?

Question is, am i right? If so, how do i do it, beacuse i cant see an easy way?

Sorry for such n00b questions, but im VERY new at this.

Cheers,

Rich

Link to comment
https://www.neowin.net/forum/topic/565895-how-to-import-vbs-code-to-vb-express/
Share on other sites

18 answers to this question

Recommended Posts

  • 0

A script is simply executing commands. Your program IS the command, in a sense. Now, you can have your program "script" things, but fundamentally it's doing the same thing as your script.

Let me ask you this. Why do you want to compile your scripts into a EXE?

  • 0
  Endo. said:
You can not simply convert a .vbs script into an executable, but you could transform the code so that it was compatible with whichever outcome you wanted. Its hard to explain, but possible, if you think outside the box.

Its not that i want to compile it to a .exe as such.

  John said:
A script is simply executing commands. Your program IS the command, in a sense. Now, you can have your program "script" things, but fundamentally it's doing the same thing as your script.

Let me ask you this. Why do you want to compile your scripts into a EXE?

Basically i think programming is something i should start looking at as i find it fasinating. A few web sites have said that script language is very similar to VB.

However, what i really want to do is create a VB program which does all the same things as some scripts i have created.

I have created a script that asks you to enter a location of a file, such as Word.exe and once you have entered it, it will run with the admin username and password, however all i can do to hide the admin password is encrypt the file, which is easy to decrypt, so in the wrong hands the file could be dangerous to our system.

So if i could create a program which does the same function, then surely that admin password would be safer?

  • 0
  Endo. said:
So you want to make simplistic login system? Question... is the username and password data subject to change?

Not to log in, just to run a file with the admin account instead of the account you have logged in with.

So rather than right clicking the file and selecting run as and then entering the user name and password, they will run this file instead, enter the file location and then it will run that file automatically with the admin user name and password.

The password and username are not subject to change any time in the forseeable future.

Perhaps i need to know if there is anywhere which can teach me basic VB language skills?

  • 0

Please be clear on this. VBScript is the scripting derivative of Visual Basic 6.

In VB Express you code VisualBasic.net - a completely new language.

VBS and VB6, although vastly different, share a syntax to an extent. VB.net is totally new.

As such, you need to map out what your VBS does logically (not code but more a flowchart) and then learn VB.net to completely re-code it.

  • 0
  njlouch said:
Please be clear on this. VBScript is the scripting derivative of Visual Basic 6.

In VB Express you code VisualBasic.net - a completely new language.

VBS and VB6, although vastly different, share a syntax to an extent. VB.net is totally new.

As such, you need to map out what your VBS does logically (not code but more a flowchart) and then learn VB.net to completely re-code it.

Thanks Nik. I think my head is about to explode now! :laugh:

In that case i guess what im asking is not technically possible.

Is there some resources you guys know of that will help me learn even basic VB.net?

  • 0

Hi Rich,

It should definitely be technically possible to do what you want, yes.

I'm not a VB.net programmer, however I do code in VB6 and VBA on a daily basis and there are certain things that are similar.

Take a look over here---->http://www.programmersheaven.com/2/VB-NET-School

Ad

  • 0
  Adaytay said:
Hi Rich,

It should definitely be technically possible to do what you want, yes.

I'm not a VB.net programmer, however I do code in VB6 and VBA on a daily basis and there are certain things that are similar.

Take a look over here---->http://www.programmersheaven.com/2/VB-NET-School

Ad

Cheers mate. will take a look at home some point.

Any other suggestions from anyone else?

Cheers,

Rich

  • 0

Rich

Let me give some advice that was given to me, and I found worked FOR ME. Ditch Visual Basic - you are learning a new language so take the opportunity to use C# instead (some people prefer it).

Post your VBS (rename to something else) and also a breakdown of what it does.

Cheers

  • 0
  njlouch said:
Rich

Let me give some advice that was given to me, and I found worked FOR ME. Ditch Visual Basic - you are learning a new language so take the opportunity to use C# instead (some people prefer it).

Post your VBS (rename to something else) and also a breakdown of what it does.

Cheers

Ok, here is the vbs script, without the real username and password for our desktop admin:

Hint=MsgBox("To use this program you need to input the program location in the next screen and NOT THE SHORTCUT LOCATION! If you are unsure of the software location, then right click the programs shortcut and select properties, then copy the target information and paste it in the next screen. Make sure you remove any quotation marks otherwise this program will not work!", vbOkOnly+vbInformation, "Runas")

Location=Inputbox("Please type the location of the file you wish to run below, then press OK.", "Runas")

If IsEmpty(Location) Then

Wscript.Quit

End If

Confirm=MsgBox("You entered the following location:" & vbCrLf & vbCrLf & Location & vbCrLf & vbCrLf & "Click ok to run the file, or cancel to re-type the location.", vbOkCancel+vbInformation, "Runas")

If Confirm=vbOk Then

Dim oShell

set oShell= Wscript.CreateObject("WScript.Shell")

oShell.Run "runas /noprofile /user:administrator " & chr(34) & Location & chr(34)

WScript.Sleep 100

oShell.Sendkeys "password here~"

Wscript.Quit

Else Confirm=vbCancel

Location2=Inputbox("Please type the new location of the file you wish to run below, then press OK.", "Runas")

If IsEmpty(Location2) Then

Wscript.Quit

End If

Confirm2=MsgBox("You entered the following location:" & vbCrLf & vbCrLf & Location2 & vbCrLf & vbCrLf & "Click ok to run the file, or cancel to Exit the program.", vbOkCancel+vbInformation, "Runas")

If Confirm2=vbOK Then

set oShell= Wscript.CreateObject("WScript.Shell")

oShell.Run "runas /noprofile /user:administrator " & chr(34) & Location2 & chr(34)

WScript.Sleep 100

oShell.Sendkeys "password here~"

Wscript.Quit

Else Confirm2=vbCancel

Wscript.Quit

End If

End If

  • 0
  njlouch said:
Let me give some advice that was given to me, and I found worked FOR ME. Ditch Visual Basic - you are learning a new language so take the opportunity to use C# instead (some people prefer it).

Indeed, C# will give you a grounding in fundamental programming logic and also make you familiar with Object Oriented programming styles - so you can progress to C++, Java, PHP, or other such languages easier... (if you should so wish).

  • 0

This might save you some time

C#

http://www.codeproject.com/csharp/RunAs.asp

VB.NET

http://www.tek-tips.com/viewthread.cfm?qid=1235871

Edited by primortal
  • 0
  Endo. said:
Indeed, C# will give you a grounding in fundamental programming logic and also make you familiar with Object Oriented programming styles - so you can progress to C++, Java, PHP, or other such languages easier... (if you should so wish).

uh so does VB.NET, VB.NET is just a syntax change from C# its the same language besides syntax changes... uses the same objects and classes, same OOP approach, if you can code in VB.NET learning C# is easy, and vice versa... so saying ditch one is meaningless, if you know one you can pick up the other VERY quickly since they use all the same namespaces (if you leave out, and which you should, the legacy microsoft.visualbasic namespace, of which you can still use in C# if you want to)

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Sounds good, but that'd require Microsoft to develop and API of some sort and then get all the developers to support it... but everyone knows that while others will support Microsoft, Microsoft won't support itself and will kill off the feature... again. Microsoft has tried this trick in Windows 9x era, they tried it with the games library in Vista, they tried a big push for Games for Windows Live, and then again in Windows 8 with the WPA apps via their mobile/windows phone eco system. Now they're trying it again, and it's lets not forget that this isn't a push to make PC gaming better. It's not. To do that they need to provide at least the same level of quality and feature set of Steam, otherwise why else are gamers going to not use Steam. Right now Xbox app and everything Microsoft centric around the PC gaming front is exclusively for their new Xbox brand push to make everything an Xbox. Your Toaster, your cat, your PC, your VR headset, everything is a Xbox and that'll last for this generation of Xbox now probably. Then, like Microsoft always has done and will do, they'll drop it like a hot potato and everyone will be left crying. Point in case, bringing Xbox games to the ROG handheld, their entire point of this... They're marketing it as if it's an Xbox console in a handheld, yet, it's not. There are going to be Xbox gamers who think, they'll be able to pickup their Xbox one games and play them on a handheld like Nintendo and Steam Deck users... except they're going to quickly find out that their Xbox game library is almost entirely missing or games they've already purchased on the Xbox need to be purchased again on the 'this is an Xbox' handheld.
    • man i remember hearing about new icons years ago and we still are at this......
    • That's entirely speculation. If he wants these on the road, I would assume (and hope) that he's tested the crap out of these things in real world scenario simulations until he (and any government regulators) are 100% convinced that they are as safe as a human driver before letting them on the streets of a real city. You don't test an automated ton of steel and aluminum with a big engine capable of going up to 200 mph by sticking it a public street with a human behind the wheel "just in case" and hoping for the best.
    • Get a lifetime subscription to AdGuard Family Plan for only $15.97 by Steven Parker Get rid of annoying and intrusive ads and protect your device from malware with this advanced ad blocking app Today's highlighted deal comes via our Apps + Software section of the Neowin Deals store, where you can get a lifetime subscription to AdGuard Family Plan for just $15.97. Meet the world's most advanced ad blocker! AdGuard is a unique program that has all the necessary features for the best web experience. The software combines the world's most advanced ad blocker, a whole privacy protection module, and a parental control tool—all working in one app. This amazing software deals with annoying ads, hides your data from a multitude of trackers, protects you from malware attacks, and lets you restrict your kids from accessing inappropriate content. Install AdGuard and see the internet as it was supposed to be: clean and safe. Get rid of annoying banners, pop-ups & video ads once and for all Hide your data from the multitude of trackers & activity analyzers that swarm the web Avoid fraudulent & phishing website and malware attacks Protect your kids online by restricting them from accessing inappropriate & adult content A lifetime subscription of AdGuard Family Plan normally costs $169.99, but this deal can be yours for just $39.99, that's a saving of $130 (-76%). For full terms, specifications, and license info please click the link below. Good to know Family Plan Length of access: lifetime This plan is only available to new users Redemption deadline: redeem your code within 30 days of purchase Max number of devices: 9 Access options: desktop & mobile Software version: AdGuard Family Updates included Use coupon FAMPLAN when checking out to apply additional discount Get this AdGuard Family lifetime deal for just $15.97 Although priced in U.S. dollars, this deal is available for digital purchase worldwide. As an online publication, Neowin too relies on ads for operating costs and, if you use an ad blocker, we'd appreciate being whitelisted. In addition, we have an ad-free subscription for $28 a year, which is another way to show support! We post these because we earn commission on each sale so as not to rely solely on advertising, which many of our readers block. It all helps toward paying staff reporters, servers and hosting costs. Other ways to support Neowin Whitelist Neowin by not blocking our ads Create a free member account to see fewer ads Subscribe to Neowin - for $14 a year, or $28 a year for an ad-free experience Disclosure: Neowin benefits from revenue of each sale made through our branded deals site powered by StackCommerce.
    • Spoken like a truly committed Tesla Fanboi. Somehow everything is Waymo's fault... including Tesla's 10+ years of failed FSD promises, Tesla's Swazticar PR, Tesla's blatant inability to not get their vehicles involved in nationwide recalls, and Tesla drivers' inability to drive cars... yup, sounds like it's all Waymo's fault. Jfc, Waymo's about to map+deploy NYC... Tesla can't even drive down a hill without random midroad hard stops in flat-as-earth Austin... and yet it's Tesla eating Waymo's lunch?! WUT?!?!!
  • Recent Achievements

    • Dedicated
      Camlann earned a badge
      Dedicated
    • Week One Done
      fredss earned a badge
      Week One Done
    • Dedicated
      fabioc earned a badge
      Dedicated
    • One Month Later
      GoForma earned a badge
      One Month Later
    • Week One Done
      GoForma earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      637
    2. 2
      Michael Scrip
      224
    3. 3
      ATLien_0
      219
    4. 4
      +FloatingFatMan
      142
    5. 5
      Xenon
      135
  • Tell a friend

    Love Neowin? Tell a friend!