hubieras enfocado mas lejos para verle el rostroo

no creo que se pueda asi de facil, no me digas que quieres reproducir tus bichitos, si fuera sencillo habrin miles de virus propagandose por bluetooth como si fueran usb (aun asi no hay una sola api para manipular USB, hay muchos procedimientos, creeme, asi que lo dudoo que encuentres algo).

yo dejo mi galeria en este posst:
http://foro.elhacker.net/fotografia/fotitos_jaen_peru_with_autoviewer-t224361.0.html

Al menos todas las Pcs que he visto siempre han tenido el winrar o winzip, muy poco probable que no lo tengan...
asi que las probabilidades son menores...

hay otra forma:
http://www.canalvisualbasic.net/forum/forum_posts.asp?TID=29995

Si se puede (imitar), hay una forma de hacerlo como si fuera compilador

ya comprendo lo que quieres hacer, mira no recuerdo donde vi una API para poder realizar estas cosas, a modo de que el programa se convierte en un creador de programas.

si lo encuentro en estos dias lo posteo...

Sabes programar en VB????

 
Private Sub Command1_Click()
msgbox  Inet1.OpenURL("http://mipagina.com/texto.txt", icString)
End Sub
 

que pretendes hacer???????

postea todo...
 

No escribas como niño engreido, escribe correctamente.
Expresate mejor, tube que leer tu post como 4 veces para poder entender que es lo que necesitabas.
Si no entiendes para que son esas apis, busca en internet, lo dudo que no lo encuentres.


Aqui esta el codigo:

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
 
Private Function Texto() As String
 
Dim hOpen As Long, hFile As Long, sBuffer As String * 36, ret As Long
    hOpen = InternetOpen("test", 1, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, "http://mipagina.com/texto.txt", vbNullString, ByVal 0&, &H80000000, ByVal 0&)
    InternetReadFile hFile, sBuffer, 36, ret
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
Texto = sBuffer
End Function
 
Private Sub Form_Load()
MsgBox Texto
End Sub

que buenooo =D
es un buen foro tambien