Autor
|
Tema: ayuda me marca un error el vb y no tengo ni idea k sea (Leído 2,827 veces)
|
cobra_90
Desconectado
Mensajes: 39
|
Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessa" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long me dise no se a definido el tipo definido por rl usurio y me manda ahi pork donde esta eso cose ayudenme
|
|
|
En línea
|
|
|
|
Cicklow
Desconectado
Mensajes: 604
-=Cicklow SOFT®=-
|
Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long te deben faltar los type: por ejemplo: Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type
aka te dejo un ejemplo funcional de la api que vos nesesitas: 'This program needs a common dialog box, named CDBox ' (To add the Common Dialog Box to your tools menu, go to Project->Components (or press CTRL-T) ' and select Microsoft Common Dialog control) Const INFINITE = &HFFFF Const STARTF_USESHOWWINDOW = &H1 Private Enum enSW SW_HIDE = 0 SW_NORMAL = 1 SW_MAXIMIZE = 3 SW_MINIMIZE = 6 End Enum Private Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type Private Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Byte hStdInput As Long hStdOutput As Long hStdError As Long End Type Private Type SECURITY_ATTRIBUTES nLength As Long lpSecurityDescriptor As Long bInheritHandle As Long End Type Private Enum enPriority_Class NORMAL_PRIORITY_CLASS = &H20 IDLE_PRIORITY_CLASS = &H40 HIGH_PRIORITY_CLASS = &H80 End Enum Private Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessA" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Private Function SuperShell(ByVal App As String, ByVal WorkDir As String, dwMilliseconds As Long, ByVal start_size As enSW, ByVal Priority_Class As enPriority_Class) As Boolean Dim pclass As Long Dim sinfo As STARTUPINFO Dim pinfo As PROCESS_INFORMATION 'Not used, but needed Dim sec1 As SECURITY_ATTRIBUTES Dim sec2 As SECURITY_ATTRIBUTES 'Set the structure size sec1.nLength = Len(sec1) sec2.nLength = Len(sec2) sinfo.cb = Len(sinfo) 'Set the flags sinfo.dwFlags = STARTF_USESHOWWINDOW 'Set the window's startup position sinfo.wShowWindow = start_size 'Set the priority class pclass = Priority_Class 'Start the program If CreateProcess(vbNullString, App, sec1, sec2, False, pclass, _ 0&, WorkDir, sinfo, pinfo) Then 'Wait WaitForSingleObject pinfo.hProcess, dwMilliseconds SuperShell = True Else SuperShell = False End If End Function Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net 'Set the dialog's title CDBox.DialogTitle = "Choose an EXEC-File ..." 'Error when canceled CDBox.CancelError = True 'Set the dialog's filter CDBox.Filter = "EXEC-Files (*.exe)|*.exe|All files (*.*)|*.*" 'Show the 'Open File'-dialog CDBox.ShowOpen 'Execute the program SuperShell CDBox.filename, Left$(CDBox.filename, Len(CDBox.filename) - Len(CDBox.FileTitle)), 0, SW_NORMAL, HIGH_PRIORITY_CLASS End End Sub
|
|
|
En línea
|
|
|
|
cobra_90
Desconectado
Mensajes: 39
|
Public Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long Public Declare Function CreateProcess Lib "kernel32" Alias "CreateProcessa" (ByVal lpApplicationName As String, ByVal lpCommandLine As String, lpProcessAttributes As SECURITY_ATTRIBUTES, lpThreadAttributes As SECURITY_ATTRIBUTES, ByVal bInheritHandles As Long, ByVal dwCreationFlags As Long, lpEnvironment As Any, ByVal lpCurrentDriectory As String, lpStartupInfo As STARTUPINFO, lpProcessInformation As PROCESS_INFORMATION) As Long
Public Type STARTUPINFO cb As Long lpReserved As String lpDesktop As String lpTitle As String dwX As Long dwY As Long dwXSize As Long dwYSize As Long dwXCountChars As Long dwYCountChars As Long dwFillAttribute As Long dwFlags As Long wShowWindow As Integer cbReserved2 As Integer lpReserved2 As Long hStdInput As Long hStdOutput As Long hStdError As Long End Type
Public Type PROCESS_INFORMATION hProcess As Long hThread As Long dwProcessId As Long dwThreadId As Long End Type
Public Const NORMAL_PRIORITY_CLASS = &H20
si tengo los type solo uso esos 2 gracias
|
|
|
En línea
|
|
|
|
cobra_90
Desconectado
Mensajes: 39
|
vamos ayudenme el code anterior lo tengo en un modulo es un code de un tuto pero esta mal
|
|
|
En línea
|
|
|
|
byebye
Desconectado
Mensajes: 5.093
|
declara los type antes de la funcion.
|
|
|
En línea
|
|
|
|
cobra_90
Desconectado
Mensajes: 39
|
no funciona nada!!!!!!!!!!!!! alguien debe de saber pork me marca error
|
|
|
En línea
|
|
|
|
soplo
Ex-Staff
Desconectado
Mensajes: 3.592
Debian rool'z
|
Hola Declara los tipos y las variables en un módulo y luego usa las funciones en la rutina que corresponda.
Creo que has declarado en el formulario y allí no se pueden declarar tipos.
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
cobra_90
Desconectado
Mensajes: 39
|
si las tengo declaradas en un modulo esmas ven k de alias tiene CreateProcessA aka kuando lo pongo kon minusculas no me lo cambia y la otra api si es muy raro y aun no e ayado la solucion
|
|
|
En línea
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
ayuda cuando quiero intalar un programa me marca error...!!!!
Redes
|
Schiffer04
|
0
|
1,684
|
12 Mayo 2012, 03:01 am
por Schiffer04
|
|
|
Tengo una duda al compilar mi programa me marca error en esto
.NET (C#, VB.NET, ASP)
|
Ivs_mx
|
2
|
3,157
|
2 Octubre 2012, 15:52 pm
por leosansan
|
|
|
Ayuda porfaa Tengo el error 0x00000007b al instalar Win XP
Windows
|
capielo23
|
1
|
2,871
|
6 Mayo 2013, 17:48 pm
por el-brujo
|
|
|
Ayuda tengo problemas con un router Marca belkin 1200 y no es mio
Redes
|
Cubanito17
|
0
|
1,586
|
20 Agosto 2014, 22:38 pm
por Cubanito17
|
|
|
[Ayuda] Necesito crackear un programa y no tengo ni idea
Ingeniería Inversa
|
lozano312
|
1
|
2,505
|
3 Abril 2021, 19:44 pm
por apuromafo CLS
|
|