Gerekenler:1 adet command button
İyi Forumlar Dilerim |'RedsCoder
Kod:
[/COLOR][COLOR=#FFFFFF]Private Const MOUSEEVENTF_ABSOLUTE = &H8000[/COLOR]
[COLOR=#FFFFFF]Private Const MOUSEEVENTF_MOVE = &H1[/COLOR]
[COLOR=#FFFFFF]Private Declare Sub mouse_event Lib user32″ (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cbuttons As Long, ByVal dwExtraInfo As Long)[/COLOR]
[COLOR=#FFFFFF]Private Const SM_CXSCREEN = 0[/COLOR]
[COLOR=#FFFFFF]Private Const SM_CYSCREEN = 1[/COLOR]
[COLOR=#FFFFFF]Private Const TWIPS_PER_INCH = 1440[/COLOR]
[COLOR=#FFFFFF]Private Const POINTS_PER_INCH = 72[/COLOR]
[COLOR=#FFFFFF]Private Declare Function GetSystemMetrics Lib user32″ (ByVal nIndex As Long) As Long[/COLOR]
[COLOR=#FFFFFF]Private Const MOUSE_MICKEYS = 65535[/COLOR]
[COLOR=#FFFFFF]Public Enum enReportStyle[/COLOR]
[COLOR=#FFFFFF]rsPixels[/COLOR]
[COLOR=#FFFFFF]rsTwips[/COLOR]
[COLOR=#FFFFFF]rsInches[/COLOR]
[COLOR=#FFFFFF]rsPoints[/COLOR]
[COLOR=#FFFFFF]End Enum[/COLOR]
[COLOR=#FFFFFF]Private Declare Sub Sleep Lib kernel32″ (ByVal dwMilliseconds As Long)[/COLOR]
[COLOR=#FFFFFF]Sub funnymouse()[/COLOR]
[COLOR=#FFFFFF]Dim i As Long, X As Long, Y As Long[/COLOR]
[COLOR=#FFFFFF]GetScreenRes X, Y[/COLOR]
[COLOR=#FFFFFF]For i = 1 To 5000[/COLOR]
[COLOR=#FFFFFF]Call MouseMove(Rnd * X, Rnd * Y)[/COLOR]
[COLOR=#FFFFFF]Sleep (100)[/COLOR]
[COLOR=#FFFFFF]Next i[/COLOR]
[COLOR=#FFFFFF]MouseMove 0, 0[/COLOR]
[COLOR=#FFFFFF]End Sub[/COLOR]
[COLOR=#FFFFFF]Public Sub GetScreenRes(ByRef X As Long, ByRef Y As Long, Optional ByVal ReportStyle As enReportStyle)[/COLOR]
[COLOR=#FFFFFF]X = GetSystemMetrics(SM_CXSCREEN)[/COLOR]
[COLOR=#FFFFFF]Y = GetSystemMetrics(SM_CYSCREEN)[/COLOR]
[COLOR=#FFFFFF]If Not IsMissing(ReportStyle) Then[/COLOR]
[COLOR=#FFFFFF]If ReportStyle <> rsPixels Then[/COLOR]
[COLOR=#FFFFFF]X = X * Screen.TwipsPerPixelX[/COLOR]
[COLOR=#FFFFFF]Y = Y * Screen.TwipsPerPixelY[/COLOR]
[COLOR=#FFFFFF]If ReportStyle = rsInches Or ReportStyle = rsPoints Then[/COLOR]
[COLOR=#FFFFFF]X = X / TWIPS_PER_INCH[/COLOR]
[COLOR=#FFFFFF]Y = Y / TWIPS_PER_INCH[/COLOR]
[COLOR=#FFFFFF]If ReportStyle = rsPoints Then[/COLOR]
[COLOR=#FFFFFF]X = X * POINTS_PER_INCH[/COLOR]
[COLOR=#FFFFFF]Y = Y * POINTS_PER_INCH[/COLOR]
[COLOR=#FFFFFF]End If[/COLOR]
[COLOR=#FFFFFF]End If[/COLOR]
[COLOR=#FFFFFF]End If[/COLOR]
[COLOR=#FFFFFF]End If[/COLOR]
[COLOR=#FFFFFF]End Sub[/COLOR]
[COLOR=#FFFFFF] Converts pixel X coordinates To mickeys[/COLOR]
[COLOR=#FFFFFF]Public Function PixelXToMickey(ByVal pixX As Long) As Long[/COLOR]
[COLOR=#FFFFFF]Dim X As Long[/COLOR]
[COLOR=#FFFFFF]Dim Y As Long[/COLOR]
[COLOR=#FFFFFF]Dim tX As Single[/COLOR]
[COLOR=#FFFFFF]Dim tpixX As Single[/COLOR]
[COLOR=#FFFFFF]Dim tMickeys As Single[/COLOR]
[COLOR=#FFFFFF]GetScreenRes X, Y[/COLOR]
[COLOR=#FFFFFF]tMickeys = MOUSE_MICKEYS[/COLOR]
[COLOR=#FFFFFF]tX = X[/COLOR]
[COLOR=#FFFFFF]tpixX = pixX[/COLOR]
[COLOR=#FFFFFF]PixelXToMickey = CLng((tMickeys / tX) * tpixX)[/COLOR]
[COLOR=#FFFFFF]End Function[/COLOR]
[COLOR=#FFFFFF] Converts pixel Y coordinates To mickeys[/COLOR]
[COLOR=#FFFFFF]Public Function PixelYToMickey(ByVal pixY As Long) As Long[/COLOR]
[COLOR=#FFFFFF]Dim X As Long[/COLOR]
[COLOR=#FFFFFF]Dim Y As Long[/COLOR]
[COLOR=#FFFFFF]Dim tY As Single[/COLOR]
[COLOR=#FFFFFF]Dim tpixY As Single[/COLOR]
[COLOR=#FFFFFF]Dim tMickeys As Single[/COLOR]
[COLOR=#FFFFFF]GetScreenRes X, Y[/COLOR]
[COLOR=#FFFFFF]tMickeys = MOUSE_MICKEYS[/COLOR]
[COLOR=#FFFFFF]tY = Y[/COLOR]
[COLOR=#FFFFFF]tpixY = pixY[/COLOR]
[COLOR=#FFFFFF]PixelYToMickey = CLng((tMickeys / tY) * tpixY)[/COLOR]
[COLOR=#FFFFFF]End Function[/COLOR]
[COLOR=#FFFFFF]Public Sub MouseMove(ByRef xPixel As Long, ByRef yPixel As Long)[/COLOR]
[COLOR=#FFFFFF]Dim cbuttons As Long[/COLOR]
[COLOR=#FFFFFF]Dim dwExtraInfo As Long[/COLOR]
[COLOR=#FFFFFF]mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, PixelXToMickey(xPixel), PixelYToMickey(yPixel), cbuttons, dwExtraInfo[/COLOR]
[COLOR=#FFFFFF]End Sub[/COLOR]
[COLOR=#FFFFFF]Public Function CheckNull(d As Variant) As String[/COLOR]
[COLOR=#FFFFFF]390 If IsNull(d) Then[/COLOR]
[COLOR=#FFFFFF]400 CheckNull = [/COLOR]
[COLOR=#FFFFFF]410 ElseIf Trim$(d) = Then[/COLOR]
[COLOR=#FFFFFF]420 CheckNull = [/COLOR]
[COLOR=#FFFFFF]430 Else[/COLOR]
[COLOR=#FFFFFF]440 CheckNull = d[/COLOR]
[COLOR=#FFFFFF]450 End If[/COLOR]
[COLOR=#FFFFFF]End Function[/COLOR]
[COLOR=#FFFFFF]Private Sub Command1_Click()[/COLOR]
[COLOR=#FFFFFF]funnymouse[/COLOR]
[COLOR=#FFFFFF] End Sub
[/COLOR][COLOR=#FFFFFF]
