// API callback
related_results_labels_thumbs({"version":"1.0","encoding":"UTF-8","feed":{"xmlns":"http://www.w3.org/2005/Atom","xmlns$openSearch":"http://a9.com/-/spec/opensearchrss/1.0/","xmlns$blogger":"http://schemas.google.com/blogger/2008","xmlns$georss":"http://www.georss.org/georss","xmlns$gd":"http://schemas.google.com/g/2005","xmlns$thr":"http://purl.org/syndication/thread/1.0","id":{"$t":"tag:blogger.com,1999:blog-5464214199924022396"},"updated":{"$t":"2021-12-08T20:57:10.751+05:30"},"category":[{"term":"Web Tutorials"},{"term":"It News"},{"term":"Software"},{"term":"Hackers News"},{"term":"Mysql"},{"term":"PHP"},{"term":"Symfony"},{"term":"Bootstrap"},{"term":"Bootstrap Plugins"},{"term":"Highcharts"},{"term":"VIsual Basic"},{"term":".htaccess"},{"term":"Bootstrap Modal"},{"term":"HTML"},{"term":"Joomla"},{"term":"Jquey"},{"term":"Mobile App"},{"term":"Review"},{"term":"Review and Rating"},{"term":"Security"},{"term":"Star Rating"}],"title":{"type":"text","$t":"IT Care"},"subtitle":{"type":"html","$t":"Tricks Of Computers, Software Downloads and Programming"},"link":[{"rel":"http://schemas.google.com/g/2005#feed","type":"application/atom+xml","href":"http:\/\/spjoshis.blogspot.com\/feeds\/posts\/default"},{"rel":"self","type":"application/atom+xml","href":"http:\/\/www.blogger.com\/feeds\/5464214199924022396\/posts\/default\/-\/VIsual+Basic?alt=json-in-script\u0026max-results=6"},{"rel":"alternate","type":"text/html","href":"http:\/\/spjoshis.blogspot.com\/search\/label\/VIsual%20Basic"},{"rel":"hub","href":"http://pubsubhubbub.appspot.com/"}],"author":[{"name":{"$t":"Anonymous"},"uri":{"$t":"http:\/\/www.blogger.com\/profile\/07486027453738407872"},"email":{"$t":"noreply@blogger.com"},"gd$image":{"rel":"http://schemas.google.com/g/2005#thumbnail","width":"16","height":"16","src":"https:\/\/img1.blogblog.com\/img\/b16-rounded.gif"}}],"generator":{"version":"7.00","uri":"http://www.blogger.com","$t":"Blogger"},"openSearch$totalResults":{"$t":"2"},"openSearch$startIndex":{"$t":"1"},"openSearch$itemsPerPage":{"$t":"6"},"entry":[{"id":{"$t":"tag:blogger.com,1999:blog-5464214199924022396.post-6212454899235234885"},"published":{"$t":"2014-03-07T13:11:00.002+05:30"},"updated":{"$t":"2014-04-26T10:27:18.090+05:30"},"category":[{"scheme":"http://www.blogger.com/atom/ns#","term":"It News"},{"scheme":"http://www.blogger.com/atom/ns#","term":"Software"},{"scheme":"http://www.blogger.com/atom/ns#","term":"VIsual Basic"},{"scheme":"http://www.blogger.com/atom/ns#","term":"Web Tutorials"}],"title":{"type":"text","$t":"How to get Hard disc serial number in VB 6.0"},"content":{"type":"html","$t":"\u003Cdiv dir=\"ltr\" style=\"text-align: left;\" trbidi=\"on\"\u003E\u003Cdiv class=\"separator\" style=\"clear: both; text-align: center;\"\u003E\u003Ca href=\"http:\/\/4.bp.blogspot.com\/-nFfYete5c1c\/Uxl28N0slDI\/AAAAAAAAAnc\/GyrUmQ1r848\/s1600\/download.jpg\" imageanchor=\"1\"\u003E\u003Cimg alt=\"serial\" border=\"0\" src=\"http:\/\/4.bp.blogspot.com\/-nFfYete5c1c\/Uxl28N0slDI\/AAAAAAAAAnc\/GyrUmQ1r848\/s1600\/download.jpg\" title=\"serial\" \/\u003E\u003C\/a\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: \u0026quot;Georgia\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp;Every computer equipment has single and unique manufacture code by which we can identify computer.It is mostly used to prevent pirated sales of license of application.\u0026nbsp;\u0026nbsp; Here we will learn to get hard disc serial code using vb 6.0. \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: \u0026quot;Georgia\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EHere is Function which returns serial number of HDD.\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Public Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Dim fso As Object, Drv As Object\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; 'Create a FileSystemObject object\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Set fso = CreateObject(\"Scripting.FileSystemObject\")\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; 'Assign the current drive letter if not specified\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; If DriveLetter \u0026lt;\u0026gt; \"\" Then\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Set Drv = fso.GetDrive(DriveLetter)\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Else\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Set Drv = fso.GetDrive(fso.GetDriveName(App.Path))\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; End If\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; With Drv\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; If .IsReady Then\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; DriveSerial = Abs(.SerialNumber)\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Else\u0026nbsp;\u0026nbsp;\u0026nbsp; '\"Drive Not Ready!\"\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; DriveSerial = -1\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; End If\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; End With\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; 'Clean up\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Set Drv = Nothing\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Set fso = Nothing\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; GetDriveSerialNumber = DriveSerial\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; End Function\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EPrivate Sub Command1_Click()\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; MsgBox \" Drive serial number for \" \u0026amp; Left(App.Path, 1) \u0026amp; \": \" \u0026amp; GetDriveSerialNumber\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EEnd Sub\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: 10pt; line-height: 107%;\"\u003ENew we can convert serial to hex value for more security and compare with value we have already saved in variable.\u003C\/span\u003E\u003Cspan style=\"font-family: \u0026quot;Georgia\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: 10pt; line-height: 107%;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EDim serial as string\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003ESerial = “0054DRF000”\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EIf serial\u0026nbsp; \u0026lt;\u0026gt; hex$(GetDriveSerialNumber then)\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003E\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp;\u0026nbsp; Msgbox(“Invalid License”)\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in; text-indent: .5in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EEnd \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cspan style=\"font-family: \u0026quot;Times New Roman\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EEndif \u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\" style=\"margin-bottom: .0001pt; margin-bottom: 0in;\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: \u0026quot;Georgia\u0026quot;,\u0026quot;serif\u0026quot;; font-size: 10.0pt; line-height: 107%;\"\u003EWe simply call function and compare it \u0026nbsp;to startup of application if serial can not match vith stored variable value then exit program.\u003Co:p\u003E\u003C\/o:p\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cspan style=\"font-family: Georgia, serif; font-size: x-small;\"\u003E\u003Cspan style=\"line-height: 14.266666412353516px;\"\u003E\u003Cbr \/\u003E\u003C\/span\u003E\u003C\/span\u003E\u003C\/div\u003E\u003Cdiv class=\"MsoNormal\"\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003C\/div\u003E"},"link":[{"rel":"replies","type":"application/atom+xml","href":"http:\/\/spjoshis.blogspot.com\/feeds\/6212454899235234885\/comments\/default","title":"Post Comments"},{"rel":"replies","type":"text/html","href":"http:\/\/spjoshis.blogspot.com\/2014\/03\/how-to-get-hard-disc-serial-number-in.html#comment-form","title":"0 Comments"},{"rel":"edit","type":"application/atom+xml","href":"http:\/\/www.blogger.com\/feeds\/5464214199924022396\/posts\/default\/6212454899235234885"},{"rel":"self","type":"application/atom+xml","href":"http:\/\/www.blogger.com\/feeds\/5464214199924022396\/posts\/default\/6212454899235234885"},{"rel":"alternate","type":"text/html","href":"http:\/\/spjoshis.blogspot.com\/2014\/03\/how-to-get-hard-disc-serial-number-in.html","title":"How to get Hard disc serial number in VB 6.0"}],"author":[{"name":{"$t":"Anonymous"},"uri":{"$t":"http:\/\/www.blogger.com\/profile\/07486027453738407872"},"email":{"$t":"noreply@blogger.com"},"gd$image":{"rel":"http://schemas.google.com/g/2005#thumbnail","width":"16","height":"16","src":"https:\/\/img1.blogblog.com\/img\/b16-rounded.gif"}}],"media$thumbnail":{"xmlns$media":"http://search.yahoo.com/mrss/","url":"http:\/\/4.bp.blogspot.com\/-nFfYete5c1c\/Uxl28N0slDI\/AAAAAAAAAnc\/GyrUmQ1r848\/s72-c\/download.jpg","height":"72","width":"72"},"thr$total":{"$t":"0"}},{"id":{"$t":"tag:blogger.com,1999:blog-5464214199924022396.post-1098919845330742926"},"published":{"$t":"2012-02-21T12:37:00.002+05:30"},"updated":{"$t":"2014-04-26T10:31:30.031+05:30"},"category":[{"scheme":"http://www.blogger.com/atom/ns#","term":"It News"},{"scheme":"http://www.blogger.com/atom/ns#","term":"Software"},{"scheme":"http://www.blogger.com/atom/ns#","term":"VIsual Basic"}],"title":{"type":"text","$t":"Invoice Management"},"content":{"type":"html","$t":"\u003Cdiv dir=\"ltr\" style=\"text-align: left;\" trbidi=\"on\"\u003E\u003Cdiv dir=\"ltr\" style=\"text-align: left;\" trbidi=\"on\"\u003E\u003Cdiv class=\"separator\" style=\"clear: both; text-align: center;\"\u003E\u003Ca href=\"http:\/\/3.bp.blogspot.com\/-RUDp1RVo3NM\/T0NDihXYM5I\/AAAAAAAAAVE\/owpZ3jeavIE\/s1600\/logo_sized.gif\" imageanchor=\"1\" style=\"clear: right; float: right; margin-bottom: 1em; margin-left: 1em;\"\u003E\u003Cimg border=\"0\" src=\"http:\/\/3.bp.blogspot.com\/-RUDp1RVo3NM\/T0NDihXYM5I\/AAAAAAAAAVE\/owpZ3jeavIE\/s320\/logo_sized.gif\" height=\"100\" width=\"320\" \/\u003E\u003C\/a\u003E\u003C\/div\u003E\u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp;Invoice Management is simply used to maintain\u003Cbr \/\u003EInvoice and Payment in company. It is simple and easy to operate.\u003Cbr \/\u003E\u003Cbr \/\u003EAdvantages:\u003Cbr \/\u003E* Easy to operate\u003Cbr \/\u003E* Voucher Management\u003Cbr \/\u003E* Portable and can used from any removable device.\u003Cbr \/\u003E* Easy Installation\u003Cbr \/\u003E* Supports Multiple Company operations.\u003Cbr \/\u003E* Email and SMS Notification for any transction.\u003Cbr \/\u003E* Opensource Project.\u003Cbr \/\u003E\u003Cbr \/\u003EComputer Requirement:\u003Cbr \/\u003E* Programming Language :\u0026nbsp; VB 6.0\u003Cbr \/\u003E* Back End \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp;:\u0026nbsp; Microsoft Access\u003Cbr \/\u003E* Minimum Memory \u0026nbsp; \u0026nbsp; \u0026nbsp; \u0026nbsp; : 256 MB\u003Cbr \/\u003E\u003Cbr \/\u003ERequest to\u0026nbsp;\u003Ca href=\"mailto:gopal.josh73@gmail.com\"\u003EDownload\u003C\/a\u003E\u0026nbsp;Source Code.\u003Cbr \/\u003E\u003Cbr \/\u003E\u003Cbr \/\u003E\u003Cbr \/\u003E\u003Cbr \/\u003E\u003Cbr \/\u003E\u003Cbr \/\u003E\u003C\/div\u003E\u003C\/div\u003E"},"link":[{"rel":"replies","type":"application/atom+xml","href":"http:\/\/spjoshis.blogspot.com\/feeds\/1098919845330742926\/comments\/default","title":"Post Comments"},{"rel":"replies","type":"text/html","href":"http:\/\/spjoshis.blogspot.com\/2012\/02\/invoice-management.html#comment-form","title":"0 Comments"},{"rel":"edit","type":"application/atom+xml","href":"http:\/\/www.blogger.com\/feeds\/5464214199924022396\/posts\/default\/1098919845330742926"},{"rel":"self","type":"application/atom+xml","href":"http:\/\/www.blogger.com\/feeds\/5464214199924022396\/posts\/default\/1098919845330742926"},{"rel":"alternate","type":"text/html","href":"http:\/\/spjoshis.blogspot.com\/2012\/02\/invoice-management.html","title":"Invoice Management"}],"author":[{"name":{"$t":"Anonymous"},"uri":{"$t":"http:\/\/www.blogger.com\/profile\/07486027453738407872"},"email":{"$t":"noreply@blogger.com"},"gd$image":{"rel":"http://schemas.google.com/g/2005#thumbnail","width":"16","height":"16","src":"https:\/\/img1.blogblog.com\/img\/b16-rounded.gif"}}],"media$thumbnail":{"xmlns$media":"http://search.yahoo.com/mrss/","url":"http:\/\/3.bp.blogspot.com\/-RUDp1RVo3NM\/T0NDihXYM5I\/AAAAAAAAAVE\/owpZ3jeavIE\/s72-c\/logo_sized.gif","height":"72","width":"72"},"thr$total":{"$t":"0"}}]}});