Mensajes

A mi no me parece nada interesante además es un delito bastante gordo 

No tenia ni idea de que eran privadas sorry. 

Navegando por las estadisticas de elhacker.net me e encontrado con esto:

Esos son los que mas publican?


Osea el tiene 16777215 mensajes y no creo que tenga tantos mensajes ,además en menos de un mes xD.

Creo que es un Error pero no se   

Salu2, WarGhost

claro pero me refiero que el MSWINSCK.OCX del winsock no viene con windows osea que se lo tienen que bajar de Internet lo que se puede hacer también es no utilizar ese ocx y usar un modulo.

los OCX creo que no vienen integrados con windows, pero lo mejor es hacer un server sin ningún OCX

Muy bueno MadAntrax aunque esto ya tiene algo de tiempo exactamente tiene como 5 años xD.

http://www.elguille.info/VB/ejemplos/controlesdinamicos.htm

Pero el tuyo esta mejor explicado.

Salu2, WarGhost

si comctl32.dll es la version 5.0 la 6.0 es msconctl.ocx

[Winsock:]

Si cierto Sorry Aquí dejo un código que si lo hace pero lo malo es que necesitas un control winsock también se puede hacer con el inet pongo las dos formas:

Winsock:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "ip1.dynupdate.no-ip.com", 80
End Sub

Private Sub ws_Connect()
ws.SendData "GET / HTTP/1.0" & vbCrLf & _
"Accept: */*" & vbCrLf & _
"User-Agent: IPLen(By WarGhost)" & vbCrLf & _
"Host: ip1.dynupdate.no-ip.com" & vbCrLf & vbCrLf
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data
msgbox Mid(data, InStr(data, vbCrLf & vbCrLf) + 4, Len(data) - InStr(data, vbCrLf & vbCrLf) + 1)
ws.Close
End Sub

INET:

Código [Seleccionar] Expandir

msgbox Inet1.OpenURL("ip1.dynupdate.no-ip.com")

Si el codigo del INET es mas facil xDDDD.

Salu2, WarGhost

[ListView por API:]

Aquí e encontrado algo:

No es el Control pero se puede utilizar:

ListView por API:
http://es.geocities.com/ftp_warghost/Archivos/API-ucList1887915132005.zip

Progress, Slider, StatusBar, Toolbar por API:
http://es.geocities.com/ftp_warghost/Archivos/No_MSCOMCT2016688302006.zip

Salu2, WarGhost

Aquí pongo una función que acabo de hacer que lo saca:

Código [Seleccionar] Expandir

Public Function IPPublica() As String
Dim data As String
Dim data2 As String

If Dir("C:\ipconfig.txt") = "" Then Kill "C:\ipconfig.txt"
Shell "ipconfig /all > C:\ipconfig.txt"

Open "C:\ipconfig.txt" For Binary As #1
data = Space(LOF(1))
Get #1, , data
Close #1

data = Mid(data, InStr(1, data, "Servidores DNS . . . . . . . . . .: "), Len(data))
data2 = InStr(1, data, "Servidores DNS . . . . . . . . . .: ")
IPPublica = Trim(Mid(data, data2 + 36, InStr(1, data, vbCrLf) - 38))
End Function

Es algo cutre pero funciona