Bem-vindo ao Fórum!

Registre-se agora mesmo e fique por dentro da maior comunidade de Cheats do Brasil!

thelucasms2

Códigos úteis

Recommended Posts

Verificar Rede

 

MsgBox(My.Computer.Network.IsAvailable) 

 

Verificar se o arquivo existe na pasta:

 

'Fazer essa import abaixo

Imports System.IO

--------------------------------------------

IO.File.Exists("c:\teste.txt")

 

Desligar/Logoff/Reiniciar

 

'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

 

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

 

Abrir página da Web/Local

 

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

 

Deletar arquivo

 

IO.File.Delete("Local do arquivo")

 

Verificar se o programa foi aberto como administrador

 

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    

 

Mostrar senha

 

CheckBox


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

 

Enviar para systemtray (balãozinho da barra de tarefas)

 

    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 mim!"
NotifyIcon1.ShowBalloonTip(500)
NotifyIcon1.Visible = True    

 

Contar Timer

 

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

 

Form transparente ao mover

 

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)

 

Minimizar e Maximizar Form

 

Me.WindowState = FormWindowState.Minimized

Me.WindowState = FormWindowState.Maximized

 

Colocar delay ou pausa para o próximo código a ser executado

 

Threading.Thread.Sleep(5000)

 

Gerador numérico

 

Dim alfabeto As String = ""
For I = 65 To 90
           alfabeto += Chr(I)
       Next


       Dim numero As New Random
       'Função "numero aleatório"
       Dim senha As String = ""
       senha = numero.Next(1, 9999).ToString("0000")
       'Aqui gera os digitos aleatórios 'quanto mais NOVES mais algarismos numéricos
       'Para adicionar algo a mais use as aspas depois das aspas do ZERO
       'Ex:"("0000""HEY")
       TextBox1.Text = senha
       'Aqui é a saída

 

Gerador de CPF válido

 

MaskedTextBox1.Mask = Nothing        Dim rnd1 As New Random()
       Dim strCpf As [string] = ""
       Dim cpf As Integer() = New Integer(10) {}
       Dim cpfMul As Integer() = New Integer(10) {}
       Dim i As Integer, somatoria As Integer = 0, digito1 As Integer, digito2 As Integer
       'Gera um CPF aleatorio sem umd digito verificador
       For i = 0 To 8
           cpf(i) = rnd1.[Next](9)
       Next
       'Começa a gerar o primeiro digito
       'Faz a multiplicação do cpf
       For i = 0 To 8
           cpfMul(i) = cpf(i) * (10 - i)
       Next
       'Faz a somatoria dos numeros do cpf
       For i = 0 To 8
           somatoria += cpfMul(i)
       Next
       digito1 = somatoria Mod 11
       'pega o resto da divisão da somatoria
       'se o resto da divisão da somatoria for <= 2
       If digito1 < 2 Then
           'então o digito tem que ser 0
           digito1 = 0
Else
           'senão subtrai o resto de 11 e temos o digito verificador 1
           digito1 = 11 - digito1
       End If
       cpf(9) = digito1
       'armazenamos o digito verificador 1 no cpf
       'Começo da geração do segundo digito verificador
       'Como no primeiro digito faremos a multiplicação só que dessa vez por 11-i
       For i = 0 To 9
           cpfMul(i) = cpf(i) * (11 - i)
       Next
       somatoria = 0
       'zera a somatoria para não pegar o resultado anterior;
       'Faz a somatoria dos numeros do cpf(incluindo o digito verificador 1)
       For i = 0 To 9
           somatoria += cpfMul(i)
       Next
       'pega o resto da divisão da somatoria por 11
       digito2 = somatoria Mod 11
       'se o resto da divisão da somatoria for <= 2
       If digito2 < 2 Then
           'então o digito tem que ser 0
           digito1 = 0
       Else
           'senão subtrai o resto de 11 e temos o digito verificador 1
           digito2 = 11 - digito2
       End If
       cpf(10) = digito2
       For i = 0 To 10
           strCpf = strCpf & Convert.ToString(cpf(i))
       Next
       MaskedTextBox1.Text = strCpf
   End Sub

 

Pingar uma URL

 

