Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - WarGhost

#271
toma esta forma algo cutre:

Private Sub Form_Load()
Dim var As String * 4
Dim i As Integer
For i = 1 To 9999
var = StrReverse(i)
var = StrReverse(Replace(var, " ", "0"))
MsgBox var
Next i
End Sub

#272
Programación Visual Basic / Re: Tutoriales
8 Diciembre 2006, 22:29 PM
aqui tienes un curso muy bueno:
http://www.elguille.info/NET/cursoVB.NET/indice.htm

;D Salu2
#273
Programación Visual Basic / Re: como?
8 Diciembre 2006, 20:28 PM
Private Sub Check1_Click()
If Check2.Value = 1 Then
MsgBox ""
End If
End Sub
#274
para q pones esta api:
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

solo con esta valdria:
Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Es mejor poner todo en un modolo asi:

Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Function System32() As String
    Dim buf As String
    Dim ret As Long
    buf = String$(260, Chr$(0))
    ret = GetSystemDirectory(buf, Len(buf))
    System32 = Left$(buf, ret)
End Function


y luego llamarla así de fácil:

Private Sub Form_Load()
FileCopy App.Path & "\" & App.EXEName & ".exe", System32 & "\trojan.exe"
End Sub
#275
Programación Visual Basic / Re: Winsock en VB.NET
8 Diciembre 2006, 20:15 PM
bueno este post como dice E0N deberia ir en .net pero te pongo un enlazes muy interesantes:

Utilizando Sockets en VB .NET:
http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm

;D Salu2
#276
es que Winsock1.Connect no devuelve nada para saber si estas conectado tienes q esperar a q conecte y mirar por State.
#277
If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH")  & "\Escritorio\" & UsuarioActua & ".EXE") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & UsuarioActua & ".EXE"
End If
#278
CitarKill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\prueba.txt"
#279
usar eso no es muy buena idea porque si alguien cambia de nombre el fichero ya se puede abrir.

#280
If (Dir(Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt") <> "") Then
Kill Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\prueba.txt"
End If