Códigos Usado No Visual Basic

[Biel]

Verificar Internet:

MsgBox(My.Computer.Network.IsAvailable)

Verificar se o arquivo existe na pasta:

Em cima de public class coloque esse codigo
Imports System.IO


coloque esse comando em um buton ou aonde voce quizer no form...
IO.File.Exists("c:\teste.txt")

Obter nome entre outras coisas do pc: obs: eu testei a verificaçao de bits do pc e nao está funcional:

MsgBox(My.Computer.Info.OSFullName)
MsgBox(My.Computer.Info.OSPlatform.ToString)
MsgBox(My.Computer.Info.OSVersion.ToString)

Fechar programa:

me.close

Desligar/Logoff/Reiniciar o pc:

'Desliga o Computador
System.Diagnostics.Process.Start("shutdown", "-s -t 00")


'Reinicia o Computador
System.Diagnostics.Process.Start("shutdown", "-r -t 00")


'Faz LogOff no Computador
System.Diagnostics.Process.Start("shutdown", "-l -t 00")

Baixar arquivos para o pc:

My.Computer.Network.DownloadFile("Aqui o link", "Aqui o nome como será baixado")

Abrir outra form:

''form2.show ou form3.show e assim vai, depende do numero da form que voce quer abrir

Abrir pagina na web:

Process.Start("coloque o link aqui")

Mostrar mensagem:

messagebox.show(" Coloque uma mensagem aqui ")

Extrair injetando:

Public Class Form1


Private TargetProcessHandle As Integer
Private pfnStartAddr As Integer
Private pszLibFileRemote As String
Private TargetBufferSize As Integer


Public Const PROCESS_VM_READ = &H10
Public Const TH32CS_SNAPPROCESS = &H2
Public Const MEM_COMMIT = 4096
Public Const PAGE_READWRITE = 4
Public Const PROCESS_CREATE_THREAD = (&H2)
Public Const PROCESS_VM_OPERATION = (&H8)
Public Const PROCESS_VM_WRITE = (&H20)
Dim DLLFileName As String
Public Declare Function ReadProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer


Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _
ByVal lpLibFileName As String) As Integer


Public Declare Function VirtualAllocEx Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpAddress As Integer, _
ByVal dwSize As Integer, _
ByVal flAllocationType As Integer, _
ByVal flProtect As Integer) As Integer


Public Declare Function WriteProcessMemory Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpBaseAddress As Integer, _
ByVal lpBuffer As String, _
ByVal nSize As Integer, _
ByRef lpNumberOfBytesWritten As Integer) As Integer


Public Declare Function GetProcAddress Lib "kernel32" ( _
ByVal hModule As Integer, ByVal lpProcName As String) As Integer


Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _
ByVal lpModuleName As String) As Integer


Public Declare Function CreateRemoteThread Lib "kernel32" ( _
ByVal hProcess As Integer, _
ByVal lpThreadAttributes As Integer, _
ByVal dwStackSize As Integer, _
ByVal lpStartAddress As Integer, _
ByVal lpParameter As Integer, _
ByVal dwCreationFlags As Integer, _
ByRef lpThreadId As Integer) As Integer


Public Declare Function OpenProcess Lib "kernel32" ( _
ByVal dwDesiredAccess As Integer, _
ByVal bInheritHandle As Integer, _
ByVal dwProcessId As Integer) As Integer


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Integer


Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" ( _
ByVal hObject As Integer) As Integer
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)


Private Sub Inject()
Dim TargetProcess As Process() = Process.GetProcessesByName("BlackShot")
Dim lpThreadId As IntPtr
Try
TargetProcessHandle = OpenProcess(&H1F0FFF, 0, TargetProcess(0).Id)
pszLibFileRemote = ("C:\Windows\System32\nomedasuadll.dll")
pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
TargetBufferSize = 1 + Len(pszLibFileRemote)
Dim Rtn As Integer
Dim LoadLibParamAdr As Integer
LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, lpThreadId)
If lpThreadId = IntPtr.Zero Then
Else
End If
Catch ex As Exception
End Try
End Sub


