Visual Basic Forum

TheCoder_ · Verfasst am: 15.03.2007, 17:46

So da man ja doch mal bissl was machen will mir vb werde ich mal ein paar source snippets (bruchstücke), nach denen immer wieder gefragt wird, posten. Sind alles auskopplungen aus meinem trojaner deswegen geht vorsichtig mit um Wink

ein paar funzen nur unter xp aber haben ja die meisten hoffentlich
SO LETS GO

Maus Buttons vertauschen:

Bitchkiller_ · Tutorial Leser Anmeldedatum: 12.12.2006 Beiträge: 23

die bse mouse würde mich interessieren, gibt die auch milch?
_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

ne, nur kakao.

Edit//
Ich schätze mal das is ne einfache Schleife, die immer die Position der Maus verändert.

Einfallsreicher wäre aber, wenn man den Mauszeiger gegen einen Mittelfinger-Mauszeiger austauscht.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Bitchkiller_ · Tutorial Leser Anmeldedatum: 12.12.2006 Beiträge: 23

schade, aber ich fänds echt nice wenn du das mit den icons, und der maus nochmal posten könntest

TheCoder_ · Verfasst am: 06.04.2007, 16:34

Naja Probiers mal aus ich glaub du verstehst warum ich es BSE Maus genannt habe...btw: mein erster name war crazy-mouse (öde)
Du benötigst zwei timer(timer1 und timer2) und am besten nen grooooßen button(command1) zum beenden
[code]
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, _
ByVal Y As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As _
POINTAPI) As Long

Private Type POINTAPI
X As Long
Y As Long
End Type

Private X As Long
Private Y As Long
Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Dim pT As POINTAPI
'Zwischenspeichern beim Laden, damit der Mauszeiger von dort startet,
'wo er momentan ist
GetCursorPos pT
MsgBox "Muuuuuuuhhh, Ich hoffe du hast an den möglichst großen exit button gedacht ^^"
Timer1.Interval = 1
Timer2.Interval = 1
Timer1.Enabled = True
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim pT As POINTAPI

GetCursorPos pT

ValueOne = pT.X - Int(Rnd * 50)
ValueTwo = pT.Y - Int(Rnd * 50)
Change = SetCursorPos(ValueOne, ValueTwo)
Timer2.Enabled = True
Timer1.Enabled = False
End Sub

Private Sub Timer2_Timer()
Dim pT As POINTAPI

GetCursorPos pT

ValueOne = pT.X + Int(Rnd * 50)
ValueTwo = pT.Y + Int(Rnd * 50)
Change = SetCursorPos(ValueOne, ValueTwo)
Timer1.Enabled = True
Timer2.Enabled = False
End Sub

[/code]
EDIT:// und ncoh der source für desktopicons verstecken und disablen:
[code]
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, _
ByVal wCmd As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, _
ByVal nCmdShow As Long) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, _
ByVal fEnable As Long) As Long

Private Const GW_CHILD = 5
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Sub ShowDesktopIcons(ByVal bVisible As Boolean)
Dim hWnd_DesktopIcons As Long
hWnd_DesktopIcons = GetWindow( FindWindow("Progman", "Program Manager"), _
GW_CHILD)
If bVisible Then
ShowWindow hWnd_DesktopIcons, SW_SHOW
Else
ShowWindow hWnd_DesktopIcons, SW_HIDE
End If
End Sub

Sub EnableDesktop(ByVal bEnable As Boolean)
Dim hWnd_Desktop As Long
hWnd_Desktop = GetWindow( FindWindow("Progman", "Program Manager"), _
GW_CHILD)
If bEnable Then
EnableWindow hWnd_Desktop, True
Else
EnableWindow hWnd_Desktop, False
End If
End Sub
[/code]
hab ich von google und nich getestet. Also keine garantie. wenne noch was suchst pm oder google.
_________________

Bitchkiller_ · Tutorial Leser Anmeldedatum: 12.12.2006 Beiträge: 23

kk thx soweit
_________________