Mensajes

Haber no me hice entender...

Supongamos que tengo una cuenta (User and Pass whit Phone Number) que yo me conecto con ella a una X Red...

User: pepe
pass: churisko
telf: 123456

Lo que quiero es que mi programa me chequee si estoy conectado a Internet y en caso de que sea asi, me diga el usuario de la cuenta con la que estoy conectado, en este caso "pepe"...mi conexion la hago a traves de las conexiones de red del Windows....Diganme si entendieron para sino volver a la carga.....

Salu2

Como puedo saber el Nombre de Usuario de la conexion remota con la que estoy conectado.....


Salu2

Grx antemano

Código [Seleccionar] Expandir


If Text1.Text = "Hola" then
     MsgBox "El texto dice HOLA"
end if


'Si queres ver si esta vacio:
If Text1.Text = "" then
     MsgBox "El textbox esta vacio"
end if


Saludos.-

Pequeña Retificación
Private Sub Command1_Click()
     MsgBox "El texto dice " & Text1
End Sub

Pues postea lo de como guardarlo en el Registro

Salu2

Option Explicit

Private Inicio As Single, Dif As Single, Total As Single
Dim segun As Integer
Dim minu As Integer
Dim hor As Integer
Dim resumen As String


Private Sub Command1_Click()
Dim Total
Open "C:\Total.txt" For Output Shared As #1
    Write #1, Dif
Close #1
Unload Me
End Sub

Private Sub Form_Load()
If (Dir("C:\Total.txt") <> "") Then
    Exit Sub
Else
    Open "C:\Total.txt" For Output Shared As #1
        Write #1, 60 'Aqui pones la cantidad de tiempo en segundos que deseas que la aplicación trabaje
    Close #1
End If

Open "C:\Inicio.txt" For Output Shared As #1
   Write #1, Timer
Close #1
End Sub

Private Sub Timer1_Timer()
Static contador As Integer
contador = contador + 1
segun = segun + 1
    If segun = 60 Then
        minu = minu + 1
        segun = 0
    End If
    If minu = 60 Then
        hor = hor + 1
        minu = 0
    End If
    resumen = Format(hor, "00") & ":" & Format(minu, "00") & ":" & Format(segun, "00")
    Etiqueta1.Caption = resumen

Open "C:\Inicio.txt" For Input As #1
   Input #1, Inicio
Close #1
Open "C:\Total.txt" For Input As #1
    Input #1, Total
Close #1
Dif = Total - segun
Debug.Print Dif
Open "C:\Dif.txt" For Output Shared As #1
    Write #1, Dif
Close #1
If Dif = 0 Then
    MsgBox "Se acabo tu Tiempo", vbCritical, "Time Out"
    Unload Me
Else
    Exit Sub
End If
End Sub

Se que no es el mejor pero PINCHA...

Haber si alguien se embulla y me ayuda a guardar los tiempos en ves de TXT en el Registro... Salu2...

Posteenn

Muchisimas Grx

Private Sub Timer1_Timer()
Dim a
a = a + 1
Debug.Print a
End Sub

En ves de irme Sumando 1, se me queda en 1........ No suma 1, 2 ,3, 4....

Pq???????

Salu2

[STANDARD_RIGHTS_ALL]

Este es el Error que me da en la linea"Es necesaria una Expresion de Constante"

Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

[STANDARD_RIGHTS_ALL]

Mira estuve metiendole COCO a lo que me dijistes y hasta cierto punto entiendo, lo que no tengo bien claro es lo del ir aumentando la VARIABLE + 1.. Yo tengo el siguiente codigo que me hace un Contador.....Tienes que tener un label1....Aqui me empieza el conteo del tiempo...

Private Sub Form_Load()
    Label1.Caption = "00:00:00"
    Iniciar = Timer
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim dif As Single
    Dim horas As Integer
    Dim minutos As Integer
    Dim segundos As Integer
    Dim centesimas As Integer
   
    If Timer > Iniciar Then
        dif = Timer - Iniciar
    Else
        dif = 86400 - Iniciar + Timer
    End If
   
    centesimas = (dif - Fix(dif)) * 100
    horas = Fix(dif) \ 3600
    minutos = (Fix(dif) Mod 3600) \ 60
    segundos = (Fix(dif) Mod 60)
    Label1.Caption = Format(horas, "00") & ":" & Format(minutos, "00") & ":" & Format(segundos, "00")
    DoEvents
End Sub

Tambien me da este ERROR

Public Const KEY_ALL_ACCESS = ((STANDARD_RIGHTS_ALL Or KEY_QUERY_VALUE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY Or KEY_CREATE_LINK) And (Not SYNCHRONIZE))

Explicame si puedes... Thx

Hola..Estoy haciendo un Formulario que cuando lo descargas comienza un conteo con un Timer para saber el tiempo que ha estado abierto el programa...Estoy trabado en la parte de meter el tiempo que consumio en el Registro y que se guarde ahi para que la proxima ves que se descargue el Formulario busque en el Registro el ultimo tiempo guardado y empieze a contar desde ahi... ...

Estoy trabado en la constante que debo utilizar....Pues probe con REG_SZ y me da ERROR....

Salu2