'####################
'Extrair e verificar
'####################
IO.File.WriteAllBytes("C:\Windows\System32\nomedas uadll.dll", My.Resources.nomedasuadllnoresources) 'extrair dll no System32
If IO.File.Exists("C:\Windows\System32\nomedasuadll.d ll") Then 'verificar se a dll está no system32 se não estiver
Timer4.Start()


Else
IO.File.WriteAllBytes("C:\Windows\System32\nomedas uadll.dll", My.Resources.nomedasuadllnoresources) ' se a dll não estiver no system32,a dll em resources, vai ser extraida.


End If


'####################
'Extrair e verificar
'####################
Dim TargetProcess As Process() = Process.GetProcessesByName("BlackShot") 'verificar se o processo está aberto
If TargetProcess.Length = 0 Then
Me.Label9.Text = ("Esperando por BlackShot ...") 'se não estiver.


Else
Call Inject() 'injetarDLL 'Inject = Private Sub Inject()
End If

Colocando musica:

My.Computer.Audio.Play(My.Resources.Coloque a musica aqui,
AudioPlayMode.BackgroundLoop)

Deletar arquivo da pasta:

IO.File.Delete("LocalDaDllPC")

Mesagem "Deseja realmente fechar o form?" :

If MsgBox("Deseja fechar?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Me.Close()
else
end if

Finalizar processos:

Dim processo As Process() = Process.GetProcessesByName("Nome Do Processo")
For Each p In processo
p.Kill()
Next

Verificar se foi aberto como adm:

If My.User.IsInRole(ApplicationServices.BuiltInRole.A dministrator) Then
MsgBox("O Programa foi aberto como administrador!!!")
Else
MsgBox("O Programa deve ser aberto como Administrador!! o programa sera fechado!")
Me.Close()
End If

Crypter para vb:

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography


Public Class Crypto


Public Shared Function Decrypt(ByVal input As String, ByVal pass As String) As String
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvi der
Dim decrypted As String = ""
Try
Dim hash(31) As Byte
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASC II.GetBytes(pass))
Array.Copy(temp, 0, hash, 0, 16)
Array.Copy(temp, 0, hash, 15, 16)
AES.Key = hash
AES.Mode = Security.Cryptography.CipherMode.ECB
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
Dim Buffer As Byte() = Convert.FromBase64String(input)
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecry pter.TransformFinalBlock(Buffer, 0, Buffer.Length))
Return decrypted
Catch ex As Exception
End Try
End Function


End Class


Protection vb:
#Region "Process Protection"
Public Const SE_DEBUG_NAME As String = "SeDebugPrivilege"
Public Const SE_SHUTDOWN_NAME As String = "SeShutdownPrivilege"
Public Const SE_SECURITY_NAME As String = "SeSecurityPrivileges"
Public Const SE_TCB_NAME As String = "SeTcbPrivileges"
Public Const SE_TAKE_OWNERSHIP_NAME As String = "SeTakeOwnershipPrivileges"


Private Structure LUID
Public LowPart As Integer
Public HighPart As Integer
End Structure


Private Structure LUID_AND_ATTRIBUTES
Public pLuid As LUID
Public Attributes As Integer
End Structure


Private Structure TOKEN_PRIVILEGES
Public PrivilegeCount As Integer
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=ANYSIZE_ARRAY)> _
Public Privileges() As LUID_AND_ATTRIBUTES
End Structure


Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Ansi Function OpenProcessToken Lib "advapi32.dll" (ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, ByRef TokenHandle As IntPtr) As Integer
Private Declare Ansi Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" (ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Integer
Private Declare Ansi Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Boolean, ByRef NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Integer, ByRef PreviousState As TOKEN_PRIVILEGES, ByRef ReturnLength As IntPtr) As Integer
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
Public Declare Sub RtlSetProcessIsCritical Lib "ntdll.dll" (ByVal NewValue As Boolean, ByVal OldValue As Boolean, ByVal WinLogon As Boolean)


