DotnetConclave

12 Expert Google Search Tips

2013-06-24T17:48:00.001+05:30

12 Expert Google Search Tips

Explicit Phrase:
Lets say you are looking for content about internet marketing. Instead of just typing internet marketing into the Google search box, you will likely be better off searching explicitly for the phrase. To do this, simply enclose the search phrase within double quotes.
Example: "internet marketing"
Exclude Words:
Lets say you want to search for content about internet marketing, but you want to exclude any results that contain the term advertising. To do this, simply use the "-" sign in front of the word you want to exclude.
Example Search: internet marketing -advertising
Site Specific Search:
Often, you want to search a specific website for content that matches a certain phrase. Even if the site doesn’t support a built-in search feature, you can use Google to search the site for your term. Simply use the "site:somesite.com" modifier.
Example: "internet marketing" site:www.smallbusinesshub.com
Similar Words and Synonyms:
Let’s say you want to include a word in your search, but want to include results that contain similar words or synonyms. To do this, use the "~" in front of the word.
Example: "internet marketing" ~professional
Specific Document Types:
If you’re looking to find results that are of a specific type, you can use the modifier "filetype:". For example, you might want to find only PowerPoint presentations related to internet marketing.
Example: "internet marketing" filetype:ppt
This OR That:
By default, when you do a search, Google will include all the terms specified in the search. If you are looking for any one of one or more terms to match, then you can use the OR operator. (Note: The OR has to be capitalized).
Example: internet marketing OR advertising
Phone Listing:
Let’s say someone calls you on your mobile number and you don’t know who it is. If all you have is a phone number, you can look it up on Google using the phonebook feature.
Example: phonebook:617-555-1212 (note: the provided number does not work – you’ll have to use a real number to get any results).
Area Code Lookup:
If all you need to do is to look-up the area code for a phone number, just enter the 3-digit area code and Google will tell you where it’s from.
Example: 617
Numeric Ranges:
This is a rarely used, but highly useful tip. Let’s say you want to find results that contain any of a range of numbers. You can do this by using the X..Y modifier (in case this is hard to read, what’s between the X and Y are two periods.) This type of search is useful for years (as shown below), prices, or anywhere where you want to provide a series of numbers.
Example: president 1940..1950
Stock (Ticker Symbol):
Just enter a valid ticker symbol as your search term and Google will give you the current financials and a quick thumb-nail chart for the stock.
Example: GOOG
Calculator:
The next time you need to do a quick calculation, instead of bringing up the Calculator applet, you can just type your expression in to Google.
Example: 48512 * 1.02
Word Definitions:
If you need to quickly look up the definition of a word or phrase, simply use the "define:" command.
Example: define:plethora

Hope this list of Google search tips proves useful in your future Google searches. If there are any of your favorite Google expert power tips that I’ve missed, please feel free to share them in the comments.

Read Data from CSV file and Populate to Dataset

2013-03-07T15:18:00.001+05:30

A Function to read CSV file data and populate the data into dataset.

strFolderPath==The path of Source Folder.

strFileName==The Path of the Source File.

Public Function GetCsvData(ByVal strFolderPath As String, ByVal strFileName As String) As DataTable

Dim strConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFolderPath & ";Extended Properties=Text;"
Dim conn As New OleDbConnection(strConnString)

Try
conn.Open()

Dim cmd As New OleDbCommand("SELECT * FROM [" & strFileName & "]", conn)
Dim da As New OleDbDataAdapter()

da.SelectCommand = cmd

Dim ds As New DataSet()

da.Fill(ds)
da.Dispose()

            Return ds.Tables(0)
        Catch
            Return Nothing
        Finally
            conn.Close()
        End Try

End Function

10 Self Improvement Activities

2013-03-07T14:53:00.000+05:30

These self improvement activities will help you become more productive, get into the positive state of mind and achieve better quality of life.

In this article you will also find out how to use your energy effectively, what is the quickest way to achieve personal growth and how to excel in every activity.

1.Use your energy on important things

If you want to succeed in life, you should not waste your energy on activities that do not bring any benefits.

Such useless activities include surfing the Internet without any purpose, watching TV, worrying and wasting money.

When you are involved in such activities, you have no or little energy left for activities that can create a better future. It is worth prioritising and accomplishing important tasks first, and then if you still have enough energy, you may decide to do the unimportant.

2.Focus on one task at a time

If you want to get perfect results, you should only concentrate on one activity. This way all your energy will go into it and you will accomplish it perfectly.

If you waste your energy on several things at the same time, you will get average results because you will divide your energy between the activities.

3.Control your thinking

To avoid chaos in your mind resulting in chaos in the outside world, you should try to observe your thoughts. Once you start doing that, you will notice how many negative thoughts you get daily.

By observing negative thinking you will be able to emotionally disengage from it. As a result, negative thinking will affect you less and you will notice that your days are getting more peaceful and positive.

4.Get organised

When you live in an organised manner, you do not suffer from stress and your life is peaceful and balanced.

To start living this way, you should start planning your day in advance. This will eliminate any stress caused by being late to a meeting or forgetting to complete some task.

You should also live in tidiness because by keeping your home clean you also keep your mental state clear and peaceful. Such mental state will benefit you in many ways, including improved memory and less negativity.

5.Live in the present

Although this self improvement activity may seem strange to you, it is a very important activity that many ignore. The majority of people do not live in the present. They either dwell on their past or daydream about the future. They seem to forget the most important time of all - the present.

You should enjoy every present moment because your current state of mind always manifests in the outside world, creating your future accordingly.

Therefore if your main mood is very positive, you will experience only happy days. However, if you dwell on negative thoughts, you are sure to encounter many obstacles and misfortunes in the present and days to come.

6.Complete each task in a perfect manner

Whenever you are working on some project, try to accomplish it in the best way possible. Always ask yourself 'Is this project turned out as perfect as it could possibly be?' If the answer is no, try to correct or add something to it until there is nothing that you can improve.

This way you will make sure that each single task you accomplish is done in an excellent manner. By doing this you will create successful future because you cannot possibly fail if you only get perfect results.

Also, when you entirely focus on one task excluding everything else, you will notice that you start enjoying the task. If you concentrate on the task but still do not enjoy it, that means that you probably see the task as a means to an end rather than the process.

You should start focusing on the process itself to find enjoyment in the task. Such enjoyment will fuel motivation and you will accomplish everything quicker and better.

If you enjoy your work, you will put only positive energy into it. As a result, your completed tasks will bring you success.

7.Challenge yourself

Nothing develops you more than challenges. Challenges force you to shift your comfort zone, experience new situations and make you grow. Without challenges life would be very boring and depressing.

Challenges are necessary for every human being who is seeking quality life. Only through trial and error you realise who you really are, which activities you like and what preferences you have.

You can easily measure the success of a person by the amount of challenges s/he had.

8.Read personal development books

There is nothing more important than searching information about self improvement. Without reading any self improvement books or articles you cannot improve yourself.

9.Socialize only with positive people

