Mensajes

jaja gracias por la ayuda disculpen la molestia.. ahora si me surgio una pequeña duda que creo yo que es importante estaba leyendo sobre estas APIs y me dice si no me equivoco que la api

InternetOpen uno de sus parametrosw es el nombre de la aplicacion que la llama o algo asi decia en internet, este nombre debe ser OBLIGATORIAMENTE el de mi programa osea si mi programa se llama Crypt en ese parametro tiene que ir Crypt? o puedo poner lo que quiera como carlos?...

No veo adonde hay que poner el nombre del programa .

y otra cosa, en todo caso es oblogatorio que primero venga InternetOpen (para establecer conexion) y luego usar la api InternetConnect para conectarnos a la pagina HTTP, FTP que queramos?...

Si es obligación ya que esta api le da un valor necesario a la otra api si no mal recuerdo.

Un ejemplo by karcrack

http://foro.fire-software.net/index.php?topic=482.msg2424#msg2424

¡¡¡Ya funciona!!! XD alfinal con el mismo que el T2W al clickear sobfre el icono del Pendrive se ejecuta el programa directamente, lo malo es que no se abre la carpeta... ai que darle a explorar y ya sale, pero bueno ya sta solucionado, gracias

Pones en el .exe que quieres ejecutar que abra el explorador en la unidad que la contiene.

soy un boludo 

Por fin lo admites   

Hola,podes probar esto,es del api-guide o sea hay que buscar ...

Código (vb) [Seleccionar] Expandir


Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
Const MAX_PATH As Long = 260
Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
Dim sName As String
NombreDelProceso = UCase$(NombreDelProceso)
ReDim lProcesses(1023) As Long
If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
For N = 0 To (lRet \ 4) - 1
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
If hProcess Then
ReDim lModules(1023)
If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
sName = String$(MAX_PATH, vbNullChar)
GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
sName = Left$(sName, InStr(sName, vbNullChar) - 1)
If Len(sName) = Len(NombreDelProceso) Then
If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
End If
End If
End If
CloseHandle hProcess
Next N
End If
End Function

Private Sub Command1_Click()
MsgBox EstaCorriendo("calc.exe")
End Sub



eso de usar batch para programar en visual basic  me tiene harto,no es programar en visual basic usar comandos de batch...hacelo con lo qeu te ofrece visual basic...

saludos.

Me da rabia contigo seba123neo  por que estas fomentando la flojera ya que les das el trabajo hecho y ellos ni siquiera se dan el trabajo de buscar.

Denme los link's!!!! quiero ver esas maravillas.

Este tema es picanton, y a algunos les arde,  , los que desde hace mucho leen a timo salmi saben que en batch se puede hacer casi todoç, a muy alto nivel,pero que se puede, se puede, y quien mas para corroborarlo que el maestro del batch en Castellano: sirdarckcat !

No se pude hacer casi todo de hecho encuentro que se puede hacer casi nada    por ejemplo has un crypter en batch o un joiiner.

No agas doble post!!!.Con macro te refieres a las macros como las de ASM?

Felicitaciones , lo estoy viendo.

como me inscribo para jugar yo igual juego jajaja

por si acaso me agregan vale

ZeroX@inframundo.com.mx

nos vemos y me dicen que (posteado o mp o no se ja)

Dejen de dar su puto mail que nos cierran el post