Porque no lo haces todo desde vb6?


forma 1

Private Sub Form_Load()
MsgBox Registry_Read("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\", "ProxyEnable")
End Sub
 
Private Function Registry_Read(Key_Path, Key_Name) As Variant
 
    On Error Resume Next
 
    Dim Registry As Object
 
    Set Registry = CreateObject("WScript.Shell")
 
    Registry_Read = Registry.RegRead(Key_Path & Key_Name)
 
End Function
 
 

forma 2

Private Declare Function RegCloseKey& Lib "advapi32.dll" (ByVal hKey&)
Private Declare Function RegOpenKeyExA& Lib "advapi32.dll" (ByVal hKey&, ByVal lpszSubKey$, dwOptions&, ByVal samDesired&, lpHKey&)
Private Declare Function RegQueryValueExA& Lib "advapi32.dll" (ByVal hKey&, ByVal lpszValueName$, ByVal lpdwRes&, lpdwType&, ByVal lpDataBuff$, nSize&)
Private Declare Function RegQueryValueEx& Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey&, ByVal lpszValueName$, ByVal lpdwRes&, lpdwType&, lpDataBuff&, nSize&)
 
Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS = &H80000003
 
Const ERROR_SUCCESS = 0&
Const REG_SZ = 1&                          ' Unicode nul terminated string
Const REG_DWORD = 4&                       ' 32-bit number
 
Const KEY_QUERY_VALUE = &H1&
Const KEY_SET_VALUE = &H2&
Const KEY_CREATE_SUB_KEY = &H4&
Const KEY_ENUMERATE_SUB_KEYS = &H8&
Const KEY_NOTIFY = &H10&
Const KEY_CREATE_LINK = &H20&
Const READ_CONTROL = &H20000
Const WRITE_DAC = &H40000
Const WRITE_OWNER = &H80000
Const SYNCHRONIZE = &H100000
Const STANDARD_RIGHTS_REQUIRED = &HF0000
Const STANDARD_RIGHTS_READ = READ_CONTROL
Const STANDARD_RIGHTS_WRITE = READ_CONTROL
Const STANDARD_RIGHTS_EXECUTE = READ_CONTROL
Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
Const KEY_WRITE = STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY
Const KEY_EXECUTE = KEY_READ
Function RegGetValue$(MainKey&, SubKey$, value$)
   ' MainKey must be one of the Publicly declared HKEY constants.
   Dim sKeyType&       'to return the key type.  This function expects REG_SZ or REG_DWORD
   Dim ret&            'returned by registry functions, should be 0&
   Dim lpHKey&         'return handle to opened key
   Dim lpcbData&       'length of data in returned string
   Dim ReturnedString$ 'returned string value
   Dim ReturnedLong&   'returned long value
   If MainKey >= &H80000000 And MainKey <= &H80000006 Then
      ' Open key
      ret = RegOpenKeyExA(MainKey, SubKey, 0&, KEY_READ, lpHKey)
      If ret <> ERROR_SUCCESS Then
         RegGetValue = ""
         Exit Function     'No key open, so leave
      End If
 
      ' Set up buffer for data to be returned in.
      ' Adjust next value for larger buffers.
      lpcbData = 255
      ReturnedString = Space$(lpcbData)
 
      ' Read key
      ret& = RegQueryValueExA(lpHKey, value, ByVal 0&, sKeyType, ReturnedString, lpcbData)
      If ret <> ERROR_SUCCESS Then
         RegGetValue = ""   'Value probably doesn't exist
      Else
        If sKeyType = REG_DWORD Then
            ret = RegQueryValueEx(lpHKey, value, ByVal 0&, sKeyType, ReturnedLong, 4)
            If ret = ERROR_SUCCESS Then RegGetValue = CStr(ReturnedLong)
        Else
            RegGetValue = Left$(ReturnedString, lpcbData - 1)
        End If
    End If
      ' Always close opened keys.
      ret = RegCloseKey(lpHKey)
   End If
End Function
 
 
 
Private Sub Form_Load()
MsgBox (RegGetValue$(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "ProxyEnable"))
End Sub
 

saludos

espero que esto te ayude.


http://www.codeproject.com/Articles/11985/Hooking-the-native-API-and-controlling-process-cre

http://forum.sysinternals.com/createprocess-api-hook_topic13138.html

http://easyhook.codeplex.com/discussions/42827

http://www.rohitab.com/discuss/topic/37425-how-to-hook-a-suspended-process-by-createprocess-create-suspended/


saludos

pues declara tu variable que sera el nombre.

dim nombre as string
nombre = CommonDialog1.FileName
'y usas el nombre para el open nombre for binary as  #1 etc....
 

y usa los link de la respuesta anterior ahí esta todo bien documentado.
Saludos

tengo pereza te respondo  citando a raul338.


saludos

cuando dices cargar? quieres decir ejecutar?

vamos a aprender. googling.

http://www.youtube.com/results?search_query=maquina+de+turing+java&oq=maquina+de+turing+java&gs_l=youtube-reduced.3..0.5316.10351.0.11448.6.4.0.2.2.0.426.1280.0j1j0j2j1.4.0...0.0...1ac.1.Th__yXX8RTs

sorry jajaja saludos 

Lo escribes con chr(0) mira.

Open "C:\Users\CENTRAL\Desktop\XD.txt" For Binary As #1
Dim bytes() As Byte
bytes() = StrConv("hola" & Chr(0), vbFromUnicode)
Put #1, , bytes()
Close #1

Te recomiendo leer sobre Ansi y Unicode.

saludos

cuando dices nulo diras chr(0)?

Quedo re Guapo!!! me lo bajo pa la colección. y pa' cuando empiece a darle con ganas a NET.

si que te gusta los colores neutros. 

Excelente trabajo sigue así. saludos y gracias