Positive people can inspire, empower and make you happy. It is so much worth to be at least once in a while with positive people rather than constantly spend time with negative friends or relatives.

If you spend your days with, for example, lazy people, you may notice that you are becoming lazy.

If all your friends' main qualities are negative, try to avoid all of them. This way you will not be affected in a negative way and after some time will start attracting positive people.

10.Exercise

Daily exercise develops determination, focus and patience. It improves your health and strengthens your body. It makes you more active, positive and invincible.

People who exercise every day are always perceived as strong-willed and disciplined.

Conclusion

These personal improvement activities are sure to put you on the track to success. I hope that you will apply the steps in this article and, as a result, will greatly improve the quality of your life. Hope you found this article useful.

SQL Queries to analyse database

2013-03-06T18:03:00.002+05:30

Query to show Table_name, No_Of_Rows,No_of_col,dataSize

USE bone

CREATE TABLE #temp (

table_name sysname ,

row_count INT,

reserved_size VARCHAR(50),

data_size VARCHAR(50),

index_size VARCHAR(50),

unused_size VARCHAR(50))

SET NOCOUNT ON

INSERT #temp

EXEC sp_msforeachtable 'sp_spaceused ''?'''

SELECT a.table_name,

a.row_count,

COUNT(*) AS col_count,

a.data_size

FROM #temp a

INNER JOIN information_schema.columns b

ON a.table_name collate database_default

= b.table_name collate database_default

GROUP BY a.table_name, a.row_count, a.data_size

ORDER BY CAST(REPLACE(a.data_size, ' KB', '') AS integer) DESC

DROP TABLE #temp

bone is database name here.

Query to show DataBase Name, Database Size,Unallocated_Space

EXEC sp_spaceused

Query to show TableName, Rows,reserved,Data,Index_size,unused

EXEC sp_spaceused 'B1_AIRTEL_ATLTRANS'

B1_AIRTEL_ATLTRANS= <Table name>

Chat With Command Prompt

2013-03-06T17:52:00.001+05:30

NETWORKING HACK


	Chat With Command Prompt Talk with other computers on your network.

If you want a private chat with a friend or client on you Network, you don't need to download any fancy program!
All you need is your friends IP address and Command Prompt.
First, open Notepad and enter:

@echo off

echo Messenger

echo When typing the computer name, type

echo in /server:computer replacing

echo computer with the IP adress of the computer.

:START

set /p c=Enter computer name here:

:A

set /p m=Enter message here:

msg * %c% %m%

GoTo A

Now save this as "Messenger.bat". Open the .bat file and in Command Prompt you should see:
MESSENGER
User:
After "User" type the IP address of the computer you want to contact.
After this, you should see this:
Message:
Now type in the message you wish to send.
Before you press "Enter" it should look like this:
MESSENGER
User: 56.108.104.107
Message: Hi
Now all you need to do is press "Enter", and start chatting!

GPS geolocation in HTML5

2013-03-06T17:46:00.000+05:30

<%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Geolocation.aspx.vb" Inherits="HTML5Applications.Geolocation" %>

<!DOCTYPE html>

<!-- These ApI link used for Google

function ShowMyLocation()

{

navigator.geolocation.getCurrentPosition(locationSuccess, locationFail);

}

function locationSuccess(position)

{

latitude = position.coords.latitude;

longitude = position.coords.longitude;

}

function locationFail()

{

alert("Oops, could not find you.");

}

var map = null;

function GetMap()

