Mensajes

Bueno gracias Elektro pero busco algo como esto ,este codigo que encontre no se como haria para usarlo

Código [Seleccionar] Expandir

'Comprueba si ha expirado el trial
If UlFicha > 100 Then
   Call TrialExpirado
   Exit Sub
End If

Public Sub TrialExpirado()
Call MsgBox("La versión Trial a expirado. Póngase en contacto su distribuidor", vbCritical, "TRIAL EXPIRADO")
End Sub


Gracias
Luis

Librería de Snippets

(descarga el zip y busca por Trial)

Gracias Elektro

por cierto te llego mi privado ?


Luis

Donde puedo conseguir una rutina de tiempo para que pasado tres meses o dias se bloquee el programa y saque un mesagebox diciendo lo que sea ?

gracias

Luis

Cuando veo un sistema tan infectado, lo que suelo hacer es entrar en modo seguro y analizar con MalwareBytes Antimalware, tiene una base de datos muy actualizada. Casi siempre solo con esa herramienta remuevo todo el malware. Para asegurarme suelo analizar con Kaspersky Virus Removal y por último un escaneo de rookits con MalwareBytes Anti-Rookit. Si tienes toolbars, puedes usar Toolbarcop para eliminarlas.

Luego de eso, generalmente los problemas de malware pasan a ser historia.


Saludos.

Probando probando

Gracias ya os dire como va la cosa

Luis

Bueno la cosa es que me meto por todos lados jejej con este programa he limpiado algo y mas o menos recupero velocidad en la red  pongo los resultados


# AdwCleaner v3.011 - Reporte Creado 08/11/2013 en 20:43:42
# Actualizado 03/11/2013 por Xplode
# Sistema Operativo : Windows 7 Ultimate Service Pack 1 (64 bits)
# Nombre de usuario : Ascuario
# Ejecutado desde : C:\Users\Ascuario\Downloads\adwcleaner.exe
# Opción : Limpiar

***** [ Servicios ] *****


***** [ Archivos / Carpetas ] *****

Carpeta Borrar : C:\ProgramData\Babylon
Carpeta Borrar : C:\ProgramData\DSearchLink
Carpeta Borrar : C:\ProgramData\Microsoft\Windows\Start Menu\Programs\optimizer pro
Carpeta Borrar : C:\ProgramData\Microsoft\Windows\Start Menu\Programs\registry mechanic
Carpeta Borrar : C:\Program Files (x86)\Minibar
Carpeta Borrar : C:\Program Files (x86)\optimizer pro
Carpeta Borrar : C:\Program Files (x86)\PC Speed Maximizer
Carpeta Borrar : C:\Program Files (x86)\registry mechanic
Carpeta Borrar : C:\Users\Acuario\AppData\Local\FilesFrog Update Checker
Carpeta Borrar : C:\Users\Acuario\AppData\Local\Minibar
Carpeta Borrar : C:\Users\Acuario\AppData\LocalLow\Minibar
Carpeta Borrar : C:\Users\Acuario\AppData\Roaming\Babylon
Carpeta Borrar : C:\Users\Acuario\AppData\Roaming\optimizer pro
Carpeta Borrar : C:\Users\Acuario\AppData\Roaming\PC Speed Maximizer
Carpeta Borrar : C:\Users\Acuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\BitGuard
Carpeta Borrar : C:\Users\Acuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\FilesFrog Update Checker
Carpeta Borrar : C:\Users\Acuario\Documents\PC Speed Maximizer
Archivo Borrar : C:\Users\Acuario\AppData\Local\Google\Chrome\User Data\Default\Local Storage\chrome-extension_eooncjejnppfjjklapaamhcdmjbilmde_0.localstorage
Archivo Borrar : C:\Windows\System32\Tasks\BitGuard

***** [ Accesos directos ] *****

Acceso directo Desinfectado : C:\Users\Acuario\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\AppsHat\Uninstall.lnk

***** [ Registro ] *****

