1
Visual Basic 6 / Re:Manipular contenido de una página
« en: Febrero 12, 2016, 08:05:05 pm »
Alguna idea, por favor? :/
Mostrar Mensajes
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
2
Visual Basic 6 / Re:Manipular contenido de una página
« en: Febrero 03, 2016, 10:28:05 pm »
Hola compañero, ya logré enviar datos a una página e iniciar sesión, pero mi duda es cómo puedo reconocer cuando alguien me escriba en le chat y responderle automáticamente?
el código actual que tengo es este:
El cual puedo ingresar y dirigirme a https://m.facebook.com/messages/, pero como podría hacer para reconocer cuando alguien me escribe y autoresponderle?, alguna idea :/
el código actual que tengo es este:
El cual puedo ingresar y dirigirme a https://m.facebook.com/messages/, pero como podría hacer para reconocer cuando alguien me escribe y autoresponderle?, alguna idea :/
Código: (VB) [Seleccionar]
Private Sub Form_Load()
WebBrowser1.Navigate "https://m.facebook.com/"
End Sub
Private Sub Command1_Click()
WebBrowser1.Document.All("email").Value = "correo@mail.com" 'funciona ok
WebBrowser1.Document.All("pass").Value = "321654987" 'funciona ok
WebBrowser1.Document.All("login").Click 'funciona ok
End SubEstimado NsTeam
Aquí tienes un ejemplo:
[size=78%]http://planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=71510&lngWId=1[/size]
Saludos
3
Visual Basic 6 / Manipular contenido de una página
« en: Febrero 03, 2016, 12:59:16 pm »
Buenas, lo que quiero hacer es poder manipular el contenido de una página y no sé si sea posible, en sí quiero meter un navegador interno a un form1, ingresar a una página mediante "login y clave" e interactuar en ella, como dar click en una caja de texto de una página y enviar datos
Algo así como:
enviar datos de Vb6 a una pagina web X ejem. tengo caja de texto (Nombre) y que el contenido de esa caja de texto pase a www.cualquierpagina.com a una de las casillas de esa pagina e interactuar en ella.
Alguna idea?, desde ya gracias.
Algo así como:
enviar datos de Vb6 a una pagina web X ejem. tengo caja de texto (Nombre) y que el contenido de esa caja de texto pase a www.cualquierpagina.com a una de las casillas de esa pagina e interactuar en ella.
Alguna idea?, desde ya gracias.
4
Visual Basic 6 / Re:Leer texto completo de una página web
« en: Diciembre 21, 2015, 06:46:19 pm »
Hola Leandro, lo he probado y me anda bien, pero tengo la duda de que, ¿por qué no logra andarme con esta URL? "http://www.google.es/#q=hola", ya que me muestra un espacio en blanco.
5
Visual Basic 6 / Leer texto completo de una página web
« en: Diciembre 17, 2015, 09:25:42 pm »
Buenas!
Hace tiempo recuerdo haber visto un código que leía el texto completo de una página, no recuerdo bien donde lo vi.
Para leer el código fuente de una página, tengo el siguiente código:
El código lee el código fuente de una página, pero cómo puedo hacer para que lea el texto completo de una página, mas no el código fuente?
Hace tiempo recuerdo haber visto un código que leía el texto completo de una página, no recuerdo bien donde lo vi.
Para leer el código fuente de una página, tengo el siguiente código:
Código: (VB) [Seleccionar]
Dim Datos As String
Datos = Inet1.OpenURL("https://www.google.com.pe/")
Text1.Text = DatosEl código lee el código fuente de una página, pero cómo puedo hacer para que lea el texto completo de una página, mas no el código fuente?
6
Visual Basic 6 / Re:VB6 chrome webbrowser control
« en: Enero 31, 2015, 12:43:42 pm »En recursosvisualbasic.com.ar nuestra antigua casa, hay un post de como insertar un ejecutable en un objeto Picture que se encuentra dentro de un form, quizás puedas darle un vistazo y eso solucione lo que tu requieres.....
Muchas gracias por tu respuesta ssccaann43, efectivamente encontré una artículo interesante usando el Api SetParent en recursosvisualbasic que fue este:
http://www.recursosvisualbasic.com.ar/htm/listado-api/152-incrustar-programa-en-picturebox.htm
He buscado más información en Google, en páginas en inglés y tengo este código.
Código: (VB) [Seleccionar]
Option Explicit
Private Declare Function GetGUIThreadInfo Lib "user32.dll" ( _
ByVal idThread As Long, _
ByRef pgui As GUITHREADINFO) As Long
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, _
ByVal hWndNewParent As Long) As Long
Private Declare Function GetAncestor Lib "user32.dll" _
(ByVal hwnd As Long, _
ByVal gaFlags As Long) As Long
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" _
(ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
lpProcessAttributes As SECURITY_ATTRIBUTES, _
lpThreadAttributes As SECURITY_ATTRIBUTES, _
ByVal bInheritHandles As Boolean, _
ByVal dwCreationFlags As Long, _
lpEnvironment As Any, ByVal _
lpCurrentDriectory As String, _
lpStartupInfo As STARTUPINFO, _
lpProcessInformation As PROCESS_INFORMATION) As Long
Private Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type GUITHREADINFO
cbSize As Long
flags As Long
hwndactive As Long
hwndFocus As Long
hwndCapture As Long
hwndMenuOwner As Long
hwndMoveSize As Long
hwndcaret As Long
rcCaret As RECT
End Type
Private Type STARTUPINFO
cb As Long
lpReserved As String
lpDesktop As String
lpTitle As String
dwX As Long
dwY As Long
dwXSize As Long
dwYSize As Long
dwXCountChars As Long
dwYCountChars As Long
dwFillAttribute As Long
dwFlags As Long
wShowWindow As Integer
cbReserved2 As Integer
lpReserved2 As Long
hStdInput As Long
hStdOutput As Long
hStdError As Long
End Type
Private Type PROCESS_INFORMATION
hProcess As Long
hThread As Long
dwProcessId As Long
dwThreadId As Long
End Type
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Boolean
End Type
Private Const GA_PARENT = 1
Private Const SWP_NOOWNERZORDER = &H200
Private Const SWP_NOZORDER = &H4
Private Const SWP_SHOWWINDOW = &H40
Private udtGUI As GUITHREADINFO
Private udtProc As PROCESS_INFORMATION
Private Function StartProcess(strProgram As String) As Long
Dim udtStartup As STARTUPINFO
Dim udtSec As SECURITY_ATTRIBUTES
Dim lngReturn As Long
udtStartup.cb = Len(udtStartup)
udtSec.nLength = Len(udtSec)
udtSec.bInheritHandle = True
'
' Start the process
'
lngReturn = CreateProcess(strProgram, vbNullString, udtSec, udtSec, _
True, ByVal 0, ByVal 0, vbNullString, _
udtStartup, _
udtProc)
txtProcess.Text = Hex(udtProc.dwThreadId)
lngReturn = GetAncestor(udtProc.hProcess, GA_PARENT)
txtParent.Text = Hex(lngReturn)
udtGUI.cbSize = Len(udtGUI)
'
' Wait for an hWnd to be allocated
'
Do
lngReturn = GetGUIThreadInfo(udtProc.dwThreadId, udtGUI)
DoEvents
Loop Until udtGUI.hwndactive <> 0
StartProcess = udtGUI.hwndactive
End Function
Private Sub PositionWindow(hwnd As Long)
Dim lngReturn As Long
lngReturn = SetWindowPos(hwnd, hwnd, 250&, 0&, 250&, 250&, SWP_NOZORDER Or SWP_SHOWWINDOW)
End Sub
Private Sub cmdIE_Click()
Dim lngReturn As Long
Dim strProg As String
strProg = "C:\Program Files (x86)\FileZilla FTP Client\filezilla.exe"
lngReturn = StartProcess(strProg)
End Sub
Private Sub Command1_Click()
'
' Change the Parent
'
Dim lngReturn As Long
Dim lngStyle As Long
lngReturn = SetParent(udtGUI.hwndactive, Me.hwnd)
Call PositionWindow(udtGUI.hwndactive)
lngReturn = GetAncestor(udtGUI.hwndactive, GA_PARENT)
txtParent.Text = Hex(lngReturn)
End Sub
Private Sub Form_Load()
txtMe.Text = Hex(Me.hwnd)
'
' Scalemode = Pixel
'
Me.ScaleMode = 3
End Sub
Y efectivamente hace lo que yo quiero, abre un programa dentro del formulario, lo probé con Filezilla y Photoshop
Pero lo que no entiendo es por qué no pasa lo mismo con Chrome, me refiero a que lo abre en una nueva ventana mas no dentro del formulario
7
Visual Basic 6 / Re:VB6 chrome webbrowser control
« en: Enero 30, 2015, 10:27:48 pm »
Gracias por tu respuesta, trataré de buscar lo que me dijiste...
Si alguien más podría ayudarme con esto, le estaría muy agradecido.
Si alguien más podría ayudarme con esto, le estaría muy agradecido.
Hola NsTeam,
En algún momento, ví que era posible llamar una DLL, desde VB6, para manipular el ObjetoBrowser de Chrome...
El tema es, que no recuerdo donde lo ví...
Si se puede, tiene que ser, invocando una DLL (no creo que sea un OCX) que viene con la instalación de Chrome...
O bajando alguna DLL que sea para navegar, sin interfaz gráfica, por ejemplo (http://phantomjs.org/)...
Es cuestion de buscar, con distintos terminos de búsqueda, inclusive en distintos idiomas...
(porque quizás lo que buscas, está en chino)
Si lo descubrís, por favor, copialo aquí...
Un saludo,
Hugo
8
Visual Basic 6 / Re:VB6 chrome webbrowser control
« en: Enero 30, 2015, 04:03:43 pm »
Si es que no se puede mediante un WebBrowser, quizá sea posible abrir el mismo Chrome dentro de un formulario, algo así
Cuando muevas el formulario, el navegador que está en el form, se mueva con éste.
No sé si me dejo entender, es posible?
Cuando muevas el formulario, el navegador que está en el form, se mueva con éste.
No sé si me dejo entender, es posible?
9
Visual Basic 6 / VB6 chrome webbrowser control
« en: Enero 28, 2015, 05:11:27 pm »
Buenas!
Hay alguna forma o manera de integrar Chrome a Visual Basic?.
En vez de un WebBrowser, usar un componente de Chrome...
¿Habrá forma alguna?
Hay alguna forma o manera de integrar Chrome a Visual Basic?.
En vez de un WebBrowser, usar un componente de Chrome...
¿Habrá forma alguna?
10
Visual Basic 6 / Re:De ListBox a TextBox + vbNewLine
« en: Junio 26, 2012, 11:19:51 am »
Muchísimas gracias.
11
Visual Basic 6 / Re:De ListBox a TextBox + vbNewLine
« en: Junio 26, 2012, 12:04:42 am »Justamente hoy pregunte mas o menos sobre esto y el amigo Yban me paso esto y creo que te va a servir tambien a vos.Código: (VB) [Seleccionar]Private Sub Command2_Click()
Inicio = 1
Final = 5
TuCadena = Text1.Text
TotalLineas = Int(Len(TuCadena) / Final) + 1
For xi = 1 To TotalLineas
xTexto = Trim(Mid(TuCadena, Inicio, Final))
Inicio = (xi * Final) + 1
List1.AddItem xTexto
Next xi
End Sub
Gracias por tu pronta respuesta, ¿De qué manera podría usar el código que me mencionaste?
¡Saludos!
12
Visual Basic 6 / De ListBox a TextBox + vbNewLine
« en: Junio 25, 2012, 11:35:18 pm »
¡Buenas!
Actualmente estoy desarrollando una aplicación para mi uso pero estoy algo confundido en esta parte, agradecería si pudiesen ayudarme.
Lo que trato de hacer es lo siguiente:
Actualmente estoy usando un bucle para pasar todo el contenido del listbox al textbox.
Tenía la idea de que el vbNewLine se use en un intervalo de 5 en 5 en el List2.ListCount, no sé si es buena idea o no.
Espero y alguien pueda ayudarme, desde ya muchas gracias. Tengan un buen día.
Actualmente estoy desarrollando una aplicación para mi uso pero estoy algo confundido en esta parte, agradecería si pudiesen ayudarme.
Lo que trato de hacer es lo siguiente:
| Tengo en un listbox lo siguiente: 1 2 3 4 5 6 7 8 9 10 11 | Y quisiera pasarlo al Textbox de la siguiente manera: 12345 678910 11 |
Actualmente estoy usando un bucle para pasar todo el contenido del listbox al textbox.
Código: [Seleccionar]
For i = 0 To List2.ListCount
If Text4.Text = "" Then
Text4.Text = List2.List(i)
Else
Text4.Text = Text4.Text & vbNewLine & List2.List(i)
End If
Next i
Tenía la idea de que el vbNewLine se use en un intervalo de 5 en 5 en el List2.ListCount, no sé si es buena idea o no.
Espero y alguien pueda ayudarme, desde ya muchas gracias. Tengan un buen día.
13
Visual Basic 6 / Re:¿Cómo obtener datos de un textbox?
« en: Diciembre 18, 2011, 02:39:20 am »
Gracias, funciona de maravilla 
14
Visual Basic 6 / Re:¿Cómo obtener datos de un textbox?
« en: Diciembre 18, 2011, 01:47:26 am »
Bien, perdón solo he copiado hasta la linea 17 
.
Por otro lado cambié el Debug.Print, por un textbox (porque no me funcionaba el Debug.Print), pero en el textbox solo me muestra el último text en [] (osea [fin])
Trate de probar con un Listbox pero aun así no logré hacerlo, ¿Cómo podría hacer para que muestre todas las palabras dentro de los []?
.Por otro lado cambié el Debug.Print, por un textbox (porque no me funcionaba el Debug.Print), pero en el textbox solo me muestra el último text en [] (osea [fin])
Trate de probar con un Listbox pero aun así no logré hacerlo, ¿Cómo podría hacer para que muestre todas las palabras dentro de los []?
15
Visual Basic 6 / Re:¿Cómo obtener datos de un textbox?
« en: Diciembre 17, 2011, 01:29:50 pm »
Hola seba123neo, te agradezco por tu código.
Al intentar probarlo me doy cuenta de que no me funcionó
, o creo que no entendí bien.
Al intentar probarlo me doy cuenta de que no me funcionó
, o creo que no entendí bien.