Ir para o conteúdo

Pesquisar na Comunidade

A mostrar resultados para tags ''vb.net''.



Mais opções de pesquisa

  • Pesquisa por Tags

    Introduza as tags separadas por vírgulas.
  • Pesquisar por Autor

Tipo de Conteúdo


Fórum

  • Bem-vindos ao Portugal-a-Programar
    • Sugestões, Críticas ou Dúvidas relativas ao P@P
    • Acerca do P@P
  • Comunidade a Trabalhar
    • Wiki P@P
    • Apresentação de Projectos de Programação
    • Downloads
  • Revista PROGRAMAR
    • Revista PROGRAMAR
  • Desenvolvimento Geral
    • C
    • C++
    • Java
    • Haskell
    • Pascal
    • Python
    • Bases de Dados
    • Visual Basic Clássico
    • Visual Basic for Applications (VBA)
    • Dispositivos Móveis
    • Outras Linguagens
  • Desenvolvimento Orientado para Web
    • PHP
    • HTML
    • CSS
    • Javascript
    • Outras Linguagens de WebDevelopment
    • Desenvolvimento Web
  • Desenvolvimento .NET
    • C#
    • Visual Basic .NET
    • ASP.NET
    • WPF & SilverLight
  • Software e Sistemas Operativos
    • Software de Produtividade
    • Sistemas Operativos
    • SharePoint
    • Apresentação de Software
  • Informática Extra-Programação
    • Interfaces Visuais
    • Computação Gráfica
    • Algoritmia e Lógica
    • Segurança e Redes
    • Hardware
    • Electrónica
    • Automação Industrial
    • Dúvidas e Discussão de Programação
    • Notícias de Tecnologia
  • Outras Áreas
    • Matemática
    • Dúvidas Gerais
    • Discussão Geral
    • Eventos
    • Anúncios de Emprego
    • Tutoriais
    • Snippets / Armazém de Código
  • Arquivo Morto
    • Projectos Descontinuados
    • System Empires

Blogs

  • Blog dos Moderadores
  • Eventos
  • Notícias de Tecnologia
  • Blog do Staff
  • Revista PROGRAMAR
  • Projectos
  • Wiki

Categorias

  • Revista PROGRAMAR
  • Tutoriais
  • Textos Académicos
  • Exercícios Académicos
    • Exercícios c/ Solução
    • Exercícios s/ Solução
  • Bibliotecas e Aplicações
  • Outros

Procurar resultados em...

Pesquisar conteúdos que contêm...


Data de Publicação

  • Início

    Fim


Última Actualização

  • Início

    Fim


Filtrar por número de...

