Mensajes

para mi, Renderizado, es como darle el toke final, coloreado a un dibujo, diseño, plano, lo que sea que tenga que ver con grafico u objecto 3D.

les juro que la definicion la tengo en la punta de la lengua, pero no me sale ahora, yo eso lo estudie, no me acuerdo ahora...

aca es  Visual Basic 6.0
aca esta el net: http://foro.elhacker.net/net-b62.0/

para mi es mejor usar api que ActiveX, por eso puse lo que puse. jeje

[Información del Perfil del foro]

en el perfil -> Información del Perfil del foro

en muy buen creador de DVDs es el DVDLab Pro, buscatelo en google o taringa lo vas a encontrar y por google esta lleno de tutoriales sobre este programejo, para mi es uno de llos mejores, para DVDs...

mm para mi asi como esta, esta muy bien

[Obtener la Ip - Función api GetIpAddrTable]

vos que queres que te salga, la Ip Public o la Ip local?
bue para obtener la Ip public, yo siempre hice asi:


Modulo BAS:

Código (vb) [Seleccionar] Expandir

Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://checkip.dyndns.org/"
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Public Function TheIP()
Dim pIP() As String
Dim nose As String
   Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
   sBuffer = Space(1000)
   hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
   hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
   InternetReadFile hFile, sBuffer, 1000, Ret
   
   InternetCloseHandle hFile
   InternetCloseHandle hOpen
   
   pIP = Split(Trim(sBuffer), ": ")
   nose = Left(pIP(1), Len(pIP(1)) - 16)
   TheIP = nose
End Function

y para obtener la Ip local: Obtener la Ip - Función api GetIpAddrTable