Mensajes

No quieres tambien que te lo compile yo   

jaja y eso q batee?? acaso lo ayudaste en algo 

postea una parte del codigo..
o asi tal cual es como lo pusiste??
si lo pusiste asi el error es xq no lo metiste en ningun evento :S

o no buscaste bien!! xq en este caso si existe...

tal vez te sirva...

http://foro.elhacker.net/empty-t161273.0.html

jajaj por dios llevo 1 hora leyendo todo esto al dope xD

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Text3 = Val(Text1) / Val(Text2)
Text3 = Round(Text3, 2)
End Sub

sabes como crear un registro en el regedit?

bueno el texto plano q seria la ruta donde lo vas a guardar es lo q tienes q cifrar...

para encriptarlo necesitas uno o dos funciones... una para cifrar y otra para desencriptarlos... si buscas en google "cifrar cadenas VB" ya sale nvarios ejemplos...

SALUDOS

ups! es cierto eso... xD

x eso sera q hay cada preg y post hoy en dia ¬¬

ayy q manera de complicarse la vida xD

Código (vb) [Seleccionar] Expandir

dim dat
dat =  File1.Path & "\" & File1.FileName

winsock1.sendata  "t#" & dat


haora viene el problema
servidor

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos

Select Case datos
Case "t#"

Kill (datos)

End Select
end sub



el problema ahi es lo q te explico seba...

vos estas mandando esto por ejemplo: t#C:\Archivo.txt

pero cuanod esto llega al cliente, nunca entra en el case... x datos es igual a t#C:\Archivo.txt y no a t#

lo q podes hacer ahora es esto... sin modificar el servidor, solamente cambiar a esto en el cliente

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Winsock1.GetData datos

Select Case Left(datos,2)
Case "t#"

Kill (Right(datos, Len(datos) - 2)

End Select
end sub



----------------------
ahora:

Select Case datos                        'no funca   
Case "t#" &dat

eso no funca xq

"t#" &dat

&dat = Null... no es nada.. nunca declaraste nada con dat...

---------------------
desp lo q puso Cassiani esta bien... es mas o menos lo q te explique yo mas arriba...

y despues lo q volviste a publicar

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim data1 as string
winsock1.getdata dato
DoEvents
Select Case Mid(data1, 1, 10)
case "t#"
MsgBox Mid(data1, 11, Len(data1))
end select
end sub

esta mal xq vos declaras la variable

Código (vb) [Seleccionar] Expandir

data1 pero desp llamas para q reciba los datos a

Código (vb) [Seleccionar] Expandir

dato y finalmente lees nuevamente la primer variable q nunca modificaste (solo la declaraste)

bue espero q hayas entendido... estoy al dope x eso me puse a explicar un poco este lio q se armo xD..

SALUDOS

mmmm la verdad a mi tb me costo encontrarlos...
estaba buscando uno q a mi parecer esta mas claro, es con el q yo habia aprendido... hace ya tiempo xD jeje

de todos modos te dejo estos links mas recientes...
cualquier duda volve a posetear q te explico mas detalladametne

http://foro.elhacker.net/programacion_vb/a_questionbuild_exe_please_hep_me-t233032.15.html
http://foro.elhacker.net/programacion_vb/generic_sever_editor_class_src-t228494.0.html

SALUDOS