Hacks & Cheats

Hacks & Cheats Melhor site de hacking para mu online da net.


Você não está conectado. Conecte-se ou registre-se

Ver o tópico anterior Ver o tópico seguinte Ir em baixo Mensagem [Página 1 de 1]

#1 em Seg Jul 29, 2013 12:38 am

Bom resolvi postar alguns códigos em vb.net

Sistema de login e senha iniciante:


Código:
   If TextBox1.Text = "login" And TextBox2.Text = "senha" Then
            MsgBox("Logado Com Sucesso")
            Form quando for logado abrir.Show()
            Me.Hide()

        Else
            MsgBox("Senha ou login invalidos")
        End If

Apagando arquivos:

Código:
Dim fso
        fso = CreateObject("Scripting.FileSystemObject")
        fso.DeleteFile("C:\WINDOWS\Local do arquivo")

Quebrar linha de MsgBox , Ir para proxima linha

Código:
MessageBox.Show("Texto linha 1" + vbCrLf + "Texto Linha 2")

Guardar Local do Windows

Código:
If Me.WindowState = FormWindowState.Normal Then My.Settings.WindowLocation = Me.Location
End If

Ver esta Caps Lock esta Ativa/Desativada:

Código:
If My.Computer.Keyboard.CapsLock = True Then MsgBox("Caps Lock Está Ativada!")
Else
MsgBox("Caps Lock Está Desativada!")
End If

Form transparente ao mover:

Código:
  Private Const WM_NCLBUTTONDOWN As Long = &HA1
    Private Const WM_NCLBUTTONUP As Long = &HA0
    Private Const WM_MOVING As Long = &H216
    Private Const WM_SIZE As Long = &H5
    Protected Overrides Sub DefWndProc(ByRef m As System.Windows.Forms.Message)
        Static LButtonDown As Boolean
        If CLng(m.Msg) = WM_NCLBUTTONDOWN Then
            LButtonDown = True
        ElseIf CLng(m.Msg) = WM_NCLBUTTONUP Then
            LButtonDown = False
        End If
        If LButtonDown Then
            If CLng(m.Msg) = WM_MOVING Then
                If Me.Opacity <> 0.9 Then Me.Opacity = 0.5
            ElseIf CLng(m.Msg) = WM_SIZE Then
                If Me.Opacity <> 0.6 Then Me.Opacity = 0.6
            End If
        ElseIf Not LButtonDown Then
            If Me.Opacity <> 1.0 Then Me.Opacity = 1.0
        End If
        MyBase.DefWndProc(m)


Apertar tecla do windows desejada:

Código:
SendKeys.SendWait("{ENTER}")

Remover borda ao clicar no iten [button] ou algo desejado:

Código:
 Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

Tecla de atalho

Abaixo do Public Class declare:

Código:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Integer) As Integer  

Em um timer adicione:

Código:
 Dim hotkey As Boolean

 hotkey = GetAsyncKeyState(Keys.A)

 'Mude a tecla A Para qual você quizer , ali em Keys.A
      
 If hotkey = True Then
            ' Seu Codigo Aki
        End If  

Abrindo Site no navegador padrão:

Código:
Process.start("Link desejado")

Fexando Processo , pausando , resumindo:
Declare isto abaixo do public class

Código:
Declare Function SuspendThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Declare Function ResumeThread Lib "kernel32.dll" (ByVal hThread As IntPtr) As UInteger
Public Declare Function OpenThread Lib "kernel32.dll" (ByVal dwDesiredAccess As ThreadAccess, ByVal bInheritHandle As Boolean, ByVal dwThreadId As UInteger) As IntPtr
Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean

Public Enum ThreadAccess As Integer
TERMINATE = 1
SUSPEND_RESUME = 2
GET_CONTEXT = 8
SET_CONTEXT = 16
SET_INFORMATION = 32
QUERY_INFORMATION = 64
SET_THREAD_TOKEN = 128
IMPERSONATE = 256
DIRECT_IMPERSONATION = 512
End Enum

Private Sub ResumeProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
ResumeThread(th)
CloseHandle(th)
End If
Next
End Sub

Private Sub SuspendProcess(ByVal process As System.Diagnostics.Process)
For Each t As ProcessThread In process.Threads
Dim th As IntPtr
th = OpenThread(ThreadAccess.SUSPEND_RESUME, False, t.Id)
If th <> IntPtr.Zero Then
SuspendThread(th)
CloseHandle(th)
End If
Next
End Sub

Pausando Processo:

Código:
Dim note As Process() = Process.GetProcessesByName("Nome do Processo")
SuspendProcess(note(0))

Resumindo:

Código:
Dim note As Process() = Process.GetProcessesByName("Nome do processo")
ResumeProcess(note(0))

Fexando processo:

Código:
Dim Processos As Process() = Process.GetProcessesByName("Nome do processo")
For Each Processo As Process In Processos
Processo.Kill()
Next

Baixando arquivos de link

My.Computer.Network.DownloadFile _
("Link De Download , Lembrando Direto", _
"Nome do arquivo seja .exe , .rar Exemplo: arquivo.exe")
Process.Start("Nome do arquivo novamente para quando terminar o download abrir ele ex: arquivo.exe")

Bom é isso galera espero que gostem.
Creditos:
SCOLFIELD



[Você precisa estar registrado e conectado para ver esta imagem.]

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo Mensagem [Página 1 de 1]

Permisos de este foro

Permissão deste fórum:
Você não pode responder aos tópicos neste fórum