MsgBox(My.Computer.Network.Ping("www.google.com",1000)

 

Exibir resolução do vídeo

 

MsgBox("A resolução é: " & My.Computer.Screen.Bounds.Width.ToString & "x" & _
My.Computer.Screen.Bounds.Height.ToString & " Pixels")

 

Obter o nome completo, a plataforma e a versão do sistema operacional

 

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

 

Obter a quantidade de memória física disponível e a memória virtual

 

MsgBox(" ´Memória Física disponível: " & My.Computer.Info.AvailablePhysicalMemory.ToString & " bytes")

MsgBox(" ´Memória Virtual disponível: " & My.Computer.Info.AvailableVirtualMemory.ToString & " bytes")

 

Gerador de número aleatório com opções

 

Dim r As Random = New Random
'Obtem o numéro aleatório no intervalo de um valor inteiro
MsgBox(r.Next())

'Gera número aleatório de 0 até o máximo definido.No caso não deve ser maior que 20
MsgBox(r.Next(20))

'Gera no aleatório entre o mínimo e o máximo definidos.
MsgBox(r.Next(10, 15))

 

Obter o caminho da aplicação com o nome do arquivo

 

Dim appPathFilename As String
appPathFilename = System.Windows.Forms.Application.ExecutablePath
MessageBox.Show(appPathFilename)

 

Obter o caminho da aplicação sem o nome do arquivo

 

Dim appPath As String
appPath = System.Windows.Forms.Application.StartupPath
MessageBox.Show(appPath)

 

Listar todas as fontes disponíveis

 

Dim f As System.Drawing.Text.InstalledFontCollection = New System.Drawing.Text.InstalledFontCollection
Dim fFamily As FontFamily

For Each fFamily In f.Families
lst.Items.Add(fFamily.Name)
Next

 

Verificar se o diretório existe

 

Imports System.IO

Dim dir As IO.Directory
MessageBox.Show(dir.Exists("c:\"))

 

Data e hora atual

 

MessageBox.Show(Date.Now)

 

Tratamento de erro Básico com Try/Catch

 

Código:
Imports System.IO
Dim f As IO.File

Try
f.Open("C:\ArquivoNaoExiste.txt", IO.FileMode.Open) 'lança uma exceção de arquivo não encontrado
Catch exc As Exception
MessageBox.Show(exc.Message, " Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 'descrição do erro
End Try

 

Incluir cores em um ListBox/ComboBox

 

Imports System.Drawing

Dim cor As corConhecida
For cor = corConhecida.AliceBlue To corConhecida.YellowGreen
cmbColor.Items.Add(cor)
Next

 

Para transferir para a WebBrowser

 

WebBrowser1.Document.GetElementById("id").SetAttribute("value", TextBox1.Text)

 

Para receber da WebBrowser

WebBrowser1.Document.GetElementById("id").GetAttribute("value")

Iniciar navegador em modo anonimo

 

Shell("C:\Users\User1\AppData\Local\Google\Chrome\Application\chrome.exe -incognito www.google.com")

Desconectar rede

 

Shell("ipconfig /release")

 

Re-conectar a rede

 

Shell("ipconfig /renew")

 

Checkbox para timer

 

 If CheckBox1.Checked = True Then
           Timer1.Start()
       Else
           Timer1.Stop()
       End If

 

Quebra linha MsgBox

 

MessageBox.Show("Linha 1" + vbCrLf + "Linha 2")

 

Verificando CapsLock

 

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

 

Desligar monitor

 

SendMessage(Application.Handle, WM_SYSCOMMAND,SC_MONITORPOWER, 2);

 

 

Créditos: Google

  • Like 1

Share this post


Link to post
Share on other sites

Pois é né coleguinha, essa é a ideia, selecionar de todos os posts e colocar em um, existem mais códigos aí, basta você enxergar hihi

 

Acho incrível como você tem a capacidade de procurar as coisas só pra tentar me derrubar, mas relaxa, tudo que vai, volta!

  • Like 1

Share this post


Link to post
Share on other sites

?

Pois é né coleguinha, essa é a ideia, selecionar de todos os posts e colocar em um, existem mais códigos aí, basta você enxergar hihi

 

Acho incrível como você tem a capacidade de procurar as coisas só pra tentar me derrubar, mas relaxa, tudo que vai, volta!

Derrubar não , só farmar post mesmo


5EX6N7o.jpg

Share this post


Link to post
Share on other sites

Ótimo tópico mano, irá me ajudar muito!


"O conhecimento passou a ser a maior riqueza!"

Share this post


Link to post
Share on other sites

Parabéns pela contribuição vai me ajudar muito no meu aprendizado.


Ninguém é tão grande para que não possa aprender, nem tão pequeno que não possa ensinar.

ASSINATURA.png

Share this post


Link to post
Share on other sites

Farm de post... e ainda pegou code da source dos outros aqui na WC que já foram postadas e colocou os créditos como: GOOGLE


BUMBLE BEE

Share this post


Link to post
Share on other sites
Farm de post... e ainda pegou code da source dos outros aqui na WC que já foram postadas e colocou os créditos como: GOOGLE

Ta bom ForeverMarshall, volta pra produção de cheats pra CF com o gordon, abraço!

 

O tópico é relativo, posto justamente os códigos em base de seleção dos melhores, é a mesma coisa que eu postar um cheat com a mesma função de um outro, os códigos são iguais mesmo, porém não é pq você tem um post com o código igual que você é dono do código, aliás muitos preferem dar de cara com posts igual esse e não procurar os de 10 anos atrás.

Share this post


Link to post
Share on other sites
Ta bom ForeverMarshall, volta pra produção de cheats pra CF com o gordon, abraço!

 

O tópico é relativo, posto justamente os códigos em base de seleção dos melhores, é a mesma coisa que eu postar um cheat com a mesma função de um outro, os códigos são iguais mesmo, porém não é pq você tem um post com o código igual que você é dono do código, aliás muitos preferem dar de cara com posts igual esse e não procurar os de 10 anos atrás.

Ele não é o ForeverMarshall , o ForeverMarshall é o ForeverCodec :)


5EX6N7o.jpg

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.