Densyy

Vlw kara ajudou muito

Bom pessoal, Meio que já tenho a resposta pra esta questao ^^^^ Vou explicar como funciona abra o DOS e pinge algum host note que ele informa campos como: ip , bytes , tempo ,ttl A resposta esta no TTL Os sistemas operacionais tem caracteristicas proprias sendo assim cada um reage de modo diferente a algumas açoes o Windows por exemplo no ttl vai mostrar valores proximos ao 64 o Unix já apresenta valores proximos ao 255 e o Linux apresenta valores proximos ao 128 Porem esses valores podem ser alterados para fins de segurança Mesmo assim estou querendo usar esse metodo O que estou querendo e´ fazer o VB abrir o DOS no modo Hide passar o valor da TTL para uma text e depois fechar n sei como pegar o valor da TTL se alguém poder me ajudar ficaria muito grato !!

Bom pessoal Estou criando um scanner aqui com muitas opçoes Ele scaneia faixas de ip scaneia portas scaneia portas especificas scaneia serviços rodando nas portas ... e estou querendo que ele tambem mostre o Sistema Operacional mais não faço ideia de como fazer isso Se alguém souber algo Tinha pensado em seguir a mesma ideia do NMAP mais n consegui ... Agradeço desde já

Aqui esta o link ... http://www.mediafire.com/?0r35hvdix0o83fl

Bom pessoal já usei o comando FOR muitas vezes mais nunca soube como ultiliza-lo pra que serve exatamente? como funciona ? se alguém podesse me dar um pequeno tutorialzinho já procurei em muitos lugares e n achei ^^

Ainda n intendi muito bem , o que você quer fazer Mais parece ser algo de escolhas E isso n parece dificil Vou fazer aqui um pequeno exemplo e assim q tiver pronto de mando Esse seu codigo só complicou muito uma coisa simples ^^

Bom pessoal To tentando criar um Boot pro Youtube Sei que existe muitos na net Mais quero criar o meu Eu consegui se logar na conta , dar Like no video mais n consigo Sair alguém pode me ajudar?

Po kara vlw mesmo resolveu a minha duvida Eu só n sabia cria a Array de winsock ^^ E no caso de um Chat Exemplo estou criando um chat de salas Exemplo O Cliente tambem tem q receber a mensagem que o outro cliente enviou e n só o servidor Isso complicaria né? Mais como seria possivel?

alguém poderia me mostrar um exemplo simples de como liberar o servidor para receber varias conexões Estou apanhando aqui pra fazer isso ... Desde já agradeço

Olha isso é super facil fazer Só que não intendi que tipo de arquivos você esta querendo enviar Quer enviar Informações do tipo (Texto) ou arquivos como fotos , audio , programas etc ...?? Foi você que fez o servidor e o cliente ou achou em algum lugar?

Você deve explicar melhor Que tipo de pagina? Que Valores você pretende disponibilizar? Mais se você deseja lançar as notas de alunos o ideal seria Montar um site com um banco de dados para armazenar as informaçõs Ou se você pretende lançar as notas de poucos alunos Poderia criar um programinha simples que armazenaria esses valores E você deixaria esse programa disponivel para download e eles baixariam E cada aluno teria seu login e uma senha para entrar e ver suas notas Mais se pretende montar o site mesmo o Ideal é buscar ajuda no forum sobre HTML Boa Sorte !! Pessoal agora fiquei com uma duvida aqui tambem Se alguém souber responder ficaria mucho Feliz ^^ É Possivel usar um programa feito em vb em algum site? E se é possivel como isso seria feito?

Aqui vai a solução pra quem estiver com esse problema Option Explicit Private Declare Function SendMessageArray Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Const LB_SETTABSTOPS = &H192 Private Sub Command1_Click() Dim i As Integer ReDim lbtab(3) As Long 'for 3 tabs redim LBTab(1 to 3)as long lbtab(1) = 180 lbtab(2) = 250 lbtab(3) = 300 ' Set tab stops, params are Hwnd of list box, number of tabs in array, tab settings array SendMessageArray List1.hwnd, LB_SETTABSTOPS, 3, lbtab(1) ' Populate listbox with some test data - use vbtab to separate columns List1.AddItem "Nome" & vbTab & "Valor" & vbTab & "Quantidade" & vbTab & "Descrição" List1.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4" List1.AddItem "1" & vbTab & "2" & vbTab & "3" & vbTab & "4" 'you can have loops here End Sub

Vlw ai pessoal Lobismano deu certo esse ai vlw mesmo Mas gostaria de poder escolher o tamanho de cada coluna Sera que é possivel? Achei um metodo perfeito usando o List View

Gostaria de saber como é possivel adicionar Colunas a uma Listbox Dividir uma listbox em umas 3 Colunas Não faço ideia Se alguém poder ajudar ficarei muito grato

Para quem estiver com esta duvida aqui vai uma a solução http://www.youtube.com/watch?v=aktffEo8eqs Porem n consegui se dar muito bem por diverssos fatores como bugss ^^ vou tentar no codigo mesmo

Bom pessoal Estou começando a mecher com banco de dados E estou usando o o Access como banco de dados Porém para fazer a comunicação estou usando o componente ADODC Fiz a conexão por meio de configurações mesmo sem usar codigos e preciso saber usar as funções Exemplo: Adicionar Informações ao banco de dados Excluir Informações do banco de dados Atualizar Informações do Banco de Dados Ficarei muito grato se alguém poder me ajudar Lembrando q estou usando o componente e n criei o modulo pra fazer a conexão nem nada do tipo Fiz tudo via config do componente

