Temas

Buenas noches. Este es mi primer post en Electronica y quisiera que me puedan orientar mas o menos en el tema porque ando medio perdido.

Tengo un proyecto en mente en el cual tengo que controlar con la PC (mediante puerto serie usando un usb->serie) un motor. Para simplificar, voy a empezar con estas dos cosas:

-Motor electrico trifasico (Brushless)
-Variador brushless (para la velocidad del motor)

(estos son los que se usan en aeromodelismo)

Lo que yo quiero hacer eso en base a un programa hecho en C controlar la velocidad de ese motor (el software no es problema, me dedico a eso).

Tengo entendido que puedo hacer algo con un PIC pero yo no quiero que el PIC controle el motor. Es decir, el pic se programa y listo, es independiente del pc o no?
Yo quiero tenerlo conectado al pc y que el pc controle el motor. Hasta quizás desde una consola de ubuntu enviar un valor para variar la velocidad del motor. Se entiende mas o menos?

En resumen, querría construir un circuito que lo conecte y lo pueda usar, controlarlo desde la pc. Tengo que usar un PIC?

Agradecería las respuestas, ya estuve buscando y leyendo bastante (en el foro tambien), pero todo hace referencia a programar, desconectar y que trabaje el pic.
Aparte el pic tiene poca memoria como para hacer un programa complejo como el que quiero hacer (el motor y el variador seria el principio)

Gracias de antemano

[tvTree_MouseDown]

Bueno, quien no tuvo este problema? Querer hacer un doble click en un nodo y realizar una acción pero sin que el nodo se expanda?
Tuve este problema y en internet no hay ninguna solución. Entonces decidí postear la que se me ocurrió, que la verdad funciona muy bien y es muy sencilla.

Suponiendo que el treeview se llama tvTree y que ya tiene nodos agregados:

Código (vbnet) [Seleccionar] Expandir

Public cancelAction As Boolean = True

Private Sub tvTree_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeExpand
      e.Cancel = cancelAction
End Sub

