elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Arreglado, de nuevo, el registro del warzone (wargame) de EHN


  Mostrar Mensajes
Páginas: 1 ... 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 [107] 108 109 110 111 112 113 114 115
1061  Programación / Programación Visual Basic / Re: puerto electrico en: 15 Octubre 2006, 18:42 pm
Y estas seguro de q esto se puede hacer en VB???
1062  Programación / Programación Visual Basic / Re: visual ejecutar archivos .bat en: 15 Octubre 2006, 18:40 pm
Mira necesitas usar esta api:

Código:
Private Declare Function ShellExecuteA Lib "SHELL32.DLL" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Se usaria asi en tu caso:

Código:
ShellExecuteA Me.hWnd, "Open", app.Path  & "\" "programa.bat", vbNullString, vbNullString, 1

1S4ludo  ;)
1063  Programación / Programación Visual Basic / Re: No-ip en VB6 en: 12 Octubre 2006, 14:12 pm
A pues si, tienes razon xDDD y yo aki matando me buscar un fallo por la mi***a del msgbox ¬¬'

Claro asi q era logico q se conectara aunke teoricamente tubiea espacios...  ;D ;D ::) :rolleyes:

A por cierto acabo de leer tu manual y es muy weno  :P

Muxas gracias a todos
1S4ludo
1064  Programación / Programación Visual Basic / Re: No-ip en VB6 en: 12 Octubre 2006, 14:01 pm
No no si facil es pero mira usa esto:

Editor:
Código:
Dim IP As String * 29


Private Sub Command1_Click()
IP = "127.0.0.1"

Open "C:\Project1.exe" For Binary As #1
  Seek #1, LOF(1) + 1
  Put #1, , IP
Close #1
End Sub


Sever:
Código:
Dim IP As String * 29
Dim IP2 As String

Private Sub Form_Load()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
Get #1, LOF(1) - 28, IP
IP2 = Trim(IP)
Close #1
MsgBox IP2
End Sub

A ti no te salen unos espacios despues del 127.0.0.1 en el msgbox??? A eso es a lo q me referia...
y con la funcion pasa exactamente o mismo, no entiendo por q pasa, pero pasa  :huh: :huh: :huh: :huh:

1S4ludo
1065  Programación / Programación Visual Basic / Re: EJECUTAR UN PROGRAMA Y OCULTARLO AYUDA!! en: 12 Octubre 2006, 13:50 pm
El Vnc trea manual de instrucciones by Gospel xDD

http://foro.elhacker.net/index.php/topic,41671.0.html

Ahí esta todo muy bien explicadito  ;)

1S4ludo
1066  Programación / Programación Visual Basic / Re: 2 operaciones con el boton X en: 12 Octubre 2006, 13:46 pm
Hola:

Para cambiar los botones, en minButton y max Button (en la barra de propiedades) eliges si kieres q esten bisibles o no.

En cuanto a lo de realizar eventos Form_Unload te permite relizar accioes al cerrar el programa, solo tienes q forzarlo para q  en vez de cerrarse haga algo ;)
Para realizar acciones con el de maximizar y el de minimizar no se como ira, kizas alguna api, no se.

1S4ludo
1067  Programación / Programación Visual Basic / Re: Botones de la barra azul como los manejo?? en: 12 Octubre 2006, 13:24 pm
Hola:

Para q al finalizar el programa realize alguna accion tienes q ponerlas en el evento Form_Unload, por ej

Código:
Private Sub Form_Unload(Cancel As Integer)
MsgBox "hola"
End Sub

1S4ludo  ;)
1068  Programación / Programación Visual Basic / Re: No-ip en VB6 en: 12 Octubre 2006, 13:17 pm
No la declaro asi:

Código:
dim ips as String * 30

con 30 espacios no con 29, por q el  cliente le mete una variable de 30 espacios
La funcion me debuelve espacios en blanco, no se la usaera mal o algo, de todas maneras

Código:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip
Get #1, LOF(1) - 29, ips
Close #1

MsgBox ips ' Aki me sale "127.0.0.1                    " vamos lo normal

ip = Trim(ips)
MsgBox ip ' pero aki me sale "127.0.0.1     " deja menos espacios en blanco pero sigue habiendo espacios...

Aunke asi me devuelve algunos caracteres en blanco, cuando la ip es numerica se conecta bien, pero si el no ip tiene 12 letras o menos es cuando da problemas, pero vamos q dificilmente alguien va a tener un no-ip con 12 letras...

Muxas gracias  ;)
1S4ludo
1069  Programación / Programación Visual Basic / Re: No-ip en VB6 en: 12 Octubre 2006, 01:48 am
Joder me siento estupido... no se q hago mal pero si pongo como ip 127.0.0.1 no me limpia bien llos espacios, si n embargo si pongo mi no-ip va de maravilla....
Hay un minimo de carateres o algo asi?¿?¿?¿

La cosa es q yo creo q deberia funcinar bien:

Código:
Open App.path & "\" & App.EXEName & ".exe" For Binary As #1 ' Obtenemos la Ip
Get #1, LOF(1) - 29, ips
Close #1

MsgBox ips ' Aki me sale "127.0.0.1                    " vamos lo normal

ip = Trim(ips)
MsgBox ip ' pero aki me sale "127.0.0.1     " deja menos espacios en blanco pero sigue habiendo espacios...

La verdad es q no entiendo por q me pasa esto  :huh: :huh: :huh: :huh: :huh:
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...

Muxas gracias  ;)
1S4ludo



POST REPETIDO
1070  Programación / Programación Visual Basic / Re: Extraer el texto de un *.txt en: 12 Octubre 2006, 01:33 am
esto es muy basico, lee algun manual, de todas maneras te lo digo...

Código:
Dim h As String

Private Sub Command1_Click()
Open "C:\jaja.txt" For Binary As #1
h = Space(LOF(1))
Get #1, , h
Close #1

Label1.Caption = h
End Sub
Páginas: 1 ... 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 [107] 108 109 110 111 112 113 114 115
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines