Source: coderforums

For support and suggestions please visit idealprogrammer forums

Description:
A keygen means a program that generate keys for a certain program.

Preparation: Steps:
1. Create a project
Open Visual Basic 8 and create a Windows Form Application. Name it as the keygen you want to make. In this tutorial, i will make a Windows 7 Keygen as an example.
http://img220.imageshack.us/img220/5807/88902635.png

2. Edit the project properties
When you've done creating the project, now you have to change the project's properties. In the box at the bottom right hand side of the project, that's where you change the properties for everything. Click on the form and change the properties as below:
http://img213.imageshack.us/img213/3620/65636137.png

3. Adding items into your project
Now you should add some items into your keygen. These are the things you should contain in a keygen:
To add items into your keygen, look at the toolbox at the left of your project. Simply drag the item that you want and put it into your project. It will appear there, and you can put it in where you like.

4. Finding a logo
Now you should find a logo to put into your keygen. The logo must be related to the program of the keygen. You can google the logo of the program and add some text into it.

This is what i made for mine:
http://img32.imageshack.us/img32/5243/windowsicon2.png
Once you got your logo ready, insert a PictureBox into your project and insert the picture into it.

5. Insert the data into your project
Once you've inserted your logo, you can start to put in the required data into your project.
Insert a label and change the Text to "Select the version you want:" or something like that. Once you've done that, you can now proceed to the ComboBox/RadioButton. Here i will use ComboBox because it's much more easier to use. To change the data in the ComboBox, click on the ComboBox and click Items in the Properties.

6. Inserting your keys into the keygen
Now you can start inserting the keys into your keygen. These keys will be shown when you click the Generate Button.
Double click the Generate button and paste the following into the code:

7. Finalizing and building your keygen
Now you have already reached the last step of building your keygen! Press F5 and debug your project and test whether the buttons are working or not. When you're done, click Build on the top menu and click Build {ProjectName}.
http://img297.imageshack.us/img297/6214/67805702.png
To see your built keygen, go to Documents\Visual Studio 2008\Projects\{ProjectName}\{ProjectName}\Bin\Rele ase\{ProjectName}.exe

——————————————————–

And now you're done! I'll provide you the exe for my project here…
exe file download:
 

