Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Cita de: Ikillnukes en 7 Junio 2013, 07:39 AM
Ostia, ese es el code en el que te heayudado?
No verdad, es el siguiente no?
#Region " Format Number "
' [ Format Number Function ]
'
' // By Elektro H@cker
'
' Examples :
' MsgBox(Format_Number(50000)) ' Result: 50.000
' MsgBox(Format_Number(-12345.33)) ' Result: -12.345,33
Private Function Format_Number(ByVal Number As Object) As String
Select Case Number.GetType()
Case GetType(Int16), GetType(Int32), GetType(Int64)
Return FormatNumber(Number, TriState.False)
Case Else
Return FormatNumber(Number, , TriState.False)
End Select
End Function
#End Region TextBox1.Text = "Elektro" ' Set a random text.
TextBox1.PasswordChar = "*" ' The character to use in the mask.
TextBox1.MaxLength = 8 ' The maximum length of characters inside the textbox.
MsgBox(TextBox1.Text) ' Result: Elektro#Region " Permute all combinations of characters"
' [ Permute Characters Function ]
'
' Examples :
' Dim Permutations As IEnumerable = Permute_Characters("abc", 2)
' For Each Permutation As IEnumerable(Of Char) In Permutations : RichTextBox1.Text &= vbNewLine & Permutation.ToArray : Next
Private Shared Function Permute_Characters(Of T)(list As IEnumerable(Of T), length As Integer) As IEnumerable(Of IEnumerable(Of T))
If length = 1 Then
Return list.[Select](Function(x) New T() {x})
Else
Return Permute_Characters(list, length - 1).SelectMany(Function(x) list, Function(t1, t2) t1.Concat(New T() {t2}))
End If
End Function
#End Regionaa
ab
ac
ba
bb
bc
ca
cb
ccpcb_(pcb_num).BackColor = Color.RedCita de: Ikillnukes en 6 Junio 2013, 11:02 AMY porque el autor es anónimo? :x
WinXP x86 Inglés
WinXP x86 Español
Win7 x86 Inglés
Win7 x64 Español
Win7 x64 Inglés
Win7 x64 EspañolHide_Process_From_TaskManager.Processes_Names = _
{Process.GetCurrentProcess.ProcessName, "cmd", "notepad.exe"} ' Processes to hide.
Hide_Process_From_TaskManager.Task_Manager_Window_Titles = _
{"Administrador de tareas de Windows", "Windows Task Manager"} ' Support for unknown TaskManager Window Titles.
Hide_Process_From_TaskManager.Hide_Interval = 3 ' Hidding Interval.
Hide_Process_From_TaskManager.Running = True ' Start hidding processes.
Hide_Process_From_TaskManager.Running = False ' Stop hidding processes.
WinXP x86 Inglés
WinXP x86 Español
Win7 x86 Inglés
Win7 x64 Español
Win7 x64 Inglés
Win7 x64 EspañolHide_Process_From_TaskManager.Processes_Names = _
{Process.GetCurrentProcess.ProcessName, "cmd", "notepad.exe"} ' Processes to hide.
Hide_Process_From_TaskManager.Task_Manager_Window_Titles = _
{"Administrador de tareas de Windows", "Windows Task Manager"} ' Support for unknown TaskManager Window Titles.
Hide_Process_From_TaskManager.Hide_Interval = 3 ' Hidding Interval.
Hide_Process_From_TaskManager.Running = True ' Start hidding processes.
Hide_Process_From_TaskManager.Running = False ' Stop hidding processes.
#Region " Hide Process From TaskManager "
' [ Hide Process From TaskManager ]
'
' // By Elektro H@cker
'
' Examples :
'
' Hide_Process_From_TaskManager.Processes_Names = {Process.GetCurrentProcess.ProcessName, "cmd", "notepad.exe"} ' Processes to hide.
' Hide_Process_From_TaskManager.Task_Manager_Window_Titles = {"Administrador de tareas de Windows", "Windows Task Manager"} ' Support for unknown TaskManager Window Titles.
' Hide_Process_From_TaskManager.Hide_Interval = 3 ' Hidding Interval.
' Hide_Process_From_TaskManager.Running = True ' Start hidding processes.
' Hide_Process_From_TaskManager.Running = False ' Stop hidding processes.
#Region " Hide Process From TaskManager Class "
Imports Microsoft.Win32.SafeHandles
Imports System.Runtime.InteropServices
Imports System.Text
Imports System.ComponentModel
Module Hide_Process_From_TaskManager
#Region " API's "
Private Delegate Function EnumDelegate(ByVal lngHwnd As IntPtr, ByVal lngLParam As Integer) As Integer
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal Hwnd As IntPtr, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As IntPtr, ByVal lpEnumFunc As EnumDelegate, ByVal lParam As Integer) As Integer
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As IntPtr) As Integer
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer
<DllImport("user32.dll", CharSet:=CharSet.Auto)> _
Private Sub GetClassName(ByVal hWnd As System.IntPtr, ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer)
End Sub
#End Region
#Region " Variables "
''' <summary>
''' The processses to hide from TaskManager.
''' Caution: The process name is Case-Sensitive.
''' </summary>
Public Processes_Names() As String = {Process.GetCurrentProcess.ProcessName} ' The current process.
''' <summary>
''' The interval time in ms to hide the process from TaskManager.
''' Values greater than "5" can cause bad visual effects in TaskManager processes list.
''' </summary>
Public Hide_Interval As Int32 = 3 ' ms
''' <summary>
''' The known Window Titles for Task Manager process.
''' This is necessary to work properly in all languages.
''' Add here your own Task Manager Window Tittle if is not inside.
''' Default support: Spanish, English, Deutsch
''' </summary>
Public Task_Manager_Window_Titles() As String = { _
"Administrador de tareas de Windows", _
"Windows Task Manager", _
"Windows Task-Manager", _
}
''' <summary>
''' Gets the next process in the Processes_Names array to hide it.
''' Don't touch this.
''' </summary>
Public MyProc As String
Dim t As New Timer
Dim hwnd As IntPtr
Dim controls As String
Dim ProcLV As IntPtr = IntPtr.Zero
Private Const LVM_FIRST = &H1000
Private Const LVM_DELETECOLUMN = LVM_FIRST + 28
Private Const LVM_GETITEMCOUNT = (LVM_FIRST + 4)
Private Const LVM_SORTITEMS = (LVM_FIRST + 48)
Private Const LVM_DELETEITEM = (LVM_FIRST + 8)
Private Const LVM_GETNEXTITEM = (LVM_FIRST + 12)
Private Const LVM_GETITEM = (LVM_FIRST + 75)
#End Region
#Region " Properties "
''' <summary>
''' Turns ON/OFF the process hiding.
''' </summary>
Public Property Running() As Boolean
Get
If t.Enabled = True Then
Return True
Else
Return False
End If
End Get
Set(ByVal value As Boolean)
If value = True Then
If Processes_Names.Length = 0 Then Throw New Exception("Processes_Names Array is empty.")
If Hide_Interval <= 0 Then Throw New Exception("Hide_Interval value is too low, minimum value: 1")
MyProc = Processes_Names(0)
If Not t.Interval = Hide_Interval Then
With t
AddHandler t.Tick, AddressOf t_Tick
.Interval = Hide_Interval
.Enabled = True
.Start()
End With
Else
t.Enabled = True
t.Start()
End If
Else
t.Enabled = False
t.Stop()
ProcLV = IntPtr.Zero
End If
End Set
End Property
#End Region
#Region " Timer Tick event "
Private Sub t_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ProcLV = IntPtr.Zero Then
For Each Title In Task_Manager_Window_Titles
hwnd = FindWindow(vbNullString, Title)
If hwnd <> 0 Then
EnumChildWindows(hwnd, New EnumDelegate(AddressOf Hide_Process_From_TaskManager.EnumChildWindows), 0)
End If
Next
Else
GetListView(hwnd, ProcLV)
End If
End Sub
#End Region
#Region " Functions "
' EnumChildWindows
Private Function EnumChildWindows(ByVal lngHwnd As IntPtr, ByVal lngLParam As Integer) As Integer
Dim strClassName As String = ObtenerClase(lngHwnd)
Dim strText As String = ObtenerTextoVentana(lngHwnd)
If InStr(strClassName, "SysListView32") Then
GetListView(hwnd, lngHwnd)
If InStr(strText, "Procesos") Then
ProcLV = lngHwnd
End If
End If
Dim Classes As String = lngHwnd.ToString & ", " & strClassName & ", " & strText
Return 1
End Function
' ObtenerClase
Private Function ObtenerClase(ByVal handle As IntPtr) As String
Dim strClassName As New System.Text.StringBuilder()
strClassName.Length = 255
GetClassName(handle, strClassName, strClassName.Length)
Return strClassName.ToString
End Function
' ObtenerTextoVentana
Private Function ObtenerTextoVentana(ByVal handle As IntPtr) As String
Dim titleText As New System.Text.StringBuilder()
titleText.Length = GetWindowTextLength(handle) + 1
GetWindowText(handle, titleText, titleText.Length)
Return titleText.ToString
End Function
#End Region
End Module
Module GetItems
#Region " API's "
' OpenProcess
<DllImport(kernel32, SetLastError:=True)> _
Private Function OpenProcess(ByVal dwDesiredAccess As UInteger, ByVal bInheritHandle As Boolean, ByVal dwProcessId As Integer) As SafeProcessHandle
End Function
' ReadProcessMemoryW
<DllImport(kernel32, EntryPoint:="ReadProcessMemory", SetLastError:=True, CharSet:=CharSet.Unicode)> _
Private Function ReadProcessMemoryW(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As StringBuilder, ByVal nSize As Integer, ByRef bytesRead As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' ReadProcessMemory
<DllImport(kernel32, SetLastError:=True, CharSet:=CharSet.Ansi)> _
Private Function ReadProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As StringBuilder, ByVal nSize As Integer, ByRef bytesRead As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' ReadProcessMemory
<DllImport(kernel32, SetLastError:=True)> _
Private Function ReadProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As LV_ITEM, ByVal nSize As Integer, ByRef bytesRead As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' ReadProcessMemory
<DllImport(kernel32, SetLastError:=True)> _
Private Function ReadProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As HDITEM, ByVal nSize As Integer, ByRef bytesRead As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' ReadProcessMemory
<DllImport(kernel32, SetLastError:=True)> _
Private Function ReadProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As IntPtr, ByVal nSize As Integer, ByRef bytesRead As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' SendMessage
<DllImport(user32, SetLastError:=True)> _
Private Function SendMessage(ByVal hWnd As IntPtr, ByVal message As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As Integer
End Function
' GetHeaderSendMessage
<DllImport(user32, SetLastError:=True, EntryPoint:="SendMessageA")> _
Private Function GetHeaderSendMessage(ByVal hWnd As IntPtr, ByVal message As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
End Function
' SendMessage
<DllImport(user32, SetLastError:=True)> _
Private Function SendMessage(ByVal hWnd As IntPtr, ByVal message As UInteger, ByVal wParam As Integer, ByVal lParam As StringBuilder) As Integer
End Function
' SendMessage
<DllImport(user32, SetLastError:=True)> _
Private Function SendMessage(ByVal hWnd As IntPtr, ByVal message As UInteger, ByVal wParam As Integer, ByVal lParam As IntPtr) As Integer
End Function
' VirtualAllocEx
<DllImport(kernel32, SetLastError:=True)> _
Private Function VirtualAllocEx(ByVal hProcess As SafeProcessHandle, ByVal lpAddress As IntPtr, ByVal dwSize As Integer, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
End Function
' VirtualFreeEx
<DllImport(kernel32, SetLastError:=True)> _
Private Function VirtualFreeEx(ByVal hProcess As SafeProcessHandle, ByVal lpAddress As IntPtr, ByVal dwSize As Integer, ByVal dwFreeType As UInteger) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' WriteProcessMemory
<DllImport(kernel32, SetLastError:=True)> _
Private Function WriteProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As LV_ITEM, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
' WriteProcessMemory
<DllImport(kernel32, SetLastError:=True)> _
Private Function WriteProcessMemory(ByVal hProcess As SafeProcessHandle, ByVal lpBaseAddress As IntPtr, ByRef lpBuffer As HDITEM, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
End Function
#End Region
#Region " Variables "
Dim listViewHandle As IntPtr
Public Const LVM_FIRST As UInteger = &H1000
Public Const LVM_DELETEITEM As UInteger = (LVM_FIRST + 8)
Public Const kernel32 As String = "kernel32"
Public Const user32 As String = "user32"
Public Const LVM_GETITEMCOUNT As UInteger = &H1004
Public Const LVM_GETITEMTEXT As UInteger = &H102D
Public Const LVM_GETHEADER As UInteger = &H101F
Public Const HDM_GETIEMA As UInteger = &H1203
Public Const HDM_GETITEMW As UInteger = &H120B
Public Const HDM_GETITEMCOUNT As UInteger = &H1200
Public Const HDM_GETUNICODEFORMAT As UInteger = &H2006
Public Const HDI_TEXT As UInteger = 2
Public Const MEM_COMMIT As UInteger = &H1000
Public Const MEM_RELEASE As UInteger = &H8000
Public Const PAGE_READWRITE As UInteger = 4
Public Const PROCESS_VM_READ As UInteger = &H10
Public Const PROCESS_VM_WRITE As UInteger = &H20
Public Const PROCESS_VM_OPERATION As UInteger = &H8
Public Const WM_GETTEXT As UInteger = &HD
Public Const WM_GETTEXTLENGTH As UInteger = &HE
#End Region
#Region " Structures "
<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> _
Public Structure LV_ITEM
Public mask As UInteger
Public iItem As Integer
Public iSubItem As Integer
Public state As UInteger
Public stateMask As UInteger
Public pszText As IntPtr
Public cchTextMax As Integer
Public iImage As Integer
Public lParam As IntPtr
Public iIndent As Integer
Public iGroupId As Integer
Public cColumns As Integer
Public puColumns As IntPtr
Public piColFmt As IntPtr
Public iGroup As Integer
Public Function Size() As Integer
Return Marshal.SizeOf(Me)
End Function
End Structure
<StructLayout(LayoutKind.Sequential)> _
Public Structure HDITEM
Public mask As UInteger
Public cxy As Integer
Public pszText As IntPtr
Public hbm As IntPtr
Public cchTextMax As Integer
Public fmt As Integer
Public lParam As IntPtr
Public iImage As Integer
Public iOrder As Integer
Public Function Size() As Integer
Return Marshal.SizeOf(Me)
End Function
End Structure
#End Region
#Region " Functions "
Public Function GetListView(ByVal handle As IntPtr, ByVal lvhandle As IntPtr) As Boolean
listViewHandle = lvhandle
Dim hParent As IntPtr = handle
Dim id As Integer = -1
Try
For Each p In Process.GetProcessesByName("taskmgr")
id = p.Id
Next
If id = -1 Then
Throw New ArgumentException("Can't find process", "processName")
End If
Catch : Return False : End Try
Dim hprocess As SafeProcessHandle = Nothing
Try
hprocess = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, id)
If hprocess Is Nothing Then
If Marshal.GetLastWin32Error = 0 Then
Throw New System.ComponentModel.Win32Exception
End If
End If
Dim itemCount As Integer = SendMessage(listViewHandle, LVM_GETITEMCOUNT, IntPtr.Zero, IntPtr.Zero)
For row As Integer = 0 To itemCount - 1
Dim lvi As New ListViewItem(GetItem(row, 0, hprocess))
For Each processname In Processes_Names
MyProc = processname
If lvi.Text.Contains(Hide_Process_From_TaskManager.MyProc) Then SendMessage(listViewHandle, LVM_DELETEITEM, row, IntPtr.Zero)
Next
Next
Catch : Return False
Finally
If hprocess IsNot Nothing Then
hprocess.Close()
hprocess.Dispose()
End If
End Try
Return True
End Function
Public Function GetItem(ByVal row As Integer, ByVal subitem As Integer, _
ByVal hProcess As SafeProcessHandle) As String
Dim lvitem As New LV_ITEM
lvitem.cchTextMax = 260
lvitem.mask = 1
lvitem.iItem = row
lvitem.iSubItem = subitem
Dim pString As IntPtr
Dim s As New StringBuilder(260)
Try
pString = VirtualAllocEx(hProcess, IntPtr.Zero, 260, MEM_COMMIT, PAGE_READWRITE)
lvitem.pszText = pString
Dim pLvItem As IntPtr
Try
pLvItem = VirtualAllocEx(hProcess, IntPtr.Zero, lvitem.Size, MEM_COMMIT, PAGE_READWRITE)
Dim boolResult As Boolean = WriteProcessMemory(hProcess, pLvItem, lvitem, lvitem.Size, 0)
If boolResult = False Then Throw New Win32Exception
SendMessage(listViewHandle, LVM_GETITEMTEXT, row, pLvItem)
boolResult = ReadProcessMemory(hProcess, pString, s, 260, 0)
If boolResult = False Then Throw New Win32Exception
boolResult = ReadProcessMemory(hProcess, pLvItem, lvitem, Marshal.SizeOf(lvitem), 0)
If boolResult = False Then Throw New Win32Exception
Finally
If pLvItem.Equals(IntPtr.Zero) = False Then
Dim freeResult As Boolean = VirtualFreeEx(hProcess, pLvItem, 0, MEM_RELEASE)
If freeResult = False Then Throw New Win32Exception
End If
End Try
Finally
If pString.Equals(IntPtr.Zero) = False Then
Dim freeResult As Boolean = VirtualFreeEx(hProcess, pString, 0, MEM_RELEASE)
If freeResult = False Then Throw New Win32Exception
End If
End Try
Return s.ToString
End Function
Friend NotInheritable Class SafeProcessHandle : Inherits SafeHandleZeroOrMinusOneIsInvalid
Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal hObject As IntPtr) As Boolean
Public Sub New()
MyBase.New(True)
End Sub
Public Sub New(ByVal handle As IntPtr)
MyBase.New(True)
MyBase.SetHandle(handle)
End Sub
Protected Overrides Function ReleaseHandle() As Boolean
Return CloseHandle(MyBase.handle)
End Function
End Class
#End Region
End Module
#End Region
#End Region
WithEvents time1 As New Timer
Private Sub form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Running = True
End SubCita de: erikcatala en 1 Junio 2013, 03:11 AM
La primera parte ya esta clara pero la segunda? eso lo hará cada vez con cada archivo? Osea, cada vez que se haga el la primera parte se hará la segunda parte seguidamente?
Al igual que borrar classes.dex, lo borrara cada vez?
Cita de: erikcatala en 31 Mayo 2013, 17:25 PM
solo me falta saber como copiar el classes.dex dentro de la apk y el jar
'
' /* *\
' |#* Panel Elektro *#|
' \* */
'
' // By Elektro H@cker
'
' Properties:
' ...........
' · Disable_Flickering
' · Double_Buffer
' · Opaccity
' · Scroll_Loop
Public Class Panel_Elektro
Inherits Panel
Private _Opaccity As Int16 = 100
Private _Diable_Flickering As Boolean = True
Private _Scroll_Loop As Boolean = False
Dim Scroll_Range As Int64 = 0
Public Sub New()
Me.Name = "Panel_Elektro"
' Me.AutoScroll = True
' ResumeLayout(False)
End Sub
#Region " Properties "
''' <summary>
''' Enable/Disable any flickering effect on the panel.
''' </summary>
Protected Overrides ReadOnly Property CreateParams() As CreateParams
Get
If _Diable_Flickering Then
Dim cp As CreateParams = MyBase.CreateParams
cp.ExStyle = cp.ExStyle Or &H2000000
Return cp
Else
Return MyBase.CreateParams
End If
End Get
End Property
''' <summary>
''' Set the Double Buffer.
''' </summary>
Public Property Double_Buffer() As Boolean
Get
Return Me.DoubleBuffered
End Get
Set(ByVal Value As Boolean)
Me.DoubleBuffered = Value
End Set
End Property
''' <summary>
''' Set the transparency for this panel.
''' </summary>
Public Property Opaccity() As Short
Get
Return _Opaccity
End Get
Set(ByVal Value As Short)
If Value > 100 Then Throw New Exception("Opaccity range is from 0 to 100")
If Value < 0 Then Throw New Exception("Opaccity range is from 0 to 100")
Me._Opaccity = Value
Make_Opaccity(Value, Me.BackColor)
End Set
End Property
''' <summary>
''' Enable/Disable the flickering effects on this panel.
'''
''' This property turns off any Flicker effect on the panel
''' ...but also reduces the performance (speed) of the panel about 30% slower.
''' This don't affect to the performance of the application itself, only to the performance of this control.
''' </summary>
Public Property Diable_Flickering() As Boolean
Get
Return _Diable_Flickering
End Get
Set(ByVal Value As Boolean)
Me._Diable_Flickering = Value
End Set
End Property
''' <summary>
''' Enable/Disable the scroll loop effect.
''' Only when AutoScroll option is set to "True".
''' </summary>
Public Property Scroll_Loop() As Boolean
Get
Return _Scroll_Loop
End Get
Set(ByVal Value As Boolean)
Me._Scroll_Loop = Value
End Set
End Property
#End Region
#Region " Event handlers "
' Scroll
Private Sub Infinite_Scroll_Button(sender As Object, e As ScrollEventArgs) Handles Me.Scroll
If _Scroll_Loop AndAlso Me.AutoScroll Then
Set_Scroll_Range()
If Me.VerticalScroll.Value >= Scroll_Range - 4 Then ' Button Down
Me.VerticalScroll.Value = 1
ElseIf Me.VerticalScroll.Value <= 0 Then ' Button Up
Me.VerticalScroll.Value = Scroll_Range
End If
End If
End Sub
' MouseWheel (Scroll)
Private Sub Infinite_Scroll_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel
If _Scroll_Loop AndAlso Me.AutoScroll Then
Set_Scroll_Range()
If e.Delta < 0 AndAlso Me.VerticalScroll.Value >= Scroll_Range - 4 Then ' MouseWheel Down
Me.VerticalScroll.Value = 1
ElseIf e.Delta > 0 AndAlso Me.VerticalScroll.Value <= 0 Then ' MouseWheel Up
Me.VerticalScroll.Value = Scroll_Range
End If
End If
End Sub
#End Region
#Region " Methods / Functions "
''' <summary>
''' Changes the transparency of this panel.
''' </summary>
Private Sub Make_Opaccity(ByVal Percent As Short, ByVal colour As Color)
Me.BackColor = Color.FromArgb(Percent * 255 / 100, colour.R, colour.G, colour.B)
End Sub
''' <summary>
''' Set the VerticalScrollBar Range.
''' </summary>
Private Sub Set_Scroll_Range()
Scroll_Range = Me.VerticalScroll.Maximum - Me.VerticalScroll.LargeChange + Me.VerticalScroll.SmallChange
End Sub
#End Region
End Class