Valor Borrar : HKCU\Software\Microsoft\Internet Explorer\Main [bprotector start page]
Valor Borrar : HKCU\Software\Microsoft\Internet Explorer\SearchScopes [bProtectorDefaultScope]
Clave Borrar : HKCU\Software\Microsoft\Windows\CurrentVersion\Ext\bProtectSettings
Valor Borrar : HKCU\Software\Microsoft\Windows\CurrentVersion\Run [SDP]
Clave Borrar : HKLM\SOFTWARE\Classes\AppID\{C26644C4-2A12-4CA6-8F2E-0EDE6CF018F3}
Clave Borrar : HKLM\SOFTWARE\Classes\Prod.cap
Clave Borrar : HKLM\SOFTWARE\Microsoft\Tracing\SnapDo_RASAPI32
Clave Borrar : HKLM\SOFTWARE\Microsoft\Tracing\SnapDo_RASMANCS
Clave Borrar : HKCU\Software\a53da8db534ee43
Clave Borrar : HKLM\SOFTWARE\a53da8db534ee43
Clave Borrar : HKLM\SOFTWARE\Classes\CLSID\{539F76FD-084E-4858-86D5-62F02F54AE86}
Clave Borrar : HKLM\SOFTWARE\Classes\CLSID\{60EACC1A-33FA-443D-9846-17B28E2C9BDB}
Clave Borrar : HKLM\SOFTWARE\Classes\CLSID\{AA74D58F-ACD0-450D-A85E-6C04B171C044}
Clave Borrar : HKLM\SOFTWARE\Classes\CLSID\{AAA38851-3CFF-475F-B5E0-720D3645E4A5}
Clave Borrar : HKLM\SOFTWARE\Classes\CLSID\{AE07101B-46D4-4A98-AF68-0333EA26E113}
Clave Borrar : HKLM\SOFTWARE\Classes\Interface\{06E50566-0AB7-431C-841D-62794727DAF9}
Clave Borrar : HKLM\SOFTWARE\Classes\Interface\{26E7211D-0650-43CF-8498-4C81E83AEAAA}
Clave Borrar : HKLM\SOFTWARE\Classes\TypeLib\{F13D3582-1359-4F8F-9A48-EF3AE9F5701C}
Clave Borrar : HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Browser Helper Objects\{AA74D58F-ACD0-450D-A85E-6C04B171C044}
Clave Borrar : HKCU\Software\Microsoft\Windows\CurrentVersion\Ext\Stats\{AA74D58F-ACD0-450D-A85E-6C04B171C044}
Clave Borrar : HKCU\Software\Microsoft\Windows\CurrentVersion\Ext\Settings\{AA74D58F-ACD0-450D-A85E-6C04B171C044}
Clave Borrar : HKLM\SOFTWARE\Microsoft\Internet Explorer\Extensions\{AAA38851-3CFF-475F-B5E0-720D3645E4A5}
Clave Borrar : HKCU\Software\Microsoft\Internet Explorer\SearchScopes\{006EE092-9658-4FD6-BD8E-A21A348E59F5}
Clave Borrar : HKLM\SOFTWARE\Microsoft\Internet Explorer\SearchScopes\{006EE092-9658-4FD6-BD8E-A21A348E59F5}
Valor Borrar : HKLM\SOFTWARE\Microsoft\Internet Explorer\Toolbar [{AE07101B-46D4-4A98-AF68-0333EA26E113}]
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\CLSID\{AE07101B-46D4-4A98-AF68-0333EA26E113}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{03E2A1F3-4402-4121-8B35-733216D61217}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{06E50566-0AB7-431C-841D-62794727DAF9}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{26E7211D-0650-43CF-8498-4C81E83AEAAA}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{4E92DB5F-AAD9-49D3-8EAB-B40CBE5B1FF7}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{9E3B11F6-4179-4603-A71B-A55F4BCB0BEC}
Clave Borrar : [x64] HKLM\SOFTWARE\Classes\Interface\{C401D2CE-DC27-45C7-BC0C-8E6EA7F085D6}
Valor Borrar : [x64] HKLM\SOFTWARE\Microsoft\Internet Explorer\Toolbar [{AE07101B-46D4-4A98-AF68-0333EA26E113}]
Clave Borrar : HKCU\Software\BI
Clave Borrar : HKCU\Software\DataMngr
Clave Borrar : HKCU\Software\InstalledThirdPartyPrograms
Clave Borrar : HKCU\Software\Optimizer Pro
Clave Borrar : HKCU\Software\smartbar
Clave Borrar : HKCU\Software\Softonic
Clave Borrar : HKCU\Software\Somoto
Clave Borrar : HKCU\Software\Webplayer
Clave Borrar : HKCU\Software\AppDataLow\Software\Crossrider
Clave Borrar : HKLM\Software\DataMngr
Clave Borrar : HKLM\Software\Minibar
Clave Borrar : HKCU\Software\Microsoft\Windows\CurrentVersion\Uninstall\AppsHat Mobile Apps
Clave Borrar : HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\bi_uninstaller
Clave Borrar : HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Optimizer Pro_is1
Clave Borrar : [x64] HKLM\SOFTWARE\InstalledThirdPartyPrograms

