Ir para conteúdo
Fórum Script Brasil

alexandremanowar

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    634

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Tudo que alexandremanowar postou

  1. alexandremanowar
    E ae beleza Valeu pela força. Então eu não quero popular outro combobox, na verdade esse código que eu deixei foi um exemplo que fiz com combobox, na verdade agora o que eu quero é fazer um com links apenas, a idéia é clicar em um dos links e ele exibe os dados dele direto no na tela. Tenho por exemplo 5 nomes na tela um abaixo do outro, como segue abaixo: Rio de Janeiro São Paulo Minas Pernanbuco Ou seja os dados estão direto na tela sem combox Cada nome desses acima seria um link, quando clicar em um link desses eu quero que os dados dele apareça abaixo dele empurrando os demais links, por exemplo se eu clicar em São Paulo, ficaria assim: Rio de Janeiro São Paulo ....São Paulo ....Itagua ....Poá ....Suzando Minas Pernanbuco Entedeu a idéia? você tem idéia de como fazer? Valeu pela atenção
  2. alexandremanowar
    E ae pessoal beleza Eu estou estudando ajax, e já fiz uns exemplos bacana usando dropdown e outros teste! Recentemente estudei um totoria e fiz um modelo de dois dropdown básicos que ao clicar no primeiro ele enche o segundo com informação, porém eu gostaria de saber como fazer algo um pouco diferente, por exemplo a idéia que quero aprender é a seguinte: Tenho por exemplo 5 nomes na tela um abaixo do outro, como segue abaixo: Rio de Janeiro São Paulo Minas Pernanbuco Cada nome desses acima seria um link, quando clicar em um link desses eu quero que os dados dele apareça abaixo dele empurrando os demais links, por exemplo se eu clicar em São Paulo, ficaria assim: Rio de Janeiro São Paulo ....São Paulo ....Itagua ....Poá ....Suzando Minas Pernanbuco E isso acontece o mesmo se eu clicar nos demais e se eu clicar em São Paulo novamente ele retira dos dados. Como falei eu fiz algo parecido com dropdown, mas nesse caso teria que mecher com o layout do form ou seja com Dom(usando css acredito), e claro que os dados que aparecem abaixo do link clicado vem do bando, eu tentei fazer aqui mas ainda não consegui, será alguém pode me ajudar a fazer isso? Olha o código que fiz com o dropdown: Essa é a index: <html> <head> &lt;script language="javascript" src="VerificaBrownser.js"></script> &lt;script language="javascript" src="funcao.js"></script> </head> <body> <? include "conecta.php"; $busca = mysql_query("select * from estados order by DSC_ESTADO"); $linha = mysql_num_rows($busca); ?> <h1>AJAX + PHP</h1> Carregando cidades sem dar refresh na página. <br><br> <form name="frmAjax"> Estado:&nbsp; <select name="listEstados" onChange="Dados(this.value);"> <option value="0">--Selecione o estado >></option> <? for($i=0; $i<$linha; $i++) { $reg = mysql_fetch_row($busca); ?> <option value="<? echo $reg[0] ?>"><? echo $reg[1]; ?></option> <? } ?> </select> <br><br> Cidade:&nbsp; <select name="listCidades"> <option id="opcoes" value="0">--Primeiro selecione o estado--</option> </select> </form> </body> </html> Esses são os dois arquivos js que fiz: try { ajax = new ActiveXObject("Microsoft.XMLHTTP"); } catch(e) { try { ajax = new ActiveXObject("Msxml2.XMLHTTP"); } catch(ex) { try { ajax = new XMLHttpRequest(); } catch(exc) { alert("Esse browser não tem recursos para uso do Ajax"); ajax = null; } } } function Dados(valor) { if(ajax) { //deixa apenas o elemento 1 no option, os outros são excluídos document.forms[0].listCidades.options.length = 1; idOpcao = document.getElementById("opcoes"); ajax.open("POST", "cidades.php", true); ajax.setRequestHeader("Content-Type", "application/x-www-form-urlencoded"); ajax.onreadystatechange = function() { //enquanto estiver processando...emite a msg de carregando if(ajax.readyState == 1) { idOpcao.innerHTML = "Carregando...!"; } //após ser processado - chama função processXML que vai varrer os dados if(ajax.readyState == 4 ) { if(ajax.responseXML) { processXML(ajax.responseXML); } else { //caso não seja um arquivo XML emite a mensagem abaixo idOpcao.innerHTML = "--Primeiro selecione o estado--"; } } } //passa o código do estado escolhido var params = "estado="+valor; ajax.send(params); } } function processXML(obj) { //pega a tag cidade var dataArray = obj.getElementsByTagName("cidade"); //total de elementos contidos na tag cidade if(dataArray.length > 0) { //percorre o arquivo XML paara extrair os dados for(var i = 0; i < dataArray.length; i++) { var item = dataArray[i]; //contéudo dos campos no arquivo XML var codigo = item.getElementsByTagName("codigo")[0].firstChild.nodeValue; var descricao = item.getElementsByTagName("descricao")[0].firstChild.nodeValue; idOpcao.innerHTML = "--Selecione uma das opções abaixo--"; //cria um novo option dinamicamente var novo = document.createElement("option"); //atribui um ID a esse elemento novo.setAttribute("id", "opcoes"); //atribui um valor novo.value = codigo; //atribui um texto novo.text = descricao; //finalmente adiciona o novo elemento document.forms[0].listCidades.options.add(novo); } } else { //caso o XML volte vazio, printa a mensagem abaixo idOpcao.innerHTML = "--Primeiro selecione o estado--"; } } Esse é o código em php que consulta o banco: <? include "conecta.php"; $estado = $_POST["estado"]; //QUERY $resultado = mysql_query("select * from cidades where COD_ESTADO='$estado' order by DSC_CIDADE"); $linha = mysql_num_rows($resultado); if($linha>0) { //XML $xml = "<?xml version=\"1.0\" encoding=\"ISO-8859-1\"?>\n"; $xml .= "<cidades>\n"; for($i=0; $i<$linha; $i++) { $reg = mysql_fetch_row($resultado); $codigo = $reg[0]; $descricao = $reg[1]; $xml .= "<cidade>\n"; $xml .= "<codigo>".$codigo."</codigo>\n"; $xml .= "<descricao>".$descricao."</descricao>\n"; $xml .= "</cidade>\n"; } $xml.= "</cidades>\n"; //CABEÇALHO Header("Content-type: application/xml; charset=iso-8859-1"); } //PRINTA O RESULTADO echo $xml; ?> Alguém pode me explicar como fazer? Valeu
  3. alexandremanowar
    E ae pessoal beleza Então pesquisei na net alguns guias e baixei um vídeo que explicava como trabalhar com Crystal, então comecei a desenvolver o meu projeto, o prjeto que desenvolvi esta dando um problema, ele funciona da seguinte forma, tenho o form1 que captura alguns valores do banco e faz umas somas e joga o resultado em um listview, nesse form1 tem o botão imprimir que na verdade apenas abre o form2, o meu form1 esta dentro de um mdiPai e abro o form2 fora desse mdi dessa forma o form1 fica com seus dados. Então no form 2 coloquei um CrystalReportViewer e vinculei ele com CrystalDocument que criei em branco, então puxei todo o listview do form1 e converti em um datatable para jogar no Crystal mas esta dando pau, vou postar como esra meu código e depois a mensagem de erro: Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Public Class FormImprimePonto Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListaPonto() End Sub Private Function TabelaParaCrystal() As DataTable Dim f As Object f = MDIhome.ActiveMdiChild Dim oTable As New DataTable oTable.Columns.Add("Data", Type.GetType("System.String")) oTable.Columns.Add("Entrada", Type.GetType("System.String")) oTable.Columns.Add("Saida", Type.GetType("System.String")) Dim dRow As DataRow For Each elemento As ListViewItem In f.ListaPonto.Items dRow = oTable.NewRow dRow("Data") = elemento.SubItems(0).Text dRow("Entrada") = elemento.SubItems(1).Text dRow("Saida") = elemento.SubItems(2).Text oTable.Rows.Add(dRow) Next Return oTable End Function Private Sub ListaPonto() Try Dim RelatorioCrystal As New RelatorioPontoCrystal RelatorioCrystal.Load() 'configurando para impressÆo em Landscape RelatorioCrystal.PrintOptions.PaperOrientation = PaperOrientation.Landscape 'definindo o DataSource do relat¢rio RelatorioCrystal.SetDataSource(TabelaParaCrystal()) 'visualizando o relat¢rio CrystalReportViewer1.DisplayGroupTree = False CrystalReportViewer1.ReportSource = RelatorioCrystal Catch ex As Exception MessageBox.Show(ex.Message) End Try End Sub End Class O código rola na boa quando clico no botão imprimir ele me a seguinte mensagem de erro: The report has no tables. Ou seja não tem tabela! Já fiz os teste e ele esta capturando os valores do listview do form1, fiz teste no load do forma dessa forma: Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Elemento For Each elemento In TabelaParaCrystal.Rows ''aqui eu testo os valores capturados do listview MessageBox.Show(elemento("Data").ToString & " " & elemento("Entrada").ToString) Next End Sub .... E ele me mostrou os dados do ListView que esta no form1! Agora não entendo porque esta dando a mesnagem de erro! Ele da a mensagem e carrega o relatório vazio na tela Alguém sabe onde estou errando?
  4. alexandremanowar
    E a e beleza! Certo então o esquema é Crystal Reports, você poderia me explicar como usar? Pois nunca usei e o maior problemas que vejo é como imprimir os dados do listview exatamente como esta no relatório feito em Crystal Reports. Você poderia me dar um exemplo de como fazer? Valeu
  5. alexandremanowar
    E ae pessoal beleza Estou usando visual studio 2008 e estou desenvolvendo um programa desktop e um dos meus forms é um relatório onde 95% dos dados são listados em um listview e o demais label (apenas 3 labels), preciso imprimir os dados do listview e os do label, mas nunca criei um relatório, já ouvi falar em Crystal mas nunca usei, a minha pergunta é qual o melhor modo de criar um relatório para imprimir os dados do grid e labels? Os dados do grid eu gostaria que saia na folha exatamente igual esta na tela os dos labels eu gostaria de posicionar em local diferente. Alguém poderia me explicar ? Valeu
  6. alexandremanowar
    E a e beleza Entõa funcionou sim cara! Já fiz teste em outras máquinas e esta trazendo o serial number com sucesso. Espero ter ajudado at+
  7. alexandremanowar
    E ae beleza Então fiz vários testes aqui e não deu em nada, então como era só um teste pequeno refiz e ficou ok. Não sei o que era mas valeu pela força
  8. alexandremanowar
    E ae beleza! então cara consegu fazer um esquema aqui muito legal! Achei em um fórum o cara colocou a idéia bacana, ficou assim: Dim t As New TimeSpan(60, 0, 0) Dim t2 As New TimeSpan(60, 0, 0) Dim t3 As New TimeSpan(60, 0, 0) t = t.Add(t2) t = t.Add(t3) Dim totalgeral As String totalgeral = String.Format("{0}:{1}:{2}", Int(t.TotalHours), (t.Minutes), (t.Seconds)) MessageBox.Show(totalgeral.ToString) Valeu pela força!
  9. alexandremanowar
    E a e beleza! Então é isso mesmo que esta acontecendo ele esta jogando em dias eu não tinha percebido! Cara abri o post hoje 8 horas vi sua resposta e comecei a procurar um jeito de converter isso em horas pura novamente mas não consegui, procurei em fóruns e tutorias mas não achei nada, tentei usar algumas coisas com timespan mas não rolou, você sabe como conver isso para horas ou seja exibir os 180:00:00? Valeu pela força
  10. alexandremanowar
    Fiz um código que calcula horas dirária baseado em um tópico que aprendi aqui no fórum, esta funcionando normalmente, porém quando eu mando calcular o total de horas de todos os dias ele me exibe um valor errado, fiz uns testes quando eu mando calcular a hora do dia ela não passa de 23:59:59, quando eu mando calcular o total de horas de todos os dias daria aproximadamente 180:00:00 ou mais porém precebi que o método que estou usando para somar se limita em 23:59:59. Como posso fazer para calcular o total de horas de todos os dias? Olha a parte do código que faz esse processo: Dim TotalGeral as TimeSpan TotalGeral = New TimeSpan(0, 0, 0) Dim TotalFinal As TimeSpan TotalFinal = New TimeSpan(0, 0, 0) dsPonto = ExecutarStringSQL.BuscarDados("select * from tabela order by cont ") For Each RegistroHoras In dsPonto.Tables(0).Rows HoraEntrada = RegistroHoras("hora_entrada").ToString.Split(":") HoraSaida = RegistroHoras("hora_saida").ToString.Split(":") TotalHoras.Add(New TimeSpan() {New TimeSpan(HoraEntrada(0), HoraEntrada(1), 0), New TimeSpan(HoraSaida(0), HoraSaida(1), 0)}) ContadorBanco = RegistroHoras("cont") Next For Each AnalisaHora As TimeSpan() In TotalHoras SomaHoraEntrada = AnalisaHora(0) SomaHoraSaida = AnalisaHora(1) Subtotal = SomaHoraSaida.Subtract(SomaHoraEntrada) TotalGeral = TotalGeral.Add(Subtotal) TotalFinal = TotalFinal.Add(TotalGeral) Next Onde TotalGeral mostra o total de horas do dia, como não passa de 23:59:59 então exibie o resultado ok Onde TotalFinal mostra a soma de horas de todos os dias onde passa de 180:00:00, preciso de uma solução para esse resultado final. Alguém sabe como fazer essa soma?
  11. alexandremanowar
    Ea e pessoal fiz um programinha usei o publish para gerar o instalador dele e instalei na minha máquina normalmente, porém fui instalar em outras máquina e esta dando a seguinte mensagem quando tento instalar: "Não é possível instalar ou executar esse aplicativo. O aplicativo exige que o conjuntode módulos(assembly)stdole Versão 7.0.3300.0seja instalado no GAC(cache de conjunto de módulos global). Contate o Administrador" Já estou como administrador e o .net já esta instalado e o service pack também mas esta dando essa mensagem é a primeira vez que isso acontece! Na minha máquina onde estou desenvolvendo instalou mas nas demais máquinas não. O que preciso fazer nas demais máquinas para isso funcionar? Valeu
  12. alexandremanowar
    Certo essa dica é muito boa também Valeu mesmo Obrigado
  13. alexandremanowar
    E ae pessoal beleza Depois de muita pesquisa e principalmente ajuda, consegui achar a solução. Com o código que postei acima eu já tinha chegado no resultado só não sabia disso, foi um colega dos fóruns chamado Marcio que me explicou que eu já estava no resultado só que ele precisa ser convertido para hexa então outro amigo chamado Laercio me explicou como converter então cheguei no resultado final. O serial capturado seria é esse: 3053524a354a5036313735363336202020202020 após a converção em hexa chega o valor real que é : SOJRJ56P716563 vou postar o código e quem precisar esta aí: Esses são os eventos e funções que estão dentro do meu form: Imports System.Management Imports System.Net.NetworkInformation Public Class lblRede Private Sub btnSerie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSerie.Click ''captura a marca do hd Dim HardDisk As String Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") Dim hdCollection As New ArrayList() Dim a As Integer = 0 For Each wmi_HD As ManagementObject In searcher.[Get]() Dim hd As New HardDrive() hd.Model = wmi_HD("Model").ToString() If a = 0 Then HardDisk = hd.Model End If hdCollection.Add(hd) a += 1 Next lblMarca.Text = HardDisk.ToString ''captura a série do hd Dim searcher2 As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") Dim hdCollection2 As New ArrayList() Dim Serial As String = "" Dim Serial2 As String = "" For Each wmi_HD As ManagementObject In searcher2.[Get]() Dim hd As New HardDrive() hd.Model = wmi_HD("Model").ToString() hd.Type = wmi_HD("InterfaceType").ToString() hdCollection2.Add(hd) Next searcher2 = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia") Dim i As Integer = 0 For Each wmi_HD As ManagementObject In searcher2.[Get]() Dim hd As HardDrive = DirectCast(hdCollection2(i), HardDrive) 'Pegando o Serial If wmi_HD("SerialNumber") Is Nothing Then hd.SerialNo = "None" Serial = "Não consta" Serial2 = "Não consta" Else hd.SerialNo = wmi_HD("SerialNumber").ToString() Serial = wmi_HD("SerialNumber").ToString() Serial2 = wmi_HD("SerialNumber").ToString() End If i += 1 Next lblSerie.Text = hex2ascii(Serial) Label7.Text = Serial2 'captura a série da placa de rede Dim placas() As NetworkInterface = NetworkInterface.GetAllNetworkInterfaces() Dim b As Integer = 0 For Each placa As NetworkInterface In placas 'Debug.Print(placa.GetPhysicalAddress().ToString()) If b = 0 Then lblSerieRede.Text = (placa.GetPhysicalAddress().ToString()) End If b += 1 Next End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim classEmbaralhar As New Senha() '' instancia a class Senha classEmbaralhar.SenhaGerada() '' executa a métdo SenhaGerada 'exibe a senha sugerida lblKey.Text = classEmbaralhar.SenhaFinal End Sub Public Function hex2ascii(ByVal hextext As String) As String Dim Value As String = "" Dim Num As String = "" For y As Integer = 1 To Len(hextext) num = Mid(hextext, y, 2) Value = Value & Chr(CInt(Val("&h" & Num))) y = y + 1 Next y hex2ascii = Value hex2ascii = InverterString(Value) End Function Public Function InverterString(ByVal text As String) As String Dim Value As String = "" Dim Num1 As String = "" Dim Num2 As String = "" For y As Integer = 1 To Len(text) Step 2 Num1 = Mid(text, y, 1) Num2 = Mid(text, y + 1, 1) Value = Value & Num2 & Num1 Next y InverterString = Value End Function End Class Essa é a class: Class HardDrive Private m_model As String = Nothing Private m_type As String = Nothing Private m_serialNo As String = Nothing Public Property Model() As String Get Return m_model End Get Set(ByVal value As String) m_model = value End Set End Property Public Property Type() As String Get Return m_type End Get Set(ByVal value As String) m_type = value End Set End Property Public Property SerialNo() As String Get Return m_serialNo End Get Set(ByVal value As String) m_serialNo = value End Set End Property End Class Valeu a todos que me ajudaram
  14. alexandremanowar
    E ae cara beleza Valeu pelo força cara funcionou legal Valeu mesmo
  15. alexandremanowar
    E ae pessoal Estou usando o vb.net no vs 2008 e criei um datagrid e deixei a propriedade SelectionMode como FullRowSelect, ele esta exibindo os dados do banco normalmente até aí tudo bem, porém eu quero que ao clicar em um linha ele me exiba o valor da coluna 0 do grid então fiz de algumas formas mas nenhuma deu certo ou exibiu mensagens com false ou várias strings mas não o que eu queria. Por exemplo fiz assim: Private Sub GridFuncionarios_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GridFuncionarios.Click TextBox1.Text = GridFuncionarios.Columns(0).Selected End Sub Tentei outros derivados disso acima e nada, acredito que é porque nesse caso é um Boolean logo ele exibe true ou false na minha textbox! Alguém sabe como capturo a coluna 0 que foi clicada no grid? Lembrado que deixei marca da opção SelectionMode como FullRowSelect, porém acredito que isso não faz diferença. Valeu
  16. alexandremanowar
    E ae beleza É realmente não esta fácil já procurei igual louco por isso e não achei nada o pior é que o programa que vi fazendo isso esta instalado na minha máquina e ele foi feito com .net 2.0, ele pega o serial number do hd para validar a instalação oem dele. Vou continuar pesquisando e pesso que se alguém encontrar alguma coisa posta aqui por favor. Valeu
  17. alexandremanowar
    E ae pessoal beleza Passei o fim de semana procurando algo que responda esse último post acima mas não consegui nada! Será que alguém tem alguma idéia? Valeu
  18. alexandremanowar
    E ae pessoal beleza Então esse código que eu fiz acima captura uma númeração do hd que acredito que é o serian mac, porém vi um programa esses dias que capturou o serial number do disco mesmo! por exempo o serial do meu hd que o código que eu fiz esta pegando é esse: 3000df78dd4545444dsd4105462166a54~ Mas o serial number do hd é SOJRJ56P716563 o programa que eu vi mostra extamente esse serial number e é o que eu gostaria de pegar também! Alguém sabe como fazer isso? valeu
  19. alexandremanowar
    E ae Gaymalkin beleza Fiz os testes aqui e ficou bacana value pela força cara at+
  20. alexandremanowar
    E ae beleza! Cara valeu pela força, vou testar e assim que eu tiver um resultado posto aqui Valeu
  21. alexandremanowar
    E ea pessoal beleza Eu estou usando o vs 2008 em um projeto desktop e estou arrumando um layout de menu, mudei a cor do menu belezinha mas não consigo mudar aquela cor do menu quando eu apenas passo ou mouse nas opções do menu? E a cor de quando clico em um menu e ele muda só a cor daquela opção que escolhi, também não consigo mudar. Preciso mudar isso porque essas cores parão que já estão nela não estão legal com a cor que estou usando no menu Alguém sabe me dizer como mudo essas opções?
  22. alexandremanowar
    E ae beleza Legal saber que tem como! Mas da para fazer isso usando um projeto que vai ter um form MDI como tela principal onde vaio ficar essa barra de ferramentas? E que propriedade exatamente você esta usando para criar essa barra? porque a única coisa que encontro disponível para colocar com barra de ferramentas é a toolstrip. Como exatamente você esta criando a barra de ferramentas? Valeu pela força
  23. alexandremanowar
    E ae pessoal beleza Estou usando o vs 2008 e gostaria de sabe se é possível montar a barra de ferramentas igual a do novo office 2007? É que vou começar um projeto desktop windows novo e gostaria de fazer ele com a cara do office já que vai usar componentes do office então gostaria de criar uma barra de ferramentas igual a do office 2007 É possível?
  24. alexandremanowar
    E ae pessoal beleza Então eu fiz um teste para carrinho de compra simples e funcionou legal! O único problema é que ele não meche com quantidade em estoque, ele apenas coloca produtos no carrinho trabalhando com sessão e agora faltam os seguintes desafios: Ao colocar o produto no carrinho a quantidade já tem que ser abatida, porque se não alguém pode comprar mais do que já tem no estoque e isso vai causar problemas, tipo tem 4 produtos no estoque e alguém coloca 3 no carrinho mesmo antes de fechar a compra no estoque já tem que constar 1 porque se não outra pessoa entra na loja e ve 4 produtos e pode tentar comprar 2, logo vai dar problemas, porem é como falei se por algum motivo o cara que colocou 3 no carrinho não fechar a compra e fechar o browser ou sair da página os produtos do carrinho dele tem que voltar pro estoque. Eu estava pensando em uma idéias que não sei se é possível e gostaria que alguém me auxilie nisso, é o seguinte criar um script em php que é manipulado por uma agenda no servidor ou seja executa esse script automáticamente a cada 1 hora por exemplo, então esse script pode fazer verificação por dois modos: 1) Verificar quantas horas o produto já esta no carrinho se tiver acima de uma certa quantidade de horas retorna os produtos pro estoque e limpa o carrinho, para isso eu preciso saber se o servidor que fica o php tem a capacida de agendar a execução do script automáticamente! 2) Essa não sei se é possível mas verifica se o borwser que usava aquela sessão ainda esta ativo se não estiver retorna o produto pro estoque e limpa o carrinho Acredito que a primeira opção é possível, se alguém souber se é possível me explique como proceder por favor Valeu pela força
  25. alexandremanowar
    E ae beleza Value pela força cara E como eu faço para pegar apenas o serial do disco principal? Sem varrer todos? Eu fiz uma gambi que resolveu mas não é o modo certo, eu fiz isso: Dim HardDisk, Tipo, Serial As String Dim searcher As New ManagementObjectSearcher("SELECT * FROM Win32_DiskDrive") Dim hdCollection As New ArrayList() Dim a As Integer = 0 For Each wmi_HD As ManagementObject In searcher.[Get]() Dim hd As New HardDrive() hd.Model = wmi_HD("Model").ToString() If a = 0 Then HardDisk = hd.Model End If hd.Type = wmi_HD("InterfaceType").ToString() If a = 0 Then Tipo = hd.Type End If hdCollection.Add(hd) a += 1 Next searcher = New ManagementObjectSearcher("SELECT * FROM Win32_PhysicalMedia") Dim i As Integer = 0 For Each wmi_HD As ManagementObject In searcher.[Get]() ' get the hard drive from collection ' using index Dim hd As HardDrive = DirectCast(hdCollection(i), HardDrive) ' get the hardware serial no. If wmi_HD("SerialNumber") Is Nothing Then If i = 0 Then hd.SerialNo = "None" End If Else hd.SerialNo = wmi_HD("SerialNumber").ToString() If i = 0 Then Serial = hd.SerialNo End If End If i += 1 Next lblMarca.Text = HardDisk.ToString lblTipo.Text = Tipo.ToString lblSerie.Text = Serial Ou seja mandei preencher a variável quando o contador estiver no 0, mas deve ter uma forma de pegar só o disco principal se você souber me da um toque Valeu pela força
×
×
  • Criar Novo...