PiGmEu

Experimente usar o CheckBox(caixinha Quadrada) exemplo.. 2 forms chamados FORM1 e FORM2 dentro do FORM2 você tem 1 label, q vao aparecer o meu nome(se você selecionar meu nome no combo) ou meu apelido(se voce selecionar ele no combo).. então ficaria assim: Private Sub Combo1_Click() Select Case Combo1.Text Case "gustavo" Form2.Label1.Caption = "Gustavo" Case "pigmeu" Form2.Label1.Caption = "PiGmEu" End Select End Sub Agora me explique essa parte de "ELA não VAI SER FIXA" q eu não entendi. []´s

Traduzindo: Contest = Competição. um exemplo.. eles lançam uma ideia do tipo.. cria um programa q faça sozinho a soma de 2 numeros (haahuhueaue q ridículo esse exemplo ehhe), ai tem um prazo maximo para o pessoal fazer, e quem fizer primeiro e o codigo estiver certinho e funcionando Ganha o Troféu ABACAXI ihih seria isso um Contest.. um competição q insentiva o pessoal.. Da uma olhadinha no forum de ASP/ASP.net q acho q da pra você entender melhor.. eles sempre fazem um Contest.. já ta na 3ºEdição http://scriptbrasil.com.br/forum/index.php?showforum=2 []´s

ehehhe Sim Brother.. o Tio Macoratti existe, ele não é virtual não... ele ajuda muito sim o pessoal de VB/VB.net e agora ta comecando com C#... Ele é uma pessoa só, tem até uns comentarios antigos q o pessoal tava reclamando q não tinha mais atualização no site, e ele meteu a boca nos kras, dizendo q ele faz tudo isso de graça pra comunidade e tals e q ele tava sem tempo, e q é tudo de graça e tals.. uns troco assim.. eheh Deem um Salve ao Tio Macoratti! \m/\m/ Uhuhuhuh

Brother... isso é verdade.. quando se cria um SETUP ele leva junto tudo q é necessario para a instalacao do seu sistema, alguns sistemas como você disse não precisam de setup pois já tem as dlls instaladas na maquina.. um caso comum q você vai ver é em aplicacoes .net em Window Application, o .net em quase todos os casos não é preciso criar um Deployment pois se voce usar as ferramentos do .net basta a pessoa ter instalado na maquina o .net FrameWork para rodar. o melhor jeito de voce poder fazer o seu setup é verificar quais DLLs está usando, OCXs, banco de dados, etc... baixe o InnoSetup, e crie sua propria instalacao personalizada. Espero ter ajudado em algo. []´s

Ta nada.. pode deixando sua opniao ae !!!.. aheuaheuahea []´s!

ehehheh rlx... você não é o unico... o pior é q o unico q funciona no meu Virtual PC é o RedHat 9. alguma coisa, o CL 9 não funciona, o Suse tb não.. =( ate funciona.. mais não sei como ahehaheah []´s

Acho legal... ia insentivar(incentivar sei la como escreve) muito gente =) se eu não me engano la na parte de ASP os pessoal faz não faz? Por mim beleza.. =) []´s

eheheh Conectiva é um pacote, como existem varias(Red Hat(q é o q eu tenho), Slackware, Suse, entre outros....) =)

ehhehe mas da uma lida sim.. ele ta comentado e tals =) []´s

Eu??? ehhee.. a q eu tinha era assim: "Vivendo e aprendendo, errando e se fud***" ehehhehhehe sobre a foto..hehe deixa vai.. vamos mudar de assunto eheh []´s

Bela Will =) Eu tinha visto um VB pra linux uma vez... mas não sei como se chamava, um cara tinha postado isso no site do linuxall.org eu acho... ehhehe []´s

tipo.. aki no trampo tem um pessual q mexe no sharepoint, criando WEBPARTS e tals... quando der uma aliviada la nos kras eu vou dar uma perguntada pra ver se eles sabem e tals... ai qualquer coisa eu posto aki!! []´s! =)

