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úCita de: petro_boca en 20 Julio 2010, 04:54 AM
^^, miraPrivate Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, Text1
Close #mitexto
End Sub
con ese codigo guardo en el C:\ejemplo.TXT lo que dice el TEXTBOX...
pero la INVARIABLE? XD!
Private Sub Command1_Click()
Dim mitexto As Integer
mitexto = FreeFile
Open "c:\ejemplo.txt" For Output As #mitexto
Print #mitexto, "Palabra Fija" & Text1.Text
Close #mitexto
End Sub
Cita de: Bru2712 en 20 Julio 2010, 04:35 AM
Y los argentinos que? estamos condenados de por vida?![]()
<td><select name="pocId"><option value="">Todas las descargas</option>
<option disabled class="disabled"> Por grupo de productos</option>
<option value="67D35328-CB42-4879-A35A-D59E94D9DACA"> Business Solutions</option>
<option value="C0037913-9E11-4A2D-8FD1-0BA441296CBC"> Developer Tools</option>
<option value="66FB9844-5799-43C0-8CBF-FCC7C9BE7480"> Games & Xbox</option>
<option value="BEAE32B8-4A67-4F78-BF4E-C114F922F1EA"> MSN</option>
<option value="4289AE77-4CBA-4A75-86F3-9FF96F68E491"> Office</option>
<option value="E49D77BF-D5AE-4EC6-9DFA-D7A19DBA995E"> Servers</option>
<option value="38DF6AB1-13D4-409C-966D-CBE61F040027"> Windows</option>
<option value="6C813870-3691-48E1-AAAC-64ACCD85E022"> Windows Live</option>
<option value="7C1FA894-B2C5-41BE-8D97-E145DD2A883B"> Windows Mobile</option>
<option disabled class="disabled"> Por categoría</option>
<option value="9"> Aplicaciones para empresas y particulares</option>
<option value="3"> Controladores</option>
<option value="2"> DirectX</option>
<option value="8"> Dispositivos móviles</option>
<option value="12"> Herramientas de administración de sistemas</option>
<option value="6"> Internet</option>
<option value="1"> Juegos</option>
<option value="5"> Macintosh y otras plataformas</option>
<option value="10"> Recursos de desarrollo</option>
<option value="7"> Windows (seguridad y actualizaciones)</option>
<option value="4"> Windows Media</option></select><input type="text" name="freetext" maxlength="60" class="textinput" value="" /><input class="searchBtn" type="submit" value="Ir"><br><input type="checkbox" name="DisplayEnglishAlso" id="DisplayEnglishAlso" title="Mostrar también las descargas en inglés"><label for="DisplayEnglishAlso">Mostrar también las descargas en inglés</label><a href="info.aspx?na=26&p=&SrcDisplayLang=es&SrcCategoryId=&SrcFamilyId=333325fd-ae52-4e35-b531-508d977d32a6&u=advancedsearch.aspx%3fdisplaylang%3des">Búsqueda avanzada</a><input type="hidden" name="DisplayLang" value="es"></td>
</tr>
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Document.GetElementById("pocId").SetAttribute("value", "2")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
WebBrowser1.Navigate("http://www.microsoft.com/downloads/details.aspx?displaylang=es&FamilyID=333325fd-ae52-4e35-b531-508d977d32a6")
End Sub
End Class