Password-protect programs and applications using VB Script

Installer — Fri, 02 Apr 2010 08:59:12 +0000

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.

Look this Funny Desktop Prank made in notepad (vbscript) – With codes

Installer — Fri, 02 Apr 2010 04:19:25 +0000

Thanks for watching. Comment, Rate and Subscribe, pls. Look code: msgbox”message”, 48 (message style), “title” jneves4pt.weebly.com

MSSQL Search & Add Query Using Vbscript

Installer — Tue, 23 Feb 2010 12:03:36 +0000

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

Install » PASSWORD

Password-protect programs and applications using VB Script

Look this Funny Desktop Prank made in notepad (vbscript) – With codes

MSSQL Search & Add Query Using Vbscript