Private Sub tvTree_BeforeCollapse(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles tvTree.BeforeCollapse
       e.Cancel = cancelAction
End Sub

Private Sub tvTree_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles tvTree.MouseDown

Dim node as Treenode = tvTree.GetNodeAt(e.X, e.Y)
       If node.Bounds.IntersectsWith(New Rectangle(e.X, e.Y, e.X, e.Y)) Then
               cancelAction = True
       Else
cancelAction = False
       End If

End Sub

Espero les sirva.

Saludos!

#EDIT

Encontre una mejora para el codigo sitado arriba. Funciona mucho mejor y no tiene resultados indeseados. Todas las modificaciones son en tvTree_MouseDown
Se contempla si los nodos tienen imagenes o no.

Código (vbnet) [Seleccionar] Expandir

        Dim node As TreeNode = TreeView1.GetNodeAt(e.X, e.Y) 'Obtengo el nodo donde hice click

        If node Is Nothing Then Exit Sub 'Si no hay nodo, salgo

        Dim imgWid As Integer = 16 'Ancho de imagen del nodo / imgWid = 0 si no tiene imagen
        Dim rect As Rectangle = New Rectangle(node.Bounds.X - imgWid, node.Bounds.Y, node.Bounds.Width + imgWid, node.Bounds.Height)

        If rect.Contains(e.X, e.Y) Then
            cancelAction = True
        Else
            cancelAction = False
        End If

Otros saludos!

[Blackberry JRE 5]

Que tal?
Les comento mi problema...

Estoy empezando a desarrollar una aplicación para blackberry, usando Blackberry JRE 5, el cual no tiene soporte para javax.swing por lo tanto no puedo usar DefaultTableModel
Entonces... que otra cosa se puede usar para crea una grilla en memoria? Unicamente necesito poder recorrerla.

Estoy abierto a sugerencias.
Muchas gracias

[GetChildWindows]

Buenas, estoy con esa duda. Tengo una aplicación a la que tengo que agregarle unos datos mas al combo (tengo que agregarle años, ya que se quedo corto y es una app vieja) y quisiera saber como agregarle un item. El buscar el Combo no me preocupa, me preocupa mas como agregar el item. Se hace con sendmessage no?

Dejo algunas funciones que voy a usar, quisas a alguien mas le sirven.

Código [Seleccionar] Expandir

   <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindow( _
    ByVal lpClassName As String, _
    ByVal lpWindowName As String) As IntPtr
   End Function

   <DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Private Shared Function FindWindowByClass( _
        ByVal lpClassName As String, _
        ByVal zero As IntPtr) As IntPtr
   End Function

   <DllImport("user32.dll", EntryPoint:="FindWindow", SetLastError:=True, CharSet:=CharSet.Auto)> _
   Private Shared Function FindWindowByCaption( _
        ByVal zero As IntPtr, _
        ByVal lpWindowName As String) As IntPtr
   End Function

   <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function FindWindowEx(ByVal parentHandle As IntPtr, _
                     ByVal childAfter As IntPtr, _
                     ByVal lclassName As String, _
                     ByVal windowTitle As String) As IntPtr
   End Function

   <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr
   End Function

Gracias
Mariano


Edit:
Me tope con un problema. Al usar la funcion GetChildWindows de una ventana, no me devuelve el valor de los ComboBox, justamente los que necesito y del resto de los controles si.
Usando el WinID puedo sacar el handle del control, pero esa no es la idea.

Estoy atento a cualquier sugerencia.

Tal y como dice el titulo mi pregunta se trata de raw sockets y .net.

Estuve leyendo por ahí y mismo en el foro que desde XP SP2 Microsoft no admite mas trabajar con raw sockets. Entonces..

Código [Seleccionar] Expandir

serverSocket = new Socket(AddressFamily.InterNetwork, System.Net.Sockets.SocketType.Raw, ProtocolType.Raw)


Ahí estoy trabajando con raw sockets? O veo mal?

Espero puedan responder mi duda.

Saludos!

[ArrayList]

Buen día a todos.

Estuve viendo que en la web muchos preguntan como ordenar una colección de items. Hice una pequeña función y bien sencilla para ordenar en orden ascendente y descendente una colección del tipo Collection.

Empezamos con esto:

Código [Seleccionar] Expandir


Public Enum OrderByDirection
        Ascendant = 0
        Descending = 1
End Enum

Y seguimos con:

Código [Seleccionar] Expandir

   Public Function SortCollection(ByVal Collection As Collection, Optional ByVal OrderBy As OrderByDirection = OrderByDirection.Ascendant) As Collection
        Dim ArrayList As New ArrayList
        Dim Ret As New Collection

        ArrayList.AddRange(Collection)

        If OrderBy = OrderByDirection.Ascendant Then
            ArrayList.Sort()
        Else
            ArrayList.Sort()
            ArrayList.Reverse()
        End If

        For Each sItem As String In ArrayList
            Ret.Add(sItem)
        Next

        Return Ret

End Function

Para su utilizacion:

Código [Seleccionar] Expandir

Dim Col As New Collection

        Col.Add("01")
        Col.Add("06")
        Col.Add("03")
        Col.Add("04")
        Col.Add("07")
        Col.Add("24")

        Col = SortCollection(Col, OrderByDirection.Ascendant)



El funcionamiento es sencillo. Se carga un ArrayList desde una colección y se pasan los métodos Sort y Sort + Reverse según el tipo de ordenación que se elija.


Espero que les sirva.
Saludos

[SendMessage]

Buenas...
Estoy trabajando con VB.NET y como dice el asunto, estoy teniendo un problema para agregar un botón en ese toolbar de una aplicación que obviamente no es mía.
El problema esta en que no tengo idea en como hacerlo. Supongo que tengo que usar SendMessage pero desconozco los parámetros. Si alguien puede ayudarme se lo agradeceria.

#Editado
O bien agregar un menú nuevo. La aplicación a la que quiero agregar el menú o el ítem al toolbar esta echa en VB6 por si alguien tiene la duda.

Atte
Mariano Malomo.

Buenas.
La pregunta es sencilla. Necesito saber como arrastrar una celda de un datagridview y poder tirar ese texto en un label.
Lo puedo hacer dentro del mismo datagridview, pero no puedo soltarlo fuera.

Saludos!

Bien, como dice el titulo el tema es SSAS y .NET.
En el trabajo tuve la necesidad de utilizar cubos por una cuestión de rendimiento, comodidad, y algunas cositas mas.

No hay mucho en internet como lo hay sobre SQL Server y .NET

Encontré algún que otro manual, pero la verdad no dicen mucho.
Si alguno conoce algún sitio para recomendar o algún tutorial para exponer sera bienvenido.
No se si existirá algún conector para utilizar directamente sus funciones de SSAS desde .Net.
Si encuentro algo realmente interesante aquí lo pondré.

Atte.

Buenas a todos nuevamente.
Se me ocurrio hacer una aplicacion de uso didactico para ahorrar un poco de tiempo en algunas cosas.
Consiste en leer letras en una imagen, las cuales formaran un nombre. No es ningun tipo de bot, aclaro.

Si alguien me puede orientar se lo agradeceria, yo ya estoy investigando sobre el tema y en cuanto tenga algo lo posteo.

Gracias.

Buenas a todos.
Ese es mi problema, ejecutar un vbscript en vb.net al vuelo.

Se puede hacer mediante archivos temporales, pero lo que a mi me interesa es crear una función en vbscript y poder ejecutarla desde mi aplicación, obviamente recuperando el resultado de esa función.

Si alguno me puede ayudar se lo agradecería.

Saludos

Buenasssss
Tengo una duda, estoy haciendo una aplicacion y necesito sacar datos de otra.
Por ejemplo... hay una aplicacion con varios campos de texto... el objetivo es obtener esos datos pedo desde una app echa por mi.
Ejemplo practico:
Abro Inicio - Ejecutar. => Escribo la ruta de un archivo a ejecutar, por ejemplo "notepad.exe" (Todavia no apreto Enter)
Abro mi aplicacion y obtengo lo que hay escrito en el campo de texto del cuadro Ejecutar.... en este caso seria: "notepad.exe"
Me explico?

Si a alguno se le ocurre me seria de ayuda. Mientras tanto voy a seguir buscando y si lo encuentro lo posteo.

Gracias!

Bueno, les comento mi duda.
Necesito imprimir el contenido de un PictureBox, pero... lo que hay dentro no es una imagen. Simplemente uso el PictureBox como contenedor.
Lo que necesito imprimir es lo que dibujo dentro de el.

Con este codigo dibujo el grafico:

Código [Seleccionar] Expandir


  Private Sub Pic_Graf1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Pic_Graf1.Paint
       
        Dim Superficie As Graphics
        Dim Lapiz As Pen
        Dim RectanguloSuperior As Rectangle
        Dim RectanguloInferior As Rectangle
        Dim RectanguloRelleno As Rectangle
        Dim Relleno As SolidBrush
        Dim Fuente As Font

        If ActivateGraph_1 = False Then
            Pic_Graf1.Image = My.Resources._50px_error
            Me.Refresh()
            Exit Sub
        Else
            Pic_Graf1.Image = Nothing
        End If

        Superficie = e.Graphics
        Lapiz = New Pen(Color.Black, 2)

        Relleno = New SolidBrush(Color.Gray)
        Fuente = New Font("Arial", 12, FontStyle.Bold)
        RectanguloSuperior = New Rectangle(5, 5, 100, 50)
        RectanguloInferior = New Rectangle(5, 15, 100, 50)
        RectanguloRelleno = New Rectangle(10, 30, 95, 15)
        Superficie.FillRectangle(Relleno, RectanguloRelleno)
        Superficie.FillEllipse(Relleno, RectanguloInferior)

        Dim Valor1 As Integer = iPorcent_1_1
        Dim Valor2 As Integer = iPorcent_1_2
        Dim Valor3 As Integer = iPorcent_1_3
        Dim Valor4 As Integer = iPorcent_1_4

        Dim Porcent1 As Integer
        Dim Porcent2 As Integer
        Dim Porcent3 As Integer
        Dim Porcent4 As Integer

        Porcent1 = (Valor1 * 360) / 100
        Porcent2 = ((Valor2 * 360) / 100)
        Porcent3 = ((Valor3 * 360) / 100)
        Porcent4 = ((Valor4 * 360) / 100)

        'Rellena las secciones con diferentes colores
        Relleno.Color = pic_ref1.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, 0, Porcent1)

        Relleno.Color = pic_ref2.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1, Porcent2)

        Relleno.Color = pic_ref3.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2, Porcent3)

        Relleno.Color = pic_ref4.BackColor
        Superficie.FillPie(Relleno, RectanguloSuperior, Porcent1 + Porcent2 + Porcent3, Porcent4)
    End Sub



