Mensajes

Muchas Gracias !!

Raul, Mira probé el código y tampoco funciona, ejecute la App como admin y tampoco puede ser que W$7 Guarde las Claves de Inicio en otra parte del registro?

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"

Código (html) [Seleccionar] Expandir


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

Gracias Raul. Si esta caída por desgracia :S ahora me voy a dormir mañana me fijo. Gracias!!

Buenas... Probé abriendo la aplicación como administrador y no funciono.
tengo mi manera de hacerlo pero esta me gusto mas... es mas corta jaja.
me parece no estoy seguro que la dirección donde se guarda en el inicio los programas que se cargan con Win7 no es igual al de los anteriores...

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.

Código (vb) [Seleccionar] Expandir

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

Prueba esto:

Código (javascript) [Seleccionar] Expandir

setTimeout("abrir('ejemplo.php')", 2000);


Lo Probé y no Funciona, El PopUp nunca se abre

Prueba esto:

Código (javascript) [Seleccionar] Expandir

setTimeout("abrir('ejemplo.php')", 2000);


Muchas Gracias. Yo lo había leído eso, pero en vez de ponerlo en la llamada lo ponía en la función en si.

[Avisar si no fui claro.]

Hola Gente Bueno, yo no se mucho de JS pero Hice una funcion para abrir una ventana popup, por que desarrolle una aplicacion en PHP que "Genera una web llamada "Ejemplo.php" entonces yo necesito que al dar clic al boton submit despues de 2 seg se abra el popup dandole tiempo a la aplicacion "Index.php" para crear o renovar la ventana que cargara el popup (ejemplo.php).

Código (PHP) [Seleccionar] Expandir


<script>
function abrir(URL){
window.open(URL,"",'width=1024,height=768,left=80, top=80,toolbar=0,scrollbars=0,statusbar=0,menubar =0,resizable=0');
}
</script>


Código (php) [Seleccionar] Expandir


<input type="submit" name="Ver" id="Ver" value="Ver !!" onclick="abrir('ejemplo.php');"/>


Avisar si no fui claro.

G R A C I A S

Buenas Gente... Hoy vengo con una duda. yo siempre con el control WebBrowser Pude Hacer Programas que autocompleten Formularios haciendo de esta manera bot's que por ejemplo registren un usuario en una web. el Problema es que esta web no es HTML/PHP si no que esta en SWF(Flash). Como puedo hacer para editar y enviar formuarios en Swf.

Gracias