Temas

Hola foro! como andan tanto tiempo?
Queria hacerles una pregunta ya que yo no estoy muy afilado con los Scripts para Powershell

Quiero hacer un script que me permita crear una nueva conexión VPN PPTP, hasta ahí todo bien, el tema es que quiero que la guarde ya con su usuario y contraseña, para que el que usa el script, solo lo tenga que ejecutar para que le configure la VPN y luego solo conectar.
Al momento tengo esto que agrega perfectamente la conexión VPN pero no se como hacer para ya guardar usuario y contraseña. Alguno podria darme una mano

Código [Seleccionar] Expandir

Add-VpnConnection -Name "VPN NUEVO" -ServerAddress servervpn.com -TunnelType Pptp -EncryptionLevel Required -AuthenticationMethod MSChapv2 -RememberCredential

Gracias

[Al final lo solucione reinstalando el IDE.]

Hola foro! Estoy tratando de instalar el complemento WindowBuilder a mi eclipse neon (4.6.0) Build id: 20160613-1800, complemento que pude instalar con exito en otra computadora pero en esta no. me lanza el siguiente error:



con esta descripcion:

Código [Seleccionar] Expandir


An error occurred while collecting items to be installed
session context was:(profile=C__Program Files_eclipse_java-neon_eclipse, phase=org.eclipse.equinox.internal.p2.engine.phases.Collect, operand=, action=).
No repository found containing: osgi.bundle,org.eclipse.pde,3.12.0.v20160606-1100
No repository found containing: osgi.bundle,org.eclipse.pde.api.tools,1.1.0.v20160508-0834
No repository found containing: osgi.bundle,org.eclipse.pde.api.tools.annotations,1.0.100.v20160418-1724
No repository found containing: osgi.bundle,org.eclipse.pde.api.tools.ui,1.1.0.v20160519-0701
No repository found containing: osgi.bundle,org.eclipse.pde.build,3.9.200.v20160204-0642
No repository found containing: osgi.bundle,org.eclipse.pde.core,3.11.0.v20160510-1223
No repository found containing: osgi.bundle,org.eclipse.pde.doc.user,3.12.0.v20160601-2148
No repository found containing: osgi.bundle,org.eclipse.pde.ds.annotations,1.0.0.v20160525-1437
No repository found containing: osgi.bundle,org.eclipse.pde.ds.core,1.1.0.v20151201-1325
No repository found containing: osgi.bundle,org.eclipse.pde.ds.ui,1.1.0.v20160518-1843
No repository found containing: org.eclipse.update.feature,org.eclipse.pde,3.12.0.v20160606-1100
No repository found containing: osgi.bundle,org.eclipse.pde.junit.runtime,3.5.0.v20151013-0625
No repository found containing: osgi.bundle,org.eclipse.pde.launching,3.6.400.v20160121-1248
No repository found containing: osgi.bundle,org.eclipse.pde.runtime,3.5.0.v20160418-1724
No repository found containing: osgi.bundle,org.eclipse.pde.ua.core,1.0.500.v20160204-0642
No repository found containing: osgi.bundle,org.eclipse.pde.ua.ui,1.1.0.v20160518-1843
No repository found containing: osgi.bundle,org.eclipse.pde.ui,3.9.0.v20160525-1830
No repository found containing: osgi.bundle,org.eclipse.pde.ui.templates,3.6.0.v20160424-1948
No repository found containing: osgi.bundle,org.eclipse.ui.trace,1.0.400.v20160509-1055
No repository found containing: osgi.bundle,org.objectweb.asm,5.0.1.v201404251740
No repository found containing: osgi.bundle,org.objectweb.asm.tree,5.0.1.v201404251740


Ya eh buscado en interet y no pude dar con la soucion, ¿Alguien sabe cual puede ser el problema? Saludos.

EDIT:
Al final lo solucione reinstalando el IDE.

Hola muchachos... le cuento que tengo una pequeña duda... tengo un Servidor con Ubuntu y PHP 5.6.3 y me gustaría invocar desde PHP a un programa que corre "en modo terminal" y que en algún otro momento pueda enviarle la orden de finalizar el programa...
por si no me explique bien... lo que me gustaría hacer es llamar a que se ejecute un programa desde php, y desde php mas adelante poder enviarle instrucciones al programa... como por ejemplo "stop" y la verdad es que no tengo idea de por donde empezar...
si no fui claro con lo que dije intentare explicarlo de nuevo.