1. Get Visual Basic if you don't have it (Download link)
2. Think of what should your keygen be (e.g. Windows Key Generator, Kaspersky Keygen and such)
3. Plan on what you want to include in your keygen
4. Plan on what you should include in your keygen
5. [optional] Getting an icon (You convert any image file to an icon file here.

• Text – Change it to the title of the keygen you want.
• Icon – Changing the icon can make it looks more professional. If you don't want to show an icon, turn ShowIcon to False
• FormBorderStyle – You can leave it there, or change to a style you like. Usually i change it to FixedSingle, because people won't be able to resize the program.

• Button – To generate the key after you clicked it
• Textbox – To show the key after you clicked the button
• Title – Some texts can be the on the top of the keygen, but adding a picture as a title will make it looks professional
• ComboBox/RadioButton – If you have multiple type of keys to generate, this is a must have.
• Labels – To tell people what is the function for.

TextBox1.Text = Int(Rnd() * 4)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
            Case 1
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
            Case 2
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
            Case 3
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
            Case 4
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
            Case 5
                TextBox1.Text = "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX"
        End Select

Replace the XXXXX-XXXXX-XXXXX-XXXXX-XXXXX with some random numbers and alphabets.
http://img213.imageshack.us/img213/1672/92874144.png

http://www.megaupload.com/?d=RO30OWNP

Project download:

http://www.megaupload.com/?d=BO6ZVY2U

How to make a keygen using vb.net is a post from: IdealProgrammer.com

Related posts:

1. Programming Languages News Forty Years of LOGO – Slashdot 16 Oct 2007...
2. Programming Languages News Forty Years of LOGO – Slashdot 16 Oct 2007...
3. Photoshop – create cs3 icons Step 1 When I want to create an effect that...

Related posts brought to you by Yet Another Related Posts Plugin.

?1 public partial class AeroForm : Form
When you execute the code you will see a normal windows form which is obviously not we wanted. Here the “GlassForm” class comes into play. As we know we have all are forms are partial class, we have to inherit it with Form class which in turn completes our form. Now instead of using Form class use the “GlassForm” and you will see the Aero Glass Effects on your form.

And your Aero form look like this:

Download: WindowsAero.zip (790.00 kb)

Thanks to midnightprogrammer

aero effects in .net applications is a post from: IdealProgrammer.com

Related posts:

1. Architecting Desktop Applications with 2.0 – 15 Free Video Tutorials "Architecting Modern Desktop Applications in.NET" is a 15-part 25+ hour...
2. Windows Forms Applications: C# Grid, VB NET Grid, C# Component, NET Webbrowser Six free one-hour video tutorials on building windows forms applications...
3. Windows 7 (21 Video Tutorials for Developers) Here is a collection of 21 free video tutorials on...

Related posts brought to you by Yet Another Related Posts Plugin.

Bluetooth is one of today's most exciting technologies. It is a short-range radio wave wireless technology operating in the 2.4 GHz frequency spectrum. With an operating range of 30 feet (10 meters) and a maximum transmission rate of a mere 1Mbps, Bluetooth is widely touted as the "cable replacement" solution.
Bluetooth has been around for awhile but there seem to be few developers who have experience in building applications that will run over Bluetooth. In this article, I will show how you can build a Bluetooth chat application using the .NET Compact Framework. Once you've built a chat application using this simple example, you should have a good foundation for building any number of killer Bluetooth applications.

The chat application enables two users with Bluetooth-enabled Pocket PCs to communicate with each other so long as they are within the 30-foot range of Bluetooth. It is useful as a communication tool during meetings, where private conversations can take place without affecting the meeting or as a mobile substitute for instant messenger.

What You Need
•Visual Studio .NET 2003 Final Beta (available now to MSDN subscribers)
•Two Pocket PCs with Bluetooth capabilities. (Most new Pocket PCs today ship with Bluetooth capability. For Pocket PCs without built-in Bluetooth, you can purchase Bluetooth expansion jackets/cards from the respective vendors.)
•Microsoft ActiveSync 3.6

Figure 1: Two Pocket PCs. To build and test the chat application I used two Pocket PC devices from Compaq: an iPaq 3870 (with Bluetooth built-in) and an iPaq 3630 (with the Bluetooth Expansion Pack for the iPaq 3630).

The Pocket PCs I used in preparing this article are shown in Figure 1.

Building the User Interface>
To create the sample application, start Visual Studio .NET 2003 and create a new Smart Device Application Project.

Figure 2: Build Form1 for the Main UI. Form1 is populated with three controls—a TextBox, a Button, and a MainMenu.

Let's first populate the default Form1 with the following controls:

•TextBox (for entering the text of a chat message)
•Button (for sending the text)
•MainMenu
The populated Form1 is shown in Figure 2.

Communicating using Bluetooth
Windows CE 3.0—the operating system for Pocket PC devices—does not come with any API for Bluetooth communication. As such, you have to use other methods, such as platform invoke, to communicate using Bluetooth. The lack of an API for Bluetooth means that you are not able to program Bluetooth communications in the same way you use sockets for TCP/IP communications. Instead, Bluetooth is just another serial port. And so, Bluetooth communication is actually done via serial connections. You can see for yourself by going to Bluetooth Manager—>Tools—>Settings for All Devices—>Serial Port in your Pocket PC's main menu (see Figure 3).

Figure 3: Serial Connections. The Bluetooth connection is just another pair of serial ports, in this case ports 7 and 8.

The Bluetooth connection is actually mapped to two COM ports—one for incoming and one for outgoing traffic. On my test device the incoming port is COM7 and the outgoing port is COM8 (see Figure 3). We will program the Bluetooth application using serial communication techniques.
Unfortunately, the .NET Compact Framework class library does not contain managed classes for serial communication. You have to rely on the operating system calls to provide that. In particular, we need to make use of functions provided by Windows CE 3.0's "coredll.dll" library.

In the .NET CF, use the attribute to import the library that you want to use. In our case, I have imported four functions from the coredll.dll library. They are:

•CreateFile()—Opens a connection to a COM port.
•ReadFile()—Reads data from a COM port.
•WriteFile()—Writes data to a COM port.
•CloseHandle()—Closes a COM port.

Now that you have the functions that you'll need, you can begin building the applications. Start by declaring some global variables:

Dim infileHandler As Long
Dim outfileHandler As Long
Dim numReadWrite As Integer
Dim t1 As System.Threading.Thread
Dim stopThread As Boolean = False
We need to create a Connect menu item that, when tapped, will call the connect() method to open the serial connections. We need to open the connections to the inbound and outbound port so that data can be both received and sent. The code below handles the Connect menu selection:

Private Sub MenuItem2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MenuItem2.Click
connect()
MenuItem2.Enabled = False '—disable the Connect item
MenuItem3.Enabled = True '—enable the Disconnect item
End Sub
The method we are using for reading incoming messages, ReadFile() is a blocking one. Therefore, we need to invoke a thread to continuously poll for incoming data while allowing our application to be responsive to users' input at the same time.

Public Sub connect()
'—port number for Bluetooth connection
Dim inPort As Short = 7
Dim outPort As Short = 8

'—Opens the port for Bluetooth
infileHandler = CreateFile("COM" & inPort & ":", _
&HC0000000, 0, 0, 3, 0, 0)
Application.DoEvents()
outfileHandler = CreateFile("COM" & outPort & ":", _
&HC0000000, 0, 0, 3, 0, 0)
Application.DoEvents()

'—invoke the thread to receive incoming messages
stopThread = False
t1 = New Threading.Thread(AddressOf receiveLoop)
t1.Start()
End Sub
The send() method writes a message to the COM port using the WriteFile() method. After a message is sent, a copy of the message is added to the TextBox control:

Public Function send(ByVal message As String) As Integer
'—send the message through the serial port
Dim value As String = message & vbCrLf
Dim retCode As Integer = WriteFile(outfileHandler, _
stringToByteArray(value), _
value.Length(), _
numReadWrite, _
0)
txtMessageLog.Text += value
Return retCode
End Function
The receiveLoop() method continuously polls for incoming messages. As Windows controls are not thread-safe, accessing Windows controls within a thread will have unpredictable results. As such, you need to use a delegate method to call the updateMessage() method to update the TextBox control with the received message.

Public Sub receiveLoop()
'—receive the message through the serial port
Dim inbuff(300) As Byte
Dim retCode As Integer = ReadFile(infileHandler, _
inbuff, _
inbuff.Length, _
numReadWrite, _
0)
Application.DoEvents()
While True
If retCode = 0 Or stopThread Then
'—either error or stop is requested
Exit While
Else
Dim updateDelegate As New _
myDelegate(AddressOf updateMessageLog)

updateDelegate.Invoke(byteArrayToString(inbuff))
ReDim inbuff(300)
retCode = ReadFile(infileHandler, _
inbuff, _
inbuff.Length, _
numReadWrite, _
0)
Application.DoEvents()
End If
End While
End Sub
The myDelegate() method has the same signature as the updateMessageLog() method. myDelegate() is called when updating the TextBox control. You should not directly call the updateMessageLog() within the thread; only the main thread can directly call it.

Public Delegate Sub myDelegate(ByVal str As String)
Public Sub updateMessageLog(ByVal str As String)
If str.Length > 0 Then
txtMessageLog.Text += "–>" & str
End If
End Sub
Clicking the Send button invokes the send() method:

Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles Button1.Click
If send(txtMessage.Text) = 0 Then
MsgBox("Error sending message.")
End If
End Sub
Finally, clicking on the Disconnect menu item invokes the disconnect() method:

Private Sub MenuItem3_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles MenuItem3.Click
disconnect()
MenuItem2.Enabled = True '—enable the Connect button
MenuItem3.Enabled = False '—disable the Connect button
End Sub
The disconnect() method will set a global flag for the thread to stop receiving incoming messages. It will also close the two open ports:

Public Sub disconnect()
stopThread = True
CloseHandle(infileHandler)
CloseHandle(outfileHandler)
End Sub
Byte to String and Back Again
Throughout this application, we have used two supporting methods: stringToByteArray() and byteArrayToString(). These two methods are necessary as the ReadFile() and WriteFile() methods both take in a byte array containing the message to be read and sent, respectively.

The stringToByteArray() method converts a string into a byte array:

Public Function stringToByteArray(ByVal str As String) As Byte()
'—e.g. "abcdefg" to {a,b,c,d,e,f,g}
Dim s As Char()
s = str.ToCharArray
Dim b(s.Length – 1) As Byte
Dim i As Integer
For i = 0 To s.Length – 1
b(i) = Convert.ToByte(s(i))
Next
Return b
End Function
The byteArrayToString() method converts a byte array into a string:

Function byteArrayToString(ByVal b() As Byte) As String
'—e.g. {a,b,c,d,e,f,g} to "abcdefg"
Dim str As String
Dim enc As System.Text.ASCIIEncoding
enc = New System.Text.ASCIIEncoding
str = enc.GetString(b, 0, b.Length())
Return str
End Function
When sending a message, the message to be sent would need to be converted to a byte array, and vice versa, when a message is received as a byte array, it needs to be converted back to a string so that it can be displayed on the device.

Figure 4: Make a Connection. Use the Bluetooth Manger on the Pocket PC device connected to your development machine to make it recognize another Bluetooth device.

Testing the Application
To test the application, you need to install the sample application on both Pocket PCs. The easiest way to do this is to connect one of the Pocket PCs to your development machine and use Visual Studio .NET 2003 to deploy the application on the device. Then press F5 to automatically copy the application onto the device.
The next step is to copy the application onto the other Pocket PC. There are two steps involved here. First, you need to generate a CAB file for the application so that it can be copied and installed on the target Pocket PC. Second, you need to install the .NET Compact Framework on it (this only needs to be done once).

Figure 5: Generate a CAB. This button generates a CAB file for your application.

But before you can do either task, you need to establish a Bluetooth connection between the two Pocket PCs using the Bluetooth Manager to create a bond between them (see Figure 4.
Now that the two devices recognize each other, you can go about sending the CAB file and the framework to the remote device. To generate a CAB file for your application, click on the "Build Cab File" button in Visual Studio .NET 2003 (see Figure 5):

Figure 6: Pick a CAB. Visual Studio.NET will automatically generate CAB files for all platforms supported by the Compact Framework.

When the CAB file is generated, you can locate it in the "Cab\Debug" folder of your application. Visual Studio .NET 2003 will generate the CAB files for the various platforms that are supported by the .NET Compact Framework (see Figure 6. Make sure to identify the right one for your platform.
To copy the CAB file to your Pocket PC, connect your Pocket PC to your machine and use Microsoft ActiveSync's Explore option. Drag and drop the CAB file onto the desired directory (see Figure 7).

Figure 7: Use ActiveSynch. Copy the CAB file to your device using ActiveSync.

Once the CAB file is copied to the device, you can use Bluetooth to send the CAB file to the other Pocket PC, as shown in Figure 8.
The next step is to copy the .NET Compact Framework to the Pocket PC. You can find the CAB file for the .NET Compact Framework in the following directory on your development machine (with Visual Studio .NET 2003 installed):
C:\Program Files\Microsoft Visual Studio .NET 2003\CompactFrameworkSDK\v1.0.5000\Windows CE\wce300

Figure 8: Send the CAB Across. Use the Bluetooth Manager again to transfer the CAB file from one device to the other.

Choose the appropriate platform for your Pocket PC (see Figure 9). For example, my second Pocket PC is an iPaq 3630, so I chose the "arm" platform as it runs on an ARM processor. (To find out the type of processor your Pocket PC is running on, go to Start—>Settings and tap on the System tab, and click on the About icon. Under the "Processor" category, you should see the processor type. Both my Pocket PCs runs on the ARM SA1110 processor.)
Copy the "netcf.core.ppc3.arm" file (or the appropriate one for your device) to the Pocket PC via ActiveSync. Again, use Bluetooth to send the file from one device to the other.

Figure 10: Install on the Second Device. Install the .NET CF and the sample application.

On the other Pocket PC, you can now install the .NET Compact Framework and the application by tapping on the two CAB files (see Figure 10). The order of installation is important—install the .NET CF first.
Once the application is installed, you should find a BluetoothChat application icon in the Programs folder (see Figure 11).

Figure 11: Launch the App. Locate the icon for the chat application in the Programs folder.

Before you load the application, make sure that you have a Bluetooth bond between the two Pocket PCs. Tap on the Settings—>Connect menu item to establish a serial connection. The other Pocket PC will receive an authorization request for the use of the serial port. Click on Accept to start chatting!

Figure 12: Chat Away. The two screens show the dialog between the two Pocket PCs using the sample chat application in this article.

In this article, you have seen how to you can program Bluetooth applications using serial communication programming. The initial release of the .NET Compact Framework is not expected to contain classes for Bluetooth communications. However, expect to see Bluetooth managed classes and APIs appearing in Windows CE .NET and the next release of the .NET Compact Framework.

Build a bluetooth Chat Application is a post from: IdealProgrammer.com

Related posts:

1. Using Microsoft Web Developer to Build Web Application Projects – (16 Free Video Tutorials) Here is a table with links to 16 free video...
2. vb.net screen capture Do you want to make a vb.net app that can...
3. vb.net webcam integration One of the nice things about these older Logitech...

Related posts brought to you by Yet Another Related Posts Plugin.

One of the nice things about these older Logitech Webcams is that they don't require a driver download and they support Windows Image Acquisition (WIA) directly. WIA is an API included in Windows that aims to unify the acquisition of images from all kinds of devices, including scanners and cameras. This is a pretty low-level API and a bit of a hassle to us. However, after Windows XP SP1 the WIA Automation Layer was released with a simpler COM API meant for VB6 and ASP developers. You can download this layer from MSDN and other places as it is free for redistribution. The meat of the layer is the wiaaut.dll that should be copied into the system32 directory and registered via the command "regsvr32 wiaaut.dll."

Getting to WIA from .NET
The wiaaut.dll COM automation library can be added via "Add Reference" from with Visual Studio.NET 2005 and a .NET wrapper will be automatically generated. Only devices whose drivers support WIA will be available via this interface. Most name-brand cameras will work just fine, but some no-name brands won't appear. If your device appears in the Control Panel's "Scanners and Cameras" interface, then this technique, and this program, should be able to see it.

In our code, we can add a namespace qualifying statement like using WIA in C# or imports WIA in VB.NET to name it easier to access these newly imported classes and interfaces. To start, we'll need to get a hold of a DeviceID. WIA thinks about things in terms of Devices, Commands, and Formats. Devices have types like Camera, Scanner or Video. Commands are things like "Take Picture" and Formats are JPEG or BMP, etc.

We'll create an instance of a CommandDialogClass (from the newly imported WIA namespace) and ask it to show us a select dialog so that we might select from any kind of device. You can show only Video devices or only Scanners by changing the WiaDeviceType enumeration that's passed in. We'll only show this select dialog when the user clicks "Configure" in our application, or when the application has been started with invalid configuration data.

Visual Basic

Dim class1 As CommonDialogClass = New CommonDialogClassDim d As Device = class1.ShowSelectDevice(WiaDeviceType.UnspecifiedDeviceType, true, false)If (Not (d) Is Nothing) Then settings.DeviceID = d.DeviceID settings.SaveEnd If

This select dialog is, fortunately, supplied completely by Windows and returns a Device. Each Device has a DeviceID that we will save into our User-specific settings class. This class was generated automatically by new features in Visual Studio .NET 2005 that make managing settings fantastically easy. I right-clicked on the Project from within the Visual Studio Solution Explorer and selected "Settings." After I indicated the names and data types of the settings I needed to save, Visual Studio 2005 generated a class that exposed strongly-typed properties such as DeviceID. Settings can also be saved more easily in .NET 2.0. The DeviceID for my Webcam happened to be "{6BDD1FC6-810F-11D0-BEC7-08002BE2092F}\0003" and is stored in my user's Documents And Settings\Local Settings\Application Data\BlogWebcam directory.

Download vb.net code – http://download.microsoft.com/download/d/4/5/d4556729-81f9-4578-936a-111721b27e49/BlogWebcam-VB.msi

Download c sharp code – http://download.microsoft.com/download/d/4/5/d4556729-81f9-4578-936a-111721b27e49/BlogWebcam-CS.msi

Taking a Picture
Once we've stored away a DeviceID in the configuration file, we'll want to connect to our device and take a picture. We'll need to find the device via it's ID without showing the dialog, connect to it and hold on the Device instance.

Visual C#

DeviceManager manager = new DeviceManagerClass();Device d = null;foreach (DeviceInfo info in manager.DeviceInfos){ if (info.DeviceID == settings.DeviceID) { d = info.Connect(); break; }}Visual Basic

Dim manager As DeviceManager = New DeviceManagerClassDim d As Device = NothingFor Each info As DeviceInfo In manager.DeviceInfos If (info.DeviceID = settings.DeviceID) Then d = info.Connect Exit For End IfNext Now we're back where we were before, with a Device instance in the variable d. We'll be connecting to the device each time our timer is started. Each device has a series of commands available to it, and these commands are well-known and identified by GUIDS both in the Registry and in the MSDN Help. We're interested in "Take Picture" which has the GUID string value "AF933CAC-ACAD-11D2-A093-00C04F72DC3C”, but the COM interface also exposes this value in the constant CommandID.wiaCommandTakePicture. When we get a hold of our Device we can spin through its available Commands until we find this one to determine if the device supports it, or we can just call it directly via Device.ExecuteCommand.

Visual C#

Item item = device.ExecuteCommand(CommandID.wiaCommandTakePicture);Visual Basic

Dim item As Item = device.ExecuteCommand(CommandID.wiaCommandTakePicture)Once we've called ExecuteCommand on our device an "Item" is returned. This isn't just any ordinary item, it's a WIA Item. Each WIA may include any number of image Formats. These formats are also well-known and appear in the registry. I look them up in the startup of the app just in case they change, rather than hard-coding them.

We spin through the available formats looking for JPEG. I could likely have hard-coded the JPEG GUID and avoided this quick spin, but I also wanted to illustrate how you can find your way around the WIA object model. Once we've found JPEG, we call item.Transfer and an ImageFile is returned that we can save to disk.

Visual C#

Item item = device.ExecuteCommand(CommandID.wiaCommandTakePicture);foreach (string format in item.Formats){ if (format == jpegGuid) { WIA.ImageFile imagefile = item.Transfer(format) as WIA.ImageFile; filename = GetFreeFileName(); if (string.IsNullOrEmpty(filename) == false) { imagefile.SaveFile(filename); } this.picLastImage.Load(filename); return filename; }}Visual Basic

Item item = device.ExecuteDim item As Item = device.ExecuteCommand(CommandID.wiaCommandTakePicture)For Each format As String In item.Formats If (format = jpegGuid) Then Dim imagefile As WIA.ImageFile = CType(item.Transfer(format),WIA.ImageFile) filename = GetFreeFileName If (String.IsNullOrEmpty(filename) = false) Then imagefile.SaveFile(filename) End If Me.picLastImage.Load(filename) Return filename End IfNext Incidentally, I also load the saved image into a PictureBox on my WinForm and return it from this TakePicture() method.

Uploading the Picture to my WebLog
Now that I've taken a picture, what am I going to do to it? Well, why not upload it to a specific filename on my blog so folks can see me and my workspace; what could be more thrilling? In the past, FTP'ing a file would require a third-party library, but .NET 2.0 has extended the System.Net.WebRequest class with support for FTP.

Here we'll create an FtpWebRequest by passing an ftp:// URL to the WebRequest.Create method. For convenience I'll include the username and password in the URL like this: ftp://username:password@ftp.myurl.com/blog/webcam.jpg. Note that the URL includes the username, password, domain name and destination filename all in one string. We'll load our local file into a byte array and write it out (upload it) to the FtpWebRequest's underlying stream by retrieving it with GetRequestStream() and then Write().

Visual C#

FtpWebRequest request = (FtpWebRequest)WebRequest.Create(settings.FTPServerURL);request.Method = WebRequestMethods.Ftp.UploadFile;request.UseBinary = true;FileInfo fileInfo = new FileInfo(filename);byte[] fileContents = new byte[fileInfo.Length];using (FileStream fr = fileInfo.OpenRead()){ fr.Read(fileContents, 0, Convert.ToInt32(fileInfo.Length));}using (Stream writer = request.GetRequestStream()){ writer.Write(fileContents, 0, fileContents.Length);}using (FtpWebResponse response = (FtpWebResponse)request.GetResponse()){} Visual Basic

Dim request As FtpWebRequest = Nothingrequest = CType(WebRequest.Create(settings.FTPServerURL),FtpWebRequest)request.Method = WebRequestMethods.Ftp.UploadFilerequest.UseBinary = trueDim fileInfo As FileInfo = New FileInfo(filename)Dim fileContents() As Byte = New Byte((fileInfo.Length) – 1) {}Using fr As FileStream = fileInfo.OpenRead fr.Read(fileContents, 0, Convert.ToInt32(fileInfo.Length))End Using Using writer As Stream = request.GetRequestStream writer.Write(fileContents, 0, fileContents.Length)End Using Dim response As FtpWebResponse = CType(request.GetResponse,FtpWebResponse) You may notice the use of the "using" statements in the code snippet above. Using "using" with classes that implement IDisposable will automatically cause Dispose() to be called when then using block exits. Some folks don't like the syntax and others believe that using it even if the underlying Dispose() doesn't do anything is syntactic sugar. Personally, I really like the syntax, and in this sample the using statement is closing the FileStream, the Request stream, and the FtpWebResponse.

Read Original Article : http://blogs.msdn.com/b/coding4fun/archive/2006/10/31/912546.aspx

For suggestions and comments please use idealprogrammer forums .

vb.net webcam integration is a post from: IdealProgrammer.com

Related posts:

1. Compare Date – SQL Server Syntax Example: Compare Date – T-SQL Example Compare Date - SQL Server Syntax Example: Compare Date -...

Related posts brought to you by Yet Another Related Posts Plugin.

If you have any suggestions or comments on this tutorial please visit idealprogrammer forums !

This is the code you will need to capture screenshots using vb.net. It uses gdi classes and some more classes.

Thanks to mike gold of vbdotnetheaven

Private Sub PerformCapture()
' turn the form invisible so you don't show it during capture
Me.Visible = False
'use the GDI call and create a DC to the whole display
Dim dc1 As IntPtr = CreateDC("DISPLAY", Nothing, Nothing, CType(Nothing, IntPtr))
'create a Graphics object for the screen dc
Dim g1 As Graphics = Graphics.FromHdc(dc1)
' create a compatible bitmap the size of the entire screen
MyImage = New Bitmap(Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, g1)
' use the bitmap to create another Graphics surface so we can BitBlast into the bitmap
Dim g2 As Graphics = Graphics.FromImage(MyImage)
' Now go retrace our steps and get the device contexts for both the bitmap and the screen
' Note: Apparently you have to do this, and can't go directly from the aquired dc or exceptions are thrown
' When you try to release the dcs
dc1 = g1.GetHdc()
Dim dc2 As IntPtr = g2.GetHdc()
' Bit Blast the screen into the Bitmap
BitBlt(dc2, 0, 0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height, dc1, 0, 0, 13369376)
' Remember to release the dc's, otherwise problems down the road
g1.ReleaseHdc(dc1)
g2.ReleaseHdc(dc2)
' Save the image to JPEG file
MyImage.Save("c:\Captured.jpg", ImageFormat.Jpeg)
' Now we can view our form again, so make it visible
Visible = True
MessageBox.Show("Finished Saving Image")
' Set the Bounds of the form so that it fills the entire screen
' Because in our Paint event handler we are going to draw the bitmap to the form
Me.SetBounds(0, 0, Screen.PrimaryScreen.Bounds.Width, Screen.PrimaryScreen.Bounds.Height)
' ************** Set up functions for doing additional bitmap manipulation such as cropping a portion of
' ************* the image ****************(Not required for screen capture)SetupCropping()
firstCrop = True
End Sub

This application has a few additional functions. One is that you can crop a piece of the image in your screen capture as shown in figure 2:

Figure 2 – Cropping a Piece of the image

This is useful for pulling things out of the screen capture that you find necessary in your final image. Outlining the cropping region is performed using the MouseDown, MouseUp, and MouseMove event handlers. You need to maintain the state in which the cropping is in in order to successfully draw the cropping region. Below is the state diagram for tracking the drawing of the crop rectangle.

Figure 3 – UML State Chart of Cropping Drawn with WithClass 2000

Below is the code for the MouseMove event handler. As shown in the state diagram, it checks the state and condition to see if we should be doing the calculation on the cropping rectangle and if we should invalidate the rectangle.

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
' Check the state and condition to makes sure we can draw the cropping rectangle
If (CroppingPaint AndAlso CropOn) AndAlso StartedCrop Then
' calculate width of cropping rectangle
DeltaX = e.X – StartPoint.X
If DeltaX < 0 Then
DeltaX = 0
End If
DeltaY = e.Y - StartPoint.Y
If DeltaY < 0 Then
DeltaY = 0
End If
' force the cropping rectangle to redraw
Invalidate(New Rectangle(StartPoint.X, StartPoint.Y, DeltaX + 20, DeltaY + 20))
End If
End Sub

Improvements

The cropping invalidation is a little messy, it needs to add rubber-banding functionality to the line drawing of the rectangle. Also I had to offset the image to get the cropping to work out the first time through the capture. Not sure if its something I'm missing or a problem, but its in there like a band-aid. Some nice improvements might include an undo, to undo cropping, the ability to put the image into a specified file rather than in c:\\capture.jpg. (Currently this is where the image is placed when its captured or saved). Additional features would be to save the image in different image formats, include a preference dialog for suffixes and prefixes to the captured image name, add a feature to enter text into the captured image. As with other projects in .NET the sky is the limit, but its a snap to add many of these additional functions using this environment. Stay

vb.net screen capture is a post from: IdealProgrammer.com

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates the VB.NET Syntax for Sequential Read of Binary File.

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind and pubs Database
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use Visual Basic 2008 Express or Standard Edition
2. Create new project;
   • Click File/New Project
   • Select Console Application Template
   • Select Visual Basic for Language
   • name of project could be VBNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Class Named clsBinaryFileReadSequential to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select class
   • Class name could be clsBinaryFileReadSequential
5. Click on copy code in code below to copy code into clsBinaryFileReadSequential.vb
6. Click on copy code in second set of code below to copy code into Module1.vb
7. Click green arrow or press F5 to run program

Step 1: Use Copy Code to Cut-n-paste code into clsBinaryFileReadSequential.vb

Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Public Class clsBinaryFileReadSequential
 
 
 
    Public Shared Sub Main()
        Dim formatter As BinaryFormatter = New BinaryFormatter()
        Dim output As FileStream
 
        Dim fileName As String = "books.dat"
 
 
 
        Try
            output = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
 
            Dim Book As Book = New Book(1, "The Republic", "Plato")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(2, "Romeo & Juliet", "Shakespeare")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(3, "The Symposium", "Plato")
 
            formatter.Serialize(output, Book)
 
            output.Close()
 
        Catch fileException As FileNotFoundException
            Console.WriteLine("File Does Not Exits")
        Catch serializableException As SerializationException
            Console.WriteLine("Error Writing to File")
        Catch formattingException As FormatException
            Console.WriteLine("Invalid Format")
        Catch e As IOException
            Console.WriteLine("Cannot close file")
 
        End Try
 
 
 
        Dim input As FileStream
 
        Dim reader As BinaryFormatter = New BinaryFormatter()
 
        input = New FileStream(fileName, FileMode.Open, FileAccess.Read)
        Dim intFileLength As Integer = input.Length
 
 
 
 
        While input.Position < intFileLength
            Try
                Dim myBook As Book = CType(reader.Deserialize(input), Book)
 
                Console.WriteLine(myBook)
            Catch serializableException As SerializationException
 
 
                Console.WriteLine("Serialization Exception")
            End Try
 
        End While
 
 
 
 
 
 
 
 
        input.Close()
 
        Console.WriteLine("No more records in file")
 
 
        Console.ReadLine()
    End Sub
 
End Class
 
 
 
 
<Serializable()> Public Structure Book
    Public ID As Integer
    <vbfixedstring (25)> Public BookName As String
    </vbfixedstring><vbfixedstring (25)> Public BookAuthor As String
 
    Public Sub New(ByVal new_id As Integer, ByVal Book_name As String, _
     ByVal Book_author As String)
        ID = new_id
        BookName = Book_name
        BookAuthor = Book_author
    End Sub
 
    Public Overrides Function ToString() As String
        Return ID & ": " & BookName & " " & BookAuthor
    End Function
End Structure
 
 
 
 
 
 
 
 
 
 
</vbfixedstring>

Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        'Dim mySQLConnectionConnectionString As New clsSQLConnectionConnectionString
        'mySQLConnectionConnectionString.Main()
 
        'Dim mySQLInsert As New clsSQLInsert
        'mySQLInsert.Main()
 
        'Dim mySQLParameters As New clsSQLParameters
        'mySQLParameters.Main()
 
        'Dim mySQLCallStoredProcedure As New clsSQLCallStoredProcedure
        'mySQLCallStoredProcedure.Main()
 
        'Dim mySQLSelect As New clsSQLSelect
        'mySQLSelect.Main()
 
        'Dim mySqlCommandDelete As New clsSqlCommandDelete
        'mySqlCommandDelete.Main()
 
        'Dim mySqlCommandUpdate As New clsSqlCommandUpdate
        'mySqlCommandUpdate.Main()
 
        'Dim mySqlDataReader As New clsSqlDataReader
        'mySqlDataReader.Main()
 
        'Dim myStringFormatDateTime As New clsStringFormatDateTime
        'myStringFormatDateTime.Main()
 
        'Dim myStringBuilder As New clsStringBuilder
        'myStringBuilder.Main()
 
        'Dim myString As New clsString
        'myString.Main()
 
        'Dim myDataTableSqlDataReader As New clsDataTableSqlDataReader
        'myDataTableSqlDataReader.Main()
 
        'Dim myBinaryFileReadRandom As New clsBinaryFileReadRandom
        'myBinaryFileReadRandom.Main()
 
        Dim myBinaryFileReadSequential As New clsBinaryFileReadSequential
        myBinaryFileReadSequential.Main()
 
 
 
    End Sub
 
End Module
 
 
 
 
 

VB.NET Binary File Read Sequential – Source Code Example is a post from: IdealProgrammer.com

Related posts:

1. VB.NET Binary File Read Random – Source Code Example VB.NET Binary File Read Random - Source Code Example...
2. VB.NET Sql Command Update Statement Source Code Example VB.NET Source Code Example shows how to use Sql Command...
3. VB.NET Sql Command Delete Statement Source Code Example Example illustrates using VB.NET Sql Command Delete Statement and checking...

Related posts brought to you by Yet Another Related Posts Plugin.

Purpose: – Illustrates the VB.NET Syntax for Random Read of Binary File.

Prerequistes:

1. Install Visual Basic (Express or Standard Edition)
2. Install SQL Server Express
3. Download Northwind and pubs Database
4. Attach Northwind Database to Databases in Sql Express
5. Attach pubs Database to Databases in Sql Express

Notes:

• Console Application is used to simplify things, but Windows Forms or Web Forms could also be used
• You can build a library of syntax examples by using same project over and over and just commenting out what you do not want to execute in Module1.vb

Instructions:

1. Use Visual Basic 2008 Express or Standard Edition
2. Create new project;
   • Click File/New Project
   • Select Console Application Template
   • Select Visual Basic for Language
   • name of project could be VBNET_Syntax.



3. Add New folder named "FileDirectory"
   • Right-click project name in solution explorer;
   • add new folder;
   • name of folder could be: FileDirectory
4. Add Class Named clsBinaryFileReadRandom to FileDirectory folder
   • Right-click FileDirectory folder;
   • add new item;
   • Select class
   • Class name could be clsBinaryFileReadRandom
5. Click on copy code in code below to copy code into clsBinaryFileReadRandom.vb
6. Click on copy code in second set of code below to copy code into Module1.vb
7. Click green arrow or press F5 to run program

Step 1: Use Copy Code to Cut-n-paste code into clsBinaryFileReadRandom.vb

Imports System.IO
Imports System.Collections
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Runtime.Serialization
 
Public Class clsBinaryFileReadRandom
 
 
 
    Public Shared Sub Main()
        Dim formatter As BinaryFormatter = New BinaryFormatter()
        Dim output As FileStream
 
        Dim fileName As String = "books.dat"
 
 
 
        Try
            output = New FileStream(fileName, FileMode.OpenOrCreate, FileAccess.Write)
 
            Dim Book As Book = New Book(1, "The Republic", "Plato")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(2, "Romeo & Juliet", "Shakespeare")
 
            formatter.Serialize(output, Book)
 
            Book = New Book(3, "The Symposium", "Plato")
 
            formatter.Serialize(output, Book)
 
            output.Close()
 
        Catch fileException As FileNotFoundException
            Console.WriteLine("File Does Not Exits")
        Catch serializableException As SerializationException
            Console.WriteLine("Error Writing to File")
        Catch formattingException As FormatException
            Console.WriteLine("Invalid Format")
        Catch e As IOException
            Console.WriteLine("Cannot close file")
 
        End Try
 
 
 
        Dim input As FileStream
 
        Dim reader As BinaryFormatter = New BinaryFormatter()
 
        input = New FileStream(fileName, FileMode.Open, FileAccess.Read)
        Dim intFileLength As Integer = input.Length
 
 
 
 
        While input.Position < intFileLength
            Try
                Dim myBook As Book = CType(reader.Deserialize(input), Book)
 
                Console.WriteLine(myBook)
            Catch serializableException As SerializationException
 
 
                Console.WriteLine("Serialization Exception")
            End Try
 
        End While
 
 
 
 
 
 
 
 
        input.Close()
 
        Console.WriteLine("No more records in file")
 
 
        Console.ReadLine()
    End Sub
 
End Class
 
 
 
 
<Serializable()> Public Structure Book
    Public ID As Integer
    <vbfixedstring (25)> Public BookName As String
    </vbfixedstring><vbfixedstring (25)> Public BookAuthor As String
 
    Public Sub New(ByVal new_id As Integer, ByVal Book_name As String, _
     ByVal Book_author As String)
        ID = new_id
        BookName = Book_name
        BookAuthor = Book_author
    End Sub
 
    Public Overrides Function ToString() As String
        Return ID & ": " & BookName & " " & BookAuthor
    End Function
End Structure
 
 
 
 
 
 
</vbfixedstring>

Module Module1
 
    Sub Main()
        '***** DataBaseADONET *************
 
        'Dim mySQLConnectionConnectionString As New clsSQLConnectionConnectionString
        'mySQLConnectionConnectionString.Main()
 
        'Dim mySQLInsert As New clsSQLInsert
        'mySQLInsert.Main()
 
        'Dim mySQLParameters As New clsSQLParameters
        'mySQLParameters.Main()
 
        'Dim mySQLCallStoredProcedure As New clsSQLCallStoredProcedure
        'mySQLCallStoredProcedure.Main()
 
        'Dim mySQLSelect As New clsSQLSelect
        'mySQLSelect.Main()
 
        'Dim mySqlCommandDelete As New clsSqlCommandDelete
        'mySqlCommandDelete.Main()
 
        'Dim mySqlCommandUpdate As New clsSqlCommandUpdate
        'mySqlCommandUpdate.Main()
 
        'Dim mySqlDataReader As New clsSqlDataReader
        'mySqlDataReader.Main()
 
        'Dim myStringFormatDateTime As New clsStringFormatDateTime
        'myStringFormatDateTime.Main()
 
        'Dim myStringBuilder As New clsStringBuilder
        'myStringBuilder.Main()
 
        'Dim myString As New clsString
        'myString.Main()
 
        'Dim myDataTableSqlDataReader As New clsDataTableSqlDataReader
        'myDataTableSqlDataReader.Main()
 
        Dim myBinaryFileReadRandom As New clsBinaryFileReadRandom
        myBinaryFileReadRandom.Main()
 
        'Dim myBinaryFileReadSequential As New clsBinaryFileReadSequential
        'myBinaryFileReadSequential.Main()
 
 
 
    End Sub
 
End Module
 
 
 
 

VB.NET Binary File Read Random – Source Code Example is a post from: IdealProgrammer.com

Related posts:

1. VB.NET Sql Command Update Statement Source Code Example VB.NET Source Code Example shows how to use Sql Command...
2. VB.NET StringBuilder Source Code Example VB.NET StringBuilder Source Code Example...
3. VB.NET Sql Command Delete Statement Source Code Example Example illustrates using VB.NET Sql Command Delete Statement and checking...

Related posts brought to you by Yet Another Related Posts Plugin.

This is a library of VB.NET Source Code Samples that you can use to accelerate your learning curve. This is a work in progress that is just beginning.

VB.NET Source Code Samples is a post from: IdealProgrammer.com

No related posts.

Related posts brought to you by Yet Another Related Posts Plugin.