***** [ Navegadores ] *****

-\\ Internet Explorer v10.0.9200.16720

Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\Main [Search Page]
Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\Main [Start Page]
Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\Main [Search Bar]
Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\Search [SearchAssistant]
Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\Search [Default_Search_URL]
Ajustes Restaurar : HKCU\Software\Microsoft\Internet Explorer\SearchUrl [Default]
Ajustes Restaurar : HKLM\SOFTWARE\Microsoft\Internet Explorer\SearchUrl [Default]

-\\ Google Chrome v30.0.1599.101

[ Archivo : C:\Users\Acuario\AppData\Local\Google\Chrome\User Data\Default\preferences ]


*************************

AdwCleaner[R0].txt - [4468 octets] - [09/09/2013 18:40:44]
AdwCleaner[R1].txt - [926 octets] - [10/09/2013 18:56:14]
AdwCleaner[R2].txt - [8923 octets] - [08/11/2013 20:42:24]
AdwCleaner[S0].txt - [4317 octets] - [09/09/2013 18:41:49]
AdwCleaner[S1].txt - [6664 octets] - [08/11/2013 20:43:42]

########## EOF - C:\AdwCleaner\AdwCleaner[S1].txt - [6724 octets] ##########



Luis

Formatear no es una opción ya que el equipo tendra menos de un mes que le instale el disco de 500 y volver a montar todo el sistema(programas y demas herramientas es muy tedioso) lo que busco es un buen antivirus o todo lo que se le paresca lo que pasa es que probar miles de antivirus por cuenta propia como que no, ademas de la mayoria de donde los bajas te instalan basura ( Softonic y otras) algunas sugerencias de lo que debo de buscar


Gracias
Luis

Bien tengo un P4 8 gigas ram disco 500 gigas y demas patrañas jejej uso wify desde casa a casa de mama con wifisky 2000 y a veces uso una cuenta con la rural del pueblo full señal ( todas las barritas ) uso el antivirus  "  Microsoft Secuirity Essentila " pero mi pc va como un 286 de principio de siglo Lento muyyyyyyy lento que da dolor de Hue... abrir el face jejje pero solo va lento el internet cuando lo uso para programar o abrir cualquier cosa va como un tiro ?????

Alguna idea ?

Luis

Extrae el contenido de los TextBoxes anteriores, luego antes de mandar tu resultado el próximo TextBox comparas con los anteriores.

No te pongo code porque no conozco bien VB.

Lo habia pensado pero tendria que duplicar los texboxes y se haria muy grande el formulario ademas de feo jejejje,

Gracias por tu respuesta

Luis

Ni una idea ?????? 

luis

¿Los iconos los tienes en formato ICO o son en formato PNG?,  si te fijas el diálogo está filtrado para mostrar sólamente iconos en formato ICO, no PNG...

(no quiero pensar que reálmente no te reconoce los iconos ICO... es casi imposible, segúramente la causa sea lo que te acabo de decir)

De todas formas te digo como hacerlo de forma manual...

Para el icono del exe, en el archivo .vbproj de tu solución añade esto:

Código [Seleccionar] Expandir


  <PropertyGroup>
    <ApplicationIcon>C:\ruta del icono.ICO</ApplicationIcon>
  </PropertyGroup>

Y para cambiar el icono del formulario...

Código (vbnet) [Seleccionar] Expandir

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim bmp As Bitmap = Bitmap.FromFile("C:\ruta del icono.ICO")

        Me.Icon = System.Drawing.Icon.FromHandle(bmp.GetHicon())

    End Sub

Saludos

Gracias Elektro

los tengo de las dos formas ico o png y da igual no los reconoce probare con tu codigo

Gracias de nuevo

Luis