
Tudo que Stigal postou
-
Visual Basic Decompiler - Download + Introdução
- Descrição: VB Decompiler - E um descompilador de programas (executaveis, DLL ou OCX) criados em Visual Basic 6.0. Como sabemos, programas criados pelo Visual Basic 6.0 podem ser compilados nas opcoes P-Code ou Codigo Nativo. - Como a opcao P-Code monta comandos de alto nivel, existe a real possibilidade de descompilar um executavel ate chegar ao codigo fonte (mas como regra, nome de variaveis, funcoes, etc. nao serao descompilados). VB Decompiler restaura muitas instrucoes em P-Code e fornece a opcao de inseri-las em um projeto do Visual Basic, criado automaticamente. O descompilador ira simplificar o problema do aprendizado da analise algoritmica e parcialmente resgatar o codigo fonte original. - Se um programa foi compilado em Codigo Nativo, a restauracao das instrucoes de maquina iniciais nao podem ser garantidas. Mas nesse caso, VB-Decompiler pode tambem ajudar na analise do programa. Ele contem um poderoso "Disassembler" que suporta comandos Pentium Pro incluindo MMX e SSE e permite desmontar qualquer funcao. VB-Decompiler possui tambem um analisador de codigo que procura todas as chamadas de funcao API. Outro recurso disponivel e a "Referencia de Strings", uma lista com todos os textos contidos no executavel (apos a descompilacao). - Em geral, VB-Decompiler e o significado ideal para analise de programa e é especialmente recomendado para os casos de perda do codigo fonte ou restauracao parcial do projeto. - Iniciando: Para iniciar a descompilacao voce precisa selecionar um programa (executavel EXE, DLL ou OCX) clicando em Open program no menu File. Selecione a pasta que contem o arquivo executavel e abra-o. O software confirmara a descompilacao. - - Pressione SIM (YES) para iniciar a descompilacao ou NAO (NO) para faze-lo mais tarde. Se for selecionado <<NAO>>, o nome do arquivo sera adicionado na caixa de texto FileName e quando for preciso descompila-lo basta clicar no botao Decompile (Descompilar). Apos a pesquisa completa, sera apresentada a seguinte mensagem... - - Agora voce pode iniciar a analise dos resultados. Leia sobre este processo dentro da guia Programs functions na ajuda - Se for necessario gerar o projeto para Visual Basic 6.0 para facilitar a analise, sera preciso selecionar o menu File, "Save decompiled project" e selecionar a pasta que contera o novo projeto (incluindo funcoes e modulos), exceto arquivos forms frx que salvam os icones de programas, objetos de formularios graficos e outros dados binarios que serao gerados automaticamente. - - Links: #Download: http://www.mediafire.com/?614g1yfag2ax1y3 #Mais Informações: http://www.vb-decompiler.org/help/pt/index.htm - - Atenciosamente, Stigal.
-
[Source+Tutorial] Visual Basic 2008 - Auto Update/Launcher
Irá precisar de:2 - Label 1 - ProgressBar - - Tutorial Programa:#Label: Label1 = Renomeie para "Atualizando :" Label2 = Deixe como está - #ProgressBar: Não é necessario modificar, deixe do tamanho que quiser. - - Tutorial Update:#Crie as pastas no seu FTP (Hospedagem) www\Update\ www\Update\Versao\ - Coloque os arquivos lá. Configure (NomePrograma1, NomePrograma2, NomePrograma3).exe , Links conforme seu ftp do seu jeito. - - Source/Código: Imports System.Net Imports System.Security.Cryptography Public Class Form1 Dim V_Programa As String = "" Dim V_Programa2 As String = "" Dim V_Programa3 As String = "" WithEvents wb As New WebClient Dim _arquivos As String Dim _arquivos1 As String Dim _arquivos2 As String Dim _arquivos3 As String Dim _arquivos4 As String Dim int As Integer = 0 WithEvents webclient1 As New WebClient WithEvents webclient2 As New WebClient WithEvents webclient3 As New WebClient WithEvents webclient4 As New WebClient WithEvents webclient5 As New WebClient WithEvents webclient6 As New WebClient WithEvents webclient7 As New WebClient Private Function getFileMd5(ByVal filePath As String) As String Dim File() As Byte = System.IO.File.ReadAllBytes(filePath) Dim Md5 As New MD5CryptoServiceProvider() Dim byteHash() As Byte = Md5.ComputeHash(File) Return Convert.ToBase64String(byteHash) End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load On Error Resume Next Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma2.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa2 = (Clipboard.GetDataObject().GetData(DataFormats.Text).ToString()) Clipboard.Clear() Else End If Clipboard.SetText(getFileMd5(Application.StartupPath & "\nomedoprograma3.exe")) If (Clipboard.GetDataObject().GetDataPresent(DataFormats.Text)) Then V_Programa3 = Clipboard.GetDataObject().GetData(DataFormats.Text).ToString() Clipboard.Clear() Else End If Dim versaodosite1 As String = webclient1.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma.php") If versaodosite1 = V_Programa Then Dim versaodosite2 As String = webclient2.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma2.php") If versaodosite2 = V_Programa2 Then Dim versaodosite3 As String = webclient3.DownloadString("http://MeuHost.party.lc/Update/Versao/nomedoprograma3.php") If versaodosite3 = V_Programa3 Then Label2.Text = "Não há novas atualizações!" ProgressBar1.Value = "100" MsgBox("Os arquivos ja estão atualizados!", MsgBoxStyle.Information, "") Me.Close() Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If Else Kill(Application.StartupPath & "\nomedoprograma.exe") Kill(Application.StartupPath & "\nomedoprograma2.exe") Kill(Application.StartupPath & "\nomedoprograma3.exe") UpdateWC() End If End Sub Private Sub wb_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles wb.DownloadFileCompleted int = +1 If _arquivos.Contains("[nomedoprograma]") Then _arquivos = _arquivos.Replace("[nomedoprograma]", "") Label2.Text = "nomedoprograma.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma.exe"), Application.StartupPath & "\nomedoprograma.exe") 'Caso queira adicionar mais 1 arquivo para download so subistituir ElseIf _arquivos2.Contains("[nomedoprograma2]") Then _arquivos2 = _arquivos2.Replace("[nomedoprograma2]", "") Label2.Text = "nomedoprograma2.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma2.exe"), Application.StartupPath & "\nomedoprograma2.exe") ElseIf _arquivos3.Contains("[nomedoprograma3]") Then _arquivos3 = _arquivos3.Replace("[nomedoprograma3]", "") Label2.Text = "nomedoprograma3.exe" wb.DownloadFileAsync(New Uri("http://MeuHost.party.lc/Update/nomedoprograma3.exe"), Application.StartupPath & "\nomedoprograma3.exe") ElseIf _arquivos4.Contains("[Cancel]") Then _arquivos4 = _arquivos4.Replace("[Cancel]", "") Label2.Text = "ATUALIZAÇÃO CONCLUIDA !" MsgBox("Atualização dos programas foram atualizadas com sucesso !", MsgBoxStyle.Information, "") Me.Close() Else MsgBox("Erro ao atualizar arquivos tente novamente mais tarde.", MsgBoxStyle.Critical, "") End If End Sub Private Sub UpdateWC() On Error Resume Next If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma.exe") Then _arquivos &= "[nomedoprograma]" Else _arquivos &= "[nomedoprograma]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma2.exe") Then _arquivos2 &= "[nomedoprograma2]" Else _arquivos2 &= "[nomedoprograma2]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos3 &= "[nomedoprograma3]" Else _arquivos3 &= "[nomedoprograma3]" End If If Not My.Computer.FileSystem.FileExists(Application.StartupPath & "\nomedoprograma3.exe") Then _arquivos4 &= "[Cancel]" Else _arquivos4 &= "[Cancel]" End If Call wb_DownloadFileCompleted(Nothing, Nothing) End Sub Private Sub wb_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles wb.DownloadProgressChanged ProgressBar1.Maximum = e.TotalBytesToReceive ProgressBar1.Value = e.BytesReceived End Sub End Class - - Resultado Final: - - Atenciosamente, Stigal.
- Tibia Clients TK
-
[Source+Tutorial] Visual Basic 2008 - Capturador de Tela
Irá precisar de:4 - Buttons 1- PictureBox 1- SaveFileDialog - - Tutorial:#Buttons: Button1 = Capturar Button2 = Salvar Imagem Button3 = Limpar/Apagar Button4 = Fechar programa - #PictureBox: Deixe do tamanho que desejar, de qualquer modo/tamanho o programa ira salvar a sua tela inteira. De um click e deixe a borda "Fixed3D" - #SaveFileDialog: Não precisa mexer! - - Agora é so dar 2 click no FORM1, Apagar tudo e adicionar o código completo. - - Source/Código: Public Class Form1 Dim timp As New DateTime() Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Me.Opacity = 0 Me.ShowInTaskbar = False timp = Now() Dim bounds As Rectangle Dim _tela As System.Drawing.Bitmap Dim graph As Graphics bounds = Screen.PrimaryScreen.Bounds _tela = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb) graph = Graphics.FromImage(_tela) graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy) PictureBox1.Image = _tela Me.Opacity = 100 Me.ShowInTaskbar = True Button2.Enabled = True Button3.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim filesavedialog1 As New SaveFileDialog SaveFileDialog1.Title = "Salvar tela" SaveFileDialog1.FileName = "tela_" & timp.ToString("HH-mm-dd-MM-yyyy") & ".png" SaveFileDialog1.Filter = "PNG File| .png" Try If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Png) MsgBox("Imagem Salva com sucesso") End If Catch ex As Exception MsgBox(ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click PictureBox1.Image = Nothing Button2.Enabled = False Button3.Enabled = False End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MsgBox("Programa aberto com sucesso!" & Chr(13) & "Aviso: Este programa salva a sua tela inteira!") End Sub Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Close() End Sub End Class - Resultado Final: - - Atenciosamente, Stigal.
-
Como deichar Site Online
Suporte fora do fórum: É extremamente proibido oferecer suporte fora do TibiaKing.com, como por exemplo: "To querendo tal map, me adiciona no Skype", "Me adiciona no Skype que eu resolvo", ou então, "Eu tenho esse script, me adiciona no skype que a gente vê"... Enfim, se você fizer isso seu tópico será imediatamente fechado e você poderá ser punido! Leia: http://www.tibiaking.com/forum/topic/1281-regras-gerais/?p=7680#entry7680 Preste atenção, coloque o problema em 48 horas ou seu tópico será fechado.
-
[Source+Tutorial] Visual Basic 2008 - Gerador De Senhas
Sim, esse gerador gera senhas aleatórias entre 3 a 100 dígitos. Muito bom para quem quer se manter seguro
-
[Source+Tutorial] Visual Basic 2008 - Send E-Mail
Irá precisar de:3 - TextBox 2 - Label 2 - Button 1 - Conta GMail - - Tutorial:#TextBox: TextBox1 = Será o e-mail que você enviara a mensagem (deixar no tamanho médio) TextBox2 = Será aonde você escreverá o assunto da mensagem (deixar tamanho médio) TextBox3 = Será aonde você escreverá a mensagem (e-mail) deixar com MultiLine e Grande! - #Label: Label1 = Renomear para "E-Mail Destino:" Label2 = Renbmear para "Assunto:" - #Button Button1 = Renomar para "Enviar" Button2 = Renomar para "Fechar" - #Conta GMail: Se não tiver registrar em: https://mail.google.com/- - Source/Código: Imports System.Net.Mail Public Class Form1 Dim cliente As New SmtpClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim EmailOrigem As New MailAddress("[email protected]".Trim.ToString) Dim EmailDestino As New MailAddress(TextBox1.Text.Trim.ToString) Dim Mensagem As New MailMessage Mensagem.To.Add(EmailDestino) Mensagem.From = EmailOrigem Mensagem.Subject = TextBox2.Text.Trim.ToString Mensagem.Body = TextBox3.Text.Trim.ToString Mensagem.IsBodyHtml = True cliente.Host = "smtp.gmail.com".Trim.ToString cliente.Port = 587 Dim creds As New System.Net.NetworkCredential creds.UserName = "[email protected]".Trim.ToString creds.Password = "SENHAEMAIL".Trim.ToString cliente.EnableSsl = True cliente.UseDefaultCredentials = False cliente.Credentials = creds cliente.Send(Mensagem) Catch ex As Exception MsgBox("Não foi possivel enviar o email. Mais detalhes:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Erro ao enviar") End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Close() End Sub End Class Exemplos: 1- Dim EmailOrigem As New MailAddress("[email protected]".Trim.ToString) 2- creds.UserName = "[email protected]".Trim.ToString 3- creds.Password = "12345678910".Trim.ToString -- Resultado Final: - - - Atenciosamente, Stigal.
-
[Source+Tutorial] Visual Basic 2008 - Gerador De Senhas
Irá precisar de: 3 - CheckBox 1 - NumericUpDown 1 - TextBox 2 - Label 1 - Button- - - Tutorial:#CheckBox: CheckBox1 = Nomear para "Números" CheckBox2 = Nomear para "Letras Minusculas" CheckBox3 = Nomear para "Letras Maiúsculas" - #Label: Label1 = Nomear para "N° de Digitos:" Label2 = Nomear para "Resultado" - #Button: Button1 = Nomear para "Gerar Nova Senha" - - - Source/Código: Public Class Form1 Public Function GenerateCode() Dim intred As Integer Dim intstep As Integer = Nothing Dim strname As String Dim intLength As Integer Dim strinputstring As String = "" Dim Numbers As String = "1234567890" Dim Lower As String = "abcdefghijklmnopqrstuvwxyz" Dim Upper As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" Dim intnamelength As Integer = 1 If CheckBox1.Checked Then strinputstring &= Numbers If CheckBox2.Checked Then strinputstring &= Lower If CheckBox3.Checked Then strinputstring &= Upper intLength = Len(strinputstring) Integer.TryParse(NumericUpDown1.Text, intnamelength) Randomize() strname = "" For instep = 1 To intnamelength intred = Int(Rnd() * intLength) + 1 strname = strname & Mid(strinputstring, intred, 1) Next Return strname End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click TextBox1.Text = TextBox1.Text.Trim If CheckBox1.Checked = False And CheckBox2.Checked = False And CheckBox3.Checked = False Then MessageBox.Show("Você deve selecionar uma opção para gerar a senha.") End If If Val(NumericUpDown1.Text) < 3 Then MessageBox.Show("Para gerar uma senha, deve ter no minimo 3 digitos.") End If If Val(NumericUpDown1.Text) > 100 Then MessageBox.Show("Comprimento da senha deve ser apenas 3 a 100 digitos.") Exit Sub End If TextBox1.Text = GenerateCode() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MessageBox.Show("Ola Usuario, Gerador de Senhas Foi Aberto Com Sucesso." & Chr(13) & "Aperte OK Para Ir Ao Programa.", _ "Gerador de Senhas - Stigal") End Sub End Class - - Resultado Final: - Atenciosamente, Stigal.
-
[Source+Tutorial] Visual Basic 2008 - Bloco De Notas
Script básico que torna o bloco de notas mais simples, sem muita frescura
-
Visual Basic 2008 - HTML Preview
Irá precisar de:1- RichTextBox 1- WebBrowser - - - Tutorial: Adicione no FORM1 o "RichTextBox" e logo ao lado o "WebBrowser". De 2 (dois) click no "RickTextBox" e adicione este código: WebBrowser1.DocumentText = RichTextBox1.Text - - Resultado Final: - - Atenciosamente, Stigal.
-
[Source+Tutorial] Visual Basic 2008 - Bloco De Notas
Irá Precisar De: 1 - MenuStrip1 1 - ColorDialog1 1 - FontDialog1 1 - SaveFileDialog1 1 - OpenFileDialog11 - RichTextBox1 - - Configurando:#MenuStrip: Criar "Arquivo" e adicionar abaixo "Novo", "Abrir...", "Salvar Como..." e "Sair" Ao lado adicionar "Editar" e coloque abaixo "Copiar", "Colar", "Refazer", "Desfazer" Ao lado adicione "Formatar" e coloque abaixo "Estilo De Texto", "Cores" e "Fontes..." - Em "Estilo De Texto" coloque ao lado "Negrito", "Italico", Sublinhado"- Exemplos: - Agora basta dar 2 Click's no FORM1, Apagar tudo e adicionar o codigo abaixo! - - Source/Código: Imports System.IO Public Class Form1 Private Sub NovoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NovoToolStripMenuItem.Click If RichTextBox1.Text <> "" Then If (MessageBox.Show("Deseja Salvar o arquivo ?", "Salvar Arquivo", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = DialogResult.Yes) Then End If End If RichTextBox1.Clear() RichTextBox1.Focus() End Sub Private Sub EditarArquivoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditarArquivoToolStripMenuItem.Click If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then Dim fs As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read) Dim m_streamReader As New StreamReader(fs) ' Lê o arquivo usando a classe StreamReader m_streamReader.BaseStream.Seek(0, SeekOrigin.Begin) ' Lê cada linha do stream até a última Me.RichTextBox1.Text = "" Dim strLine As String = m_streamReader.ReadLine() While Not (strLine Is Nothing) Me.RichTextBox1.Text += strLine + ControlChars.Lf strLine = m_streamReader.ReadLine() End While ' Fecha o stream m_streamReader.Close() End If End Sub Private Sub SalvarComoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SalvarComoToolStripMenuItem.Click Try ' Pega o nome do arquivo para salvar If Me.SaveFileDialog1.ShowDialog() = DialogResult.OK Then ' abre um stream para escrita e cria um StreamWriter para implementar o stream Dim fs As New FileStream(SaveFileDialog1.FileName, FileMode.OpenOrCreate, FileAccess.Write) Dim m_streamWriter As New StreamWriter(fs) m_streamWriter.Flush() ' Escreve para o arquivo usando a classe StreamWriter m_streamWriter.BaseStream.Seek(0, SeekOrigin.Begin) ' escreve no controle richtextbox m_streamWriter.Write(Me.RichTextBox1.Text) ' fecha o arquivo m_streamWriter.Flush() m_streamWriter.Close() End If Catch em As Exception MsgBox("Erro a salvar o arquivo ", MsgBoxStyle.Critical, "Erro ao Salvar") End Try End Sub Private Sub FecharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FecharToolStripMenuItem.Click Me.Close() End Sub Private Sub CopiarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopiarToolStripMenuItem.Click RichTextBox1.Copy() End Sub Private Sub ColarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ColarToolStripMenuItem.Click RichTextBox1.Paste() End Sub Private Sub RefazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefazerToolStripMenuItem.Click RichTextBox1.Redo() End Sub Private Sub DesfazerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DesfazerToolStripMenuItem.Click RichTextBox1.Undo() End Sub Private Sub NegritoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NegritoToolStripMenuItem.Click Dim nome_fonte As String Dim tamanho_fonte As Single Dim negrito As Boolean nome_fonte = RichTextBox1.Font.Name tamanho_fonte = RichTextBox1.Font.Size negrito = RichTextBox1.Font.Bold If negrito = False Then RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Bold) Else RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Regular) End If End Sub Private Sub ItalicoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItalicoToolStripMenuItem.Click Dim nome_fonte As String Dim tamanho_fonte As Single Dim italico As Boolean nome_fonte = RichTextBox1.Font.Name tamanho_fonte = RichTextBox1.Font.Size italico = RichTextBox1.Font.Italic If italico = False Then RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic) Else RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Italic) End If End Sub Private Sub SublinhadoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SublinhadoToolStripMenuItem.Click Dim nome_fonte As String Dim tamanho_fonte As Single Dim sublinha As Boolean nome_fonte = RichTextBox1.Font.Name tamanho_fonte = RichTextBox1.Font.Size sublinha = RichTextBox1.Font.Underline If sublinha = False Then RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline) Else RichTextBox1.SelectionFont = New Font(nome_fonte, tamanho_fonte, FontStyle.Underline) End If End Sub Private Sub CoresToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CoresToolStripMenuItem.Click ColorDialog1.ShowDialog() RichTextBox1.ForeColor = ColorDialog1.Color End Sub Private Sub FontesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FontesToolStripMenuItem.Click FontDialog1.Font = RichTextBox1.Font FontDialog1.ShowDialog() RichTextBox1.Font = FontDialog1.Font End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load MessageBox.Show("Ola Usuario, Bloco de Notas Foi Aberto Com Sucesso." & Chr(13) & "Aperte OK Para Ir Ao Programa.", _ "Bloco de Notas - Stigal") End Sub End Class - Atenciosamente, Stigal.
- Nolis Show Off
-
Esse Playground
SHUSHUSHUSHUSUHSUHSHUSHU'
- Descompiladores de Clientes (Todos)
- Youtube Viadinho
-
Rodando OT em servidor Linux [+duvida]
Sobre o servidor derivado em questão (Pokemon) não tem bases com source atualmente, somente o ERONDINO e alguns outros com bugs extremos. Se tiver uma equipe boa e um tempo legal, tente criar sua própria base com os pokemons antigos com source... caso contrario use Erondino ou PDA que o slicer modifico. Atenciosamente, Stigal.
- Ajustes no script (Remove Skull + Double Exp)
-
Problemas ao logar no otserve!
Libere as portas 7171 e 7172: (Mini-Tutorial) Vá em iniciar -> Painel de controle -> Firewall do windows, Exceções -> Adicionar porta: Em nome você coloca Open Tibia Server, e em Numero da Porta você coloca 7171, Marque TCP e dê OK. Pronto sua porta está liberada. Agora é necessário liberar a 7172 tambem, ou seu servidor não passará da lista de characters. Pra liberar a port 7172 é a mesma coisa da 7171 Vá em iniciar -> Painel de controle -> Firewall do windows, Exceções -> Adicionar porta: Em nome você coloca Open Tibia Server, e em Numero da Porta você coloca 7172, Marque TCP e dê OK.
- Youtube Viadinho
- Ajustes no script (Remove Skull + Double Exp)
-
Meus monstros nao aparecem
Se não der: 1- Depois de abrir seu mapa vá em File no alto canto esquerdo do remeres map editor,File>Import>Import Monsters/NPC. 2- depois localize a pasta em onde esta todos os monstros e selecione todos 3- Depois vá em Pallete>Creature Pallete>Others e procure em ordem alfabética o nome dos monsters e lá estará para você adicionar.
-
[Resolvido] Ajuda , Monstros Não Aparecem Quando Eu Coloco Pelo Rme! 8.60
Dúvida sanada, tag adicionada. Tópico movido!
- [Resolvido] [PEDIDO] NPC QUE VENDE TODAS BLESS
-
Vittu Na Escola
provavelmente ele pegaria a banana pra ele... provavelmente...
-
wadafucki magéca
eeeee.... ?