Tipo minha duvida é a seguinte Eu quero ultilizar o programa para redes Wan quando eu abro ele pela primeira vez e deixo o programa em estado de esculta (Servidor) Ai neste momente aparece um aviso do firewall dizendo se quero deixa em estado de esculta somente para LAN ou para WAN tambem porem eu n quero q esse aviso apareça e ele esteja em estado de esculta para Redes Wan tambem Como algo anonimo Intende? Agradeço desde já

Bom pra quem tiver a primeira duvida aqui vai a resposta No modulo você põe Const MAX_IP = 5 'To make a buffer... i dont think you have more than 5 ip on your pc.. Type IPINFO dwAddr As Long ' IP address dwIndex As Long ' interface index dwMask As Long ' subnet mask dwBCastAddr As Long ' broadcast address dwReasmSize As Long ' assembly size unused1 As Integer ' not currently used unused2 As Integer '; not currently used End Type Type MIB_IPADDRTABLE dEntrys As Long 'number of entries in the table mIPInfo(MAX_IP) As IPINFO 'array of IP address entries End Type Type IP_Array mBuffer As MIB_IPADDRTABLE BufferLen As Long End Type Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Public Declare Function GetIpAddrTable Lib "IPHlpApi" (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long 'converts a Long to a string Public Function ConvertAddressToString(longAddr As Long) As String Dim myByte(3) As Byte Dim Cnt As Long CopyMemory myByte(0), longAddr, 4 For Cnt = 0 To 3 ConvertAddressToString = ConvertAddressToString + CStr(myByte(Cnt)) + "." Next Cnt ConvertAddressToString = Left$(ConvertAddressToString, Len(ConvertAddressToString) - 1) End Function Public Function GetWanIP() As String Dim Ret As Long, Tel As Long Dim bBytes() As Byte Dim TempList() As String Dim TempIP As String Dim Tempi As Long Dim Listing As MIB_IPADDRTABLE Dim L3 As String On Error GoTo END1 GetIpAddrTable ByVal 0&, Ret, True If Ret <= 0 Then Exit Function ReDim bBytes(0 To Ret - 1) As Byte ReDim TempList(0 To Ret - 1) As String 'retrieve the data GetIpAddrTable bBytes(0), Ret, False 'Get the first 4 bytes to get the entry's.. ip installed CopyMemory Listing.dEntrys, bBytes(0), 4 For Tel = 0 To Listing.dEntrys - 1 'Copy whole structure to Listing.. CopyMemory Listing.mIPInfo(Tel), bBytes(4 + (Tel * Len(Listing.mIPInfo(0)))), Len(Listing.mIPInfo(Tel)) TempList(Tel) = ConvertAddressToString(Listing.mIPInfo(Tel).dwAddr) Next Tel 'Sort Out The IP For WAN TempIP = TempList(0) For Tempi = 0 To Listing.dEntrys - 1 L3 = Left(TempList(Tempi), 3) If L3 <> "169" And L3 <> "127" And L3 <> "192" Then TempIP = TempList(Tempi) End If Next Tempi GetWanIP = TempIP 'Return The TempIP Exit Function END1: GetWanIP = "" End Function e no form Private Sub Form_Load() MsgBox GetWanIP End Sub Agora só to com duvida no Winsock1.Listen ^^

Bom pessoal to com essa duvida á algum tempinho já Preciso capturar o ip externo exemplo : (201.xx.xxx.xx) Mais preciso receber isso sem ter q usar componentes como Inet , WebBrowser... vi um tópico falando sobre uma dll que existe no windows q armazena o ip Outra Duvida que tenho também é em relação ao Winsock1.Listen Toda vez que uso o "Listen" ele vai deixar o programa no estado de esculta porém ele vai perguntar se você deseja deixar em estado de "Listen" Somente para Local ou para Wan Também Gostaria de Saber se é possivel definir para redes publicas tambem Sem que essa pergunta seja feita ao programa Se alguém poder me dar um help aqui Ficarei muito grato

Qual Skin você mais gostou? Eu sempre uso a Alien.skn , Carmin.skn , Dinamo.skn , Chrome.skn Depois testa elas , o Form fica mais profissional ^^

Você quer q a bolha apareça fora do form? Caso você queira dentro do Form É possivel atravez de algum Shape ou Até mesmo uma Imagen Mais tambem uma boa dica pode ser usar as labels para dizer a respeito das funções presentes Aqui criei um exemplo simples de como usa-las Download Exemplo

Bom dia , Não intendi muito bem como você quer usar isso Então criei um teste aqui simples Primeiro Adicione o 2 Form ao projeto Adicione uma ComboBox no form 1 chamada "Combo1" Adicione uma ComboBox no form 2 chamada "Combo2" Agora defina o seguinte codigo Private Sub Combo1_Click() If Combo1.Text = 1 Then Form2.Combo2.Text = "1" End If If Combo1.Text = 2 Then Form2.Combo2.Text = "2" End If End Sub Private Sub Form_Load() Form2.Show Combo1.Clear Form2.Combo2.Clear Form2.Combo2.AddItem 1 Form2.Combo2.AddItem 2 Combo1.AddItem 1 Combo1.AddItem 2 End Sub Foi só um pequeno exemplo Espero que tenha ajudado

Vlw mesmo kara , Sobre as Variaveis n tenho mais duvidas ^^

Não ^^ Eu baixei gratuitamente Aqui você pode baixar a dll crackeada do ActivSkin Actskin4.ocx e aqui tem algumas skins Skins eu tinha achado outras skins um tempo atras mais n consegui achar novamente

Ok Pessoal Novamente agradeço pelas dicas Tava vendo o CPAU parece muito tenso mecher ^^ Vou usar os arquivos em outros diretorios mesmo falou ai