Mensajes

Buena pues, Me gustaria hacer que mi proyecto se actualice, tengo hosting y tal, me interesa que tenga para que se actualice, eso si, que se actualice automaticamente, sin pedir autorisacion. Como seria ?

Algun tutorial plz ??

ni yo te entiendo.. pero bueno.. si lo hiciste con dll solo actualizalas..

un formulario tambien es un modulo... modulo de formulario, de codigo y de clase...

el de codigo k es al k tu llamas modulo es de codigo, para declarar funciones a nivel global, procedimientos, variables, etc. y las de clases son para la programacion orientada a objetos...

prix.. ya termine el programa de sms...   ahora quiero sabercomo puedo comprimir los ocx.. para que no miren .. y solo sea el exe..

satan69 muchas gracias pero resulta que nesecito detectar la conexión a internet por una funcion hecha en un modulo

a pues no se men..

bueno este es el prblema
uso una api y una funcion que me detecta que se esta conectado a internet por medio del modem.
pero resulta que en estos mometos necesito que me detecte el internet por medio de banda ancha.... he intentado cambiando el code pero no he podido hacer nada. si alguien sabe como hacer esto. una api o un code me seria de gran ayuda
gracias

yo hago esto.. algo sencillo pero funciona de varabilla
I es un Inet1
text5 ponelo como multiline y barra vertical

Código [Seleccionar] Expandir

Dim almacen() As Byte

I.Protocol = icHTTP
I.url = "direccion del donde esta el .txt"
almacen() = I.OpenURL("direccion en el servidor donde esta el .txt")

text5 = almacen()

en la direccion puede ser un .txt o un documento.. o una foto

solo haces esto en form load

Código [Seleccionar] Expandir

If Text5 = "text5" Then
MsgBox "No estas conectado a internet", vbInformation
End


algo asi.. jeje asi lo hice... yo y me funciona diaverga....

como puedo capturar en un label la respuesta de un servidor utilizando  webbrowser.. por ejemplo si la respuesta es por javascript
alert ("hola")

Código [Seleccionar] Expandir

Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub


2text box un boton y otro form
pero se debugea creo hasta con el bloc de notas 

asi es. pero se puede poner incriptado.. con replace

Yo haria un contador,cada vez que el programa se inice sume uno y cuando llegue a X en el load pones que si el contador es  igual a X entonces End,pues lo podrias meter en un archivo de texto bien escondido y con nombre que no sospechen,si es para amigos no creo que sepan crackear y tampoco tienes que hacerlo super seguro,asi ya vale de sobras.

mas  o menos lo hice asi.. con un contador... subi un tiempo determinado..  y eso lo cargue en un label  y hago la comparacion con el tiempo del sistema.. esa puede ser una opcion.. pero si cambian el tiempo de sistema.. cuando haga la comparacion tendran mas tiempo ..jejee

Código [Seleccionar] Expandir

Option Explicit
Private Sub Command1_Click()
If Text1 = "user" And Text2 = "contra" Then
MsgBox "pass correcto"
Form2.Show
Form1.Hide
Else
MsgBox "pass incorrecto"
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub


2text box un boton y otro form
pero se debugea creo hasta con el bloc de notas 

idiay y si hay varios user y pass...  aja

pero como demo? trial? q se venza a la semana? o q sea el programa pero menos funcional, si es asi ps le quitas funciones y ya?  o q pida una contraseña de registro o serial 

eso es clavo con contraseña--- o serial ..  yo lo que toy haciendo es hacer un if pero con un archivo montado a un servidor .. asi hago la comprobacion cuando el programa inicia..

Private Sub Form_Load()
' pon tu text en multilinea sino se te vera to seguido
Dim almacen() As Byte
I.Protocol = icHTTP
I.URL = "http://browli.007ihost.com"
almacen() = I.OpenURL("http://browli.007ihost.com")

Text1 = almacen()
End Sub

Por msn no te dije la solución, pero te di pistas, pero d todos modos ahi la tienes .. tambien puedes usar la API que te dije para descargar el archivo en ENVIRON("TEMP") (archivos temporales) y luego lo subes a tu txt.

EDITO: el control I, es un inet xD

si funciona ... gracias...!!!!!!!!!!!!!