Mensajes

Gracias!
Me Sirvio!

Me manda error en esta parte:

Código [Seleccionar] Expandir

' Función Api SetWindowPos
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

Quisiera saber como cambiar la caption mediante un textbox y boton.

Como veran en visual basic 6 es asi el code

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Form1.Caption = Text1.Text
End Sub

Pero en visual basic 2010 o 2008 como es el code?

Muchas Gracias!

Como veran en el titulo.
Lo que busco que es lo siguiente:

Yo programo X programas, y quiero lograr que esten SIEMPRE visibles osea, que aunque abras el navegador ese .exe este delante de el y no que uses otro el otro tambien lo pase...
Se entiende?

Eso me serviria MUCHO y lo vi en varios programas.

Yo me compre una pc digamos "buena" para que no preocuparme que se tilde o nada digamos de "tirón de fps" y para que valla mas rápido en si... y hace poco me compre el Battelfield 3 y las armas cuando "aparezco" tardan aveces 10 o 20 aveces de segundos a aparecer y jode por que no podes ayudar hacer nada... (graficos en medio)
Esta es mi velocidad de internet:
http://www.speedtest.net/my-result/3361845594
Digamos que no es mucho (por que pago por 12 megas y aveces me llegan 20 megas) pero igual es mucho a la ves para cargas eso entonces descontamos el internet y pasamos a la PC:
http://fotos.subefotos.com/a1e30e429d357a7f8b732b31490969b3o.jpg
Una tarjeta gráfica nvdia 7870 de 1gb creo que era.

PD: Si no va acá perdonen muévanlo sin problema pero mándame MP para saber donde lo mueven y revisarlo de ves en cuando.

Saben por que pasa eso D:?

Pero supongo que está empezando a hacer este tipo de cosas, asi que ese sistema, no va a ser a nivel profesional

No se si lo que hice ya que pedi ayuda en otros foros y a colegas sera "Profesional" o "Normal" y no "Basico"
Le puse este Code:

Código [Seleccionar] Expandir

Dim MiIP As String
MiIP = Inet1.OpenURL("http://infrangelux.sytes.net/scanx/?myipaddres=1") 'lee el dato de la web(tarda unos segundos)
If txtIp.Text = MiIP Then
MsgBox "La ip ingresada es correcta"
Else
MsgBox "La ip ingresada es erronea"
End If
Con una implementacion que se llama "Microsoft Internet Transfer Control 6.0 (SP6)"

SOLUCIONADO!
MUCHAS GRACIAS!

Bueno yo creo proyctos y los subo a internet muchas personas lo buscan okey, con eso yo quiero cobrar osea yo doy el programa y ellos lo prueban por 10 dias se le bloquea y si quieren tener el full pagan y se los doy...
Se entiende vieron al instalar VB 2010 o cualquier programa que dice:
Para poner un serial al programa y si no en 30 dias se bloquea bueno quiero hacer eso mismo pero en 5 dias ok?

PD: Expliquen por pasos y detalladamente si saben por favor.

Muchas Gracias!

Si quieres la dirección ip puedes usar un servicio que tengo ya desde hace tiempo.

http://scanx.sytes.net/?myipaddres=1

http://foro.elhacker.net/programacion_visual_basic/ayuda_con_los_antivirus-t317937.0.html;msg1574028#msg1574028

Código (vb) [Seleccionar] Expandir



Option Explicit

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Private Const IF_NO_CACHE_WRITE As Long= &H4000000

Public Function Get_Html_Code(ByRef sURL As String) As String
    Dim sBuffer         As String * 1000
    Dim lInternet       As Long
    Dim lFile           As Long
    Dim lRead           As Long

    lInternet = InternetOpen(0, 1, vbNullString, vbNullString, 0)
    If lInternet Then
        lFile = InternetOpenUrl(lInternet, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
        If lFile Then
            Do
                Call InternetReadFile(lFile, sBuffer, 1000, lRead): DoEvents
                Get_Html_Code = Get_Html_Code & Left$(sBuffer, lRead)
            Loop While lRead
        End If
        Call InternetCloseHandle(lInternet)
    End If
End Function



Código (vb) [Seleccionar] Expandir


    msgbox(Get_Html_Code("http://scanx.sytes.net/?myipaddres=1"))


Dulces Lunas!¡.

Por lo que veo desde ahora funciona osea que ese code lo que hace es ver la ip y devolver la ip y "comparar" con una que puse yo?
Por que quiero que un programa se habilite para una ip nomas
Si eso hace me podrias explicar mas detalladamente como implementarolo?

Que vea una IP? IP de qué? IP local? Para qué?

Osea que vea la IP de aca:
http://www.cualesmiip.com/
y verifique si es una que yo voy a poner se entiende
Osea ponele que este es un codigo:
Ver.IP = X.X.X.X.X
Verificar.IPcon= (aca una IP que yo habilite que la pueda usar) por ejemplo 127.0.0.1
Osea
Si el usuario tiene la IP 127.0.0.1 puede logear con el sistema de login
Si no le manda el "msgbox"

Creo que habia otras ips que tambien eran unicas si no se puede ver la de
http://www.cualesmiip.com/
que se vea otro tipo de IP.

Buenas Gente!
Estoy buscando un code en Visual Basic 2010
O un programa o hacerlo de alguna manera como para "habilitar la aplicación" a una IP

Yo creo un form1 poe ejemplo pongu un textbox y otro textbox

con un boton que tenga de code:

Código (vb) [Seleccionar] Expandir

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Usuario.Text = "Pepito" And Contraseña.Text = "Pepapa" Then
Form2.Show()
Me.Hide()
Else
MsgBox("¡¡Nombre De Usuario O Contraseña No Es Correcta!!")
Usuario.Text = ""
Contraseña.Text = ""
End If
End Sub
Osea que si pones en el Box de usuario Pepito y la pass pepapa se muestra el form2 cerrandose al mismo (form1)
y si pones mas la pass o el user te aparece el "msgbox"
Pero quiero hacer que ademas de ver el usuario y las pass vea una IP que escriba para mas seguridad a mi aplicacion.

Muchas Gracias.