Mensajes

Y estas seguro de q esto se puede hacer en VB???

Mira necesitas usar esta api:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

ShellExecuteA Me.hWnd, "Open", app.Path  & "\" "programa.bat", vbNullString, vbNullString, 1

1S4ludo 

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... 

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

Muxas gracias a todos
1S4ludo

No no si facil es pero mira usa esto:

Editor:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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 

1S4ludo

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

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

Hola:

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

Código [Seleccionar] Expandir

Private Sub Form_Unload(Cancel As Integer)
MsgBox "hola"
End Sub

1S4ludo 

No la declaro asi:

Código [Seleccionar] Expandir

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 [Seleccionar] Expandir

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

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 [Seleccionar] Expandir

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 
Conectarse s econecta bien pero me intriga por q no limpia bien la variable...

Muxas gracias 
1S4ludo



POST REPETIDO

esto es muy basico, lee algun manual, de todas maneras te lo digo...

Código [Seleccionar] Expandir

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