Y ahora... lo que yo me pregunto... es como imprimo el grafico resultante?

Saludos.

[MsgBox]

Bueno, no se si me exprese bien en el titulo o no. Seguramente no.
Lo que quiero decir y que no se como hacer es lo siguiente:

Por ejemplo, cuando uno llama a MsgBox puede escribir el texto a mostrar, el titulo, etc. Tambien en un momento al apretar la ,(coma) se despliega un "menu" con constantes (las cuaales indican el estilo del cuadro).

Lo que yo quiesiera es crear una funcion X() que (vamos a explicarlo paso por paso bien detalladamente como si estuviera con VB.NEET en este momento ) cuando abra el parentesis al señalame los parametros que necesita pase lo siguiete:

-Me pida el primer parametro String
Suponiendo que:

Código [Seleccionar] Expandir

Function X (Parametro1 As String....

End Function

-Al presionar la coma y pasar al segundo parametro tambien lo tenga que tipiar
Suponiendo que:

Código [Seleccionar] Expandir

Function X (Parametro1 As String, Parametro 2 As Integer....

End Function

-Luego al presionar coma nuevamente para pasar al tercer parametro, lo tenga que seleccionar de una "listita" que previamente ala definnido.

Espero haber sido lo suficientemente claro. Eso trate. Y por lo que veran no fui nada tecnico jaja

Espero puedan sacarme de esta duda. Si no se entendio, tratare de expresarme mejor.

Atte,
Mariano Malomo

Buen dia.
Hoy vengo con una duda un tanto interesante.
Quiesiera saber si es posible correr una funcion que se encuentra dentro de un macro de Excel.

Si no se entiende la pregunta, simplemente avisenme.

El inconveniente surge por lo siguiente:
Tengo un Excel Add-In el cual si paso su code a VB6 no funciona, ni tampoco en VB.NET. Ya que usa una cantidad de bibliotecas externas impresionantes, y cada llamada esta relacionada con otra. Es un Add-In muy extenso.
Entonces me imagine que seria mas facil correr las funciones desde el mismo.

Muchas gracias por el tiempo.

Atte.
Mariano Malomo

Que tal? Tal y como dice el titulo. No he visto mucho por la web sobre inyeccion en .net, calculo que debe ser no muy distinto a VB6
Si alguien esta interesado en el tema, bienbenido



Atte.
Mariano Malomo

Buenas, que tal?
Mi duda de hoy es la siguiente:
Como hacer para que en un DataGridView pueda tener aparte de la cabecera en donde poner titulos, poder poner otros titulos. Osea por decir de una manera, que la primer fila del Grid sea fija.
Se entiende?
No se me ocurre mucho, por el momento estoy usando otro grid en donde se ven las cabeceras nada mas, pero lo quiero hacer mas profesional.

Si alguien sabe de algo, me seria de ayuda.


Saludos
Mariano Malomo

Buen día a todos.

Mi duda es la siguiente:
Me gustaría que mi aplicación sea multilenguaje y tengo una idea para eso. Pero quisiera saber si .Net viene con alguna utilidad para el caso.

La idea es la siguiente:
En un archivo de texto plano guardar por linea el nombre que representa a un control:

Código [Seleccionar] Expandir

Boton_Aceptar = Nombre del control

Luego, al abrir la aplicación, leer el archivo de idioma y asignarle a los controles el nombre que indica la variable, Por ejemplo:

Código [Seleccionar] Expandir

btn_aceptar.text = Boton_Aceptar

Anterior mente se hizo:

Código [Seleccionar] Expandir

Dim Boton_Aceptar = nombre que se obtuvo del archivo


Esa es mi idea. Si alguno conoce algo mejor me gustaría que me avise
Dejo un saludo.

[DataGridView]

Buen dia. Nuevamente con una duda importante.
Me gustaria saber como hago para imprimir un DataGridView desde VB.Net

Encontre una clase en la web pero para imprimir un DataGrid pero no me sirve.

Si alguien sabe como, se lo agradeceria

Saludos.

[DataGridView]

Aca les dejo un codigo para exportar un DataGridView a Excel.
Crea un archivo .csv y luego lo abre con Excel, evitando la dependencia de alguna version en particular. El codigo es sencillo

Se debe agregar:

Código [Seleccionar] Expandir

Imports System.IO

Código [Seleccionar] Expandir

Function Exportar()
        Dim strStreamW As Stream
        Dim strStreamWriter As StreamWriter
        Dim Filas = frm_principal.Grid.Rows.Count
        Dim Columnas = frm_principal.Grid.Columns.Count
        Dim Archivo As String = Application.StartupPath & "\Centros.csv"
        Dim Linea
        Dim f, c

        File.Delete(Archivo)
        strStreamW = File.OpenWrite(Archivo)

        strStreamWriter = New StreamWriter(strStreamW, System.Text.Encoding.UTF8)

        'CABECERA
        For c = 0 To Columnas - 1
            Linea = Linea & frm_principal.Grid.Columns(c).Name & ";"
        Next

        Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
        strStreamWriter.WriteLine(Linea)
        Linea = Nothing

        'FILAS
        For f = 0 To Filas - 1
            For c = 0 To Columnas - 1
                Linea = Linea & frm_principal.Grid.Item(c, f).Value & ";"
                'MsgBox(Grid.Item(c, f).Value)
            Next
            Linea = Mid(Linea, 1, Linea.ToString.Length - 1)
            strStreamWriter.WriteLine(Linea)
            Linea = Nothing
        Next
        strStreamWriter.Close()

        Try
            Process.Start(Archivo) 'Ejecuta el archivo creado
        Catch Ex As Exception
            MsgBox(Ex.Message, MsgBoxStyle.Critical, Ex.Source)
        End Try

    End Function


En un boton:

Código [Seleccionar] Expandir

Call Exportar()


Espero les sirva.

[DataGridView]

Buenos dias, nuevamente con mis dudas sobre las grillas
Me gustaria saber como se puede hacer para combinar celdas en un DataGridView de la forma en que se hace en Excel por ejemplo.

Si alguien sabe, bienvenido sea.

Muchas gracias

Buenos dias, volvi con una preocupacion y creo que es bastante grande.

Les comento...
Necesito mostrar unos datos en forma de arbol pero tambien necesito mostrar por cada linea algunas columnas.
Al hacer doble click en una linea, que por debajo se abran los registros dependientes.
Algo asi como una mezcla de TreeView y un DataGrid.
Tambien necesito darle un color de fondo y estilo negrita a determinadas lineas
Alguien tiene idea sobre algo por el estilo?

Estuve usando un control FlexCel que es como un DataGrid y me permite cambiar los colores facilmente. El problema es que no puedo agregar datos en X fila (podria hacer doble click y agregar los datos de la nueva consulta por debajo de el item cliqueado, pero es imposible)

Bueno, si alguien tiene alguna idea se lo voy a agradecer


Un saludo

hola a todos, mi problema es el siguiente
no me puedo conectar a un servidor oracle y lo que encuentro en internet no me soluciona nada y me confunde :S

el codigo que estoy usando es este:

Código [Seleccionar] Expandir


        Try

            Dim oradb As String = "Data Source=(DESCRIPTION=((ADDRESS=(PROTOCOL=TCP)(HOST=10.53.1.49)(PORT=1521))(CONNECT_DATA=(SERVICE_NAME=BSNKLA)));User Id=BSNKLA;Password=BSNKLA;"

            Dim conn As New Oracle.DataAccess.Client.OracleConnection(oradb)

            conn.Open()

            Dim cmd As New Oracle.DataAccess.Client.OracleCommand

            cmd.Connection = conn

        Catch ex As Oracle.DataAccess.Client.OracleException ' intercepte seulement les erreurs Oracle
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try



y me da error :S
les dejo un saludos

adios

que tal, me gustaria saber si se puede comprobar la sintaxis sql desde vb
ya uqe mi programa guarda consultas sql ingresadas por el usuario y me gustaria comprobarlas antes.


gracias

buen dia, mi duda es la siguiente
tengo entendido que para licenciar un programa en vb6 se necesita la licencia del producto original, pero si quiero licenciar un producto .net? alquien sabe?
ya que las versiones visual.net son ofresidas sin cargo por microsoft

saludos!

que tal?
Bueno paso a comentarles mi inquietud. No tuve problemas al usar un control TreeView en vb6, pero cuando migre a .NET se me dificulto la cosa. No puedo agregar lo que yo quiero como yo quiero.
Pongo un code de ejemplo:

Código [Seleccionar] Expandir

       
treeview.Nodes.Add("Raiz")

treeview.Nodes(0).Nodes.Add("Primero")
treeview.Nodes(0).Nodes.Add("Segundo")
treeview.Nodes(0).Nodes.Add("Tercero")


con ese code creo una raiz y colgando de esa raiz los items Primero, Segundo y Tercero.
Ahora... yo quiero colgar items del item "Primero" y eso es lo que no puedo hacer

Saludos.

alguien me podria explicar como conectar a sql server usando vb.net?
estoy migrando de vb6 y no puedo encontrar por ningun lado como hacerlo :S

es urgente, tengo que hacer una aplicacion importante en tan solo 5 dias y me falta hacer la conexion

gracias de antemano nuevamente

hola a todos
me gustaria saber si alguien tiene idea de como conectar a oracle desde vb.net ya que necesito hacer una aplicacion para alimentar una tabla, busuqe en el foro y no encontre y lo que encontre en google no lo entiendo mucho, asi q por eso recurro aca

tengo instalado un cliente oracle y agregue la referencia a mi proyecto

saludos a todos y gracias de antemano.

pd: la conexion es remota.

holas otra vez
en mi mini aplicacion necesito tmb mandar una info a una web a traves de GET

Código [Seleccionar] Expandir


http://miweb.com/index.php?dato=midato

y no se de que manera hacerlo
busque en el foro pero nada
y en google tampoco

saludos
si alguien sabe me avisa
yo ya habia visto hablar de esto en el foro hace mucho timepo atras
pero no encuentro



adios!

alo alo alo
bueno, les voy a plantear mi problema a ver si se les ocurre algo
me encuentro en una red en el trabajo y necesito obtener la IP del router, pero la ip externa
yo se q la ip de mi router es 192.168.1.1 pero queiro saber cual es la publica, desde cualquiera de las maquinas clientes

si alguien sabe, se lo agradeceria

saludso!!!!!

hola que tal, cuando vuelvo vuelvo con todo ajja

mi duda es la siguiente, en casa tengo un servidor linux con apache2 instalado, con algunas webs alojadas ahi
y estoy preocupandome por la seguridad y quiero hacer en vb un sencillo programa para hacer una denegacion de servicio y simular asi un ataque

pero tengo entendido que las peticiones http se realizan en 3 pasos, con winsock como podria realizarce?
yo habia encontrado un code por ahi q haci peticiones a una web, pero no se donde esta :S

[Line Input]

Bueno... cada tanto aparesco en esta parte del foro
y tengo una duda q no puedo resolver
tengo una aplicacion donde abro un archivo de texto separado por tabulaciones el cual lo leo linea a linea
el problema es que el archivo se guarda de una forma "especial" al ser creado y los saltos de lineas no son saltos de lineas :S

entonces cuando lo leo con la instruction Line Input me lee una linea q no es en verdad una linea :S

estos archivos usan como saltos de linea Chr(10) en lugar de Chr(13) + Chr(10) y no se como resolverlo.

si alguin sabe como puedo hacer para q el chr(10)  sea interpretado como salto de linea o alguna sugerencia,... todo es bienvenido.


graciassss
adios

bueno... mi duda es la siguiente
quisas es sencilla pero bue... no encuentro la sulucion
tengo que hacer una lista con columnas y agregarles los encabezados
como en el ejemplo de la foto
y no se como hacerlo :S
si alguien puede decirme q control usar, se lo agradeceria



adios

que tal, despues de tanto tiempo, dije que volvia y volvi

mi duda es la siguiente
estoy haciendo una aplicacion en vb6 usando sql server y queiro listar las db, utilizo este codigo:

Código [Seleccionar] Expandir



rst.Open "SELECT name FROM master.dbo.sysdatabases", cnn, adOpenDynamic, adLockOptimistic
With cbo_db
        .Clear
        For Each tField In rst.Fields
            .AddItem tField.Name
        Next
        .ListIndex = 0
    End With
rst.Close




cbo_db es un combo, y lo unico que me lista es la palabra "name", como hago para que me liste los datos de la columna name?
me srian de gran ayuda ya que estoy en el trabajo ahora xd

saludos y gracias

me parece un tema interesante para tratar en el foro, que les parece?? comenzamos a explorarlo?

[WinID]

bueno hola,. pasaba a preguntar una cosilla simple nomas

como ago para encontrar la clase "Internet Explorer_Server" (que es la que permite ver el contenido de las paginas web en internet explorer
use este codigo pero al parecer no funciona

Código [Seleccionar] Expandir


Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_CLOSE = &H10
Const ClaseDeIE = "Internet Explorer_Server"
Const ClaseDeFF = "MozillaWindowClass"

Private Sub Form_Load()
  Dim WinWnd As Long
    'Como solo queremos  la del IExolorer...
    'se la ponemos directamente
    WinWnd = FindWindow(ClaseDeIE, vbNullString) 'vbnullstring el segundo valor para que valga para cualquier ventana del IE
    If WinWnd = 0 Then Exit Sub  ' si no esta salimos sin hacer nada
    ' el show de window lo quite , me imagino que no quieres mostrarla si la encuentra
   ' el nombre de la clase tambien lo quito , ya lo tenemos
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&  ' cerramos el IE y hasta otra

End Sub



alguien tiene la solucion??'


pd: el nombre de la clase lo sake con el WinID

gracias de antemano

bueno mi duda es la siguiente,. como puedo hacer para ejecutar un comando msdos como x ejemplo el netstat y que me devuelva los resultados a vb?' sin usar los bath, eso lo estoy haciendo ahora
e probado este code
http://www.elguille.info/VB/ejemplos/vb_stdout.htm
pero se me congela la aplicacion ¬¬

si alguien sabe aviseme por favor, no encontre en el foro tampoco

gracias

[iexplore.exe]

 bueno... el problema es el siguiente...
he estado haciendo preguntas y no encuentro la respuesta todavia...
necesito saber de que manera puedo ver/interceptar o blokear las peticioens http a traves de vb
basicamente es para blokear internet(ya puse un hilo sobre este tema)

yo ago una peticion http a google.com------> pongo algo en medio y a google no le llega ni mela, eso es lo que quiero

estoy en un proyecto x eso estoy tan pregunton del tema
si alguien tiene idea avisenme,. xq no me resulta efectivo verificar el proceso iexplore.exe cada 100 millicegundos y cerrarlo
gracias



El MaRo!

hola,. mi duda es la siguiente,.(estoy con las dudas que me mata jejeej xd,. muchas preguntas ultimamente )
bueno... existe lgun codigo que me pueda dar los nombres de los archivos abiertos x un programa en especial?

la pregunta viene a esto,. tengo un programa x timepo de prueva,. y creo que utiliza un archivo donde guarda la info del tiempo de uso,. la idea es saber cual es ese archivo y editarlo
pra buscrlo tengo que saber que archivos abre el programa

alguna forma de saber que archivos usa un programa en vb??

graciaxx ya




El MaRo!

[Sub AgregarIcono(icono)]

bueno hola otra vez,. mi aduda es la siguiente
tengo un programa que se pone en el systray con un icono muy lindo jeje,. lo que keiro acer es que el programa cuadno este activo tenga un icono y cuadno este desactivado tenga otro, se entiende??

el codigo que uso es el siguiente:
en un modulo

Código [Seleccionar] Expandir


Private Type NOTIFYICONDATA
   cbSize As Long
   hWnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * 128
   dwState As Long
   dwStateMask As Long
   szInfo As String * 256
   uTimeout As Long
   szInfoTitle As String * 64
   dwInfoFlags As Long
End Type

Dim nf_IconData As NOTIFYICONDATA

Const NOTIFYICON_VERSION = 3
Const NOTIFYICON_OLDVERSION = 0

Const NIM_ADD = &H0
Const NIM_MODIFY = &H1
Const NIM_DELETE = &H2

Const NIM_SETFOCUS = &H3
Const NIM_SETVERSION = &H4

Const NIF_MESSAGE = &H1
Const NIF_ICON = &H2
Const NIF_TIP = &H4

Const NIF_STATE = &H8
Const NIF_INFO = &H10

Const NIS_HIDDEN = &H1
Const NIS_SHAREDICON = &H2

Const NONE = &H0
Const WARNING = &H2
Const ERROR = &H3
Const INFO = &H1
Const GUID = &H4

Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Private Declare Function Shell_NotifyIcon Lib "shell32" _
Alias "Shell_NotifyIconA" _
(ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Sub AgregarIcono(icono)
With nf_IconData
        .cbSize = Len(nf_IconData)
        .hWnd = frm_main.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = icono
        .szTip = "Bloker" & vbNullChar 'QuickInfo  Symbols & vbNullChar
        .dwState = 0
        .dwStateMask = 0
   End With

   Shell_NotifyIcon NIM_ADD, nf_IconData 'NIM_ADD Agregamos el icono a la barra
End Sub
Sub QuitarIcono()
Shell_NotifyIcon NIM_DELETE, nf_IconData 'NIM_DELETE Quitar el icono de la barra
End Sub
Sub MostrarGlobo(Texto As String, tipo As Long)
With nf_IconData
        .cbSize = Len(nf_IconData)
        .hWnd = frm_main.hWnd
        .uID = vbNull
        .uFlags = NIF_ICON Or NIF_INFO Or NIF_MESSAGE Or NIF_TIP
        .uCallbackMessage = WM_MOUSEMOVE
        .hIcon = frm_main.Icon
        .szTip = "Bloker" & vbNullChar 'QuickInfo  Symbols & vbNullChar
        .dwState = 0
        .dwStateMask = 0
        .szInfo = Texto & Chr(0) 'Texto del globo
        .szInfoTitle = "Informacion" & Chr(0) 'Titulo del globo
        .dwInfoFlags = tipo
        .uTimeout = 1000 'Tiempo de espera  (millisec.)
   End With

   Shell_NotifyIcon NIM_MODIFY, nf_IconData 'Activamos el globo
End Sub
Sub Eventos(x As Single)
Dim lMsg As Long
   Dim sFilter As String
   lMsg = x / Screen.TwipsPerPixelX
   Select Case lMsg
   'you can play with other events as I did as per your use
      Case WM_LBUTTONDOWN
      Case WM_LBUTTONUP
       'Form2.PopupMenu Form1.MnuMostrar
      Case WM_LBUTTONDBLCLK
        If frm_main.Visible = False Then
        frm_habilita.Show
        End If
      Case WM_RBUTTONDOWN
     
      Case WM_RBUTTONUP
       'Form2.PopupMenu Form2.MnuMostrar
      frm_main.PopupMenu frm_main.Archivo
      Case WM_RBUTTONDBLCLK
   End Select
End Sub

tonces,. para agregar el icono pongo

Código [Seleccionar] Expandir

AgregarIcono "dirrecion del icono"
y me salta error,. el icono lo puedo poner, solo que si modifico esto Sub AgregarIcono(icono) es que no me anda,
en fin,. no puedo cambiar el icono del systray en tiempo de ejecucion
alguna solucion??'



El MaRo!

buenas
tengo este codigo para conseguir las calses, el tema es que me pide el nombre de la ventana(el  code lo sake del API-Guide) y yo necesito saber si esta activa la clase IEFrame que es la del internet explorer, como mela lo ago??

Código [Seleccionar] Expandir

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"
Private Sub Form_Load()
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    'Ask for a Window title
    Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
    'Search the window
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
    'Show the window
    ShowWindow WinWnd, SW_SHOWNORMAL
    'Create a buffer
    lpClassName = Space(256)
    'retrieve the class name
    RetVal = GetClassName(WinWnd, lpClassName, 256)
    'Show the classname
    MsgBox "Classname: " + Left$(lpClassName, RetVal)
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub


estaria bien buscar todas las ventanas y a cada nombre de ventana verivicar si usa ese calse??
gracias




El MaRo!

buenassssss
bueno keria saber si alguin me podria pasar el codigo para buscar las clases,. ya que aki en el foro encontre como obtenerlas pero no estan puestas las constanes ni las declaraciones de la api
si alguien me lo podria pasar se lo agradeceria
saludos



El MaRo!

hola que tal,. keria saber si les parecia conveniente utilizar esta funcion para listar los proceso en un listbox
opinen nomas xD

Código [Seleccionar] Expandir


Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object
Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then


Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

'Recorremos toda las coleccion en lista de procesos y la añadimos al list
For Each ProcesoACerrar In ListaProcesos
frm.List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If
End Function


saludos


El MaRo!

bueno primero hola
mi duda es la siguiente... kisiera saber como acer para saber cuando un contacto mio del msn se conecta al switchboard,. y cuando se desconecta,. para asi saber kien abre mi ventana y kien la cierra,.
ay programas que acen eso pero keria saber si es posible en vb,. interseptar esas conexiones
desde ya muchas gracias
saludos





El MaRo!

hola que buenas

bueno mi pregunta es la siguiente
como hago para rellenar los campos de un fotolog(ejemplo: http://www.fotolog.com/el_maro86 ) usando el control web browser??
eh intentado usando esto

Código [Seleccionar] Expandir

wb.Document.All("from").Value = "minombre"
wb.Document.All("msg").Value = "mifirma"
usando esto tmb

Código [Seleccionar] Expandir

wb.Document.Forms(0).form.Value = "minombre"
wb.Document.Forms(0).msg.Value = "mifirma"

y no me funciona,. me tira error y no entiendo xq,. lo mas seguro es que este mal el codigo,. pero buske en el foro todos los temas relacionados con web brower(como deberian acr todos ) y nada :S
es la primera ves que trabajo co neste control

bueno espero que alguien me pueda responder

pd: es para mandar spam xDDD publicidad pa mi blog jejeje







El MaRo!