Tag: PASSWORD
Password-protect programs and applications using VB Script
by Installer on Apr.02, 2010, under Vbscript
Sorry, to maintain the best visual video quality I had to upload it without any audio backing track or anything like that.. I use a simple input box code, that makes it so if the password is entered incorrectly, a message box appears saying “The password you entered was incorrect. Computer will now shut down.” and then the computer shuts down. I apologize for the lag time at the end before the Windows Live Messenger appears, I was using Snagit to do the screen capture and it made my computer lag badly.
Related posts
Look this Funny Desktop Prank made in notepad (vbscript) – With codes
by Installer on Apr.02, 2010, under Vbscript
Thanks for watching. Comment, Rate and Subscribe, pls. Look code: msgbox”message”, 48 (message style), “title” jneves4pt.weebly.com
Related posts
MSSQL Search & Add Query Using Vbscript
by Installer on Feb.23, 2010, under MSSql Query
With This VBScript you can search into a field for Value and add it (if you want).
If you use the following script you Dont need to open ”SQL Server Managment Studio”.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 | Do Searchdata = InputBox("Please enter the Value", "Input") Loop Until Searchdata = "" cnstring = "Provider=SQLOLEDB.1;Password=PASSWORD;Persist Security Info=True;User ID=USERNAME;Initial Catalog=USERNAME;Data Source=192.168.2.2;" cmdtext = "SELECT * FROM DATABASE where FIELD_NAME = "& Searchdata &"" Set cn = CreateObject("adodb.connection") Set cmd = CreateObject("adodb.command") cn.connectionstring = cnstring cn.Open cmd.activeconnection = cn cmd.commandtext = cmdtext Set rs = CreateObject("adodb.recordset") rs.cursortype = 3 rs.locktype = 3 rs.Open(cmd) While Not rs.EOF And Not rs.BOF 'WScript.Echo rs.Fields.Item("FIELD_NAME").Value Data = rs.Fields.Item("FIELD_NAME").Value 'WScript.Echo Data rs.MoveNext Wend rs.Close cn.Close If Data = "" Then WScript.Echo "Ta Dedomena den Yparxoun sti Vasi" answer=MsgBox ("Do you want to Add the "& Data &" ", 36, "ADD THE VALUE ") If answer = 6 Then cnstring = "Provider=SQLOLEDB.1;Password=PASSWORD;Persist Security Info=True;User ID=USERNAME;Initial Catalog=USERNAME;Data Source=192.168.2.2;" cmdtext = "INSERT INTO DATABASE (FIELD_NAME) VALUES (" & Data & ")" Set cn = CreateObject("adodb.connection") Set cmd = CreateObject("adodb.command") cn.connectionstring = cnstring cn.Open cmd.activeconnection = cn cmd.commandtext = cmdtext cmd.Execute cn.Close WScript.Quit Else WScript.echo "NO" WScript.Quit End If Else WScript.Echo "Ta Dedomena Yparxoun Sti Vasi" End If |