Bom.. depende.. se você for programar em ASP.NET voce precisa ter uma noção sim mas se voce for usar apenas Windows Application nem precisa saber

ADO.. se um dia você for migrar de um BD em Access p/ um SQL Server, você tera q mudar para ADO, pois DAO seve.. pelo q eu me lembre tb.. DAO foi extinto do VS.net, então minha dica é.. comece com ADO. []´s

cara.. eu nunca fiz isso não.. mas da uma procurada sobre Winsock e sobre o Microsoft Internet Transfer... =) []´s

brother. acho q nesse link pode t ajudar em algo.. la tem o SDK do SP.. http://www.microsoft.com/windowsserver2003...nt/default.mspx =) []´s

Isso! Abraços, Gustavo Dividino ahhaHA Deixa o Will ler isso! ehhehee

cara.. não sei como é.. pois ainda não baixei, vou baixar em casa pra testar.. apenas recebi isso e resolvi passar pro pessoal! eheheh mais eu acho q deve ser no estilo WEBMATRIX e tals... []s´!

Texto retirado do Site da Microsoft: []s

Disponível para download as versões Express dos produtos .NET 2.0. Link: http://lab.msdn.microsoft.com/vs2005/get/default.aspx Os produtos são: Visual Web Developer 2005 Express Edition Visual Basic 2005 Express Edition Visual C# 2005 Express Edition Visual C++ 2005 Express Edition Visual J# 2005 Express Edition SQL Server 2005 Express Edition Pra quem quiser testar.. está ai []´s

Bom.. essa duvida cairia melhor na parte de Access não? mas vamos la. Vai no Access em Ferramentas -> Relacionamentos pronto.. la vai estar suas tabelas..é so fazer o relacionamento q desejar []´s

cara.. da uma procurada na funcao RegSetValue acho q pode t ajudar.. []´s

Eheheheh mudou de assunto??? Juro q não tinha percebido eheheheheh Mas até agora nada da --Nana-- se manifestar não é?! Po.. se AS guest já somem so da gente falar.. imagina se elas vissem as nossas fotos! q meeeeedooooo []´s ehehhee

