Holaa Estoy en un proyecto y puse el BoirderStyle en 0 - None y se fue el ControlBox Con el Caption en fin todo el borde de la ventana, pero Agregue un Menú para usae de PopUpMenu y Volvio a aparecer el ControlBox Con toda la Barra de Tareas y el Borde del Form aunque el BorderStyle este en 0... Saben que puedo hacer??

P.D= De mas esta decir que el PopUpMenu esta en Visible.False :S

Hola Foro Buenas noches xD

Mi duda es esta seria interesante saber si se puede "Saber" desde que Form Se llama a la función de un Modulo, Seria para ahorrarse el simple paso de pasar la Variable fFrm as Form en una función

La cosa seria asi


en un modulo yo necesito el hWnd del Form a la que llamo la función entonces por lo general lo que se hace es


y asi llevamos el hWnd del Form Al Modulo

Bueno no hay una manera de Pasar el hWnd de la función al Modulo sin hacerlo Por las Variables de La función

Buenas... le estaba agregando a un programara la función de actualizarse y para esto se me ocurrió usar la API "URLDownloadToFile" resulta que después de terminar y compilar todo me di cuenta que la llamada de esta API hace saltar la Heuristica de Muchos antivirus. Por eso estoy buscando un reemplazo para esta...
alguien sabe como puedo descargar un fichero de Internet al estilo

Link De Origen (www.ejemplo.com/archivo.exe") a Path de Destino ("C:\archivo.ese")

Osea como "URLDownloadToFile"....

GRACIAS!!

Hola Gente del Foro en vista de lo que alguien Pide mas abajo subo este code que hice cuando empece a programas hace unos años por eso esta medio des prolijo pero es muy funcional...

Option Explicit
'Función api que recupera un valor-dato de un archivo Ini
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
'Función api que Escribe un valor - dato en un archivo Ini
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
Private Const CODENL = "<?%!-/#¿>"
 
Public Function Leer_Ini(Key As String, Default As Variant, Optional Aplicacion As String, Optional Path_INI As String) As String
    Dim Aplicacion_Ini As String
    Dim Path__Ini As String
    If Aplicacion = "" Then
        Aplicacion_Ini = "INI-EXAMPLE" 'Nombre de la INI
    Else
        Aplicacion_Ini = Aplicacion
    End If
    If Path_INI = "" Then
        Path__Ini = "C:\Archivo_INI" 'Path De la INI
    Else
        Path__Ini = Path_INI
    End If
    Dim bufer As String * 256
    Dim Len_Value As Long
    Len_Value = GetPrivateProfileString(Aplicacion_Ini, Key, Default, bufer, Len(bufer), Path__Ini)
    Leer_Ini = Left$(bufer, Len_Value)
    Leer_Ini = Replace(Leer_Ini, CODENL, vbNewLine)
End Function
 
Public Function Grabar_Ini(Key As String, Valor As Variant, Optional Aplicacion As String, Optional Path_INI As String) As String
    Dim Aplicacion_Ini As String
    Dim Path__Ini As String
    If Aplicacion = "" Then
        Aplicacion_Ini = "INI-EXAMPLE" 'Nombre de la INI
    Else
        Aplicacion_Ini = Aplicacion
    End If
    If Path_INI = "" Then
        Path__Ini = "C:\Archivo_INI" 'Path De la INI
    Else
        Path__Ini = Path_INI
    End If
    Valor = Replace(Valor, vbNewLine, CODENL)
    WritePrivateProfileString Aplicacion_Ini, Key, Valor, Path__Ini
End Function
 

Deje la variable "Path__INI" al igual que "Aplicacion_INI" en la función por que por lo general cuando yo uso las INI uso un solo "Nombre de aplicación" y una sola ubicación que por lo general es una variable del entorno así que es mas cómodo.
Ademas remplazo los "Saltos de linea(vbNewLine)" por el codigo "<?%!-/#¿>" para hacer asi compatible a la INI con multilinea
si no les gusta modifiquen lo como quieran. espero que a alguien le sirva. Gracias

Hola Foro! Bueno quería saber si alguien tiene idea como puedo ver la cola de impresión de las distintas impresoras registradas en windows. Necesito Ubicación y Nombre del Archivo que se esta imprimiendo y el formato.

Hola gente del Foro Hice un modulo y un PHP que conbinados nos permiten enviar mails desde vb sin la necesidad de tener una cuenta en algun servidor de mail, incluso podemos elegir el remitente, ejemplo "agus0@google.com" jajaja

NOTA: Registre una cuenta en 000webhost.com para que no tengan que usar su server el.
PHP se encuentra en http://proyectosvb.netne.net/php/webmail.php.
Si quieren Pueden Usar su Server.

Bueno Primero Que nada tenemos que subir en nuestro server el siguiente PHP

<?php
$Para = $_GET["para"];
$De = $_GET["de"];
$Asunto = $_GET["asunto"];
$Cuerpo = $_GET["cuerpo"];
if (mail($Para,$Asunto,$Cuerpo, "From: " . $De)){
echo("Enviado");
}
else{
echo("Error");
}
?>
 

una ves teniendo este archivo en el servidor, el modulo para Usar en VB es

Option Explicit
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 Const INTERNET_OPEN_TYPE_DIRECT As Long = 1
Private Const INTERNET_OPEN_TYPE_PROXY  As Long = 3
Private Const INTERNET_FLAG_RELOAD      As Long = &H80000000
'Servidor:
Private Const URLServer = "http://proyectosvb.netne.net/php/webmail.php"
 
Private Function GetSURL(sURL As String) As String
    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long, sRead As String
    sBuffer = Space(1024)
    hOpen = InternetOpen("VB-RemoteSetting", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    Do
        InternetReadFile hFile, sBuffer, 1024, Ret
        sRead = sRead & Left(sBuffer, Ret)
        If Ret = 0 Then Exit Do
    Loop
    GetSURL = quitaLaScript(Mid(sRead, 1))
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
End Function
 
Private Function quitaLaScript(ByVal sCode As String) As String
    Dim iInicio As Integer
    quitaLaScript = sCode
    iInicio = InStr(sCode, "<!-- www.000webhost.com Analytics Code -->")
    If iInicio > 0 Then quitaLaScript = Mid$(sCode, 1, iInicio - 3)
End Function
 
Public Function SendMail(Para As String, Cuerpo As String, Asunto As String, De As String) As Boolean
    Dim PhpMail As String
    Cuerpo = Replace(Cuerpo, vbNewLine, "%0D%0A")
    PhpMail = "?para=" & Para & "&cuerpo=" & Cuerpo & "&asunto=" & Asunto & "&de=" & De
    If GetSURL(URLServer & PhpMail) = "Error" Then
        SendMail = False
    Else
        SendMail = True
    End If
End Function
 

Al Modulo hay que modificarle la Constante URLServer que es la URL del Archivo PHP en nuestro Servidor.

 Descargar Ejemplo

Gracias a Raul338 y a ignorantev1.1 por ayudarme con la Funcion para eliminar la Script de 000webhost.

Hola Gente del Foro. quería hacerles una consulta.
resulta que mediante una función obtengo el código fuente (HTML) de una página web
y copio ese código HTML a una Variable. pero resulta que el servidor es de "000.webhost.com" entonces al final del código agrega unas lineas de un Script.
Como puedo hacer para "Limpiar" de la variable esas lineas y que me quede en limpio el código Fuente Original?
Ejemplo:
este es un código extraído de la web en "000webhost.com"

Hola Mundo!
<!-- www.000webhost.com Analytics Code -->
<script type="text/javascript" src="http://analytics.hosting24.com/count.php"></script>
<noscript><a href="http://www.hosting24.com/"><img src="http://analytics.hosting24.com/count.php" alt="web hosting" /></a></noscript>
<!-- End Of Analytics Code -->
 

en la Variable quedaría Todo eso, ¿Como puedo hacer para que Solo quede "Hola Mundo!" en la Variable?

Muchas Gracias

Hola Gente Dando vueltas por Internet me encontré con este modulo que Creo que es de Leandro Ascierto. Y a la hora de usarlo Falla, pero me pareció averla usado antes. quería saber si alguien me puede corroborar si le funciona o no lo que pasa es que yo ahora cambie de S.O a W$7.

Gracias.

Option Explicit
 
Private Declare Function RegOpenKeyEx Lib "advapi32.dll" Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegSetValueExString Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegDeleteKey& Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String)
Private Declare Function RegQueryValueExNULL Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As Long, lpcbData As Long) As Long
Private Declare Function RegQueryValueExString Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
Private Declare Function RegDeleteValue& Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String)
 