Private Const TOKEN_ADJUST_PRIVILEGES As Integer = &H20
Private Const TOKEN_QUERY As Integer = &H8
Private Const SE_PRIVILEGE_ENABLED As Integer = &H2
Private Const ANYSIZE_ARRAY As Integer = 1


Public Function GetPrivileges(ByVal privileges As String) As Boolean
Dim hToken As IntPtr
Dim hProcess As IntPtr = Process.GetCurrentProcess().Handle
Dim uid_Debug As LUID
Dim luaAttr As New LUID_AND_ATTRIBUTES
Dim newState As New TOKEN_PRIVILEGES
Dim prevState As TOKEN_PRIVILEGES = New TOKEN_PRIVILEGES
Dim returnLength As IntPtr


Try
If LookupPrivilegeValue("", privileges, uid_Debug) = 0 Then Return False
If OpenProcessToken(hProcess, TOKEN_ADJUST_PRIVILEGES Or TOKEN_QUERY, hToken) = 0 Then Return False
luaAttr.pLuid = uid_Debug
luaAttr.Attributes = SE_PRIVILEGE_ENABLED
newState.PrivilegeCount = 1
newState.Privileges = New LUID_AND_ATTRIBUTES() {luaAttr}
ReDim prevState.Privileges(CInt(newState.PrivilegeCount) )
If AdjustTokenPrivileges(hToken, False, newState, Marshal.SizeOf(prevState), prevState, returnLength) = 0 Then Return False
Finally
CloseHandle(hToken)
End Try
Return True
End Function
#End Region






Coloque isso no FormLoad:
Código:
GetPrivileges(SE_SECURITY_NAME)
RtlSetProcessIsCritical(True, False, False)

Gerar Cor :

Dim random As New Random
Label1.ForeColor = Color.FromArgb(random.Next(0, 255), random.Next(0, 255), random.Next(0, 255), random.Next(0, 255))

Alterar Cor :

Exemplo: .ForeColor = Color.Cor

Facebook Ant Lech :

[Somente membros podem ver os links. ]

Mensagens :

msgbox("Texto ")
MsgBox("Texto", MsgBoxStyle.Exclamation, "Texto ")
MsgBox("Seja Bem Vindo(A) " & TextBox1.Text, vbInformation)
MsgBox("Login ou senha incorretos", vbExclamation)

Abrir Link Navegador :

System.Diagnostics.Process.Start("Site")
Process.Start("Link")

Retirando UC :

On Error Resume Next

Lembrando TextBox :

On Error Resume Next
TextBox1.Text = My.Settings.usuario
TextBox2.Text = My.Settings.senha
CheckBox1.Checked = My.Settings.check
CheckBox2.Checked = My.Settings.check2
If CheckBox1.Checked = False Then
Timer1.Stop()
TextBox1.Clear()
TextBox2.Clear()
Else
Timer1.Start()
End If
CheckBox
If CheckBox1.Checked = True Then
My.Settings.check = True
Timer1.Start()
Else
My.Settings.check = False
Timer1.Stop()
End If


Timer


My.Settings.usuario = TextBox1.Text
My.Settings.senha = TextBox2.Text
My.Settings.Save()
My.Settings.check = CheckBox1.Checked

Mostrar Senha :

CheckBox


If CheckBox2.Checked Then
TextBox2.PasswordChar = ""
Else
TextBox2.PasswordChar = "*"
End If
My.Settings.check2 = CheckBox2.Checked
End Sub

Mandar para systemtray :

NotifcyIco
ContextMenuStrip
Me.Show()
Button
Me.Hide()
NotifyIcon1.BalloonTipTitle = "Hey"
NotifyIcon1.BalloonTipText = "Eu estou aqui ainda em!" & vbNewLine & _
"Mas nesse cantinho ^^" & vbNewLine & "Não vá se esquecer de min !"
NotifyIcon1.ShowBalloonTip(500)
NotifyIcon1.Visible = True

