• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

DiguiVirus

[Closed Source] XinfoP

11 mensagens neste tópico

-----||| XinfoP |||-----

_____________________

O nome:

Para quem não perceber XinfoP deriva da expressão

XP Info!

_____________________

Info:

Tipo Software: Freeware

Linguagem: Portguês (Talvez Inglês mais tarde)

Made in: Visual Basic 6.0

Versão estável: Beta 1

Compatibilidade: Windows ;)

_____________________

Objectivo:

Maneira simples de "controlar" o sistema.

Vai ter MUITAS mais funcionalidades

_____________________

Funcionalidades:

Beta 1:

- Ligar/Desligar/Reiniciar

- Informação do Sistema

- IP

- Espaço nas drives

- Minizar para a System Tray

- Ultimo Boot

- Informação Screensaver

_____________________

Source Code:

Não vou disponibilizá-lo por agora.

Apenas vou disponibilizar a quem pedir por MSN/E-mail

_____________________

Faq:

Em construção

_____________________

Autor:

Diogo Pinto

truemaker@hotmail.com

Download here: http://rapidshare.de/files/37092651/xinfop.rar

Coments procuram-se!

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De resto pareçeu-me bem !

Só não dá info do espaço livre !

Mas com esse username não sei se haverá pessoal a testar os teus .exe !

:hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De resto pareçeu-me bem !

Só não dá info do espaço livre !

Mas com esse username não sei se haverá pessoal a testar os teus .exe !

:hmm:

Isso é uma estupidez...

Não tem nexo praticamente nenhum...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De resto pareçeu-me bem !

Só não dá info do espaço livre !

Mas com esse username não sei se haverá pessoal a testar os teus .exe !

:hmm:

Isso é uma estupidez...

Não tem nexo praticamente nenhum...

Tem nexo porque uma pessoa vê o teu nome DiguiVirus e pode pensar que fazes virus ou coisa assim...

Mas não é o caso. ;)

Estive a testar o programa e gostei. Uma sugestão, a mim que estou numa rede interna mostra o IP da rede interna. E que tal alterar isso e pores a mostrar o IP público também?

Peace.

Isso é uma estupidez...

Não tem nexo praticamente nenhum...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De resto pareçeu-me bem !

Só não dá info do espaço livre !

Mas com esse username não sei se haverá pessoal a testar os teus .exe !

:hmm:

Isso é uma estupidez...

Não tem nexo praticamente nenhum...

Tem nexo porque uma pessoa vê o teu nome DiguiVirus e pode pensar que fazes virus ou coisa assim...

Mas não é o caso. ;)

Estive a testar o programa e gostei. Uma sugestão, a mim que estou numa rede interna mostra o IP da rede interna. E que tal alterar isso e pores a mostrar o IP público também?

Peace.

Não consegui arranjar a função para IP publico... So ip interno... Alguém consegue arranjar?  ;)

Thks

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

De resto pareçeu-me bem !

Só não dá info do espaço livre !

Mas com esse username não sei se haverá pessoal a testar os teus .exe !

:hmm:

Isso é uma estupidez...

Não tem nexo praticamente nenhum...

Isso dizes tu...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não há função para isso.

Eu uso uma pagina que ta sempre up e me devolve o IP:

Private Function GetIP()
        Dim oldip As String = ipf.Text
        Dim host As String = "checkip.dyndns.com"
        Dim port As Integer = 80
        Dim result As String = SocketSendReceive(host, port)
        If (result.Contains("Current IP")) Then
            Dim ar As Array = result.Split(":")
            Dim sr As String = ar(ar.Length - 1)
            Dim arr As Array = sr.Split("<")
            Dim ip As String = arr(0)
            ip = Trim(ip)
            If Not ip = oldip Then
                Dim doit As String = upip()
            End If
            Return ip
        Else
            Return "error"
        End If
    End Function
    Private Shared Function ConnectSocket(ByVal server As String, ByVal port As Integer) As Socket
        Dim s As Socket = Nothing
        Dim hostEntry As IPHostEntry = Nothing

        ' Get host related information.
        hostEntry = Dns.GetHostEntry(server)

        ' Loop through the AddressList to obtain the supported AddressFamily. This is to avoid
        ' an exception that occurs when the host host IP Address is not compatible with the address family
        ' (typical in the IPv6 case).
        Dim address As IPAddress

        For Each address In hostEntry.AddressList
            Dim endPoint As New IPEndPoint(address, port)
            Dim tempSocket As New Socket(endPoint.AddressFamily, SocketType.Stream, ProtocolType.Tcp)

            tempSocket.Connect(endPoint)

            If tempSocket.Connected Then
                s = tempSocket
                Exit For
            End If

        Next address

        Return s
    End Function


    ' This method requests the home page content for the specified server.

    Private Shared Function SocketSendReceive(ByVal server As String, ByVal port As Integer) As String
        'Set up variables and String to write to the server.
        Dim ascii As Encoding = Encoding.ASCII
        Dim request As String = "GET / HTTP/1.1" + ControlChars.Cr + ControlChars.Lf + "Host: " + server + ControlChars.Cr + ControlChars.Lf + "Connection: Close" + ControlChars.Cr + ControlChars.Lf + ControlChars.Cr + ControlChars.Lf
        Dim bytesSent As [byte]() = ascii.GetBytes(request)
        Dim bytesReceived(255) As [byte]

        ' Create a socket connection with the specified server and port.
        Dim s As Socket = ConnectSocket(server, port)

        If s Is Nothing Then
            Return "Connection failed"
        End If
        ' Send request to the server.
        s.Send(bytesSent, bytesSent.Length, 0)

        ' Receive the server  home page content.
        Dim bytes As Int32

        ' Read the first 256 bytes.
        ' Dim page As [string] = "Default HTML page on " + server + ":" + ControlChars.Cr + ControlChars.Lf
        Dim page As [string] = ""
        ' The following will block until the page is transmitted.
        Do
            bytes = s.Receive(bytesReceived, bytesReceived.Length, 0)
            page = page + Encoding.ASCII.GetString(bytesReceived, 0, bytes)
        Loop While bytes > 0

        Return page
    End Function

    'Entry point which delegates to C-style main Private Function
    'Public Overloads Shared Sub Main()
    '    Main(System.Environment.GetCommandLineArgs())
    'End Sub


    Private Overloads Shared Sub Main(ByVal args() As String)
        Dim host As String
        Dim port As Integer = 80

        If args.Length = 1 Then
            ' If no server name is passed as argument to this program, 
            ' use the current host name as default.
            host = Dns.GetHostName()
        Else
            host = args(1)
        End If

        Dim result As String = SocketSendReceive(host, port)
        MsgBox(result)
    End Sub

Nota: Está a usar o serviço dyndns, que é para o qual eu fiz o meu programa ;)

Nota2: eu estou a usar VB.net 2005!

Nota3: está por aí uma tralha od meu programa ;)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites