Trojan.Win32 (also know as Trojan.Win32.agent.akk or Trojan.Win32.Obfuscated.gx) used to be a real virus, now fake anti-spyware software will display Trojan.Win32 as their scan result to trick user to buy the fake anti-spyware program. The fake anti-spyware program usually get installed onto your PC without your permission, through Trojan, malware and virus (or you could get it by installing a fake video codec). fake anti-spyware will display the Trojan.Win32 fake system alerts or fake security alerts to trick user to buy the Paid Version of the fake anti-spyware program.

Manual Trojan.Win32 Removal Instructions:

Unregister Trojan.Win32 DLL Files:
(Learn how to do this)
windivx.dll
stream32a.dll
vipextqtr.dll
ecxwp.dll

Find and Delete these Trojan.Win32 Files:
(Learn how to do this)
windivx.dll
stream32a.dll
vipextqtr.dll
ecxwp.dll

Remove Trojan.Win32 Registry Values:
(Learn how to do this)
7a329404de21925daacbbbee093ff6dc
bb5be1c92c299a1c6bcfe67655b0a0c7
9a9f57899a28547b04fc2da3700c95cf
7d4b39e4cab018496e2fe9bf9c3234b2

Download SpyHunter* Spyware Detection Utility.

You can also download the free version of Avira Antivir to remove the spyware (update)

Variant: Trojan.Win32, Trojan.Win32.agent.akk and Trojan.Win32.Obfuscated.gx

As you will have seen in my last post I have at last added video to this site. I used a handy freeware application called CamStudio to record what I was doing on my screen.

This software has some excellent features that include: recording of vocal commentary; addition of captions; and even picture-in-picture video of yourself if you have a webcam. There is some help for using the software at Nick the Geek’s Support Helpdesk, but I will give you a few tips to get you started.

Firstly, it is best to select a different video codec (the way that the video is encoded and compressed) than the default one to keep the file sizes small. From the Options men select Video Options. Pick a compressor from the list. There is a lossless video codec available to download on the CamStudio site. You can also reduce the quality of the video on the Video Options page to further reduce the size of the video file. You will have to make sure that the people who view the video have the correct codec installed on their machine.

Next, select the area you wish to record. To do this pull down the Region menu and select Fixed Region (you can also record the whole screen). Click on the Select button and hold down the left-button on the mouse and drag it to select the region of the screen you wish to record.
It is best to make sure that the height and width are an even number of pixels, as this is a requirement of some video codecs. Click OK.

You can now hit the record button, the red circle, move the selection box over the part of the screen you wish to record and left-clik the mouse, and now the software will record anything that happens in that part of your screen. Click the blue square to stop recording, and then select a file name and a location for the video file.

Check out the other settings for adding audio and webcam screen-in-screen. Happy movie making.

Option Explicit

‘Variables to hold Old Base Type and New Base Type
Private OldBase As Integer
Private NewBase As Integer

>In the form load:

Private Sub Form_Load()
‘Initialize Old and New Base Type to Decimal
OldBase = 10
NewBase = 10
End Sub

>in the textbox named txtnumber
Private Sub txtNumber_KeyPress(KeyAscii As Integer)
‘If the key is NOT Backspace or Delete or Left or Right
If KeyAscii <> vbKeyBack Then
‘Determine the Base Type are we dealing with
Select Case OldBase
Case 2
‘Only allow Binary numbers to be entered (0-1)
If KeyAscii <> vbKey1 Then
KeyAscii = 0
End If
Case 8
‘Only allow Octal numbers to be entered (0-7)
If KeyAscii <> vbKey7 Then
KeyAscii = 0
End If
Case 10
‘Only allow Decimal numbers to be entered (0-9)
If KeyAscii <> vbKey9 Then
KeyAscii = 0
End If
Case 16
‘Only allow Hexidecimal numbers to be entered (0-9 & A-F)
If KeyAscii <> vbKey9 Then
If KeyAscii <> vbKeyF Then
‘If a-f then change to A-F
If KeyAscii >= 97 And KeyAscii < = 102 Then
KeyAscii = KeyAscii - 32
Else
KeyAscii = 0
End If
End If
End If
End Select
End If
End Sub

>in the option buttons (oct, hex, decimal,bin) named optNumber:

Private Sub optNumber_Click(Index As Integer)
Dim OldNumber As String
Dim NewNumber As String

OldNumber = txtNumber.Text

NewBase = optNumber(Index).Tag

Select Case NewBase
Case 2
txtNumber.MaxLength = 50
Case 8
txtNumber.MaxLength = 17
Case 10
txtNumber.MaxLength = 15
Case 16
txtNumber.MaxLength = 13
End Select

‘If Base Type was clicked but no numbers entered then
‘change Old and New Base to the Type selected and exit
If OldNumber = “” Then
OldBase = NewBase
Exit Sub
End If

‘Determine the Base Type combo we are dealing with
Select Case True
Case OldBase = 2 And NewBase = 2 ‘Binary & Binary
NewNumber = OldNumber
Case OldBase = 2 And NewBase = 8 ‘Binary & Octal
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)
Case OldBase = 2 And NewBase = 10 ‘Binary & Decimal
NewNumber = Base2Dec(OldNumber, OldBase)
Case OldBase = 2 And NewBase = 16 ‘Binary & Hexidecimal
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)