Gracias
Saludos.

Hola Foreros! La verdad es que tengo poca idea de Criptografía y me gustaría aprender un poco...
me gustaría saber como puedo hacer para averiguar que algoritmo de encriptacion se utilizo para generar los siguientes Hash

200 = 8b408f7bd93eb9774b589065b2dc29e6
201 = 51aa6ccdadcb2e34f010bdb7c59e3390

A la Izquierda tenemos el Numero sin cifrar y a la derecha el cifrado... mi pregunta seria...
como querdaria el numero 202 cifrado utilizando el mismo algoritmo.
Saludos

Muchachos! hoy intente instalar Steam en mi Debian Wheezy y cuando termino me dio un error la instalacion que decia que no se encontraba un archivo ahora no recuerdo por que no le di importancia, despues trate de abrir Nautilus y me dio error, y cuando lo reinicie me encontre con esto...
Soy algo nuevo en GNU/Linux asi que no tengo ni idea que quiere decir, solo entiendo que le falta un archivo o algo asi... alquien me podria echar una mano?

Muchas Gracias

Hola muchachos les consulto para saber si tienen idea si hay dando vuelta por ahi algún control como MSComm (Es decir que permita controlar el puerto serie) de código abierto...

Muchas Gracias!

[Lo Pude solucionar sacando la pila que se encontraba del lado de abajo de la Mother es decir entre el teclado y la Mother por eso no la podía Ver. Muchas Gracias.]

Que tal foro! la verdad no estoy seguro si este es el sub-foro apropiado para mi duda, pero me parece que si.

les cuento lo que me pasa, tengo una Notebook Sony VAIO VGN-NR110FH que Originalmente venía con Windows Vista, entonces como ya estaba andando mal y necesitaba una formateada, decidí instalar Windows 7, entonces entre al BIOS con F2 y elegí que arranque desde el USB para poder instalar el SO que tengo en el PenDrive, pero al reiniciar se queda colgado en el BIOS diciendo VAIO con el Logo de Intel y Phoenix abajo y no sale de ahí, si presiono F2 Aparece el típico fondo Negro con letras blancas diciendo la memoria, el procesador, etc, y abajo dice Entering SetUp... y ahí se queda, para mi con borrar los datos de la ROM de la BIOS para que vuelva a tener la configuración de fabrica alcanzaría, se que con las PC's de escritorio esto se hace sacando la Pila tipo botón que llevan en la Mother pero con la Notebook no tengo ni idea. si alguien me puede dar una mano le estaría muy agradecido...

de ante mano Muchas Gracias. Agustín

Lo Pude solucionar sacando la pila que se encontraba del lado de abajo de la Mother es decir entre el teclado y la Mother por eso no la podía Ver. Muchas Gracias.

Buenas Foro!! Hoy vengo con una pequeña duda de Drupal... Quiero que cuando un usuario anónimo intente comentar le pida obligatoriamente un Nombre y un EMail (Que no sera mostrado después) alguien me puede decir desde donde configuro esto? Gracias!!

Hola Foro de Java, mi nombre es Agustín, hace bastante estoy en el hacker, en el foro vb6, pero me decidi a aprender otro lenguaje, JAVA, Que le recomiendan a este novata, para empezar, El IDE NetBeans, Eclipse o Algun Otro? Me recomiendan algunos Plugins para los IDE?

Desde Ya Muchas Gracias

[Muchas Gracias!!]

Estaba Buscando la forma de separar una Cadena de la siguiente manera:

Nombre = "agus0"

Y que Quede en una matriz así...

LetraNombre(0) = "a"
LetraNombre(1) = "g"
LetraNombre(2) = "u"
LetraNombre(3) = "s"
LetraNombre(4) = "0"

Se Entiende?

Mi Idea es Hacer un Bucle y con Left ir armando la Matriz. Ustedes que opinan? Cual es la Mejor Manera?

Muchas Gracias!!

Hola Foro... Que Tal... Hoy instale el DW CS5 y al ejecutarlo me sale un Mensaje que Dice que Hay un Error de Configuración (Error: 16) que intente reinstalando el Programa...

ya lo reinstale pero no puedo hacerlo andar. alguien tiene idea como puedo arreglarlo

