Mensajes

Bueno... te lo envie nuevamente, a ti y a los que faltaban, vamos que no es tan dificil ver los mensajes recibidos, encuentras acceso a ellos en la parte superior derecha 

Cassiani el nuevo dios del paint.

Bueno , discutiendo con 3 personas me decian que batch es un lenguaje y yo les decia que no.Quiero que en este tema den sus opiniones y porfavor den razones.

API's te suena? en el server?

No seas pesado con el noob .Existen unos modulos que se llaman csocketmaster que trabaja con api's y son para evitar ese error.

El premio puede ser :

-Una noche con carloswaldo

-Una noche con Cass

-Una noche con ch3ck

-Un auto 0 km

-Una noche con todos los participantes



Ablando enserio:

-Un host por un año

-una cuenta rapidshare por x tiempo

-50 dolares en pay-pal para gastar

Este es mi primer programa creado. Son algunas opciones basicas pero yo estoy orgulloso  (sin ayuda)
Os dejo el link por siquereis bajarle (viene con el codigo fuente por si alguien me echa una mano a reparar los errores...

http://www.megaupload.com/es/?d=8RQB1QO0

No lo e visto pero si lo isite todo tu te felicito  .

Yo creo que para que yo gane tendria que ser una partida

-krackwar vs krackwar

y aun asi talves empate 

Creo que lo puedes hacer VB.NET en VB 6 creo que no se puede

Desde VB6 estoy seguro que se puede , de hecho tengo un programa hecho en VB6 que hacia algo asi pero con un semaforo.El code no lo tengo por mala suerte pero en PSCODE tiene quye haber algo.

PD:Todo lo que se puede hacer en vb .net se puede en vb6.

Yo solo cogí al azar, como no sabía como jugaba cada cual. Pero ahora hay que tener más cuidado, has un programa en C que escoga un numero al azar.

Si quieren hasta yo hago un programa para seleccionar quien contra quien al azar pero quedaria un poco injusto . Bueno , contra quien juegue voy a perder 

Krackwar por lo que veo en el codigo que posteaste lo que hace es una copia temporal de el archivo en ejecucion y luego abre la copia para obtener el handle y leerlo, no hay una manera con createfile que haga lo mismo que este codigo, o con alguna otra api.

Open app.path & "\" & app.exename for binary as #1

quiero hacerlo solo con apis para luego pasarlo a ASM

Un code en asm para abrir archivos.
http://foro.eduhack.es/index.php?PHPSESSID=e92f7a2ac60d5e7ca408d96925b3793f&topic=659.msg1507#msg1507
Lo abred y obtiene su peso.

Código (vb) [Seleccionar] Expandir

Const MOVEFILE_REPLACE_EXISTING = &H1
Const FILE_ATTRIBUTE_TEMPORARY = &H100
Const FILE_BEGIN = 0
Const FILE_SHARE_READ = &H1
Const FILE_SHARE_WRITE = &H2
Const CREATE_NEW = 1
Const OPEN_EXISTING = 3
Const GENERIC_READ = &H80000000
Const GENERIC_WRITE = &H40000000
Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long
Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long
Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte
    Dim sTemp As String, nSize As Long, Ret As Long
    'Ask for a new volume label
    sSave = InputBox("Please enter a new volume label for drive C:\" + vbCrLf + " (if you don't want to change it, leave the textbox blank)")
    If sSave <> "" Then
        SetVolumeLabel "C:\", sSave
    End If

    'Create a buffer
    sTemp = String(260, 0)
    'Get a temporary filename
    GetTempFileName "C:\", "KPD", 0, sTemp
    'Remove all the unnecessary chr$(0)'s
    sTemp = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1)
    'Set the file attributes
    SetFileAttributes sTemp, FILE_ATTRIBUTE_TEMPORARY
    'Open the files
    hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
    hOrgFile = CreateFile("c:\config.sys", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)

    'Get the file size
    nSize = GetFileSize(hOrgFile, 0)
    'Set the file pointer
    SetFilePointer hOrgFile, Int(nSize / 2), 0, FILE_BEGIN
    'Create an array of bytes
    ReDim bBytes(1 To nSize - Int(nSize / 2)) As Byte
    'Read from the file
    ReadFile hOrgFile, bBytes(1), UBound(bBytes), Ret, ByVal 0&
    'Check for errors
    If Ret <> UBound(bBytes) Then MsgBox "Error reading file ..."

    'Write to the file
    WriteFile hNewFile, bBytes(1), UBound(bBytes), Ret, ByVal 0&
    'Check for errors
    If Ret <> UBound(bBytes) Then MsgBox "Error writing file ..."

    'Close the files
    CloseHandle hOrgFile
    CloseHandle hNewFile

    'Move the file
    MoveFileEx sTemp, "C:\KPDTEST.TST", MOVEFILE_REPLACE_EXISTING
    'Delete the file
    DeleteFile "C:\KPDTEST.TST"
    Unload Me
End Sub