vbs paylod

[bubzuru]

any one no any code for a vbs paylode like swap mouse buttons
or make the desktop disapere or sumt
any help would be gr8

[floodhound2]

Yeah i got that also:

Code: Select all

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long


Private Sub Form_Load()


    DoEvents
        SwapMouseButton 1


        DoEvents
            Unload Me
        End Sub

and for to show and hide the desktop :

Code: Select all

Option Explicit

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long

Private Sub Command1_Click()
    Dim hWnd As Long
    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd, 5
End Sub

Private Sub Command2_Click()
    Dim hWnd As Long
    hWnd = FindWindowEx(0&, 0&, "Progman", vbNullString)
    ShowWindow hWnd, 0
End Sub

Private Sub Form_Load()

End Sub

[bubzuru]

nice one but is that visual basic or vbs

[floodhound2]

Visual Basic

Sorry if you not need it

[bubzuru]

i am trying to learn visual basic also