desde ahora Muchas Gracias...

Hola Chicos Como andan tanto Tiempo??

Hace unas semanas que no abro el Visual y un Amigo Me pide que le pase un programa compilado entonces abro el Visual voy a compilar y Chan! Me encuentro con que el botón Compilar xxx.exe esta "Disable" ¿Que Podra Ser?¿Alguien Tiene idea como lo puedo Solucionar? Muchas Gracias. Dejo Adjunta una imagen para que vean de que es lo que hablo



P.D: Es La version Full Instalada.. (El Ejemplo es con un Proyecto EXE en Blaco)  

Hola Expertos, Bueno mi problema viene mas o menos así... Tengo un Sitio Web Que Utiliza Google Para Buscar Es Decir le envió a Google por Método GET

ie=UTF-8&oe=UTF-8&q=LO QUE QUIERO BUSCAR&btnG=Buscar+en+Sitio&domains=MI SITIO&sitesearch=URLDEMISITIO.COM

Pero Resulta que el Sitio Creció y ahora tenemos Dos Dominios. Como Puedo Hacer para que en la Misma Busqueda Google Muestre Resultados en "URLDEMISITO.COM" y "URLDEMISITIO2.COM"?

Muchas Gracias!

Que les parece Mi Sugerencia ? Lo Posteo Acá para que Ustedes también lo vean.

Que Tal Foro! Estoy Viendo Que Cada Vez hay mas Gente que Publica en el Subforo "Programación Visual Basic" Cosas de VisualBasic.NET (Que tendrían que ir en ".NET") Supongo que el numero de gente que postea erróneamente se reduciría si cambiamos el nombre del subforo por "Programación Visual Basic 6.0" (O hago que haga referencia a que es de VisualBasic Versión 6.0)

Bueno Solo eso...

Saludos...

Hola Foooro!!

Tengo una Pequeñisima Duda  

Quiero Cambiar El "Contenido" de una Variable del Tipo String desde una Funcion... Hasta ahi parece Facil... Pero el Problema esta en que quiero pasarle a la Funcion el Nombre de la Variable...

Habia pensado en esto

Código (vb) [Seleccionar] Expandir

Private Sub ChgVar(ByVal vVar As Object, NewStr As String)
'On Error Resume Next
   vVar = NewStr
End Sub

Pero me devuelve:

"No Coinciden Los Tipos."

La Pregunta es Como que tengo que delcarar la variable vVar Para que Coincidan los Tipos

o Como Puedo Hacer una Funcion Que Realize eso...

Gracias!!

Hola... Foro! No se que pasa si es que recien me despierto o que el IDE empezo a flipar  

Pongo este Codigo, Que Creo que esta bien, a simple vista no se que puede estar mal...

Código (vb) [Seleccionar] Expandir

Option Explicit

Dim aArray() As String

Private Sub Form_Load()
   aArray(0) = "Hola"
   aArray(1) = "foro"
   aArray(2) = "elhacker"
   Dim I As Integer
   For I = 0 To UBound(aArray)
       MsgBox aArray(I)
   Next I
End Sub


y el IDE me selecciona "aArray(0) = "Hola"" y dice "Error 9: El Subindice esta Fuera del Intervalo"...

Me estoy volviendo Loco... Pienso que esta bien pero no se en que me estoy equivocando....

Hola Gente... Estaba Aburrido y Me pregunte cuales son los errores de Vb e hice una aplicacion... Que Genero esta Listita...

Código (Text) [Seleccionar] Expandir

