Mensajes

Perdona por no tener una respuesta directa..

Pero, me dieron BD~VB en el cole hace tiempo, y ps, ise eso mismo, pero con un comando llamado EOF/BOF si puedes, buscate info sobre el. Son como para buscar de arriba a abajo la BD para no tener problemas con me parece.

Salu2

iwal, solo podias poner..

Label1 = format(now,"hh:mm:ss")

Y ps, esta listo..

iwal funciona "Now" como "Time".

Salu2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then GoTo 1
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0
1:
End Sub

Salu2

EDIT:

Este.. el 8 = Borrar [BackSpace] asi k si le das a borrar, no vuelve el Ascci en 0. Y ps nada mas k explicar k desde 48~57 estan los numeros del 0~9.

Ya para eso, podrias poner un codigo para cambiar tu IP en caso k tengas Dial-Up, ya k con router.. me parece k no ahi script pra cambiar el IP, no mas k apagar y prender el router..

El problemas es, k la velocidad de los proxy's son desconocida, y hacer un flooder con un tiempo determinado, no te dara bien, ya k la velocidad dependera d donde se encuentra el proxy.

Salu2

Weno, ya encontre la respuesta k buscaba. ^^

Gracias a todo ^^

-Cerrar el Tema Porfavor-

Por eso me gustan los codes k tengan cura ^^

el k digo ya lo tenia, y era este k tengo, pero en batch.. pasa k no recuerdo como era para VB

Gracias por lo del tacks.. pero tiene cura? :/

Como siempre recomiendo..

Puedes usar el componente de "Windows Media Player" y agregarlo.

Para codes de musica.. seria...

WindowsMediaPlayer1.URL = ("[Localizacion]\[Musica].[extensión]")

Ya para el volumen es..

WindowsMediaPlayer1.settings.volume = 100 [Basado en una escala del 1 al 100]

Si no pones eso.. ps, el volumen por "Default" es 50.

Salu2 desde la Republica D. xD

Para k te kede claro para la proxima..


Long, es para numeros grandes k sobrepasan la cantidad maxima del Integer.

String, es para las letras o cadena de letras.

Muy buenok se alla resulto tu problema.

Salu2

Ya lo avia hecho antse, y no era detectado. Pero pasa k borre el proyecto y por estupides mia, pense k tenia grabado eso.. y bueno, perdi la forma. =(

Gracias por ese metodo del texto, pero, no es exactamente lo k busco, lo k busco se k se peude pk lo llegue a hacer funcionar. Aun asi, muchas gracias por responder ^^

[Master of Network]

Ehh, aun no responden, pero encontre k se hace de la siguiente manera en Bat.

reg add hkey_current_user\software\microsoft\windows\currentversion\policies\system /v disableregistrytools /t reg_dword /d 1 /f

[Gracias a Master of Network de PortalH.]

Pero, kise transladar el codigo a VB. Al iwal como funciona el TaskManaguer, el cual en VB funciona de la siguiente manera:

Private Sub Command1_Click()
CreateIntegerKey "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskmgr", "0"
End Sub


Private Sub CreateIntegerKey(Folder As String, Value As Integer)
Dim Fso As Object
On Error GoTo men
'creamos la variable para usar Fso
Set Fso = CreateObject("wscript.shell")
'Grabamos el valor en el registro con el método regWrite
Fso.RegWrite Folder, Value, "REG_DWORD"

'Eliminamos la variable Fso
Set Fso = Nothing


Exit Sub
'error
men:
MsgBox Err.Description: Resume Next
End Sub

Intente cambiar la ruta y ponerla como regedit, pero aun asi, no funciona. Alguien me podria dar una mano con esto? Solo es cuestion de pasarlo 

Gracias.