\"Bevæg musen\" program?

Ja ja, det for at snyde med reklamebannere....

Det sgu\' IKKE for at snyde med reklamebannere!!! Sagde jeg ikke lige at det var til en bærbar, hvor admin\'en har sat skodrettigheder på, så man ikke engang kan justere, standby-tiden!

http://www.lightdesign.demon.nl/makemoney/trembler.exe

vil du have kildekode eller et færdigt program?

Jeg har et lille prog der hedder trembler. Det får musen til at stå og ryste lidt (eller meget). Fylder 13 Kb. Skal jeg sende det til dig?

ups, el barto-havde ikke set dit svar..

:)

hehe Det andet var ellers en oplagt ting...

Mon ikke der er en grundt til at du ikke skal spille Q3 på den computer....

Tak for svarene alle sammen! og jeg spurgte faktisk ikke for at snyde med bannerreklamer. Det var ganske legalt :) Point til alle

Og jeg skider på admin\'en :)

Private Declare Function SetCursorPos Lib \"user32\" (ByVal x As Long, ByVal y As Long) As Long
Dim a, b, c As Long

Private Sub Command1_Click()
a = 200
b = 200
  If Command1.Caption = \"&Start\" Then
    Command1.Caption = \"s&Top\"
    Timer1.Enabled = True
    Else
    Command1.Caption = \"&Start\"
    Timer1.Enabled = False
  End If
End Sub

Private Sub Timer1_Timer()
If c <= 100 Then
  a = a + Int(Rnd * 4)
  b = b + Int(Rnd * 4)
  c = c + Int(Rnd * 4)
Else
  a = a - Int(Rnd * 4)
  b = b - Int(Rnd * 4)
  c = c - Int(Rnd * 4)
End If
Call SetCursorPos(a, b)
End Sub

det her virker. :)