null .

Posso ajudar, amigo!

Vamos aos fatos, você utilizou o cheat, foi detectado no seu computador que utilizava ambas as contas, ou seja, além de tomar um ban de HWID, suas contas pela qual jogava no computador também foram de F, pelo que me lembro o ban de HWID dura até 4 meses, após isso você pode voltar a jogar com uma conta nova, já as contas banidas por uso de cheat, sinto muito, se foi de permanente já era!

-> PhasmoMenu criado por PappyG <- Trago este MOD MENU criado por PappyG e deixo todos os créditos ao mesmo, apenas repostando por se tratar de um CHEAT muito bom e funcional. DISCORD dele -> PappyG#2459 MOD MENU PARA PHASMOPHOBIA ATT 13/07/2023 LINK PARA DOWNLOAD FONTE E TÓPICO ORIGINAL RETIRADO: SCAN: [Hidden Content] Se o menu estiver aprovado no momento, mas não estiver funcionando, provavelmente está sendo bloqueado pelo seu antivírus! Tente verificar seu histórico de proteção/lista de quarentena em seu antivírus e certifique-se de que nada para PhasmoMenu/CheatEngine esteja sendo bloqueado. Se isso não funcionar, exclua o menu e, na segurança do Windows, exclua a pasta de downloads e baixe o PhasmoMenu novamente. Abra o Phasmophobia PRIMEIRO, depois abra o PhasmoMenu SEGUNDO, se qualquer um travar, feche ambos e abra novamente.Janela principal Minimiza durante o jogo. Para abrir esta janela novamente, você pode Alt+Tab ou apenas clicar no topo de qualquer janela visível. O menu foi convertido em um arquivo .EXE para tentar facilitar as coisas. Prós: - Você não precisa mais baixar o CheatEngine, ele agora estará integrado ao arquivo EXE. - Você não precisa mais esperar até carregar no lobby principal antes de abrir o menu. - Torna a atualização do menu/ignorando a detecção CE muito mais fácil. Contras: - Você provavelmente precisará permitir o arquivo EXE em seu antivírus porque o CheatEngine será integrado. (Isso também vale para todas as novas versões) - Pode ser necessário criar uma pasta de exclusão para o exe do PhasmoMenu, para que não seja constantemente chamado de vírus pelo seu antivírus. ForceCursedItem não está funcionando corretamente em jogos multiplayer, use com cuidado! (Como alternativa, você pode ver o item amaldiçoado antes do início do jogo. O objeto amaldiçoado mudará toda vez que você pressionar apply no Menu de Dificuldade.) PhasmoMenu v0.5.0.5Alterações:- Corrigido 'PickupBone'- Corrigido 'ChangeFavRoom'

Poisé, tenho anos de conta também... fui mod de outros fóruns, WC tinha um grande potencial, seria legal me dar a chance de trocar meu nome que nunca consegui e pelo menos um membro antigo kkkk

Inteligente e Rico Bonito?

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.

Voto no tema livre

Hahahah ele me escutou, boa brother, muito obrigado!

Geralmente alguns textos e links ficam escondidos depois do href:= pra pegar so essa url que fica depois, o que faz?

Boa, mas tenho uma dúvida, se eu quiser pegar só depois do "href" por exemplo, utilizo apenas o que? Já pensou em pegar aqueles sites que fornecem Conta Bancária/CPF etc e puxar para um programa assim, tipo pra fazer contas NETFLIX entre outras coisas .. Muito bom, obrigado pelo conteúdo!

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!

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