3 - Return sin GoSub
5 - Llamada a procedimiento o argumento no válidos
6 - Desbordamiento
7 - Memoria insuficiente
9 - El subíndice está fuera del intervalo
10 - La matriz está fija o temporalmente bloqueada
11 - División por cero
13 - No coinciden los tipos
14 - Espacio para cadenas insuficiente
16 - Expresión demasiado compleja
17 - No se puede realizar la operación solicitada
18 - Interrupción por parte del usuario
20 - Resume sin error
28 - Espacio de pila insuficiente
35 - Procedimiento Sub o Function no definido
47 - Hay demasiados clientes de la aplicación DLL
48 - Error al cargar la biblioteca DLL
49 - La convención de llamadas a DLL es incorrecta
51 - Error interno
52 - Nombre o número de archivo incorrecto
53 - No se ha encontrado el archivo
54 - Modo de archivo incorrecto
55 - El archivo ya está abierto
57 - Error de E/S de dispositivo
58 - El archivo ya existe
59 - Longitud de registro incorrecta
61 - Disco lleno
62 - La entrada de datos ha sobrepasado el final del archivo
63 - Número de registro incorrecto
67 - Hay demasiados archivos
68 - El dispositivo no está disponible
70 - Permiso denegado
71 - Disco no preparado
74 - No se puede cambiar el nombre con una unidad de disco diferente
75 - Error de acceso a ruta o archivo
76 - No se ha encontrado la ruta de acceso
91 - Variable de tipo Object o la variable de bloque With no está establecida
92 - El bucle For no está inicializado
93 - La cadena modelo no es válida
94 - Uso no válido de Null
96 - No se pueden desactivar eventos de objeto porque el objeto ya desencadena el número máximo de eventos que admite
97 - No se puede llamar a una función friend de un objeto que no sea una instancia de una clase
98 - Una llamada a una propiedad o un método no puede incluir una referencia a un objeto privado como un argumento o un valor de retorno
321 - Formato de archivo no válido
322 - No se puede crear un archivo temporal necesario
325 - Formato no válido en el archivo de recursos
380 - El valor de la propiedad no es válido
381 - El índice de la matriz de propiedades no es válido
382 - No se admite Set en tiempo de ejecución
383 - No se admite Set (propiedad de sólo lectura)
385 - Se necesita un índice de matriz de propiedades
387 - Set no está permitido
393 - No se admite Get en tiempo de ejecución
394 - No se admite Get (propiedad de sólo escritura)
422 - No se encontró la propiedad
423 - No se ha encontrado la propiedad o el método
424 - Se requiere un objeto
429 - El componente ActiveX no puede crear el objeto
430 - Esta clase no admite Automatización o no admite la interfaz esperada
432 - No se encontró el nombre del archivo o de la clase durante la operación de Automatización
438 - El objeto no admite esta propiedad o método
440 - Error de Automatización
442 - Se ha perdido la conexión con la biblioteca de tipos o con la biblioteca de objetos para proceso remoto. Haga clic en Aceptar para quitar la referencia.
443 - El objeto de Automatización no tiene un valor predeterminado
445 - El objeto no admite esta acción
446 - El objeto no admite argumentos con nombre
447 - El objeto no admite la configuración regional actual
448 - No se ha encontrado el argumento con nombre
449 - El argumento no es opcional
450 - Número de argumentos erróneo o asignación de propiedad no válida
451 - El procedimiento Let de la propiedad no está definido y el procedimiento Get no ha devuelto un objeto
452 - Número ordinal no válido
453 - No se encuentra la función de biblioteca DLL especificada
454 - No se encuentra el recurso de código
455 - Error en el bloqueo de los recursos de código
457 - Esta clave ya está asociada a un elemento de esta colección
458 - La variable usa un tipo de Automatización no admitido en Visual Basic
459 - El objeto o la clase no admite el conjunto de eventos
460 - El formato del Portapapeles no es válido
461 - No se encontró el método o el miembro de datos
462 - El equipo servidor remoto no existe o no está disponible
463 - La clase no está registrada en el equipo local
481 - La imagen no es válida

De Mas esta decir que el Error "0" (Cero) No Existe es el numero designado a ERROR_SUCCESS. [Gracias xkiz]

Y Los Numeros que no Figuran en la lista devolvieron: "Error definido por la aplicación o el objeto"
Que Son:

Código (text) [Seleccionar] Expandir


1,2,4,8,12,15,19
21 a 27
29 a 34
36 a 46
50,56
60
64 a 66
69
72,73
77 a 90
95
99 a 320
323,324
326 a 379
385,386
388 a 392
395 a 421
425 a 428
431
433 a 437
439,441,444,456
464 a 480
482 a 65535


Hola Gente... Estaa Programando y me Surgio Una Duda...

Vieron que los Programas tienen 3 o 4 Parametros que establecen la version:

El Numero "Mayor", el "Menor", la "Compilacion" y la "Revision"

Ejemplo: si el programa fuera la version 1.2.4.6, quiere decir:

Código [Seleccionar] Expandir


