What happens when your hard disk dies, will your business survive if you can’t recover all of your important data? What about all those precious personal photos of your children growing up? Start backing up with Backup4all to avoid such risks.

Backup4all is a backup software for Windows. It protects your valuable data from partial or total loss by automating tasks, password protecting and compressing it to save storage space.

Using Backup4all you can easily back up to any local or network drive, backup to FTP, backup to DVD, or other removable media (such as USB HDD or flash drives). Backup4all is one of the best backup solution for desktop and laptop computers, for your business or personal use.

Backup4all creates standard zip files and has its own backup catalog to keep track of the new and modified files. This makes it compatible with any other backup software or zip utility.

This software is worth $20 but available for free! This is for limited period. So grab it now!

How to get free License key?
1. Visit this web-page given in link below and submit your email ID.
2. In few minutes, the license key will be emailed to you.
3. Download Backup4all from the download link given below.
4. Install the software and enter the license key obtained from email.
5. You are done!

Download Now
Click here for free Registration License Key

Platforms: Microsoft Windows® 2008 Server, Windows Vista (with or withouth SP1), Windows XP, Windows 2003 Server, Windows 2000 and 2000 Server, Windows Me, NT 4.0 and 98.

Popularity: unranked [?]

Windows XP keep track of the programs run by a user, the paths followed, and the documents used, Disable this to free up system resources.

Navigate to:
HCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer

Popularity: unranked [?]

I finally got a new video card. It’s been long overdue. I got the GeForce 9800 GX2! Only problem I have had is with my mobo. I’ve got the new Asus quad core mobo coming. That should go well with the 6gb of Kingston HyperX DD3 RAM that I got. All in all I’ve only spent $0.00 on this upgrade. That’s right. $0.00! Thanks to sponsors I haven’t had to pay a penny. I still want to upgrade my SATA HD”s to 2 500GB and I want a new case. I’m thinking about the new Sunbeam Silent Storm. Who knows!

I’m still running XP for now. I just got a new copy of Vista Ultimate to play with. Once I switch to Vista I will be able to rewrite some modules for uStreamer to take use of the Vista WPF platform. Nothing major, just to make it look more presentable.  I’m still working on releasing the full version very soon. I have a lot of things to take care of first but I have not forgotten about uStreamer.

You’ll notice that www.semogeeks.com is kind of down. LoL! I changed hosting providers and haven’t got the chance to upload the site. I’ve switched 3 of my 5 domains over and I am hosting 2 domains for my buddy David.  Anyway, that’s what’s going on around here.

Popularity: unranked [?]

Today I downloaded the beta for Windows 7. I found a security flaw with the windows website while doing so.  If you’re using Chrome or Safari you can get unlimited Windows 7 beta keys. All you have to do is register for the download and keep clicking the download button. Register Here. I’ve got a list of over 100 keys and going to keep it growing. Why do this you might ask? Once the 90 days are up you can use a new key for another 90 days. The beta’s normally last for a few years so doing this will allow you to use the beta forever. Some keys are:

GG4MQ-MGK72-HVXFW-KHCRF-KW6KY
TQ32R-WFBDM-GFHD2-QGVMH-3P9GC
6JKV2-QPB8H-RQ893-FW7TM-PBJ73
4HJRK-X6Q28-HWRFY-WDYHJ-K8HDH
TQ32R-WFBDM-GFHD2-QGVMH-3P9GC
QXV7B-K78W2-QGPR6-9FWH9-KGMM7
4HJRK-X6Q28-HWRFY-WDYHJ-K8HDH
TQ32R-WFBDM-GFHD2-QGVMH-3P9GC
QXV7B-K78W2-QGPR6-9FWH9-KGMM7
TQ32R-WFBDM-GFHD2-QGVMH-3P9GC

Don’t wait, get your keys today! Microsoft has a habit of closing betas after only a few days. So if you wait, you’ll lose out!

Popularity: unranked [?]

Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As System.Text.StringBuilder, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Integer
    Private Declare Ansi Function GetPrivateProfileInt Lib "kernel32.dll" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Integer, ByVal lpFileName As String) As Integer
    Private Declare Ansi Function FlushPrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As Integer, ByVal lpKeyName As Integer, ByVal lpString As Integer, ByVal lpFileName As String) As Integer

    Dim sFile As String

    ReadOnly Property FileName() As String
        Get
            Return sFile
        End Get
    End Property

    Public Function GetString(ByVal Section As String, ByVal Key As String, ByVal [Default] As String) As String
        Dim nCharCount As Integer
        Dim oResult As New System.Text.StringBuilder(256)
        nCharCount = GetPrivateProfileString(Section, Key, [Default], oResult, oResult.Capacity, sFile)
        If nCharCount > 0 Then
        End If
        GetString = Strings.Left(oResult.ToString, nCharCount)
    End Function

    Public Function GetInteger(ByVal Section As String, ByVal Key As String, ByVal [Default] As Integer) As Integer
        Return GetPrivateProfileInt(Section, Key, [Default], sFile)
    End Function

    Public Function GetBoolean(ByVal Section As String, ByVal Key As String, ByVal [Default] As Boolean) As Boolean
        Return (GetPrivateProfileInt(Section, Key, CInt([Default]), sFile) = 1)
    End Function

    Public Sub WriteString(ByVal Section As String, ByVal Key As String, ByVal Value As String)
        WritePrivateProfileString(Section, Key, Value, sFile)
        Flush()
    End Sub

    Public Sub WriteInteger(ByVal Section As String, ByVal Key As String, ByVal Value As Integer)
        WriteString(Section, Key, CStr(Value))
        Flush()
    End Sub

    Public Sub WriteBoolean(ByVal Section As String, ByVal Key As String, ByVal Value As Boolean)
        WriteString(Section, Key, CStr(CInt(Value)))
        Flush()
    End Sub

    Private Sub Flush()
        FlushPrivateProfileString(0, 0, 0, sFile)
    End Sub

within my code I use the following to write a to a [setion] key=value

Dim objIniFile As New IniFile("your file path\yourfile.ini")
objIniFile.WriteString("Section name", "Keyname", "your value as string")

‘to read from a [section] key=value

Dim objIniFile As New IniFile("your file path\yourfile.ini")
Dim boolData As Boolean = objIniFile.GetBoolean("your Section name" "yourkey",True)

Popularity: 6% [?]