7570 resultados

  1. footboyedit

    Verificar se funcionário entrou ou saiu

    Olá a todos, precisava de uma ajudinha Tenho 2 tabelas sql server: Funcionarios: Id 1 Nome José Ferreira HorarioEntrada1 08:00 HorarioSaida1 12:30 HorarioEntrada2 13:30 HorarioSaida2 17:00 Picagem: Id 267384 Func_Id 1 Pica 2018-08-08 12:32:34 O que quero fazer é ao percorrer todas os registos na tabela Picagem, verificar se o funcionário saiu ou entrou na empresa, de acordo com o horário do mesmo. Qual a forma mais simples e eficaz de resolver isto? Desde já, muito obrigado.
  2. Bom dia, Estou desenvolvendo um sistema em vb.net 2010. A solução contém cinco projetos, um EXE (Principal) e quatro DLL (Cadastro, Financeiro, Jurídico e Biblioteca). A Biblioteca.dll contém uma classe Utils com funções para validar CPF, encriptar Senha e outras. Referenciei a Biblioteca.dll no projeto Principal.exe. Quando chamo fValidaCPF(txtCPF.text) do Projeto Principal.exe é apresentado um erro “Expressão não é um método”. '---------------------------------------------------------------------- 'Projeto Principal.exe '---------------------------------------------------------------------- Imports Biblioteca Imports Biblioteca.Utils Imports System.Windows.Forms Public Class Principal Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click fValidaCPF(TextBox1.Text) End Sub End Class '---------------------------------------------------------------------- 'Projeto Biblioteca.dll 'Valida CPF '---------------------------------------------------------------------- Public Function FValidaCPF(ByVal CPF As String) As Boolean Dim i, x, n1, n2 As Integer CPF = CPF.Trim For i = 0 To dadosArray.Length - 1 If CPF.Length <> 14 Or dadosArray(i).Equals(CPF) Then Return False End If Next 'remove a maskara 'If Len(CPF) > 11 Then CPF = CPF.Substring(0, 3) + CPF.Substring(4, 3) + CPF.Substring(8, 3) + CPF.Substring(12) 'End If For x = 0 To 1 n1 = 0 For i = 0 To 8 + x n1 = n1 + Val(CPF.Substring(i, 1)) * (10 + x - i) Next n2 = 11 - (n1 - (Int(n1 / 11) * 11)) If n2 = 10 Or n2 = 11 Then n2 = 0 If n2 <> Val(CPF.Substring(9 + x, 1)) Then MsgBox("O CPF informado não é válido. Verifique se digitou corretamente.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return False End If Next MsgBox("O CPF informado é válido.", _ MsgBoxStyle.Information, "GA .Net Consultoria") Return True End Function
  3. Boa tarde Pessoal tenho um problema, criei uma base de dados em access para abrir num programa que estou criando, mas a tabela que criei não contem registos e o programa não abre e dá erro.... o programa só abre se tiver registos dentro da base de dados.... como é que eu faço para abrir o programa com a base de dados sem registos, para depois dentro do programa adicionar.... Preciso mesmo de ajuda pessoal Atenciosamente Ghost O erro que aparece no visual studio ao abrir o programa é o seguinte: System.NullReferenceException: 'A referência de objecto não foi definida como uma instância de um objecto.' System.Windows.Forms.DataGridView.CurrentRow.get retornou Nothing.
  4. Ghost

    AJUDA VB:NET

    Boa Noite preciso de ajuda por favor Estou criando um programa de gestão no Visual Studio mas surgiu-me um problema. Ao abrir a janela do programa, dá um erro devido a não ter registos na base de dados Na tabela da base de dados não tem registos inseridos e aparece este erro..... System.NullReferenceException: 'A referência de objecto não foi definida como uma instância de um objecto.' System.Windows.Forms.DataGridView.CurrentRow.get retornou Nothing. Por favor ajudem-me pessoal
  5. Herbert

    Abrir Windows Explore

    Saudações! Como abrir a pasta do windows explore dentro de um formulário (WindowsForms).? Não quero abrir simplesmente o windows explore, mas abrir contido, dentro, do Form1 por exemplo.
  6. Boas, Visto as versões do windows posterior ao win7 terem "descartado" a facilidade em rodar ficheiros batch, tenho de refazer todo o automatismo com exe's... Preciso de um código onde me liste numa listbox todos os volumes existentes (com e sem letra) na máquina da mesma forma que obtemos através do diskpart, eu tenho um código onde me vai buscar toda a informação de cada letra, mas não tenho como saber os que não tem letra atribuída.... Código que uso actualmente: Dim fso As New FileSystemObject Dim arquivo As Drive ListBox1.Items.Clear() arquivo = fso.GetDrive(ComboBox2.Text) With (arquivo) If .IsReady Then ListBox1.Items.Add("Letra associada ao drive : " & .DriveLetter) ListBox1.Items.Add("Nome do Volume : " & .VolumeName) ListBox1.Items.Add("Espaço total do drive : " & FormatNumber(.TotalSize / 1024, 0)) ListBox1.Items.Add("Espaço disponível livre no drive : " & FormatNumber(.FreeSpace / 1024, 0)) ListBox1.Items.Add("Número de série do drive : " & .SerialNumber) ListBox1.Items.Add("Volume: " & .DriveType) Else MsgBox("A unidade não esta pronta !! Verifique !!", vbCritical, "Erro de acesso") End If End With Este código retorna na listbox os valores no seguinte formato: Letra associada ao drive: L Nome do volume: APPS Espaço total do drive: 50.212.048 Espaço disponível no drive: 49.027.288 Número de série do drive: 1547758574 Volume: 3 Gostaria de ter a vossa ajuda em obter um código que me devolvesse na listbox a lista de todos os volumes existentes e devidas letras atribuídas ou não tipo isto: Volume 0 > C Volume 1 > Volume 2 > D Volume 3 > E Toda e qualquer ajuda será benvinda! Cumps,
  7. Riky_magic_edition

    Salvar Rubrica Digital

    Boa Noite Caro Grupo, Eu Ando a criar uma aplicação para uma empresa. E já ando nisto algum tempo, e preciso de uma ajudinha... Eu criei uma aplicação, para controlo de caixa e controlo de assinaturas(Crédito), Criei uma base dados para gravar toda a informação, só que não consigo gravar assinatura na base de dados, eu já tentei de tudo. Já tentei criar um groupBox, transformar em Handle, já tentei gravar inkpicture em bmp e converter em byte, tudo sem sucesso, ele grava só que só grava metade da imagem ou nada. e eu estou desesperado 😢😭😟😖😖😖😖 Será que alguém me Consegue ajudar???? por favor obrigado
  8. bigboy123

    Verificar Validade

    Boas... Em continuação do meu projecto de E-mail Sender encontrei mais uma dificuldade. Gostaria de saber como posso fazer para que quando a pessoa insere o mail o programa verifique se é válido e não que dê erro e feche o programa como faz. Tambem o mesmo caso aplica-se para a verificação da pass correspondente ao mail que a pessoa inserio ... Espero boas ajudas como sempre Deixo aqui um link para visualizarem o programa
  9. marlonwg

    Compactar banco com Vb.net

    Boas pessoal Estou a tentar compactar um banco aberto tentei varias formas ja mas me geram erros porque fala que estou com o programa aberto e tudo mais.... o codigo e este que estou usando para access 2010 Sub Main() cx.desconectar() ' Fecha o banco de dados Dim jro As JetEngine jro = New JetEngine() Try jro.CompactDatabase("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Teste\Teste.accdb", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Teste\Teste.accdb; Jet OLEDB:Engine Type=5") Console.WriteLine(" Banco de dados foi compactado com sucesso.") Catch e As Exception MsgBox(e.Message) Console.WriteLine(" Erro ao compactar o Banco de dados.") Console.WriteLine(e.Message) End Try End Sub 1° Problema tenho que fechar o banco para compactar mas faço o fechamento em cima mas mesmo assim diz que esta aberto ou em uso 2° Problema tenho que Compactar com o banco aberto e depois criar um bd com o mesmo nome porque com esta minha função ele pede para trocar o nome do banco porque ja existe no local, se no final colocas Teste2.accdb ele vai mas nao quero isso quero que ele somente compacte de forma simples. se alguem souber de algo avise aguardo.. A outra coisa tenho tanbem um exemplo para fazer isso mas esta em VBA quem souber como converter isso para vb.net agradeco tb Compactar Banco 2007 aberto. No evento VBA ao pressionar de um botão... Private Sub SeuBotão_Click() Dim ws As Object Set ws = CreateObject("WScript.shell") ws.SendKeys "%AGO" Set ws = Nothing End Sub
  10. Cefeu

    VB.net e Access

    Boa tarde Numa bd tenho duas tabelas diferenciadas. Consigo ler os registos da primeira. Ao tentar ler a segunda aparecem registos da primeira. O que fiz de errado ou o que não fiz? Obg
  11. 'KD-

    Sistema de registro

    Boa noite, bom estou querendo desenvolver um sistema de login no vb.net só que esse sistema de login seria "ligado" a um fórum/site. Por exemplo, tem que ter uma conta no site/fórum para logar no meu programa. Não achei nada sobre isso na internet quem poder me ajudar eu ficarei grato.
  12. Boas Alguém já tem algum código , ou alguma ideia de como fazer a importação automática dos documentos existentes no portal do E-Fatura. Sem ser pelo ficheiro que eles lá tem da importação (e-fatura.csv), pois essa importação não separa os documentos por taxas de IVA .. Já tenho um código para fazer o login automático no site .. que é o seguinte: Try Dim IE IE = CreateObject("InternetExplorer.Application") IE.Visible = True IE.FullScreen = False IE.AddressBar = True IE.StatusBar = True IE.Toolbar = False ' IE.Width = Ambiente.Width - 200 ' IE.Height = Ambiente.Height - 200 IE.top = 100 IE.left = 100 IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Navigate("https://faturas.portaldasfinancas.gov.pt/consultarDocumentosAdquirente.action") Do While IE.Busy System.Threading.Thread.Sleep(100) Loop IE.Document.All("username").InnerText = "???????????" ' Nº Contribuinte IE.Document.all("password").focus() IE.Document.All("password").InnerText = "?????????????" ' Senha do Portal IE.Document.All("sbmtLogin").Click() Catch ex As Exception MsgBox("Erro: Volte a Tentar", MsgBoxStyle.Critical) End Try
  13. RafaelFranckilin

    Refresh no registro do windows

    Pessoal, eu estou fazendo algumas alterações no registro do windows e gostaria de saber como eu posso fazer o windows ler novamente o registro e aplicar as novas configurações. Agradeço desde já por qualquer ajuda.
  14. fonsecas72

    Ler dados Cartão Cidadão

    Olá amigos, sou um novato aprendiz de programação e estou a desenvolver um projecto que consiste em ler os dados do cartão do cidadão e envia-los para um servidor. Sinto-me totalmente perdido, mesmo depois de ler e ler vários sítios na Internet. Alguém me pode ajudar, dizendo por onde devo começar, o que vou precisar, ou mesmo dando um exemplo completo (com código fonte) de um software leitor de cartões. Eu já comprei inclusive um leitor de cartões. Muito obrigado pela vossa ajuda
  15. RafaelFranckilin

    Manipulando o registro do windows

    Pessoal, eu gostaria de alguns exemplos simples e funcionando de leitura, criação, verificar a existência e apagar chaves e valores do registro do windows, principalmente como fazer essas operações quando o windows é de 64 Bits e a chave ou valor se encontra em Wow6432 la no registro. Muito obrigado desde já.
  16. Boa Tarde, Eu gostaria de ter num Form uma textbox preparada para aceitar uma data digitada pelo utilizador e que tivesse o seguinte formato: dd/MM/aa Ou seja, uma textbox com underscore - espaço - underscore, barra comum = "/", underscore - espaço - underscore, barra comum = /, underscore - espaço - underscore ---» _ _ / _ _ / _ _ ---» _ _ / _ _ / _ _ e que, quando o utilizador digitasse os algarismos dos dias, meses e anos, estes fossem ocupar o lugar dos underscores. ---» 23/04/18 Obrigado Diogo
  17. RafaelFranckilin

    Como impedir duas instancias do aplicativo

    Pessoal, é o seguinte... Eu usava um método muito simples pra impedir que meu programa fosse aberto duas vezes ao mesmo tempo, era só marcar a opção nas propriedades do projeto "Criar aplicativo de instancia simples", mas depois que eu comesei a usar um arquivo de configuração "app.config" com seções personalizadas, meu programa começou a da um erro quando eu tento executar O aplicativo está no modo de interrupção System.Configuration.ConfigurationErrorsException HResult=0x80131902 Message=O sistema de configuração falhou ao inicializar Source=System.Configuration StackTrace: em System.Configuration.ConfigurationManager.PrepareConfigSystem() em System.Configuration.ConfigurationManager.GetSection(String sectionName) em System.Configuration.PrivilegedConfigurationManager.GetSection(String sectionName) em System.Net.Configuration.SettingsSectionInternal.get_Section() em System.Net.Sockets.Socket.InitializeSockets() em System.Runtime.Remoting.Channels.Tcp.TcpServerChannel..ctor(IDictionary properties, IServerChannelSinkProvider sinkProvider, IAuthorizeRemotingConnection authorizeCallback) em System.Runtime.Remoting.Channels.Tcp.TcpServerChannel..ctor(IDictionary properties, IServerChannelSinkProvider sinkProvider) em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.RegisterChannel(ChannelType ChannelType, Boolean ChannelIsSecure) em Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) em FACILITADOR_DE_VIDA.My.MyApplication.Main(String[] Args) em :linha 81 Exceção interna 1: ConfigurationErrorsException: Seção de configuração não reconhecida SettingsPerfis. Alguém poderia me ensinar um método para evitar duas instancias do meu programa, preciso de um método seguro, que funcione mesmo se o nome do executável for alterado. Obrigado desde já
  18. RafaelFranckilin

    Arquivo de configuração

    Pessoal, acabei de entrar pra comunidade. Sou novo nesse mundo da programação, no momento eu tô tentando entender como eu posso utilizar esse app.config pra guardar configurações. Eu pesquisei bastante na internet, mas não encontrei nada que eu conseguisse entender. Vocês poderiam me mostrar um exemplo simples? Tipo com um checkbox e um botão, quando marcar o checkbox, o botão seja desabilitado e grave essa configuração no arquivo de configuração.
  19. HQuintas

    Desenhar a partir dxf

    Boas, estou com pequeno problema ao desenhar numa picturebox um ficheiro em dxf. Faz a leitura tudo bem, mas não une as linhas e os arcos, como se pode ver na imagem. Porquê? Private Sub linha(x As Double, y As Double, x_end As Double, y_end As Double, mypen As Pen) Using g As Graphics = Graphics.FromImage(bm) ' Flip the Y-Axis g.ScaleTransform(zx, zy) ' Translate the drawing area accordingly g.TranslateTransform(fx, fy) Dim p1 As New Point(x, y) Dim p2 As New Point(x_end, y_end) ' Create a new pen. Dim sPen As New Pen(Brushes.Black) ' Set the pen's width. sPen.Width = 1.0F g.DrawLine(sPen, p1, p2) End Using 'bm.RotateFlip(RotateFlipType.RotateNoneFlipY) PictureBox1.Image = bm End Sub Private Sub arco(x As Double, y As Double, r As Double, angS As Single, angE As Single) Using g As Graphics = Graphics.FromImage(bm) ' Flip the Y-Axis g.ScaleTransform(zx, zy) ' Translate the drawing area accordingly g.TranslateTransform(fx, fy) ' Create a new pen. Dim sPen As New Pen(Brushes.Red) ' Set the pen's width. sPen.Width = 1.0F cor_perfil = sPen Dim p1 As Double = x - r Dim p2 As Double = y - r Dim p3p4 As Double = 2 * r Dim sweep As Single = angE - angS If angE < angS Then sweep = 360 - angS + angE End If If sweep < 0 Then sweep = -sweep ListBox1.Items.Add(sweep) Dim rect As New Rectangle(p1, p2, p3p4, p3p4) Try g.DrawArc(cor_perfil, rect, angS, sweep) Catch ex As Exception End Try End Using PictureBox1.Image = bm End Sub
  20. Bom dia, Criei um código em VB.NET que faz a leitura de uma porta serial de uma balança, utilizei 2 Threads para enviar tudo para um Richtextbox. O código funciona perfeitamente, recebe os dados da porta serial, manipula certinho, o problema é que ele fica "travando"... Consigo ver que está travando no momento em que vou arrastar o formulário ou quando posiciono o cursor em cima dos botões, pois percebo que existe um delay no Hover. O código é o seguinte: Public Class Form1 Private trd As Thread Private trd2 As Thread Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load trd = New Thread(AddressOf ThreadTask) trd.IsBackground = True trd.Start() trd2 = New Thread(AddressOf ThreadTask2) trd2.IsBackground = True trd2.Start() End Sub Private Sub ThreadTask2(ByVal [text] As String) 'input from ReadExisting Try If Me.RichTextBox1.InvokeRequired Then Dim x As New SetTextCallback(AddressOf ThreadTask2) Me.Invoke(x, New Object() {(text)}) Else _SerialPort1.NewLine = Chr(13) ' Me.RichTextBox1.Text = _SerialPort1.ReadLine() End If Catch ex As Exception End Try End Sub Private Sub ThreadTask() Handles SerialPort1.DataReceived Try ThreadTask2(SerialPort1.ReadExisting()) Catch ex As Exception End Try End Sub Alguém saberia, por gentileza me dar uma luz para que eu possa identificar qual o erro que estou cometendo? Desde já agradeço muito. Att.
  21. Paulo Spiguel

    Ler xml vb.net

    Gostaria de ler a linha tag version="1.0.1.0" e armazenar em uma variável em Vb.Net? Gostaria de ler a linha tag version="1.0.1.0" e armazenar em uma variável em Vb.Net? <?xml version="1.0" encoding="utf-8"?> <Feed> <Tasks> <FileUpdateTask hotswap="false" updateTo="file://d:\tmp\update\AtualizadorAplicacao.exe" localPath="AtualizadorAplicacao.exe"> <Description>Descricao da nova versao.</Description> <Conditions> <FileVersionCondition what="below" version="1.0.1.0" /> </Conditions> </FileUpdateTask> </Tasks> </Feed>
  22. Boa noite, Como consigo fazer com que os ficheiro numa pasta sejam apresentados numas listbox por exemplo. E quando clicar num ele ser aberto em word. Alguma ajuda? Atentamente
  23. Ricardo Goncalves

    Exportar ficheiro com UTF8 BOM

    Bom dia, Precisava da vossa ajuda no sentido de perceber o que poderá estar mal no meu codigo que coloco em baixo. If CheckBD = "0" Then With mycommand .Connection = con .CommandText = "CREATE TABLE EnviosChrono (NumConta int,NumCliente int,Cliente nvarchar(254),Morada nvarchar(50),CodPostal int,Cidade nvarchar(50)," + _ "Pais nvarchar(5),Contacto Nvarchar(254),Telefone int,Peso int,Referencia int not null,Volumes int,CriadoPor nvarchar(50),data datetime)" .ExecuteNonQuery() End With Else With mycommand .Connection = con For i As Integer = 0 To DataGridView1.RowCount - 1 .CommandText = "insert into EnviosChrono values('" & DataGridView1.Rows(i).Cells(0).Value & "','" & DataGridView1.Rows(i).Cells(1).Value & "','" & DataGridView1.Rows(i).Cells(2).Value & "'," + _ "'" & DataGridView1.Rows(i).Cells(3).Value & "','" & DataGridView1.Rows(i).Cells(4).Value & "','" & DataGridView1.Rows(i).Cells(5).Value & "','" & DataGridView1.Rows(i).Cells(6).Value & "'," + _ "'" & DataGridView1.Rows(i).Cells(7).Value & "','" & DataGridView1.Rows(i).Cells(8).Value & "','" & DataGridView1.Rows(i).Cells(13).Value & "','" & DataGridView1.Rows(i).Cells(14).Value & "'" + _ ",'" & DataGridView1.Rows(i).Cells(15).Value & "','" & Departamento & "',GETDATE())" .ExecuteNonQuery() Next End With End If Catch Ex As Exception MsgBox(Ex.Message, MsgBoxStyle.Critical) End Try Try Dim enc As Encoding = New UTF8Encoding(True) Dim Caminho As String = LeINI("Exportação", "Caminho", "") Dim data As String = DateTime.Now.ToString("yyyyMMdd_HHmmss") Dim filePath As String = " " & Caminho & "Chrono" & data & ".csv" Dim delimeter As String = ";" Dim sb As New StringBuilder For i As Integer = 0 To DataGridView1.Rows.Count - 1 Dim array As String() = New String(DataGridView1.Columns.Count - 1) {} 'If i.Equals(0) Then ' For j As Integer = 0 To DataGridView1.Columns.Count - 1 ' array(j) = DataGridView1.Columns(j).HeaderText ' Next ' sb.AppendLine(String.Join(delimeter, array)) 'End If For j As Integer = 0 To DataGridView1.Columns.Count - 1 If Not DataGridView1.Rows(i).IsNewRow Then array(j) = DataGridView1(j, i).Value.ToString End If Next If Not DataGridView1.Rows(i).IsNewRow Then sb.AppendLine(String.Join(delimeter, array)) End If Next File.WriteAllText(filePath, sb.ToString, enc) 'Opens the file immediately after writing 'Process.Start(filePath) Dim AckTime As Integer, InfoBox As Object InfoBox = CreateObject("WScript.Shell") AckTime = 1 Select Case InfoBox.Popup("Ficheiros Criados Com Sucesso!!!", _ AckTime, "Mensagem", 0) Case 1, -1 End Select DataGridView1.DataSource = Nothing DataGridView1.Rows.Clear() Catch Ex As Exception MsgBox(Ex.Message, MsgBoxStyle.Critical) End Try End If O que se está a passar é que a pessar de ter o encoder do utf8 para sair com o BOM(Byte Order Marking) " Dim enc As Encoding = New UTF8Encoding(True)" o mesmo está sempre a sair sem BOM, com se tivesse o encoding a false no utf8. Conseguem me dizer o que poderei estar a fazer de errado? Obrigado!
  24. Andre88

    Encriptar ficheiros

    Nessesito de ajuda para criar um código para encriptação de ficheiros no visualbasic, pois já tentei de tudo,tudo mesmo e nada da certo . O código consiste em pegar num ficheiro já criado e encriptar o mesmo criando outro ficheiro sem eliminar e edita o original. Obrigado pela colaboração; 😉
  25. Olá malta, Estou a desenvolver um modulo de comunicação de documentos de transporte em VB.NET, e estou empancado num problema com o qual espero que me possam ajudar. Então, a situação é a seguinte, eu consigo comunicar com o servidor de testes, no entanto quando invoco o método para o envio, obtenho a seguinte resposta de erro: "Rejected: | Codigo: 16 | Erro: Created: Chave de sessão inválida. Não foi possível decifrar o campo Created | Tentativas Restantes: -1" Dos testes que fiz, consegui perceber a ordem que eles testam cada um dos campos: Nonce, Created, Password. Isto quer dizer que, o meu problema pode ser um dos seguintes: chave assimétrica que gero, pode ter problemas (não me parece que seja isto) encriptação da chave assimétrica pode estar errada a string com a data pode estar errada (também nao me parece, já tentei de tudo) a encriptação da string com a data Segue o meu código: ' GERAÇÃO DE CHAVE ASSIMÉTRICA Public Function GenerateAESKey() As AesKey Implements IEncryptionServices.GenerateAESKey Dim aes As New AesManaged() aes.KeySize = 128 aes.BlockSize = 128 aes.GenerateKey() aes.GenerateIV() Return New AesKey() With {.IV = aes.IV, .Key = aes.Key} End Function ' USO ESTA FUNC PARA ENCRIPTAR O NONCE Public Function EncryptUsingRSA(text As String, certificateFilePath As String, Optional password As String = "") As String Implements IEncryptionServices.EncryptUsingRSA Dim certificate As New X509Certificate2(certificateFilePath, password) Dim csp As RSACryptoServiceProvider = certificate.PublicKey.Key Dim bytesPlainText = Encoding.UTF8.GetBytes(text) Dim encryptedBytesPlainText = csp.Encrypt(bytesPlainText, False) Dim cypherText = Convert.ToBase64String(encryptedBytesPlainText) Return cypherText End Function ' USO ESTA FUNC PARA ENCRIPTAR A PASSWORD E A DATA Public Function EncryptUsingAES(text As String, key As AesKey) As String Implements IEncryptionServices.EncryptUsingAES If text Is Nothing OrElse text.Length <= 0 Then Throw New ArgumentNullException(NameOf(text)) End If If key Is Nothing Then Throw New ArgumentNullException(NameOf(key)) End If If key.Key Is Nothing OrElse key.Key.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.Key)) End If If key.IV Is Nothing OrElse key.IV.Length <= 0 Then Throw New ArgumentNullException(NameOf(key.IV)) End If Dim aesManaged As New AesManaged() aesManaged.Key = key.Key aesManaged.IV = key.IV aesManaged.BlockSize = 128 aesManaged.Mode = CipherMode.ECB aesManaged.Padding = PaddingMode.PKCS7 Dim encryptor As ICryptoTransform = aesManaged.CreateEncryptor(aesManaged.Key, aesManaged.IV) Dim memoryStream As New MemoryStream() Dim cryptoSream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write) Dim streamWriter As New StreamWriter(cryptoSream) streamWriter.Write(text) streamWriter.Close() cryptoSream.Close() memoryStream.Close() Dim encrypted As Byte() = memoryStream.ToArray() Return Convert.ToBase64String(encrypted) End Function Sim, o camiho do certificado está correcto. Sim, o certificado está actualizado. Sim, já verifiquei o formato da data e comparei com a OAL. Já tentei de tudo, estou sem ideias... Por favor ajudem! Obrigado!
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.