Login Fórum :

Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Dim data As String
Public Function Login(ByVal Username As String, ByVal Password As String)
data = "vb_login_username=" & Username & "&vb_login_password=&s=&do=login&vb_login_md5passw ord=" & Password & "&vb_login_md5password_utf=" & MD5(Password)
Try
Dim request As HttpWebRequest = WebRequest.Create("link forum")
request.Method = WebRequestMethods.Http.Post
request.ContentType = "application/x-www-form-urlencoded"
request.ContentLength = data.Length
Dim rStream As New StreamWriter(request.GetRequestStream)
rStream.Write(data)
rStream.Flush()
rStream.Close()
Dim response As HttpWebResponse = request.GetResponse
Dim resReader As New StreamReader(response.GetResponseStream)
Dim str As String = resReader.ReadToEnd
If str.Contains("Bem-vindo(a),") Then
Return True
Else
Return False
End If
response.Close()
Catch ex As Exception
Return False
End Try
End Function
Friend Function MD5(ByVal number As String) As String
Dim ASCIIenc As New ASCIIEncoding
Dim strReturn As String = String.Empty
Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(number)
Dim Md5Hash As New MD5CryptoServiceProvider
Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
For Each b As Byte In ByteHash
strReturn &= b.ToString("x2")
Next
Return strReturn
End Function
End Module


----------------------------------------------------------------------------------------
Button :
If Login(TextBox1.Text, TextBox2.Text) = True Then
Form2.Show()
Me.Hide()


Else
MsgBox("Login ou Senha Incorretos, Tente Novamente!", MsgBoxStyle.Exclamation, "Erro")


End If

Gerar Caption / Titulo Form :

Dim Letters As New List(Of Integer)
For i As Integer = 48 To 57 'ASCII Code
Letters.Add(i)
Next
For i As Integer = 97 To 122 'Lower Case
Letters.Add(i)
Next
For i As Integer = 65 To 90 'Upper Case
Letters.Add(i)
Next
For i As Integer = 33 To 42 'Special Chars
Letters.Add(i)
Next
Dim rnd As New Random
Dim SB As New System.Text.StringBuilder
Dim Temp As Integer
For count As Integer = 1 To 15 'Amount
Temp = rnd.Next(0, Letters.Count)
SB.Append(Chr(Letters(Temp)))
Next
Me.Text = SB.ToString


Dim str As String = "u2R7y@U.@-Sl4KSZt8#fyyggggggC.4xh5[=M|/FUib25 L~*My1'281_L'.-%~A3?????????????????????????????????????????????? ???????????wwweeWw!@ª$º*+/?=_-:';()•©¢%€€½^^~°&&&#|?]{};::''_??+++????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ?????????????????????????????????????????????????? ????????????™®©?????????????????????^_~;-):-)^_^^0^:-D;P:-P:PU_U:[):>"<>:-OO.O:-():-S^o^~_~<3^3^:-x=/X_X:/:/?????????????????????????????????????????????????? ??????J!h^0uzUd3T03=((10}V/D6%v l9N@l6!vOTu43q"
Dim r As New Random


For i As Integer = 1 To 18
Dim idx As Integer = r.Next(0, 35)
sb.Append(str.Substring(idx, 1))
Next
Me.Text = sb.ToString

Ativar Por Teclas :

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer


Em um Timer Coloque : True / Interval = 1]


If GetKeyPress(Keys.ControlKey) Then
Timer1.Start
Else
Timer1.Stop
End If

VB.NET Sistema de Login – Simples :

If TextBox1.Text = "login123" And TextBox2.Text = "senha123" Then
Me.Hide()
Form2.Show()
'Se o Login e Senha for correspondente ao TextBox1 e TextBox2, Ira Abrir o Form2.
Else
MessageBox.Show("Login ou Senha estão Incorretos!")
'Se o login e Senha estiverem errados, Ira exibir uma caixa de mensagem.
End If

[VB.NET] Contar tique-taque do Timer :

Dim contagem As Integer = 0
contagem = contagem + 1
Label1.Text = contagem

Att: Biel
Estou deixando esses codicos Aqui para quem Intende De Visual Basic.
Player : Mais Biel e quem Nao Itende ?
Biel : Em Breve estarei dando tutorias Para Ensinar voces .