Private Const RAMA_RUN_WINDOWS As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
Private Const HKEY_CLASSES_ROOT = &H80000000
Private Const HKEY_CURRENT_USER = &H80000001
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const HKEY_USERS = &H80000003
Private Const REG_SZ As Long = 1
Private Const KEY_ALL_ACCESS = &H3F
 
 
Public Function SetAutoRun(Value As Boolean) As Boolean
 
    Dim Path          As String
    Dim Handle        As Long
 
    Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)
 
    RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
    If Value Then
        SetAutoRun = RegSetValueExString(Handle, App.Title, 0&, REG_SZ, Path, Len(Path)) = 0
    Else
        SetAutoRun = RegDeleteValue(Handle, App.Title) = 0
    End If
    RegCloseKey Handle
 
End Function
 
 
Public Function IsAutoRun() As Boolean
 
    Dim Path          As String
    Dim Handle        As Long
    Dim Data          As String
    Dim cch           As Long
 
    Path = Chr(34) & App.Path & "\" & App.EXEName & ".exe" & Chr(34)
 
    RegOpenKeyEx HKEY_CURRENT_USER, RAMA_RUN_WINDOWS, 0, KEY_ALL_ACCESS, Handle
    RegQueryValueExNULL Handle, App.Title, 0&, 0&, 0&, cch
 
    If cch > 0 Then
        Data = String(cch - 1, 0)
        RegQueryValueExString Handle, App.Title, 0&, 0&, Data, cch
        IsAutoRun = Path = Data
    End If
 
    RegCloseKey Handle
 
End Function