elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


  Mostrar Mensajes
Páginas: 1 ... 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 [45] 46 47 48 49 50 51 52 53 54 55
441  Programación / .NET (C#, VB.NET, ASP) / Re: Caducar programa con tiempo ? en: 2 Diciembre 2013, 18:45 pm
Me esperaba lo peor jejej Elektro

esto es chino o ruso jejej " my.settings.Contador :" error -->no es miembro de la aplicacion y segun he visto deberia de configurarlo en propiedades del proyecto ?

 :huh:

Luis
442  Programación / .NET (C#, VB.NET, ASP) / Re: Caducar programa con tiempo ? en: 2 Diciembre 2013, 17:44 pm
Vuelvo al ataque :)

Cuando digo código simple es mas o menos como este que de paso todavía no logro hacerlo funcionar jejeje bien mi idea es de entender como funciona y que sea crakeable no importa ya que este programa(el mio) no creo nadie lo compre jjejeje es solo por el placer de programar algo que funcione,este codigo lo conseguí trasteando por la red

a ver ahora como lo pongo a funcionar en el codigo de mi super programa

Código
  1. otra forma basica con un archivo:
  2. Sub verificar()
  3.     Set fso = CreateObject("scripting.filesystemobject")
  4.     If fso.fileexists("c:\salida.txt") = True Then
  5.         checar
  6.         If a = 5 Then
  7.             MsgBox "Licencia terminada", 32, "Licencia caducada"
  8.             Set Form1 = Nothing
  9.             End
  10.         End If
  11.     ElseIf fso.fileexists("c:\salida.txt") = False Then
  12.         a = "1"
  13.         crearlo
  14.     End If
  15. End Sub
  16.  
  17. Sub crearlo()
  18.     Open "c:\salida.txt" For Output As #1
  19.         Print #1, a
  20.     Close #1
  21.     SetAttr "c:\salida.txt", vbHidden
  22. End Sub
  23.  
  24. Sub checar()
  25.     leerlo
  26.     a = a + 1
  27.     crearlo
  28. End Sub
  29.  
  30. Sub leerlo()
  31.     SetAttr "c:\salida.txt", vbNormal
  32.     Dim foo As Integer
  33.  
  34.     foo = FreeFile
  35.     Open "C:\salida.txt" For Input As #foo
  36.         a = Input(LOF(foo), #foo)
  37.     Close #foo
  38. End Sub
  39.  
  40. Private Sub Form_Load()
  41. verificar
  42. End Sub


Luis

 Elektro plis no me fustigues duro jejejej
443  Programación / .NET (C#, VB.NET, ASP) / Re: Caducar programa con tiempo ? en: 1 Diciembre 2013, 16:59 pm
Cita de: EleKtro H@cker en  1 Diciembre 2013, 12:13 pm
Y no puedes coger el ejemplo "Trial" que te mostré en otro post (o cualquier otro código trial en Google), y en lugar de mostrar un msgbox cuando la fecha caduca, eliminar esas órdenes y añadir otras para salir de la aplicación ¿?, vaya, si hasta eso tenemos que ayudar a hacer...

-> Application.Exit Method

-> Environment.Exit Method

-> End Statement


Buaa no me regañes que estoy viejito jejeje como te he dicho esto del injerto vb con net todavia no logro cojerle la maña :) y esos ejemplos son alta costura para mi todavia y me gusta irle cojiendo el tranquillo con ejemplos mas modestos

Luis



444  Programación / .NET (C#, VB.NET, ASP) / Re: Caducar programa con tiempo ? en: 1 Diciembre 2013, 11:45 am
Vale no explique bien jej Elektro

Cuando dije que no haga nada no es a la rutina sino al programa,la mayoría de las rutinas enseña un mensaje cuando se bloquea o caduca un programa. lo que necesito es que al llegar el tiempo o fecha de caducidad.simplemente no se ejecute el programa ni avise de nada y el código que puse es para mas o menos saber donde poner esa rutina

gracias :)

Luis
445  Programación / .NET (C#, VB.NET, ASP) / Caducar programa con tiempo ? en: 30 Noviembre 2013, 12:31 pm
Hola bien mi idea no es hacer un trial ni demo solo nesecito una rutina simple que me detenga el programa sin mesagebox ni nada solo que no funcione ni haga nada al ejecutarlo,


Código
  1. Public Class Form1
  2.     Dim MIN As Integer = 0
  3.     Dim MAX As Integer = 99
  4.  
  5.     Private Sub FrmLogin_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  6.         Me.ControlBox = False ' Elimino todos los controles del formulario
  7.     End Sub
  8.  
  9.  
  10.  
  11.     Private Result1 As Int32(), Result2 As Int32(), Result3 As Int32()
  12.     Dim Sep As Object
  13.     Dim texbox7 As Object
  14.     Dim o As Object
  15.     Private _val As Object
  16.     Private _val1 As Integer
  17.     Dim TextBox As TextBox()
  18.  
  19.     ReadOnly Property Num1 As Int32
  20.         Get
  21.             Return CInt(TextBox1.Text)
  22.         End Get
  23.     End Property
  24.  
  25.     ReadOnly Property Num2 As Int32
  26.         Get
  27.             Return CInt(TextBox2.Text)
  28.         End Get
  29.     End Property
  30.     ReadOnly Property Num3 As Int32
  31.         Get
  32.             Return CInt(TextBox3.Text)
  33.         End Get
  34.     End Property
  35.  
  36.  
  37. Private Property KeyAscii As Integer
  38.  
  39.     Private Property Val(ByVal form1 As Form1, ByVal p2 As Object) As Object
  40.         Get
  41.             Return _val
  42.         End Get
  43.         Set(ByVal value As Object)
  44.             _val = value
  45.         End Set
  46.     End Property
  47.  
  48.     Private Property Val(ByVal p1 As Object) As Integer
  49.         Get
  50.             Return _val1
  51.         End Get
  52.         Set(ByVal value As Integer)
  53.             _val1 = value
  54.         End Set
  55.     End Property
  56.  
  57.     Private Sub Sumar(ByVal sender As Object, ByVal e As EventArgs) _
  58.     Handles Calcular.Click
  59.  
  60.         Dim TextBoxCount As Short = -1
  61.  
  62.         TextBox = {TextBox7, TextBox8, TextBox9, TextBox10, TextBox11, TextBox12, TextBox13, TextBox14, TextBox15, TextBox16, TextBox17, TextBox18, TextBox19, TextBox20, TextBox21, TextBox22, TextBox23, TextBox24, TextBox25, TextBox26, TextBox27, TextBox28, TextBox29, TextBox30, TextBox31, TextBox32, TextBox33, TextBox34, TextBox35, TextBox36, TextBox37, TextBox38, TextBox39, TextBox40, TextBox41, TextBox42, TextBox43, TextBox44, TextBox45, TextBox46, TextBox47, TextBox48, TextBox49, TextBox50, TextBox51, TextBox52, TextBox53, TextBox54, TextBox55, TextBox56, TextBox57, TextBox58, TextBox59, TextBox60}
  63.  
  64.         Result1 = {Num1 + 1, Num1 + 20, Num1 + 30} _
  65.                   .Distinct().ToArray ' Elimino duplicados
  66.  
  67.         Result2 = {Num2 + 10, Num2 + 20, Num2 + 30} _
  68.                   .Distinct().ToArray ' Elimino duplicados
  69.  
  70.         Result3 = {Num3 + 10, Num3 + 20, Num3 + 30} _
  71.                   .Distinct().ToArray ' Elimino duplicados,,,,,,,,,,,
  72.  
  73. Array.Sort(Result1) : Array.Sort(Result2) : Array.Sort(Result3)  ' Ordeno los Items
  74.  
  75.         ' funcion
  76.         For Each Number As Int32 In Result1
  77.             TextBoxCount += 1
  78.             TextBox(TextBoxCount).Text = Number
  79.         Next
  80.  
  81.         For Each Number As Int32 In Result2
  82.             TextBoxCount += 1
  83.             TextBox(TextBoxCount).Text = Number
  84.         Next
  85.  
  86.         For Each Number As Int32 In Result3
  87.             TextBoxCount += 1
  88.             TextBox(TextBoxCount).Text = Number
  89.         Next
  90.  
  91.  
  92. End Class


gracias de antemano

Luis
446  Programación / .NET (C#, VB.NET, ASP) / Re: Limitar programa con tiempo ? en: 20 Noviembre 2013, 20:04 pm
Bueno gracias Elektro pero busco algo como esto ,este codigo que encontre no se como haria para usarlo


Código:
'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
447  Programación / .NET (C#, VB.NET, ASP) / Re: Limitar programa con tiempo ? en: 14 Noviembre 2013, 13:24 pm
Cita de: EleKtro H@cker en 14 Noviembre 2013, 08:41 am
Librería de Snippets

(descarga el zip y busca por Trial)


Gracias Elektro :)

por cierto te llego mi privado ?


Luis
448  Programación / .NET (C#, VB.NET, ASP) / Limitar programa con tiempo ? en: 14 Noviembre 2013, 06:57 am
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
449  Seguridad Informática / Seguridad / Re: Inundado de virus ????? troyanos y demas cosas :) en: 9 Noviembre 2013, 18:55 pm
Cita de: M1t$u en  9 Noviembre 2013, 15:14 pm
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
450  Seguridad Informática / Seguridad / Re: Inundado de virus ????? troyanos y demas cosas :) en: 8 Noviembre 2013, 20:49 pm
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
Páginas: 1 ... 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 [45] 46 47 48 49 50 51 52 53 54 55
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines