esto ya se vio bastanes veces aca, busca que vas a encotnrar post con la solucion, si no me equivoco es abrir el archivo en modo binario y escribirlo despues.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes MenúCitarLa clavija DVI-I admite un cable DVI-D. Asimismo, la clavija DVI-D no admitirá un cable DVI-I. La única diferencia entre ambas clavijas son los 4 pines adicionales, los cuales se usan sólo para la transmisión analógica, no digital. No es ni mejor ni peor...lo unico que tienes que hacer es conectar a la gráfica el DVI-I y para la conexion DVI-D, quitarle los 4 pines.
Citarel monitor lleva DVI-D y la gráfica DVI-I. La solucion de comprar cable DVI-I y cortarle los 4 pines a la toma del monitor me parece muy cutre, aunque sea válida. Además, he leido de alguno que lo ha hecho y resulta que le seguia sin entrar el DVI-I capado en el DVI-D. Y he estado pensando...en lugar de esa chapucilla, no sería más conveniente comprar un cable DVI-D, y conectarlo en el monitor y la grafica sin más? Vale que los 4 pines hembra de la grafica se quedan sin conectar, pero si no se van a suar, que mas dará?
Private Sub Command1_Click()
WebBrowser1.Document.All("vb_login_username").Value = "usuario"
WebBrowser1.Document.All("vb_login_password").Value = "contraseña"
Call Logearse
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://www.SPAM(149)"
End Sub
Private Sub Logearse()
Dim oDoc As HTMLDocument
Dim iElements As Integer, i As Integer
Dim oInputs As HTMLInputElement
Set oDoc = WebBrowser1.Document
With WebBrowser1.Document
iElements = (oDoc.getElementsByTagName("INPUT").length - 1)
For i = 0 To iElements
Set oInputs = oDoc.getElementsByTagName("INPUT")(i)
If oInputs.Type = "submit" And oInputs.Value = "Entrar" Then
oInputs.Click
Exit For
End If
'List1.AddItem oInputs.Name & " | " & oInputs.Type & " | " & oInputs.Value
Next i
End With
End Sub
cBuscar = "Cliente LIKE '%" & Text1.Text & "%'"