Case OldBase = 8 And NewBase = 2 ‘Octal & Binary
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)
Case OldBase = 8 And NewBase = 8 ‘Octal & Octal
NewNumber = OldNumber
Case OldBase = 8 And NewBase = 10 ‘Octal & Decimal
NewNumber = Base2Dec(OldNumber, OldBase)
Case OldBase = 8 And NewBase = 16 ‘Octal & Hexidecimal
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)

Case OldBase = 10 And NewBase = 2 ‘Decimal & Binary
NewNumber = Dec2Base(OldNumber, NewBase)
Case OldBase = 10 And NewBase = 8 ‘Decimal & Octal
NewNumber = Dec2Base(OldNumber, NewBase)
Case OldBase = 10 And NewBase = 10 ‘Decimal & Decimal
NewNumber = OldNumber
Case OldBase = 10 And NewBase = 16 ‘Decimal & Hexidecimal
NewNumber = Dec2Base(OldNumber, NewBase)

Case OldBase = 16 And NewBase = 2 ‘Hexidecimal & Binary
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)
Case OldBase = 16 And NewBase = 8 ‘Hexidecimal & Octal
NewNumber = Dec2Base(Base2Dec(OldNumber, OldBase), NewBase)
Case OldBase = 16 And NewBase = 10 ‘Hexidecimal & Decimal
NewNumber = Base2Dec(OldNumber, OldBase)
Case OldBase = 16 And NewBase = 16 ‘Hexidecimal & Hexidecimal
NewNumber = OldNumber
End Select

txtNumber.Text = NewNumber
OldBase = NewBase
End Sub

>private function:

Private Function Dec2Base(ByVal DecNum, ByVal Base) As String
Dim NHD As Double
Dim HN As String

‘Convert until done
While DecNum <> 0
‘Get the largest number of the Base Type
NHD = DecNum - (Int(DecNum / Base) * Base)
‘Find it’s converted Base number then concatenate
‘to the beginning of the resulting string
HN = Mid(”0123456789ABCDEF”, NHD + 1, 1) & HN
‘Subtract the amount we converted
DecNum = Int(DecNum / Base)
Wend

‘Return our new number in the requested Base Type
Dec2Base = HN
End Function

>another private function:

Private Function Base2Dec(BaseNum As String, ByVal Base) As String
Dim BN As Double
Dim i As Double
Dim j As Double

BN = 0
j = 1

‘Step from Right to Left of the numbers
For i = Len(BaseNum) To 1 Step -1
‘Determine what number we are dealing with then
‘multiply its value by the power of the Base Type
‘then add it to the total resulting value
Select Case UCase(Mid(BaseNum, i, 1))
Case “0″
BN = BN + j * 0
Case “1″
BN = BN + j * 1
Case “2″
BN = BN + j * 2
Case “3″
BN = BN + j * 3
Case “4″
BN = BN + j * 4
Case “5″
BN = BN + j * 5
Case “6″
BN = BN + j * 6
Case “7″
BN = BN + j * 7
Case “8″
BN = BN + j * 8
Case “9″
BN = BN + j * 9
Case “A”
BN = BN + j * 10
Case “B”
BN = BN + j * 11
Case “C”
BN = BN + j * 12
Case “D”
BN = BN + j * 13
Case “E”
BN = BN + j * 14
Case “F”
BN = BN + j * 15
End Select
‘Multiply our Base Type Power times the Base to get our next power
j = j * Base
Next i

‘Return our new number in Decimal format
Base2Dec = Trim(Str(BN))
End Function

This is a good idea to get the number of days of any month

‘For current month…

MsgBox DateAdd(”m”, 1, Now) - Now

‘For some other month (Example: June)

Dim FirstDate As Date
FirstDate = “01/06/2006″
MsgBox DateAdd(”m”, 1, FirstDate) - FirstDate

This is another way to easily eject CD in only 5 line of code.

Private Sub Form_Load()
Call eject
End Sub

Public Sub eject()
‘code to eject cdrom ok
Dim owmp As Object
Dim colCDROMs
Set owmp = CreateObject(”WMPlayer.OCX.7″)
Set colCDROMs = owmp.cdromCollection
If colCDROMs.Count >= 1 Then
For i = 0 To colCDROMs.Count - 1
colCDROMs.Item(i).eject
Next
End If
End Sub

This code will help you search any text in a database and show it in a datagridview
Create a button named utOk, a text box named txtName and a datagrid named Datagrid1.

Private Sub butOk_Click(ByValsender As System.Object, ByVal e As System.EventArgs) Handles but_ok.Click
Dim strConnection As String = “Data Source=your SQL data source;Initial Catalog=your database; Integrated Security=True”
Dim cn As SqlClient.SqlConnection = New SqlClient.SqlConnection(strConnection)
Dim ds As New DataSet
Dim strSelect As String
’strSelect As String
strSelect = “SELECT * FROM ” & YourTable & ” WHERE [Search Field] = ‘” & Me.txtName.Text & “‘”
Dim dscmd As New SqlClient.SqlDataAdapter(strSelect, cn)
dscmd.Fill(ds, “your table”)
Me.Datagrid1.DataSource = ds
Me.Datagrid1.DataMember = “your table”
Dim con As Integer
con = Me.BindingContext(ds, “your table”).Count
If con = 0 Then
MessageBox.Show(”Recourd could not be found”)
End If
End Sub