You are currently browsing the articles from MS Windows Articles, Reviews and Videos written on
WORM_VB.ZAA is a new kind of worm that attempts to infect the Windows computers, being executed once the user starts Windows Media Player. Security company Trend Micro wrote that the worm affected most versions of the operating system powered by Microsoft, including Windows 98, ME, NT, 2000, XP and Server 2003. But, what’s more important [...]
Written by Jason on December 23rd, 2007 with comments disabled.
Read more articles on News.
Worm.Zhelatin.DAM is an email worm that spreaded through email attachments, and use your computer to spam and spread the worm to other computer users. It is very important to remove all the components of Worm.Zhelatin.DAM, and all the malware and trojans that it might have come bundle with Worm.Zhelatin.DAM. To effectively remove Worm.Zhelatin.DAM, [...]
Written by Alex on December 23rd, 2007 with comments disabled.
Read more articles on News.
Apple’s move to Intel architecture opened up a whole new world of possibilities, and it was not long before software, such as Parallels, VMWare and Boot Camp, came and made lots of those possibilities reality. Now, with Leopard released, new information about how the Mac OS reacts to Windows executable has come to light.
The abundance [...]
Written by Jason on December 23rd, 2007 with comments disabled.
Read more articles on News.
...
Written by ChampDog on December 23rd, 2007 with comments disabled.
Read more articles on News.
This code will show you how your going to find and display the maximum value in your array.
The Code:
‘You will need a FORM and a command button
Option Explicit
Dim A(20), num, i, j, max As Integer
Private Sub Command1_Click()
Print “Your array contains:”
For i = 0 To num - 1
Print A(i)
Next i
Print “Maximum Value= “; max
End Sub
Private Sub Form_Load()
num = InputBox(”Initialize your array [1-20]:”)
For i = 0 To num - 1
A(i) = InputBox(”Enter your array:”)
Next i
‘find maximum
max = A(0)
For i = 0 To num - 1
If max < A(i) Then
max = A(i)
End If
Next
End Sub
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.
The following code will allow you to catch running Win32Services
The Code:
Option Explicit On
Imports System
Imports System.Management
Public Class Form1
Private MgClass As New Management.ManagementClass(”Win32_Service”)
Private Sub ButtonLoadServices_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonLoadServices.Click
Try
Me.Cursor = Cursors.WaitCursor
ListView1.Items.Clear()
Label3.Text = “”
Label5.Text = “”
Label7.Text = “”
Label9.Text = “”
ButtonLoadServices.Enabled = False
ButtonLoadServices.Refresh()
Label1.Text = “0% Complete.”
Label1.Refresh()
With ProgressBar1
.Value = 0
.Minimum = 0
.Maximum = MgClass.GetInstances().Count
.Refresh()
End With
For Each obj As Management.ManagementObject In MgClass.GetInstances()
Application.DoEvents()
Dim MHeader As New ListViewItem()
Dim SHeader As New ListViewItem.ListViewSubItem()
MHeader.Text = obj.GetPropertyValue(”Caption”).ToString
If obj.GetPropertyValue(”Description”) “” Then
SHeader.Text = obj.GetPropertyValue(”Description”).ToString()
End If
ListView1.Items.Add(MHeader).SubItems.Add(SHeader)
ProgressBar1.Value += 1
ProgressBar1.Refresh()
Label1.Text = ((ProgressBar1.Value / ProgressBar1.Maximum) * 100).ToString(”0.00″) & “% Complete.”
Label1.Refresh()
Next
ButtonLoadServices.Enabled = True
ButtonLoadServices.Refresh()
Me.Cursor = Cursors.Default
Catch ex As Exception
MessageBox.Show(ex.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)
ButtonLoadServices.Enabled = True
ButtonLoadServices.Refresh()
Me.Cursor = Cursors.Default
End Try
End Sub
Private Sub ListView1_AfterLabelEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LabelEditEventArgs) Handles ListView1.AfterLabelEdit
e.CancelEdit = True
End Sub
Private Sub ListView1_BeforeLabelEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LabelEditEventArgs) Handles ListView1.BeforeLabelEdit
e.CancelEdit = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label3.Text = “”
Label5.Text = “”
Label7.Text = “”
Label9.Text = “”
End Sub
Private Sub ListView1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseClick
Dim SelectItem As String = “”
Dim SelRow As Integer = 0
Try
Me.Cursor = Cursors.WaitCursor
SelRow = ListView1.SelectedItems.Item(0).Index
SelectItem += “”"”
SelectItem += ListView1.Items.Item(SelRow).Text.ToString()
SelectItem += “”"”
Dim SelQuery As New SelectQuery(”Win32_Service”, “Caption=” & SelectItem & “”)
Dim ObjectSearcher As New ManagementObjectSearcher(SelQuery)
For Each service As ManagementObject In ObjectSearcher.Get()
Label3.Text = service.GetPropertyValue(”PathName”)
Label5.Text = service.GetPropertyValue(”ServiceType”)
Label7.Text = service.GetPropertyValue(”StartMode”)
Label9.Text = service.GetPropertyValue(”State”)
Exit For
Next
SelQuery = Nothing
ObjectSearcher.Dispose()
Me.Cursor = Cursors.Default
Catch ex As Exception
MessageBox.Show(ex.Message, “Error”, MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Cursor = Cursors.Default
End Try
End Sub
End Class
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.
This is a simple Regular Expression Tester.
Imports System.Text.RegularExpressions
Public Class Form1
Private Function TestRegularExpression(ByVal TestValue As Object, ByVal TestPattern As String) As Boolean
TestRegularExpression = False
If Regex.IsMatch(TestValue, TestPattern) Then
TestRegularExpression = True
Else
TestRegularExpression = False
End If
Return TestRegularExpression
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Ans As Boolean = False
Try
Ans = TestRegularExpression(TextBox2.Text.ToString().Trim(), TextBox1.Text.ToString().Trim())
If Ans = True Then
MessageBox.Show(”Correct”, “Regular Expressions”, MessageBoxButtons.OK, MessageBoxIcon.Information)
Else
MessageBox.Show(”Not Correct”, “Regular Expressions”, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
End If
Catch ex As Exception
MessageBox.Show(ex.Message, “Error …”, MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.
Open Visual Basic (.net) and create a new Console Application
Paste the following code and run !
Module Module1
Sub Main()
Dim n As Integer
Dim i As Integer
Dim flag As Boolean
For n = 1 To 50
flag = True
For i = 2 To n / 2
If n Mod i = 0 Then
flag = False
End If
Next
If flag Then
Console.WriteLine(n)
End If
Next
Console.ReadLine()
End Sub
End Module
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.
After a long search I found the method to add the Digg button to all the posts of the Blog.
Don’t forget to Digg anypost you found helpful !
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.
Hi,
I just fixed a new skin!! What do you think of it?
Written by Omar Abid on December 23rd, 2007 with comments disabled.
Read more articles on News.