Mayor:         1
Menor:         2
Compilacion:   4
Revision:      6

Bueno... La pregunta es la siguiente, ¿De que dependen estos Numeros es decir en Funcion de que se ponen estos numeros?

Hola Foro Como ahora estoy empezando a Hacer módulos y demás proyectos que voy a compartir dije ... "Tengo que ponerle mi marca, Como hacen Los chicos del foro..." así que para facilitarme la creación de estos me hice un programa que los Auto completa.... y lo comparto con Ustedes, por supuesto también el Source.

Se que el Código se puede reducir... pero Lo hice rapidito y sin pensarlo mucho, lo que mas me importaba era el resultado final, igual por supuesto siempre estoy abierto a criticas constructivas... sin mas Bla, Bla, Bla:

Descargar Ejecutable (SOLO "*.exe)

Descargar Source

                                                                                                                                                           
Solo mMakeHeader.bas:

Código (vb) [Seleccionar] Expandir


'////////////////////////////////////////////////////////////////////////////////////////////////////////'
'///                                                                                                  ///'
'///  º Tite:          mMakeHeader.bas                                                                ///'
'///  º Author:        agus0                                                                          ///'
'///  º Mail:          agus0@vbfree.com.ar                                                            ///'
'///  º Date:          17/12/10                                                                       ///'
'///  º Contributors:  -                                                                              ///'
'///  º Web:           www.agus0.com.ar & www.vbfree.com.ar                                           ///'
'///                                                                                                  ///'
'////////////////////////////////////////////////////////////////////////////////////////////////////////'

Option Explicit

Private Const cLine1 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cLine2 = "'///                                                                                                   ///'"
Private Const cLineT = "'///  º Tite:          TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT  ///'"
Private Const cLineA = "'///  º Author:        AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA  ///'"
Private Const cLineM = "'///  º Mail:          MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM  ///'"
Private Const cLineD = "'///  º Date:          DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD  ///'"
Private Const cLineC = "'///  º Contributors:  CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC  ///'"
Private Const cLineW = "'///  º Web:           WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW  ///'"
Private Const cLine3 = "'///                                                                                                   ///'"
Private Const cLine4 = "'/////////////////////////////////////////////////////////////////////////////////////////////////////////'"
Private Const cCadenaT = "TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT"
Private Const cCadenaA = "AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA"
Private Const cCadenaM = "MMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM"
Private Const cCadenaD = "DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD"
Private Const cCadenaC = "CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC"
Private Const cCadenaW = "WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"

Public Function MakeHeader(Titulo As String, Autor As String, Mail As String, Fecha As String, Ayuda As String, Web As String, Optional Style As String = "///", Optional Vig As String = "º") As Variant
    Dim Linea1, Linea2, LineaT, LineaA, LineaM, LineaD, LineaC, LineaW, Linea3, Linea4 As String
    Dim B As Integer
    Dim Space As String
    'Estilos:
    Linea1 = Replace(cLine1, "///", Style)
    Linea2 = Replace(cLine2, "///", Style)
    Linea3 = Replace(cLine3, "///", Style)
    Linea4 = Replace(cLine4, "///", Style)
    LineaT = Replace(cLineT, "º", Vig)
    LineaT = Replace(LineaT, "///", Style)
    LineaA = Replace(cLineA, "º", Vig)
    LineaA = Replace(LineaA, "///", Style)
    LineaM = Replace(cLineM, "º", Vig)
    LineaM = Replace(LineaM, "///", Style)
    LineaD = Replace(cLineD, "º", Vig)
    LineaD = Replace(LineaD, "///", Style)
    LineaC = Replace(cLineC, "º", Vig)
    LineaC = Replace(LineaC, "///", Style)
    LineaW = Replace(cLineW, "º", Vig)
    LineaW = Replace(LineaW, "///", Style)
    'Pasaje de Variables (Max Len 77)
    Titulo = Left(Titulo, 77)
    Autor = Left(Autor, 77)
    Mail = Left(Mail, 77)
    Fecha = Left(Fecha, 77)
    Ayuda = Left(Ayuda, 77)
    Web = Left(Web, 76)
    Space = ""
    For B = Len(Titulo) To 77
        Space = Space & " "
    Next B
    LineaT = Replace(LineaT, cCadenaT, Titulo & Space)
    Space = ""
    For B = Len(Autor) To 77
        Space = Space & " "
    Next B
    LineaA = Replace(LineaA, cCadenaA, Autor & Space)
    Space = ""
    For B = Len(Mail) To 77
        Space = Space & " "
    Next B
    LineaM = Replace(LineaM, cCadenaM, Mail & Space)
    Space = ""
    For B = Len(Fecha) To 77
        Space = Space & " "
    Next B
    LineaD = Replace(LineaD, cCadenaD, Fecha & Space)
    Space = ""
    For B = Len(Ayuda) To 77
        Space = Space & " "
    Next B
    LineaC = Replace(LineaC, cCadenaC, Ayuda & Space)
    Space = ""
    For B = Len(Web) To 77
        Space = Space & " "
    Next B
    LineaW = Replace(LineaW, cCadenaW, Web & Space)
    'Juntar
    MakeHeader = Linea1 & vbCrLf & Linea2 & vbCrLf & LineaT & vbCrLf & LineaA & vbCrLf & LineaM & vbCrLf & LineaD & vbCrLf & LineaC & vbCrLf & LineaW & vbCrLf & Linea3 & vbCrLf & Linea4 & vbCrLf
End Function



Hola Foreros... Bueno Por lo general en el Foro a mi se me ve por la parte de "Visual Basic" Pero Creo que en esta ocasión el lugar adecuado para charlar este tema es aquí...

Bueno Mi idea era Crear Un Sitio Web al Estilo PSC Pero Solo de VisualBasic y En Español...

Y Separarla por Proyectos enteros y por otro lados Recursos para programadores(Libres), llámese, Módulos, Clases, UserControls, Etc...

Bueno Si alguien Se copa que me mande un MP....

P.D: Se lo básico de HTML y PHP. Pero Juntos Nos damos Manía y vemos que sale

Gracias por Leer

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

Código [Seleccionar] Expandir


Public Function Funcion(fFrm as Form) as Integer
Dim C as Integer   
     C = fFrm.hWnd


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

Hola Foro! Alguien no tendrá a mano algún Control de Usuario o algo por el estilo para no depender del OCX "COMDLG32" que es el que se usa para los "CommonDialog"

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...

Código (vb) [Seleccionar] Expandir


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

[| G R A C I A S |]

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.

|                           G R A C I A S                          |

[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.]

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

Código (PHP) [Seleccionar] Expandir


<?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

Código (vb) [Seleccionar] Expandir


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"

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

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

[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

[Desde ya Muchas Gracias!!]

Hola Foreros, Soy nuevo en la sección Windows de este foro...
Pero soy habitué del foro.
Entre a esta rama del foro por que me estoy volviendo loco y no puedo eliminar el cartel de Windows Sin validar.
Tengo Windows 7 de 32 Bits.
Si alguien sabe como o con que programa puedo eliminarlo estaría agradeciéndome =) les dejo una captura de la notificación que me da...

Link de La Image

Desde ya Muchas Gracias!!

Lo Pude Solucionar con este Programa/Tutorial de Taringa! Les dejo el Link:

http://www.taringa.net/posts/downloads/5178622/Activar-Windows-7-_-septiembre-2010_-_-podes-actualizar_.html

De Todas Formas Gracias!

[DESDE AHORA. G R A C I A S]

Que tal compañeros del foro. estoy buscando un método para obtener el "Nombre de Producto" de Una Dll y de un ejecutable a partir de su ubicación (Ejemplo "C:\rest.dll")
¿Alguien tiene idea como puedo hacer?

http://www.imagengratis.org/images/capmdef3p.jpg

DESDE AHORA. G R A C I A S

Buenas foro, Bueno, les paso a contar que me gustaría hacer un programa que genere otros programas dependiendo de ciertas variables, es decir, por ejemplo
Cuando Uno ejecuta el Programa, este revisa que S.O Tenemos y genera otro programa (.exe) acorde a nuestro S.O, ya teniendo en otro Form y Un Modulo ("Que nunca se ven en el Primer programa") compila el 2º programa editando le algunas cosas dependiendo del S.O.

No se si fui claro :S Cualquier cosa Díganme

Muchas Gracias

P.D: Vi algo en este post pero No Tuvo Respuesta y no lo quise revivir:
http://foro.elhacker.net/programacion_visual_basic/como_creo_un_exe_desde_el_propio_vb60-t301853.0.html

Buenas foreros...

Bueno hoy venia con una consulta. tengo un sitio web y me gustaría hacer que al visitarlo se abra una ventana (Estilo lightbox) pero en lugar de con una imgen codigo HTML, PHP, Etc...

Alguien tiene idea, o algún codiguíto para pasarme =D Gracias!

Hola que tal Foro...

Bueno hoy se me planteo una duda que no logro resolver

alguien tiene idea como podría hacer para darle un evento a la "Ruedita del Mause"



Es decir hacer por ejemplo

Código [Seleccionar] Expandir

Private Sub Form_MouseWheel(Sentido As Integer)
   If Sentido = 0 Then
       MsgBox "Rueda Girada hacia Arriba"
   Else
       MsgBox "Rueda Girada hacia Abajo"
   End If
End Sub


Gracias!!

Buenas Compañeros...

Se me presento una duda, existe alguna manera como para recuperar de una cuenta pop/imap como por ejemplo GMAIL de leer los mails que lleguen en a una determinada cuenta....

Gracias

Hola foro que tal??

bueno nada me surigo la siguiente duda.

Supongamos que tengo un Textbox(Text1) y yo quiero hacer por ejemplo esto:

Código [Seleccionar] Expandir


if text1.text = "hola" then
msgbox "Hola!"
end if


bueno el msgbox en el caso anterior solo se mostraria si el texto del text1 fuese Textualmente "hola" pero yo quiero que se muestre aunque sea "Hola", hOla", "hoLa", "holA" u "HOLA"; me explico?

Bueno, solo eso, como podria hacerlos... obviamente sin usar if or or or or then xP

Hola foro...
Bueno como dice el titulo, alguien tendra un Control de Usuario (CTL) para no usar el INET, es decir que lo reemplaze?

Gracias!

Buenas foro, estaba haciendo un soft y me tope con la siguiente duda:

Si yo hago que mi soft se minimize en la bandeja de Tray (Junto al reloj), y el usuario, vuelve a ejecutar el programa desde el "Programa.exe", Como hago para que se habra el "FormMain" por ejemplo pero de la instancia que esta minimizada, es decir:

Private Sub Form_Load()
If App.PrevInstance = True Then
'abrir el FrmMain que esta minimizado
End If
End Sub

* mi duda seria que pongo en lugar de "'abrir el FrmMain que esta minimizado"

Gracias

Buenas Foro!

Tenia una duda.

¿Como puedo crear ese efecto que tiene windows xp Cunado uno aprieta el boton de apagar, que todo menos las opciones de "Apagar, Suspender y reiniciar" se pone blanco y negro???

Es decir esto



Link de la img: Clic aqui

y si no, Como hacer el de win vista o win7 cuando un soft trata de ejecutarse como admin, osea este:



[LINK de la img]

Gracias!!

Hola, como andan?

Bueno...
Mi duda es la siguiente

Como podria hacer un programa que, por ejemplo yo tuviera un textbox multilinea que diga:

hola
como
andas
agus0
foro.elhacker.net

y un Boton que al apretarlo,

salga un textbox que diga, "hola", despues uno que diga "como" a continuacion de este "andas" y despues "agus0" y asi sucesivamente.

Espero que me allan entendido, Gracias;

 Felices fiestas y Prospero año nuevo

Hola que tal, Bueno soy nuevo en esto de PHP y MySql.

Mi duda es la sigueinte, Como puedo hacer para tengo una tabla en Sql que tiene por ejemplo mi nombe. y lo leo perfecto.

Y en la otra columna un codigo HTML guardado en la base de datos.

quiero pasar el codigo html a una parte de la pagina php como podra hace alcansaria con

Código [Seleccionar] Expandir

<?php 
$HTML = *CodgioparaobetenerdatodelaBD;
echo "<html>";
echo $HTML;
echo "</html>";
?>

*CodgioparaobetenerdatodelaBD = Esto me lo pdrian recordar por que no me lo acuerdo  


Desde ya muchas gracias

Hola Foro!

Como anda todo?

Bueno bengo con una duda, alguien tiene idea como puedo hacer para hacer un programa que ademas de sus funciones "por defecto" se le puedan agregar plugins , como tiene por ejemplo el Firefox...

Gracias SALU2