What's the most usual project you've made?

What is the most unusual, unique, or strangest project you've ever made on Visual Basic?

The most stupid program I yet wrote is.... ah, I know! There are really stupid games I did! But that would be too stupid to tell ya ;)

I made a very poor virus which, when ran it came up with an annoying message, and shut the pc down. i made it an exe. and planned to put it on the school pc's, but it came up with a error message saying it was the wrong dll, what a pity.

Now how do i get in the start up menu again?

Kedamen, can you send me that app?
[email protected]

Here comes the source ;) Just press ctrl-alt-delete end task to remove it (if you compile it) else you just press ctrl break
[/code]
'BUGGY CURSOR COPYRIGHT KEDAMAN 3010-4058
Const REACT = 1000
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Type POINTAPI
X As Long
Y As Long
End Type
Public vx!, vy!, px!, py!
Property Get cursorX%()
Dim pnt As POINTAPI
temp = GetCursorPos(pnt)
cursorX = pnt.X
End Property
Property Let cursorX(newvalue%)
temp = SetCursorPos(newvalue, cursorY)
End Property
Property Get cursorY%()
Dim pnt As POINTAPI
temp = GetCursorPos(pnt)
cursorY = pnt.Y
End Property
Property Let cursorY(newvalue%)
temp = SetCursorPos(cursorX, newvalue)
End Property
Sub main()
px = cursorX
py = cursorY
DoEvents
Do
DoEvents
For n = 0 To REACT
DoEvents
Next n
py = cursorY
px = cursorX
X = (px - Screen.Width / Screen.TwipsPerPixelX / 2) / Screen.Width * Screen.TwipsPerPixelX
vx = vx - X
px = px + vx
vx = vx * 0.995
cursorX = px
Y = (py - Screen.Height / Screen.TwipsPerPixelY / 2) / Screen.Height * Screen.TwipsPerPixelY
vy = vy - Y
py = py + vy
vy = vy * 0.995
cursorY = py
Loop
End Sub
[code]

We all know the "drink the bottle of vodka without throwing up" game did not involve vb or a computer. Thinking on it, Sam move down to oz your sort are always welcome.:)

unfortunately, i don't have the experience of writing any weird or unusual apps... yet.

the closest would thing i have done would be a black jack game (yawn!) mostly database apps.

anyhow, the reason i am replying to this thread is that i noticed NeilAvent is a gis consultant. anyone else out there doing gis development or customization. i have extensive experience with the ESRI products ArcView, ArcINFO, MapObjects, etc...

i am currently working with a utility company that uses SmallWorld gis systems.

just curious...

The weirdest thing i made is a game where you go around and shoot aliens for the fun of it.

this one is pretty unusual...
one of my friends wanted me to make a virus for him, he also wanted me to make another app for him.

I told him no for the virus, and since he even thought about using a virus, I did this...

Code:

---


Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
ProgressBar1.Max = 100
ProgressBar1.Min = 0
ProgressBar1.Value = 0
Timer1.Enabled = False
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
If ProgressBar1.Value < 25 Then
Label1.Caption = "Modifying Contents of Win.ini and System.ini"
ElseIf ProgressBar1.Value > 25 And ProgressBar1.Value < 50 Then
Label1.Caption = "Modifying Registry"
ElseIf ProgressBar1.Value > 50 And ProgressBar1.Value < 75 Then
Label1.Caption = "Deleting win.com"
ElseIf ProgressBar1.Value > 75 And ProgressBar1.Value < 100 Then
Label1.Caption = "Overwriting Explorer.exe"
ElseIf ProgressBar1.Value = 100 Then
Label1.Caption = "Your ****ed"
Timer1.Enabled = False
End If
If ProgressBar1.Value <> 100 Then
ProgressBar1.Value = ProgressBar1.Value + 1
End If

End Sub

---

it scared the crap out of him...

The most unusual program I have ever made wasn't done in Visual Basic... it was done in Clipper (Uses DB4 files for those who want to know).

It used to take a 2MB text file which was exported from the messages of an Adult Bulletin Board system and looked for keywords. It then collected information about the "women" who posted to those boards and collected information about their physical attributes ;)

Don't ask!! Because I wont tell you what I did it for ;D