Bom Trakinas... revirando algumas coisas etc... achei esse codigo em VBS q ele buscas as coisas instaladas no seu PC(Softwares, Hardwares, etc..) e gera um XML com os resultados. tipo da um verificada... acho q pode t ajudar... []´s! option explicit on error resume next '****************************************************************************************************************** ' VARIÁVEIS ' '****************************************************************************************************************** dim objlocator, objservices dim wshnetwork dim x, y, match dim fso, f const forreading=1, forwriting=2,forappending=8 dim instancias, instancias_aux, obj, obj_aux dim info '****************************************************************************************************************** ' CRIAÇÃO DOS OBJETOS SWBEM ' '****************************************************************************************************************** set objlocator = createobject("WbemScripting.SWbemLocator") set objservices = objlocator.connectserver(".", "root\cimv2") objservices.security_.impersonationlevel=3 'Se houver algum erro na criação dos objetos SWBem, uma mensagem de erro será exibida: if err <> 0 then msgbox Err.Description err.clear 'Do contrário, o código do script continuará sua execução: else set wshnetwork = wscript.createobject("wscript.network") set fso = createobject("scripting.filesystemobject") set f = fso.opentextfile("c:\" & lcase(wshnetwork.computername) & ".xml",forwriting,true) info = "<?xml version='1.0'?>" & vbCRLF info = info & "<Inventario computador='" & ucase(wshnetwork.computername) & "'>" & vbCRLF '****************************************************************************************************************** ' SISTEMA OPERACIONAL ' '****************************************************************************************************************** set instancias = objservices.execquery("select caption, version, installdate, manufacturer, serialnumber, registereduser, organization, servicepackmajorversion, oslanguage, currenttimezone, windowsdirectory, totalvirtualmemorysize, totalvisiblememorysize from Win32_OperatingSystem") info = info & "<SistemasOperacionais>" & vbCRLF for each obj in instancias info = info & "<SistemaOperacional nome='" & obj.caption & "' versao='" & obj.version & "'>" & vbCRLF info = info & "<DataDeInstalacao>" & mid(obj.installdate,7,2) & "/" & mid(obj.installdate,5,2) & "/" & mid(obj.installdate,1,4) & "</DataDeInstalacao>" & vbCRLF info = info & "<Fabricante>" & obj.manufacturer & "</Fabricante>" & vbCRLF info = info & "<SerialNumber>" & obj.serialnumber & "</SerialNumber>" & vbCRLF info = info & "<UsuarioRegistrado>" & obj.registereduser & "</UsuarioRegistrado>" & vbCRLF info = info & "<Organizacao>" & obj.organization & "</Organizacao>" & vbCRLF if not isnull(obj.servicepackmajorversion) then info = info & "<ServicePack>" if obj.servicepackmajorversion = 0 then info = info & "Nenhum instalado" else info = info & obj.servicepackmajorversion end if info = info & "</ServicePack>" & vbCRLF end if info = info & "<Idioma>" select case cstr(cint(obj.oslanguage)) case "1033" info = info & "Ingles (Estados Unidos)" case "1046" info = info & "Portugues (Brasil)" case else info = info & "Outro" end select info = info & "></Idioma>" & vbCRLF info = info & "<FusoHorario referencia='Greenwich' unidade='horas'>" & obj.currenttimezone/60 & "</FusoHorario>" & vbCRLF info = info & "<MemoriaFisicaDisponivel unidade='MegaBytes'>" & round(obj.totalvisiblememorysize/1024,0) & "</MemoriaFisicaDisponivel>" & vbCRLF info = info & "<MemoriaVirtualDisponivel unidade='MegaBytes'>" & round(obj.totalvirtualmemorysize/1024,0) & "</MemoriaVirtualDisponivel>" & vbCRLF info = info & "<PastaDeSistema>" & lcase(obj.windowsdirectory) & "</PastaDeSistema>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</SistemaOperacional>" & vbCRLF next info = info & "</SistemasOperacionais>" '****************************************************************************************************************** ' CLIENTE DE REDE ' '****************************************************************************************************************** set instancias = objservices.execquery("select name, manufacturer from Win32_NetworkClient") info = info & "<ClientesDeRede>" & vbCRLF for each obj in instancias info = info & "<ClienteDeRede nome='" & obj.name & "'>" & vbCRLF info = info & "<Fabricante>" & obj.manufacturer & "</Fabricante>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</ClienteDeRede>" & vbCRLF next info = info & "</ClientesDeRede>" & vbCRLF '****************************************************************************************************************** ' ADAPTADORES DE REDE ' '****************************************************************************************************************** dim netadap(64,11,64), index index = 0 set instancias = objservices.execquery("select macaddress, ipaddress, ipsubnet, defaultipgateway, dnsserversearchorder, winsprimaryserver, winssecondaryserver, ipxenabled, ipxaddress from Win32_NetworkAdapterConfiguration") info = info & "<InterfacesDeRede>" & vbCRLF for each obj in instancias if not isnull(obj.ipaddress) then if netadap(index,0,0) <> obj.macaddress then index = index + 1 netadap(index,0,0) = obj.macaddress set instancias_aux = objservices.execquery("select productname, manufacturer, adaptertype from Win32_NetworkAdapter where MACAddress='" & obj.macaddress & "'") for each obj_aux in instancias_aux netadap(index,1,0) = obj_aux.productname netadap(index,2,0) = obj_aux.manufacturer netadap(index,3,0) = obj_aux.adaptertype next end if for x = 0 to ubound(obj.ipaddress) for y = 0 to 63 if netadap(index,4,y) = obj.ipaddress(x) then match = true exit for else match = false end if next if match = false then for y = 0 to 63 if netadap(index,4,y) = "" then netadap(index,4,y) = obj.ipaddress(x) exit for end if next end if match = false next for x = 0 to ubound(obj.ipsubnet) for y = 0 to 63 if netadap(index,5,y) = obj.ipsubnet(x) then match = true exit for else match = false end if next if match = false then for y = 0 to 63 if netadap(index,5,y) = "" then netadap(index,5,y) = obj.ipsubnet(x) exit for end if next end if match = false next for x = 0 to ubound(obj.defaultipgateway) for y = 0 to 63 if netadap(index,6,y) = obj.defaultipgateway(x) then match = true exit for else match = false end if next if match = false then for y = 0 to 63 if netadap(index,6,y) = "" then netadap(index,6,y) = obj.defaultipgateway(x) exit for end if next end if match = false next for x = 0 to ubound(obj.dnsserversearchorder) for y = 0 to 63 if netadap(index,7,y) = obj.dnsserversearchorder(x) then match = true exit for else match = false end if next if match = false then for y = 0 to 63 if netadap(index,7,y) = "" then netadap(index,7,y) = obj.dnsserversearchorder(x) exit for end if next end if match = false next if obj.winsprimaryserver <> "" then netadap(index,8,0) = obj.winsprimaryserver end if if obj.winssecondaryserver <> "" then netadap(index,9,0) = obj.winssecondaryserver & vbCRLF end if if obj.ipxenabled = true then netadap(index,10,0) = obj.ipxaddress end if end if if err <> 0 then msgbox err.description err.clear end if next for index = 0 to 63 if netadap(index,0,0) <> "" then info = info & "<InterfaceDeRede MACAddress='" & netadap(index,0,0) & "'>" & vbCRLF info = info & "<NomeDoAdaptador>" & netadap(index,1,0) & "</NomeDoAdaptador>" & vbCRLF info = info & "<Fabricante>" & netadap(index,2,0) & "</Fabricante>" & vbCRLF info = info & "<TipoDoAdaptador>" & netadap(index,3,0) & "</TipoDoAdaptador>" & vbCRLF info = info & "<EnderecoIPX>" & netadap(index,10,0) & "</EnderecoIPX>" & vbCRLF info = info & "<EnderecosIP>" & vbCRLF for x = 0 to 63 if netadap(index,4,x) <> "" then info = info & "<Endereco>" & netadap(index,4,x) & "</Endereco>" & vbCRLF end if next info = info & "</EnderecosIP>" & vbCRLF info = info & "<MascarasDeSubRede>" & vbCRLF for x = 0 to 63 if netadap(index,5,x) <> "" then info = info & "<Mascara>" & netadap(index,5,x) & "</Mascara>" & vbCRLF end if next info = info & "</MascarasDeSubRede>" & vbCRLF info = info & "<Gateways>" & vbCRLF for x = 0 to 63 if netadap(index,6,x) <> "" then info = info & "<Endereco>" & netadap(index,6,x) & "</Endereco>" & vbCRLF end if next info = info & "</Gateways>" & vbCRLF info = info & "<ServidoresDNS>" & vbCRLF for x = 0 to 63 if netadap(index,7,x) <> "" then info = info & "<Endereco>" & netadap(index,7,x) & "</Endereco>" & vbCRLF end if next info = info & "</ServidoresDNS>" & vbCRLF info = info & "<ServidorWINSPrimario>" & netadap(index,8,0) & "</ServidorWINSPrimario>" & vbCRLF info = info & "<ServidorWINSSecundario>" & netadap(index,9,0) & vbCRLF & "</ServidorWINSSecundario>" & vbCRLF info = info & "</InterfaceDeRede>" & vbCRLF end if next info = info & "</InterfacesDeRede>" & vbCRLF '****************************************************************************************************************** ' PLACA MÃE ' '****************************************************************************************************************** set instancias = objservices.execquery("select manufacturer from Win32_BaseBoard") info = info & "<Motherboard>" & vbCRLF for each obj in instancias info = info & "<Fabricante>" & obj.manufacturer & "</Fabricante>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if next info = info & "</Motherboard>" & vbCRLF '****************************************************************************************************************** ' DISPOSITIVOS ONBOARD ' '****************************************************************************************************************** set instancias = objservices.execquery("select devicetype, model, manufacturer from Win32_OnBoardDevice") info = info & "<DispositivosOnboard>" & vbCRLF for each obj in instancias info = info & "<Dispositivo>" & vbCRLF info = info & "<Tipo>" select case obj.devicetype case 1 info = info & "Outro adaptador" case 2 info = info & "Adaptador desconhecido" case 3 info = info & "Adaptador de vídeo" case 4 info = info & "Adaptador SCSI" case 5 info = info & "Adaptador de rede (Ethernet)" case 6 info = info & "Adaptador de rede (Token Ring)" case 7 info = info & "Adaptador de som" end select info = info & "</Tipo>" & vbCRLF info = info & "<Modelo>" & obj.model & "</Modelo>" & vbCRLF info = info & "<Fabricante>" & obj.manufacturer & "</Fabricante>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</Dispositivo>" & vbCRLF next info = info & "</DispositivosOnboard>" & vbCRLF '****************************************************************************************************************** ' MONITOR ' '****************************************************************************************************************** set instancias = objservices.execquery("select monitortype, monitormanufacturer from Win32_DesktopMonitor") info = info & "<Monitores>" & vbCRLF for each obj in instancias info = info & "<Monitor>" & vbCRLF info = info & "<Tipo>" & obj.monitortype & "</Tipo>" & vbCRLF info = info & "<Fabricante>" & obj.monitormanufacturer & "</Fabricante>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</Monitor>" & vbCRLF next info = info & "</Monitores>" '****************************************************************************************************************** ' ADAPTADOR DE VÍDEO ' '****************************************************************************************************************** set instancias = objservices.execquery("select name, adapterram from Win32_VideoController") info = info & "<AdaptadoresDeVideo>" & vbCRLF for each obj in instancias info = info & "<AdaptadorDeVideo>" & vbCRLF info = info & "<NomeDoAdaptador>" & obj.name & "</NomeDoAdaptador>" & vbCRLF if obj.adapterram <> "" then info = info & "<RAM unidade='MegaBytes'>" & round((obj.adapterram/1024)/1024,0) & "</RAM>" & vbCRLF end if info = info & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</AdaptadorDeVideo>" & vbCRLF next info = info & "</AdaptadoresDeVideo>" & vbCRLF '****************************************************************************************************************** ' DISCOS RÍGIDOS ' '****************************************************************************************************************** set instancias = objservices.execquery("select index, model, manufacturer, interfacetype, size, partitions from Win32_DiskDrive") info = info & "<DiscosRigidos>" & vbCRLF for each obj in instancias info = info & "<DiscoRigido indice='" & obj.index & "'>" & vbCRLF info = info & "<Modelo>" & obj.model & "</Modelo>" & vbCRLF info = info & "<Fabricante>" & obj.manufacturer & "</Fabricante>" & vbCRLF info = info & "<Interface>" & obj.interfacetype & "</Interface>" & vbCRLF info = info & "<CapacidadeDoDisco unidade='GigaBytes'>" & round(((obj.size/1024)/1024)/1024,2) & "</CapacidadeDoDisco>" & vbCRLF info = info & "<Particoes quantidade='" & obj.partitions & "'>" & vbCRLF set instancias_aux = objservices.execquery("select index, size from Win32_DiskPartition where diskindex=" & obj.index) for each obj_aux in instancias_aux info = info & "<Particao indice='" & obj_aux.index & "'>" & vbCRLF info = info & "<Tamanho unidade='GigaBytes'>" & round(((obj_aux.size/1024)/1024)/1024,2) & "</Tamanho>" & vbCRLF info = info & "</Particao>" next info = info & "</Particoes>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</DiscoRigido>" & vbCRLF next info = info & "</DiscosRigidos>" & vbCRLF '****************************************************************************************************************** ' VOLUMES ' '****************************************************************************************************************** set instancias = objservices.execquery("select name, drivetype, volumename, providername, filesystem, size, freespace from Win32_LogicalDisk") info = info & "<Volumes>" & vbCRLF for each obj in instancias if obj.drivetype = 3 or obj.drivetype = 4 or obj.drivetype = 5 then info = info & "<Volume drive='" & obj.name & "'>" & vbCRLF info = info & "<Tipo>" select case obj.drivetype case 3 info = info & "Unidade de disco local" case 4 info = info & "Unidade de disco de rede (mapeada)" case 5 info = info & "CD-ROM" end select info = info & "</Tipo>" & vbCRLF info = info & "<Rotulo>" & obj.volumename & "</Rotulo>" & vbCRLF info = info & "<CaminhoDeRede>" & obj.providername & "</CaminhoDeRede>" & vbCRLF if not isnull(obj.size) then info = info & "<SistemaDeArquivo>" & obj.filesystem & "</SistemaDeArquivo>" & vbCRLF info = info & "<EspacoTotal unidade='GigaBytes'>" & round(((obj.size/1024)/1024)/1024,2) & "</EspacoTotal>" & vbCRLF info = info & "<EspacoLivre unidade='GigaBytes'>" & round(((obj.freespace/1024)/1024)/1024,2) & "</EspacoLivre>" & vbCRLF end if info = info & "</Volume>" & vbCRLF end if if err <> 0 then msgbox err.description err.clear end if next info = info & "</Volumes>" '****************************************************************************************************************** ' IMPRESSORAS ' '****************************************************************************************************************** set instancias = objservices.execquery("select name, drivername, portname from Win32_Printer") info = info & "<Impressoras>" & vbCRLF for each obj in instancias info = info & "<Impressora nome='" & obj.name & "'>" & vbCRLF info = info & "<Driver>" & obj.drivername & "</Driver>" & vbCRLF info = info & "<Porta>" & obj.portname & vbCRLF & "</Porta>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</Impressora>" & vbCRLF next info = info & "</Impressoras>" & vbCRLF '****************************************************************************************************************** ' SOFTWARE INSTALADO ' '****************************************************************************************************************** set instancias = objservices.execquery("select name, version, vendor, installdate from Win32_Product") info = info & "<SoftwaresInstalados>" & vbCRLF for each obj in instancias info = info & "<SoftwareInstalado nome='" & obj.name & "'>" & vbCRLF info = info & "<Versao>" & obj.version & "</Versao>" & vbCRLF info = info & "<Fabricante>" & obj.vendor & "</Fabricante>" & vbCRLF info = info & "<DataDeInstalacao>" & obj.installdate & "</DataDeInstalacao>" & vbCRLF if err <> 0 then msgbox err.description err.clear end if info = info & "</SoftwareInstalado>" & vbCRLF next info = info & "</SoftwaresInstalados>" & vbCRLF info = info & "</Inventario>" info = substitui(info) 'Salva as informações coletadas no arquivo <nome_do_computador>.log: f.write info f.close end if 'Função que substitui caracteres inválidos para o padrão XML por equivalentes válidos: function substitui(str) str = replace(str, "á", "a") str = replace(str, "ã", "a") str = replace(str, "ä", "a") str = replace(str, "â", "a") str = replace(str, "à", "a") str = replace(str, "é", "e") str = replace(str, "ë", "e") str = replace(str, "ê", "e") str = replace(str, "è", "e") str = replace(str, "í", "i") str = replace(str, "ï", "i") str = replace(str, "î", "i") str = replace(str, "ì", "i") str = replace(str, "ó", "o") str = replace(str, "õ", "o") str = replace(str, "ö", "o") str = replace(str, "ô", "o") str = replace(str, "ò", "o") str = replace(str, "ú", "u") str = replace(str, "ü", "u") str = replace(str, "û", "u") str = replace(str, "ù", "u") str = replace(str, "não", "n") str = replace(str, "ç", "c") substitui = str end function

é isso ae!