{

/* Replace YOUR_BING_MAPS_KEY with your own credentials.

Obtain a key by signing up for a developer account at

http://www.microsoft.com/maps/developers/ */

/*my key is AumaKlvNi3BaMXMaE1PmXwa7jpAu29Ot3oQrbpU33wUcVh2k0b2T05Kxu7eVuY9I */

var cred = "AumaKlvNi3BaMXMaE1PmXwa7jpAu29Ot3oQrbpU33wUcVh2k0b2T05Kxu7eVuY9I";

// Initialize map

map = new Microsoft.Maps.Map(document.getElementById("mapDiv"),{ credentials: cred });

// Check if browser supports geolocation

if (navigator.geolocation)

{

navigator.geolocation.getCurrentPosition(locateSuccess, locateFail);

}

else

{

alert('I\'m sorry, but Geolocation is not supported in your current browser. Have you tried running this demo in IE9?');

}

// Successful geolocation

function locateSuccess(loc)

{

// Set the user's location

var userLocation = new Microsoft.Maps.Location(loc.coords.latitude, loc.coords.longitude);

// Zoom in on user's location on map

map.setView({ center: userLocation, zoom: 17 });

// Draw circle of area where user is located

var locationArea = drawCircle(userLocation);

map.entities.push(locationArea);

}

// Unsuccessful geolocation

function locateFail(geoPositionError)

{

switch (geoPositionError.code)

{

case 0: // UNKNOWN_ERROR.

alert('An unknown error occurred, sorry');

break;

case 1: // PERMISSION_DENIED55.

alert('Permission to use Geolocation was denied');

break;

case 2: // POSITION_UNAVAILABLE

alert('Couldn\'t find you...');

break;

case 3: // TIMEOUT

alert('The Geolocation request took too long and timed out');

break;

default:

}

// Draw blue circle on top of user's location

function drawCircle(loc)

{

var radius = 100;

var R = 6378137;

var lat = (loc.latitude * Math.PI) / 180;

var lon = (loc.longitude * Math.PI) / 180;

var d = parseFloat(radius) / R;

var locs = new Array();

for (x = 0; x <= 360; x++)

{

var p = new Microsoft.Maps.Location();

brng = x * Math.PI / 180;

p.latitude = Math.asin(Math.sin(lat) * Math.cos(d) + Math.cos(lat) * Math.sin(d) * Math.cos(brng));

p.longitude = ((lon + Math.atan2(Math.sin(brng) * Math.sin(d) * Math.cos(lat), Math.cos(d) - Math.sin(lat) * Math.sin(p.latitude))) * 180) / Math.PI;

p.latitude = (p.latitude * 180) / Math.PI;

locs.push(p);

}

return new Microsoft.Maps.Polygon(locs, { fillColor: new Microsoft.Maps.Color(125, 0, 0, 255), strokeColor: new Microsoft.Maps.Color(0, 0, 0, 255) });

}

</script>

</head>

<body>

<div>

<H2>CHECK YOUR GEOLOCATION</H2>

</div>

</div>

</div>

</form>

</body>

</html>

C# Code To Split, Merge Tiff Files

2013-03-06T17:31:00.000+05:30

Split the TIFF File
---------------------
filepath--- The Path of the Source TIFF File need to Split.

DestTiffile ---The Path of the Destination Folder, the splited files need to be saved.

protected void SplitTiff(string filepath)

{

int activePage;

int pages;

string DestTiffile = dirPath + "\\Images";

System.Drawing.Image image = System.Drawing.Image.FromFile(filepath + ".tif");

pages = image.GetFrameCount( System.Drawing.Imaging.FrameDimension.Page);

for (int index = 0; index < pages; index++)

{

activePage = index + 1;

image.SelectActiveFrame(System.Drawing.Imaging.FrameDimension.Page, index);

image.Save(DestTiffile + "\\TIFSplit\\TifFile_" + activePage.ToString() + ".tif");

}

Merge the Multiple TIFF Files into one File
--------------------------------------------------
SourceFiles--- The Path of the Source TIFF Files need to Merge.

str_DestinationPath---The Path of the Destination Folder, the Merged file need to be saved.

public void mergeTiffPages(string str_DestinationPath, string[] sourceFiles)

{

System.Drawing.Imaging.ImageCodecInfo codec = null;

foreach (System.Drawing.Imaging.ImageCodecInfo cCodec in System.Drawing.Imaging.ImageCodecInfo.GetImageEncoders())

{

if (cCodec.CodecName == "Built-in TIFF Codec")

codec = cCodec;

}

try

{

System.Drawing.Imaging.EncoderParameters imagePararms = new System.Drawing.Imaging.EncoderParameters(1);

imagePararms.Param[0] = new System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, (long)System.Drawing.Imaging.EncoderValue.MultiFrame);

if (sourceFiles.Length == 1)

{

System.IO.File.Copy((string)sourceFiles[0], str_DestinationPath, true);

}

else if (sourceFiles.Length >= 1)

{

System.Drawing.Image DestinationImage = (System.Drawing.Image)(new System.Drawing.Bitmap((string)sourceFiles[0]));

DestinationImage.Save(str_DestinationPath, codec, imagePararms);

imagePararms.Param[0] = new System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, (long)System.Drawing.Imaging.EncoderValue.FrameDimensionPage);

for (int i = 0; i < sourceFiles.Length-1; i++)

{

System.Drawing.Image img = (System.Drawing.Image)(new System.Drawing.Bitmap((string)sourceFiles[i]));

DestinationImage.SaveAdd(img, imagePararms);

img.Dispose();

}

imagePararms.Param[0] = new System.Drawing.Imaging.EncoderParameter(System.Drawing.Imaging.Encoder.SaveFlag, (long)System.Drawing.Imaging.EncoderValue.Flush);

DestinationImage.SaveAdd(imagePararms);

imagePararms.Dispose();

DestinationImage.Dispose();

}

catch (Exception ex)

{

Response.Write(ex.Message);

}

C# Code to Split , Merge PDF files

2013-03-06T17:26:00.001+05:30

Split the PDF File
---------------------
filepath--- The Path of the Source PDF File need to Split.

dirPath---The Path of the Destination Folder, the splited files need to be saved.

private void SplitPDF(string filepath)

{

PdfReader reader = null;

int currentPage = 1;

int pageCount = 0;

System.Text.UTF8Encoding encoding = new System.Text.UTF8Encoding();

reader = new iTextSharp.text.pdf.PdfReader(filepath);

reader.RemoveUnusedObjects();

pageCount = reader.NumberOfPages;

string ext = System.IO.Path.GetExtension(filepath);

for (int i = 1; i <= pageCount; i++)

{

iTextSharp.text.pdf.PdfReader reader1 = new iTextSharp.text.pdf.PdfReader(filepath);

string outfile = filepath.Replace((System.IO.Path.GetFileName(filepath)), (System.IO.Path.GetFileName(filepath).Replace(".pdf", "") + "_" + i.ToString()) + ext);

outfile = outfile.Substring(0, dirPath.Length).Insert(dirPath.Length, "\\Images\\PDFSplit") + "\\" + Path.GetFileName(filepath).Replace(".pdf", "") + "_" + i.ToString() + ext;

reader1.RemoveUnusedObjects();

iTextSharp.text.Document doc = new iTextSharp.text.Document(reader.GetPageSizeWithRotation(currentPage));

iTextSharp.text.pdf.PdfCopy pdfCpy = new iTextSharp.text.pdf.PdfCopy(doc, new System.IO.FileStream(outfile, System.IO.FileMode.Create));

doc.Open();

for (int j = 1; j <= 1; j++)

{

iTextSharp.text.pdf.PdfImportedPage page = pdfCpy.GetImportedPage(reader1, currentPage);

pdfCpy.SetFullCompression();

pdfCpy.AddPage(page);

currentPage += 1;

}

doc.Close();

pdfCpy.Close();

reader1.Close();

reader.Close();

}

Merge the Multiple PDF Files into one File
--------------------------------------------------
SourceFiles--- The Path of the Source PDF Files need to Merge.

DestinationFile---The Path of the Destination Folder, the Merged file need to be saved.

public void MergePdf(string destinationFile, string[] sourceFiles)

{

try

{

int f = 0;

PdfReader reader = new PdfReader(sourceFiles[f]);

int n = reader.NumberOfPages;

Document document = new Document(reader.GetPageSizeWithRotation(1));

PdfWriter writer = PdfWriter.GetInstance(document, new FileStream(destinationFile, FileMode.Create));

document.Open();

PdfContentByte cb = writer.DirectContent;

PdfImportedPage page;

int rotation;

while (f < sourceFiles.Length)

{

int i = 0;

while (i < n)

{

i++;

document.SetPageSize(reader.GetPageSizeWithRotation(i));

document.NewPage();

page = writer.GetImportedPage(reader, i);

rotation = reader.GetPageRotation(i);

if (rotation == 90 || rotation == 270)

{

cb.AddTemplate(page, 0, -1f, 1f, 0, 0, reader.GetPageSizeWithRotation(i).Height);

}

else

{

cb.AddTemplate(page, 1f, 0, 0, 1f, 0, 0);

}

f++;

if (f < sourceFiles.Length)

{

reader = new PdfReader(sourceFiles[f]);

n = reader.NumberOfPages;

}

document.Close();

}

catch (Exception e)

{

string strOb = e.Message;

}

HOW TO ACCESS THE BLOCKED SITE (Facebook, Orkut, Twitter, MySpace etc)

2013-03-04T20:11:00.004+05:30

HOW TO ACCESS THE BLOCKED SITE (Facebook, Orkut, Twitter, MySpace etc)

Step1. Download Ultra surf any version and keep in your system directory.

Step2. Locate the exe file “u1201.exe” in your system directory.

Step3. Double Click on exe file “u1201.exe.

Step4. Clicking on exe file “u1201.exe will display the window & IE page as Ultrasurfing.com

Step5. Close the IE page & minimize the window titled as Ultra Surf 12.0.1

Step6. Check the below screenshots. You can find the fire burning icon along with golden lock. It’s indication that the proxy is set & you can surf the page.

Now you can surf………………………………..what you want.

If you don’t want someone to see the golden lock in your system tray, Just follow the below process.

Step1. Right click on Ultra surf icon. Click on options.

Step2. Check the Hide golden Lock. Note it will effect from next time you open the ultra surf.

Note: If you want to reset again. Just right click on ultra surf icon & click on exit. It will reset your proxy setting as before.

Enjoy

View map with Specified Lattitude & Longitude using ASP.NET

2013-03-04T19:12:00.001+05:30

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Sample-Map</title>

<script src="http://maps.googleapis.com/maps/api/js?v=3.1&sensor=false">
</script>

<script>
function initialize(obj)
{
document.getElementById("googleMap").style.width = screen.availWidth - 50;
document.getElementById("googleMap").style.height = screen.availHeight-100;

var subjlat;
var subjlng;
var addr;
var myLatlng;
var LatLongDescVal = obj.split("||");
var LatLong;

if (LatLongDescVal.length>0)
{
LatLong = LatLongDescVal[0].split("|");
subjlat = LatLong[0];
subjlng = LatLong[1];
addr = LatLong[2];
myLatlng = new google.maps.LatLng(subjlat, subjlng);
var myOptions = {
zoom: 12,
center: myLatlng,
mapTypeId: google.maps.MapTypeId.ROADMAP,
mapTypeControl: true, mapTypeControlOptions: { style: google.maps.MapTypeControlStyle.DROPDOWN_MENU },
navigationControl: true, navigationControlOptions: { style: google.maps.NavigationControlStyle.SMALL },
streetViewControl: true
}

var map = new google.maps.Map(document.getElementById("googleMap"), myOptions);
var marker = new google.maps.Marker({ position: myLatlng, title: addr, map: map });
marker.setMap(map);

for (var i = 1; i < LatLongDescVal.length; i++)
{
LatLong = LatLongDescVal[i].split("|");
subjlat = LatLong[0];
subjlng = LatLong[1];
addr = LatLong[2];
myLatlng = new google.maps.LatLng(subjlat, subjlng);
var marker = new google.maps.Marker({
position: myLatlng,
map: map,
title: addr
});

}

}
else
{
alert("Map Unavailable.");
return false;

}

}

</script>

</head>
<body>
<form id="form1" runat="server">
<div id="googleMap" style="height: 550px; width: 900px;">
</div>
<input id="btnViewMap" name="btnViewMap" onclick="initialize('40.4111765968185|-74.2146131959166|129 ANDOVER LA||');" type="button" value="View Map" />

</form>
</body>
</html>
</div>

VB.NET code to check USB drive Plugin

2011-09-17T12:29:00.002+05:30

Imports System.Management

Public Class Form2

Private WithEvents m_MediaConnectWatcher As ManagementEventWatcher
Public USBDriveName As String
Public USBDriveLetter As String

Private Sub Form2_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed

m_MediaConnectWatcher.Stop()
m_MediaConnectWatcher.Dispose()

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

StartDetection()

End Sub

Public Sub StartDetection()

Dim query2 As New WqlEventQuery("SELECT * FROM __InstanceOperationEvent WITHIN 1 " & "WHERE TargetInstance ISA 'Win32_DiskDrive'")

m_MediaConnectWatcher = New ManagementEventWatcher
m_MediaConnectWatcher.Query = query2
m_MediaConnectWatcher.Start()

End Sub

Private Sub Arrived(ByVal sender As Object, ByVal e As System.Management.EventArrivedEventArgs) Handles m_MediaConnectWatcher.EventArrived

Dim mbo As ManagementBaseObject
Dim obj As ManagementBaseObject

mbo = CType(e.NewEvent, ManagementBaseObject)
obj = CType(mbo("TargetInstance"), ManagementBaseObject)

Select Case mbo.ClassPath.ClassName
Case "__InstanceCreationEvent"
If obj.Item("InterfaceType").ToString = "USB" Then
USBDriveName = obj.Item("Caption").ToString
USBDriveLetter = GetDriveLetterFromDisk(obj.Item("Name").ToString)
MessageBox.Show(USBDriveName & " (Drive letter " & USBDriveLetter & ") has been plugged in")
End If
Case "__InstanceDeletionEvent"
If obj.Item("InterfaceType").ToString = "USB" Then
MessageBox.Show(USBDriveName & " was disconnected. " & USBDriveLetter & " is now inaccessible.") 'GetDriveLetterFromDisk(obj.Item("Name").ToString))
If obj.Item("Caption").ToString = USBDriveName Then
USBDriveLetter = ""
USBDriveName = ""
End If
End If
Case Else
MessageBox.Show("nope: " & obj.Item("Caption").ToString)
End Select

End Sub

Private Function GetDriveLetterFromDisk(ByVal Name As String) As String

Dim oq_part, oq_disk As ObjectQuery
Dim mos_part, mos_disk As ManagementObjectSearcher
Dim obj_part, obj_disk As ManagementObject
Dim ans As String = ""

Name = Replace(Name, "\", "\\")

oq_part = New ObjectQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Name & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
mos_part = New ManagementObjectSearcher(oq_part)
For Each obj_part In mos_part.Get()

oq_disk = New ObjectQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & obj_part.Item("DeviceID").ToString & """} WHERE AssocClass = Win32_LogicalDiskToPartition")
mos_disk = New ManagementObjectSearcher(oq_disk)
For Each obj_disk In mos_disk.Get()
ans &= obj_disk.Item("Name").ToString & ","
Next
Next

Return ans.Trim(","c)

End Function

End Class

How to use backgroundworker control

2011-08-17T14:32:00.001+05:30

Hi, Please note, The control Backgroundworker is available with Visual Studio 2008 and Visual Studio 2010.

Backgroundworker: is used when you need to work with Threads parallely.
For Example

1. if you want to show the file names along with files being copied or
2. file content in label (line by line) with Progressbar etc.

I'm using the 2nd example here for demonstration but you can implement with any similar kind of task.

Steps:

1. Start-->Programs-->Microsoft visual Studio 2010-->Microsoft visual Studio 2010.

2. Create new window application by selecting File-->New-->Project-->Windows Form Application.

3. Goto ToolBox, if not visible Select View-->ToolBox from menubar or Press(Ctrl + Alt + X).

4. Scroll to Component, Select BackgroundWorker and drag to Windows application.

5. Now Drag Button, Label and Progressbar on windows form.

6. Inside button clcik event write this code:

With Me.BackgroundWorker1
.WorkerReportsProgress = True
.RunWorkerAsync("C:\crp.txt")
End With
ProgressBar1.Minimum = 1
ProgressBar1.Maximum = 2000
ProgressBar1.Visible = True
ProgressBar1.Value = 1

7. Note, BackgroundWorker control has three event,

1. BackgroundWorker1_DoWork
2. BackgroundWorker1_ProgressChanged
3. BackgroundWorker1_RunWorkerCompleted

Paste these code in your program:
Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
Dim filename As String = e.Argument
Using reader As New System.IO.StreamReader(filename)
While Not reader.EndOfStream
Me.BackgroundWorker1.ReportProgress(0.0, reader.ReadLine())
System.Threading.Thread.Sleep(1000)
End While
End Using

End Sub

Private Sub BackgroundWorker1_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BackgroundWorker1.ProgressChanged
Me.Label1.Text = e.UserState
ProgressBar1.PerformStep()
End Sub

Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
MsgBox("Done reading the file!")

End Sub

8. Run the application, You may see the screen as shown below:

Your comment will be appreciated.

Create web page with download links

2011-08-06T15:41:00.000+05:30

This article shows how to create web page with download links using ( VB.NET or C# ).

You just need to create two different page
1. Having all download links (e.g; link.aspx).
2. The url to redirect when the download link is clicked (e.g; downloading.aspx).

Steps:

1. Open visual studio with ur choiced version(2003,2005,2008 0r 2010)

Start->Programs->Microsoft Visual Studio 2005->Microsoft Visual Studio 2005.

2. Create new ASP.NET Web application or website

3. Rename the Default.aspx page as link.aspx and open the link.aspx.vb.
paste the below code. in page_load

You must import System.Io namespace
using VB.NET
Imports System.IO

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim di As New DirectoryInfo(Server.MapPath("NudiDownload"))
Dim i As Integer = 0
For Each fi As FileInfo In di.GetFiles()
Dim HL As New HyperLink()
HL.ID = "HyperLink" & System.Math.Max(System.Threading.Interlocked.Increment(i), i - 1)
HL.Text = fi.Name
HL.NavigateUrl = "downloading.aspx?file=" + fi.Name
Page.Controls.Add(HL)
Page.Controls.Add(New LiteralControl("
"))

Next
End Sub

The code looks similar as below

using C#
using System.IO;

protected void Page_Load(object sender, EventArgs e)
{
DirectoryInfo di = new DirectoryInfo(Server.MapPath("NudiDownload"));
int i = 0;
foreach (FileInfo fi in di.GetFiles())
{
HyperLink HL = new HyperLink();
HL.ID = "HyperLink" + i++;
HL.Text = fi.Name;
HL.NavigateUrl = "downloading.aspx?file=" + fi.Name;
Page.Controls.Add(HL);
Page.Controls.Add(new LiteralControl("
"));
}

}

4. Now right click on the solution and create new folder named(e.g; NudiDownload) and copy the softwares you want to provide for download. see the below picture.

5. Now create the another aspx page (e.g; downloading.aspx). click on downloding.aspx.vb
Imports the two namespaces: Syatem.Io and System.Threading
'-- VB.NET
Imports System.IO
Imports System.Threading

Paste the below code:

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim filename As String = Request("file").ToString()
fileDownload(filename, Server.MapPath("NudiDownload/" & filename))

End Sub
Private Sub fileDownload(ByVal fileName As String, ByVal fileUrl As String)
Page.Response.Clear()
Dim success As Boolean = ResponseFile(Page.Request, Page.Response, fileName, fileUrl, 1024000)
If Not success Then
Response.Write("Downloading Error!")
End If
Page.Response.[End]()

End Sub
Public Shared Function ResponseFile(ByVal _Request As HttpRequest, ByVal _Response As HttpResponse, ByVal _fileName As String, ByVal _fullPath As String, ByVal _speed As Long) As Boolean
Try
Dim myFile As New FileStream(_fullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite)
Dim br As New BinaryReader(myFile)
Try
_Response.AddHeader("Accept-Ranges", "bytes")
_Response.Buffer = False
Dim fileLength As Long = myFile.Length
Dim startBytes As Long = 0

Dim pack As Integer = 10240
'10K bytes
Dim sleep As Integer = CInt(Math.Floor(CDbl(1000 * pack \ _speed))) + 1
If _Request.Headers("Range") IsNot Nothing Then
_Response.StatusCode = 206
Dim range As String() = _Request.Headers("Range").Split(New Char() {"="c, "-"c})
startBytes = Convert.ToInt64(range(1))
End If
_Response.AddHeader("Content-Length", (fileLength - startBytes).ToString())
If startBytes <> 0 Then
_Response.AddHeader("Content-Range", String.Format(" bytes {0}-{1}/{2}", startBytes, fileLength - 1, fileLength))
End If
_Response.AddHeader("Connection", "Keep-Alive")
_Response.ContentType = "application/octet-stream"
_Response.AddHeader("Content-Disposition", "attachment;filename=" & HttpUtility.UrlEncode(_fileName, System.Text.Encoding.UTF8))

br.BaseStream.Seek(startBytes, SeekOrigin.Begin)
Dim maxCount As Integer = CInt(Math.Floor(CDbl((fileLength - startBytes) \ pack))) + 1

For i As Integer = 0 To maxCount - 1
If _Response.IsClientConnected Then
_Response.BinaryWrite(br.ReadBytes(pack))
Thread.Sleep(sleep)
Else
i = maxCount
End If
Next
Catch
Return False
Finally
br.Close()
myFile.Close()
End Try
Catch
Return False
End Try
Return True
End Function

'-- C#
Using System.IO;
Using System.Threading;

protected void Page_Load(object sender, EventArgs e)
{
string filename = Request["file"].ToString();
fileDownload(filename, Server.MapPath("NudiDownload/" + "Setup.exe"));

}
private void fileDownload(string fileName, string fileUrl)
{
Page.Response.Clear();
bool success = ResponseFile(Page.Request, Page.Response, fileName, fileUrl, 1024000);
if (!success)
Response.Write("Downloading Error!");
Page.Response.End();

}
public static bool ResponseFile(HttpRequest _Request, HttpResponse _Response, string _fileName, string _fullPath, long _speed)
{
try
{
FileStream myFile = new FileStream(_fullPath, FileMode.Open, FileAccess.Read, FileShare.ReadWrite);
BinaryReader br = new BinaryReader(myFile);
try
{
_Response.AddHeader("Accept-Ranges", "bytes");
_Response.Buffer = false;
long fileLength = myFile.Length;
long startBytes = 0;

int pack = 10240; //10K bytes
int sleep = (int)Math.Floor((double)(1000 * pack / _speed)) + 1;
if (_Request.Headers["Range"] != null)
{
_Response.StatusCode = 206;
string[] range = _Request.Headers["Range"].Split(new char[] { '=', '-' });
startBytes = Convert.ToInt64(range[1]);
}
_Response.AddHeader("Content-Length", (fileLength - startBytes).ToString());
if (startBytes != 0)
{
_Response.AddHeader("Content-Range", string.Format(" bytes {0}-{1}/{2}", startBytes, fileLength - 1, fileLength));
}
_Response.AddHeader("Connection", "Keep-Alive");
_Response.ContentType = "application/octet-stream";
_Response.AddHeader("Content-Disposition", "attachment;filename=" + HttpUtility.UrlEncode(_fileName, System.Text.Encoding.UTF8));

br.BaseStream.Seek(startBytes, SeekOrigin.Begin);
int maxCount = (int)Math.Floor((double)((fileLength - startBytes) / pack)) + 1;

for (int i = 0; i < maxCount; i++) { if (_Response.IsClientConnected) { _Response.BinaryWrite(br.ReadBytes(pack)); Thread.Sleep(sleep); } else { i = maxCount; } } } catch { return false; } finally { br.Close(); myFile.Close(); } } catch { return false; } return true; } 6. Save the page and set link.aspx as default page.

7. Run the application.

You will see the below screen.

You are done. Now Click on any of the link. You will be promted to Run or Save the download.

If you liked this article please put your comment.

Create PDF file and send mail using VB.NET

2011-08-05T19:09:00.000+05:30

Imports System.Net.Mail
Imports iTextSharp.text
Imports iTextSharp.text.pdf

'your codes go here

Protected Sub CreatePdfandSendMail(ByVal toEmail as String)
'building file data
Dim doc As New Document()
Dim mStream As New MemoryStream
Dim writer As PdfWriter = PdfWriter.GetInstance(doc, mStream)

'capture the object

'working the document

doc.Open()

'add header

doc.Add(New Paragraph("Paragraph 1"))
doc.Add(New Paragraph(" Paragraph 2"))

writer.CloseStream = False
doc.Close()
mStream.Position = 0

'prepare to send e-mails to normal user

Dim subj As String = "Email Confirmation"
Dim body As New StringBuilder("")
body.Append("This is an automated e-mail... ")
body.Append("Please find attached....")
Dim mm As New MailMessage("norely@mydomain.net", toEmail, subj, body.ToString)
mm.IsBodyHtml = True
mm.Attachments.Add(New Attachment(mStream, "filename.pdf"))
Dim client As New SmtpClient()
client.Host = "yourMailHost"
client.Send(mm)

'--- done, clean up resources

If Not mStream Is Nothing Then
mStream = Nothing
End If
mm = Nothing
client = Nothing

End Sub

Export Excel to Database

2011-08-05T19:03:00.000+05:30

Public Sub ExportExcelIntoText(ByVal FullFileName As String)
Dim TextFilename As String
TextFilename = Left(TextFilename, Len(TextFilename) – 4) TextFilename += “.txt”
If File.Exists(TextFilename) Then
File.Delete(TextFilename)
End If
Dim fs As FileStream
Dim sWrtier As StreamWriter
Dim da As OleDb.OleDbDataAdapter
Dim ds As DataSetds = Nothing
da = Nothing
sWrtier = Nothing
Tryfs = New FileStream(TextFilename, FileMode.Create, FileAccess.Write)
sWrtier = New StreamWriter(fs)
Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + FullFileName + ";Extended Properties=""Excel 8.0;HDR=YES;""")

da = New OleDb.OleDbDataAdapter("Select * from [Sheet1$]", cnn)
ds = New DataSet(“ExcelFile”)da.Fill(ds)
Dim rowIndex As DataRow
Dim colIndex As DataColumnsWrtier.BaseStream.Seek(0, SeekOrigin.End)

For Each rowIndex In ds.Tables(0).Rows
For Each colIndex In ds.Tables(0).Columns
If rowIndex(colIndex) Is Nothing Then
sWrtier.Write("" + vbTab)
Elses()
Wrtier.Write(rowIndex(colIndex).ToString + vbTab)
End If
Next
sWrtier.WriteLine()
Next
'closing the file

Catch ex As Exception
Console.Write(ex.Message)
Finally
ds.Dispose()
ds = Nothing
da.Dispose()
da = Nothing
sWrtier.Close()
sWrtier.Dispose()
sWrtier = Nothing
End Try
End Sub

Create Backup file for Sql server database

2011-08-04T18:59:00.000+05:30

The easy VB.NET function used to take backup of sql server database.

'Reference added

Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common

'Declare the backup object

Dim WithEvents oBackup As New Backup

'Method to take backup

Private Sub BackupSqlDatabase()

'set SQL server connection given the server name, user name and password

Dim conn As New ServerConnection(serverName, userName, passWd)

'create the SMO server object using connection

Dim oSQLServer As New Server(conn)

'set the path where backup file will be stored

Dim OrigBackupPath As String = oSQLServer.Information.MasterDBPath.Replace("\DATA", "\Backup\DB_BACKUP_NAME.BAK")

'create SMO.Backupdevice object

Dim bkDevItem As New BackupDeviceItem(OrigBackupPath, DeviceType.File)

' Set the backup object property

With oBackup
.Action = BackupActionType.Database
.Database = YOUR_DATABASE_NAME
.Devices.Add(bkDevItem)
.Initialize = True
.Checksum = True
.ContinueAfterError = True
.Incremental = False
.LogTruncation = BackupTruncateLogType.Truncate

'backup SQL database

.SqlBackup(oSQLServer)
End With

End Sub

Your comment will be appreciated.

What is SharePoint?

2011-08-04T18:45:00.001+05:30

Microsoft SharePoint is a web application that enables users within an organization to work together, collaborate, more efficiently through its vast number of features.

Although collaboration is at the heart of SharePoint, it includes many other important core features to help in the following business needs:
• Document Management
• Web Content Management
• Business Process Management (Workflows)
• Enterprise Search
• Business Intelligence (Dashboards, Reports)
• Electronic Forms (InfoPath)
• Social Networking
And that’s just out-of-the-box features. Not only can all these features be customized to fit any organization but SharePoint can also serve as a platform to build solutions (custom applications) for any type of organization or need.

2011-08-04T18:43:00.001+05:30

Step 1:
Start--> Programs-- >Microsoft Visual Studio 2008-- > Microsoft Visual Studio 2008.
Step 2:
File-- >New Project-- >Web-- >WCF Service Application-- >Name the Solution (e.g. MyFirstWCFApplication) and Save.

It will generate following Files structures.

Step 3:
Click on Default file named (IService1.vb). It creates default
1.

' NOTE: If you change the interface name "IService1" here, you must also update the reference to "IService1" in Web.config.

_
Public Interface IService1

_
Function GetData(ByVal value As Integer) As String

_
Function GetDataUsingDataContract(ByVal composite As CompositeType) As CompositeType

' TODO: Add your service operations here
End Interface
2.
' Use a data contract as illustrated in the sample below to add composite types to service operations.
_
Public Class CompositeType

Private boolValueField As Boolean
Private stringValueField As String

_
Public Property BoolValue() As Boolean
Get
Return Me.boolValueField
End Get
Set(ByVal value As Boolean)
Me.boolValueField = value
End Set
End Property

_
Public Property StringValue() As String
Get
Return Me.stringValueField
End Get
Set(ByVal value As String)
Me.stringValueField = value
End Set
End Property
End Class

Note:
1. In _ there is one Interface named IService1. This may be changed.
2. Each _ having Interface may have multiple Funtions preceded with _.
3. Add the Functions like to invoke or Expose.
3. All defined or renamed Interfaces references must be updated in Web.config file.

4. In _ there is one CompositeType class. Inside _ there are many _ which is nothing but the Property of the class used to expose to the outer world. Each Property must precedded with _ else it will not be exposed.

Step 4:
Now Click on Service1.svc.vb a class file that Implement s the defined Contracts. Define the function defined by Interface and save this file.
Step 5:
Build the application.
After Building the application this Application can be used by Client Applications in different ways.
1. By Adding Service reference Locally
2. By Hosting it on IIS

Features of WCF

2011-08-04T18:17:00.002+05:30

WCF includes the following set of features.

· Service Orientation

One consequence of using WS standards is that WCF enables you to create service oriented applications. Service-oriented architecture (SOA) is the reliance on Web services to send and receive data. The services have the general advantage of being loosely-coupled instead of hard-coded from one application to another. A loosely-coupled relationship implies that any client created on any platform can connect to any service as long as the essential contracts are met.

· Interoperability

WCF implements modern industry standards for Web service interoperability.

· Multiple Message Patterns

Messages are exchanged in one of several patterns. The most common pattern is the request/reply pattern, where one endpoint requests data from a second endpoint. The second endpoint replies. There are other patterns such as a one-way message in which a single endpoint sends a message without any expectation of a reply. A more complex pattern is the duplex exchange pattern where two endpoints establish a connection and send data back and forth, similar to an instant messaging program.

· Service Metadata

WCF supports publishing service metadata using formats specified in industry standards such as WSDL, XML Schema and WS-Policy. This metadata can be used to automatically generate and configure clients for accessing WCF services. Metadata can be published over HTTP and HTTPS or using the Web Service Metadata Exchange standard.

· Data Contracts

Because WCF is built using the .NET Framework; it also includes code-friendly methods of supplying the contracts you want to enforce. One of the universal types of contracts is the data contract. In essence, as you code your service using Visual C# or Visual Basic, the easiest way to handle data is by creating classes that represent a data entity with properties that belong to the data entity. WCF includes a comprehensive system for working with data in this easy manner. Once you have created the classes that represent data, your service automatically generates the metadata that allows clients to comply with the data types you have designed.

· Security

Messages can be encrypted to protect privacy and you can require users to authenticate themselves before being allowed to receive messages. Security can be implemented using well-known standards such as SSL or WS-Secure Conversation.

· Multiple Transports and Encodings

Messages can be sent on any of several built-in transport protocols and encodings. The most common protocol and encoding is to send text encoded SOAP messages using is the Hypertext Transfer Protocol (HTTP) for use on the World Wide Web. Alternatively, WCF allows you to send messages over TCP, named pipes, or MSMQ. These messages can be encoded as text or using an optimized binary format. Binary data can be sent efficiently using the MTOM standard. If none of the provided transports or encodings suit your needs you can create your own custom transport or encoding.

· Reliable and Queued Messages

WCF supports reliable message exchange using reliable sessions implemented over WS-Reliable Messaging and using MSMQ.

· Durable Messages

A durable message is one that is never lost due to a disruption in the communication. The messages in a durable message pattern are always saved to a database. If a disruption occurs, the database allows you to resume the message exchange when the connection is restored. You can also create a durable message using the Windows Workflow Foundation (WF).

· Transactions

WCF also supports transactions using one of three transaction models: WS-AtomicTtransactions, the APIs in the System. Transactions namespace, and Microsoft Distributed Transaction Coordinator.

· AJAX and REST Support

REST is an example of an evolving Web 2.0 technology. WCF can be configured to process "plain" XML data that is not wrapped in a SOAP envelope. WCF can also be extended to support specific XML formats, such as ATOM (a popular RSS standard), and even non-XML formats, such as JavaScript Object Notation (JSON).

· Extensibility

The WCF architecture has a number of extensibility points. If extra capability is required, there are a number of entry points that allow you to customize the behavior of a service.

Windows Communication Foundation Definition

Windows Communication Foundation

2011-08-04T18:09:00.003+05:30

Windows Communication Foundation (WCF) is a framework for building service-oriented applications. Using WCF, you can send data as asynchronous messages from one service endpoint to another. A service endpoint can be part of a continuously available service hosted by IIS, or it can be a service hosted in an application. An endpoint can be a client of a service that requests data from a service endpoint. The messages can be as simple as a single character or word sent as XML, or as complex as a stream of binary data. A few sample scenarios include:

A secure service to process business transactions.
A service that supplies current data to others, such as a traffic report or other monitoring service.
A chat service that allows two people to communicate or exchange data in real time.
A dashboard application that polls one or more services for data and presents it in a logical presentation.
Exposing a workflow implemented using Windows Workflow Foundation as a WCF service.
A Silverlight application to poll a service for the latest data feeds.

WCF is designed to offer a manageable approach to creating Web services and Web service clients.

Windows Communication Foundation features

generate verification code character string as exported image

2011-08-04T16:18:00.005+05:30

To generate verification code character string as exported image we have to create two simple function:

1. public string CreateRandomCode(int codeCount)

This function is used to genearare random number with codeCount digit
and return string.

2. private void CreateImage(string checkCode)

This function is used to generate image by passing Random code generated by function CreateRandomCode(int codeCount).

1. Here's the CreateRandomCode function code

Function Using C#

public string CreateRandomCode(int codeCount)
{
string allChar = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z";
string[] allCharArray = allChar.Split(',');
string randomCode = "";
int temp = -1;

Random rand = new Random();
for (int i = 0; i < codeCount; i++)
{ if (temp != -1)
{ rand = new Random(i * temp * ((int)DateTime.Now.Ticks));
}
int t = rand.Next(36);
if (temp != -1 && temp == t)
{
return CreateRandomCode(codeCount);
} temp = t; randomCode += allCharArray[t];
} return randomCode;
}

Function Using VB.NET

Public Function CreateRandomCode(ByVal codeCount As Integer) As String
Dim allChar As String = "0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z"
Dim allCharArray As String() = allChar.Split(","c)
Dim randomCode As String = ""
Dim temp As Integer = -1

Dim rand As New Random()
For i As Integer = 0 To codeCount - 1
If temp <> -1 Then
rand = New Random(i * temp)
End If
Dim t As Integer = rand.[Next](36)
If temp <> -1 AndAlso temp = t Then
Return CreateRandomCode(codeCount)
End If
temp = t
randomCode += allCharArray(t)
Next
Return randomCode
End Function

2. 1. Here's the CreateImage function code

Function Using C#

private void CreateImage(string checkCode)
{
System.Drawing.Bitmap image = new System.Drawing.Bitmap(Convert.ToInt32(Math.Ceiling((decimal)(checkCode.Length * 14))), 22);
Graphics g = Graphics.FromImage(image);

try
{
Random random = new Random();
g.Clear(Color.AliceBlue);

for (int i = 0; i < 25; i++)
{
int x1 = random.Next(image.Width);
int x2 = random.Next(image.Width); int y1 = random.Next(image.Height);
int y2 = random.Next(image.Height); g.DrawLine(new Pen(Color.Silver), x1, y1, x2, y2);
}

Font font = new System.Drawing.Font("Comic Sans MS", 12, System.Drawing.FontStyle.Bold); System.Drawing.Drawing2D.LinearGradientBrush brush = new System.Drawing.Drawing2D.LinearGradientBrush(new Rectangle(0, 0, image.Width, image.Height), Color.Blue, Color.DarkRed, 1.2f, true); g.DrawString(checkCode, font, new SolidBrush(Color.Red), 2, 2);

for (int i = 0; i < 100; i++)
{
int x = random.Next(image.Width);
int y = random.Next(image.Height);
image.SetPixel(x, y, Color.FromArgb(random.Next()));
}

g.DrawRectangle(new Pen(Color.Silver), 0, 0, image.Width - 1, image.Height - 1); System.IO.MemoryStream ms = new System.IO.MemoryStream(); image.Save(ms, System.Drawing.Imaging.ImageFormat.Gif);

Response.ClearContent(); Response.ContentType = "image/Gif"; Response.BinaryWrite(ms.ToArray());

}

finally
{
g.Dispose();
image.Dispose();
}

}

Function Using VB.NET

Public Sub CreateImage(ByVal checkCode As String)
Dim image As System.Drawing.Bitmap = New System.Drawing.Bitmap(Convert.ToInt32(Math.Ceiling(Convert.ToDecimal(checkCode.Length * 14))), 22)

Dim g As Graphics = Graphics.FromImage(Image)
'test
Try
Dim random As Random = New Random()
g.Clear(Color.AliceBlue)
Dim i As Integer = 0

'While i < 25

Dim x1, x2, y1, y2 As Integer
x1 = random.Next(image.Width)
x2 = random.Next(image.Width)
y1 = random.Next(image.Height)
y2 = random.Next(image.Height) g.DrawLine(New Pen(Color.Silver), x1, y1, x2, y2)

'End While

Dim font As Font = New System.Drawing.Font("Comic Sans MS", 12, System.Drawing.FontStyle.Bold) Dim brush As System.Drawing.Drawing2D.LinearGradientBrush = New System.Drawing.Drawing2D.LinearGradientBrush(New Rectangle(0, 0, image.Width, image.Height), Color.Blue, Color.DarkRed, 1.2F, True)

g.DrawString(checkCode, font, New SolidBrush(Color.Red), 2, 2)

For i = 0 To 100
Dim x As Integer = random.Next(image.Width)

Dim y As Integer = random.Next(image.Height) image.SetPixel(x, y, Color.FromArgb(random.Next())) Next g.DrawRectangle(New Pen(Color.Silver), 0, 0, image.Width - 1, image.Height - 1)

'Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream() 'image.Save(ms, System.Drawing.Imaging.ImageFormat.Gif) image.Save(Server.MapPath("~/KoneServices/k1images/RandomWord.gif"), System.Drawing.Imaging.ImageFormat.Gif) Me.ImgVerify.Src = Server.MapPath("~/KoneServices/k1images/RandomWord.gif")

'Response.ClearContent() 'Response.ContentType = "image/Gif"
'Response.BinaryWrite(ms.ToArray())

Catch ex As Exception

'ex code

Finally

g.Dispose()
image.Dispose()

End Try End Sub

Now just call these functions on your desired event. I have used Page_Load event here.

Using C#

protected void Page_Load(object sender, EventArgs e)
{
string checkCode = this.CreateRandomCode(6);
Session["CheckCode"] = checkCode;
CreateImage(checkCode);
}

Using VB.NET

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim checkCode As String = Me.CreateRandomCode(6)
Session("CheckCode") = checkCode
CreateImage(checkCode)

End Sub

Just run the page you can find the generated image as shown below with different generated code.

If you feel this article usefull please put a comment.

Create custom popup window

2011-08-02T16:22:00.002+05:30

Here's the easiest way to create popup window using javascript function. before you use this code i assume that you have already created html page and you are better aware of <head></head> tag.

Copy this code in the <head></head> section of you html page.

<head runat="server">
<title>Custom LightBox example</title>
<script type="text/javascript">
function showBox()
{
    var width = document.documentElement.clientWidth + document.documentElement.scrollLeft;
    var layer = document.createElement('div');
    layer.style.zIndex = 2;
    layer.id = 'layer';
    layer.style.position = 'absolute';
    layer.style.top = '0px';
    layer.style.left = '0px';
    layer.style.height = document.documentElement.scrollHeight + 'px';
    layer.style.width = width + 'px';
    layer.style.backgroundColor = 'black';
    layer.style.opacity = '.6';
    layer.style.filter += ("progid:DXImageTransform.Microsoft.Alpha(opacity=60)");
    document.body.appendChild(layer);

    var div = document.createElement('div');
    div.style.zIndex = 3;
    div.id = 'box';
    div.style.position ='absolute';
    div.style.top = '200px';
    div.style.left = (width / 2) - (400 / 2) + 'px';
    div.style.height = '100px';
    div.style.width = '400px';
    div.style.backgroundColor = 'white';
    div.style.border = '2px solid silver';
    div.style.padding = '20px';
    document.body.appendChild(div);

    var p = document.createElement('p');
    p.innerHTML = '<b>This is my first custom dialog box</b><br/>';
    div.appendChild(p);

    var a = document.createElement('a');
    a.innerHTML = 'Close window';
    a.href = 'javascript:void(0)';
    a.onclick = function()
    {
      document.body.removeChild(document.getElementById('layer'));
      document.body.removeChild(document.getElementById('box'));
    };

    div.appendChild(a);
}
</script>
</head>

Now paste the below code in <body></body> section.

<body>

<a href="javascript:void(showBox())">Toggle box</a>

</body>

You are done, run the page and click on Toggle box link
You will see the below screen.

Note you can customise the popup by changing the div style:

div.style.zIndex = 3;
div.id = 'box';
div.style.position ='fixed';
div.style.top = '300px';
div.style.left = (width / 2) - (100 / 2) + 'px';
div.style.height = '300px';
div.style.width = '400px';
div.style.backgroundColor = 'yellow';
div.style.border = '2px solid red';
div.style.padding = '20px';

Hope you found this article useful.

Your current security settings put your computer at risk

2011-07-30T16:16:00.005+05:30

This article explains how to disable IE9 security notification with easy registry edit. You might have noticed whenever we enable activeX control in IE9 from security settings as shown below picture the IE9 starts promting the security notification message every time we open IE.

Pict1. Image showing the security setting screen

IE9 default Security notification :

Pict2. Image of IE9 notification mesage

Easy Step to resolve:

1. Click on start-->Run.
2. Type regedit
3. it launches the Registry Editor dialog box
4. Inside Computer node, Select HKEY_LOCAL_MACHINE-->SOFTWARE-->Microsoft-->Internet Explorer-->MAIN-->FeatureControl-->FEATURE_SECURITYBAND.
5. Right click on right side panel.
6. Clcik New-->DWORD(32 bit ) value.
7 Rename as iexplore.exe and giv value as 00000000
8.Be sure after all these step the registry value is the same as shown below, if you are seeing same screen, Then you are done. just close the Registry Editor dialog box and open Internet Explorer. You will not find the Notification message again. if you found this article useful your comment will be appreciated.

Credit Card Validation

2011-07-27T15:39:00.001+05:30

Date Validation

2011-07-27T15:36:00.002+05:30

Back to JavaScript Tutorial Page

Back to JavaScript Validations Page