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

 

 


Tema destacado: Únete al Grupo Steam elhacker.NET


  Mostrar Mensajes
Páginas: 1 [2] 3 4
11  Foros Generales / Sugerencias y dudas sobre el Foro / Re: Portada el elhacker.net no se visualiza correctamente en: 4 Junio 2018, 16:33 pm
El problema no se me solventa, desde entonces en todos los ordenadores se me esta viendo de esa forma. Por lo menos puedo leer las noticias :D
12  Foros Generales / Sugerencias y dudas sobre el Foro / Portada el elhacker.net no se visualiza correctamente en: 11 Mayo 2018, 12:55 pm
Desde ayer en varios ordenadores usando Firefox o Edge me esta saliendo de la siguiente manera la portada de la web. En el internet explorer y en el telefono con firefox en cambio se ve bien. A alguien mas le esta pasando?
13  Informática / Hardware / Re: piratebox en: 15 Abril 2018, 17:46 pm
Buenas, gracias por descubrirme el proyecto, ayer me alegraste la tarde, tengo lista mi Raspberry Pi(rate)Box  para dejarla mañana, seguramente cerca de la universidad de mi ciudad a ver si le dan uso, de momento esta sin ningún tipo de carcasa. Si veo que lo emplean ya me pasare a dejar los resultados, también decir que en el foro de piratebox hay una persona que explica como se ha añadido un admin para el chat, solo resalta el texto, yo he añadido un comando para limpiar el chat, si te interesa te lo pongo.
14  Programación / Scripting / Re: Se pueden poner imagenes en archivos .VBS, o cambiar la ventana de error? en: 10 Abril 2018, 16:58 pm
En serio creo que quieres esto:

Citar
VBA MsgBox: vbCritical

Please find the following code and output. When we click Ok button, It will return value 1 as a output. And, It will display critical Message Icon.
Code:

Código
  1. Sub MessageBox_vbCritical()
  2.  
  3.    'Variable Declaration
  4.    Dim OutPut As Integer
  5.  
  6.    'Example of vbCritical
  7.    OutPut = MsgBox("Please enter valid Number!", vbCritical, "Example of vbCritical")
  8.  
  9. End Sub

Output:
VBA MsgBox in Excel VBA

Top
VBA MsgBox: vbQuestion

Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Warning Query icon.
Code:

Código
  1. Sub MessageBox_vbQuestion()
  2.  
  3.    'Variable Declaration
  4.    Dim OutPut As Integer
  5.  
  6.    'Example of vbQuestion
  7.    OutPut = MsgBox("Are you fresher?", vbQuestion, "Example of vbQuestion")
  8.  
  9. End Sub

Output:
VBA MsgBox in Excel VBA

Top
VBA MsgBox: vbExclamation

Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Warning Message icon.
Code:

Código
  1. Sub MessageBox_vbExclamation()
  2.  
  3.    'Variable Declaration
  4.    Dim OutPut As Integer
  5.  
  6.    'Example of vbExclamation
  7.    OutPut = MsgBox("Input Data is not valid!", vbExclamation, "Example of vbExclamation")
  8.  
  9. End Sub

Output:
VBA MsgBox in Excel VBA

Top
VBA MsgBox: vbInformation

Please find the following code and output.When we click Ok button, It will return value 1 as a output. And, It will display Information Message icon.
Code:

Código
  1. Sub MessageBox_vbInformation()
  2.  
  3.    'Variable Declaration
  4.    Dim OutPut As Integer
  5.  
  6.    'Example of vbInformation
  7.    OutPut = MsgBox("Succesessfully Completed the Task.", vbInformation, "Example of vbInformation")
  8.  
  9. End Sub

Output:
VBA MsgBox in Excel VBA

Fuente: https://analysistabs.com/vba/msgbox/

En VBS necesitaras el valor de las variables vbInformation, los dejo aquí:
vbCritical   16   Muestra el icono Mensaje crítico.
vbQuestion   32   Muestra el icono Consulta de advertencia.
vbExclamation   48   Muestra el icono Mensaje de advertencia.
vbInformation   64   Muestra el icono Mensaje de información.
15  Programación / Scripting / Re: Modificar información del procesador en: 10 Abril 2018, 16:51 pm
Buenas Dino-Rhino, para pasar a exe yo empleo esta herramienta:
16  Programación / Scripting / Re: Se pueden poner imagenes en archivos .VBS, o cambiar la ventana de error? en: 10 Abril 2018, 16:22 pm
Asi?
Código
  1. Option Explicit
  2. Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject")
  3. Dim objSHL : Set objSHL = CreateObject("Wscript.Shell")
  4.  
  5. Dim tempFolder : Set tempFolder = objFSO.GetSpecialFolder(2)
  6. Dim tempFile : tempFile = objFSO.GetTempName() & ".hta"
  7.  
  8. With tempFolder.CreateTextFile(tempFile)
  9. .WriteLine  "<html><HTA:APPLICATION SysMenu=""no"" Scroll=""no"" Border=""dialog"">" & _
  10. "<head> <title>Hola</title>" & _
  11. "<script type=""text/javascript""> window.resizeTo(350,260); window.moveTo((screen.width - 350) / 2, (screen.height - 260) / 2);</script>" & _
  12. "</head><body style=""background-color:ededed;""> " & _
  13. "<p align=""center"">" & _
  14. "<img src=""data:image/jpeg;base64,/9j/4AAQSkZJRgABAQAAAQABAAD/2wCEAAkGBxISEhMSEhIVFRUXFRUVFRUVFRUVFRUVFRUWFhUXFRUYHSggGBolGxUVITEhJSktLi4uFx8zODMtNygtLisBCgoKDg0OGBAQGi0lHyUtLS0tLS0tLS0rLS0tLS0tLS0rKy0tLS0rLS0tLS0tLS0tLS8tLS0tLS0tLS0tLSsrK//AABEIAKgBKwMBIgACEQEDEQH/xAAcAAABBQEBAQAAAAAAAAAAAAADAgQFBgcAAQj/xAA/EAABAwIDBQQIAwcDBQAAAAABAAIDBBEFITESQVFhcQYigZEHEzKhscHR8CNC4RQVUmKCkvEkcqIzU2OD0v/EABkBAAMBAQEAAAAAAAAAAAAAAAADBAIBBf/EACgRAAICAgICAgEDBQAAAAAAAAABAhEDIRIxBDJBUSIjYXETM1Kx8P/aAAwDAQACEQMRAD8A3AKLxw9wqUCisdPd8VqPZmXRAzeysp7cO/EK1ip9lZF2zdeV3VGT1DH7FOmTN6ezpk9JRQw1Mn9PJskFMaYJ2AsS7PT8RfiW/DK3JSwfdUqgqdnJWjD57haiyXysXGVjmXRRdbFdS0oyTSVi3RInRTsTpk3w12y5WDEoLqBkj2TdKkejgfJUXfCprgKSIVXwWq0VywmmMrmNAvc566b9PFMhsizx4yGjWoGIQ3ar/PgsII2rtbl3QDwA1+96UxtCcgxptvcLnqbrbiIjIwDGqQ7R2QT0F0xbRSNsSwjO1t99dNdF9FTPYz2I2gcWgblHvrRtXdCx2+5aLg8b2Nkr8fsrjnkl0ZLgsitlPorY+ippru9Uwkm7gWtab/7mpcOCUz8gHxn+U3HkR8Cu6+xc5ct0Vcqv45HkVotb2RkAvE8PHA90/RUnHqGRtw5hBF8jrYam3BBiL2ZxUts5SGHhNK9tnJ7hwS2VZeicgGSchBgGSOFwlZ4QvAEqy4IA4L2y9AXEIOgyElwRCkOCDgIhDIRihuQAF4QiivQkAfUqiMc0HVS6h8a1b1VcexEuiGrPZWOdrD+I7qVslfk0rFu1DvxHdSjJ0dxexWZ0zencyaOSUPZLYbRFzbpxV0+xZT2A0oMTTyTftFDa3JIc7lR6HiZPgrjn2N1P4RV6Kuzo1BPslbTofnhyRoDH3CHK1MsMqb2UnIMk9HjzXF0RVVHdQdfArdQ0olk9Wb3c12zYXO0BcfC3irNhXZCnhAlqmiWTdF7bGf7gPaNuOQWf6bkMx51j7KP6POy8ta9zrlkDDZ8ltT/Azi74LZqOlipmBkTbAC19XHmXaqJnxuJgDWghoHdAAYwf0iyYvxsk5f5RcYKrMZZyzSutE7WPFuPioKtpfzNvz33Xv7XfMnI+SVT124pM52ajGgMT3Ny1ad3BG2GuO8O62BTqwIuPvwXerBGnkM/esGwTKOxuMipNsQcASMwNQc/1CbUlxlrn95fZUhskDabmN4votRMs9pq9twx9wdztxRaqjhmGy9odbMXGYPI7lHSOBzAHMfP/AAjQOvbd8k/GxU0Zr239HjWuMtPm0k3ZfNrrXsDwvbXjqqa6hMTrWNssjqNfO9jnyPBfQ0kIkbYi/H4fNUPt9grY4HSgavbu3uc0k+OZ/q6rcsSptHFmekyjwaIwCFCMkcKY2zwhcAvbL0IOHWXEJVl1kADKQQiEJBQAJwQ3IxQnIAA9CKM9CKAPqNQuLnvN8VNFQeJnvhVxESIjFXWYeixPtEbyHqtpxs2jd0KxHHXfiO6rmTo7h7IOdNd6czJsNR1Sh7NE7OnuAckjHYrptgFR7Kk8TbcXXnt1MpwumUGcWJCQ1OsQZZxTayps9OO9k3g9VoFaoZLhUGik2XK20FTcBOhLR53lY6dotfZJjfXXv3tlwHLLM/fFOO0uL7HdEbyBltkkA8dkZF3XfzTLstEXT5EizScuGhFxmMjqFGdqqxxk87dNm2/PRPusdnnVeQjjUPJuHl3mLfonceIm9j01UeG5N4kXNvFPKaAOy4/f081EytE1RVWYzKkgd41UHSM2bclN09YLWBsd4J+G4rNm6JCmn45cxr5KQjcd3e5XCiInm+YHWwB8wn0JtoSDxGvv+i6caHLyL3OfEEEHzGqKytA/MepzHgQkxlxGlzw3H9UwroRa9tk8tR15LqM0PJqqL9W8eNv8LmVjb22h45KIiOyc8wd6l4aBjv0VGOLYmbSJCOpTHtXSmemdGLX2ctBvtcE5ZXTqmowLj78Qm+NVAEbhvAy6XtpfdfXcqUvsmZkQjLcj4c0QJ5i1MGPDgBsvG03MkWPA/e9M1E1TooTs5eheL0Lh0UF4V6FxC4AgpDkQpBQANyE9FchPQAB6EUV6GgD6iKgq099Tj9FAVHtlVxJ5EN2hdaJ3QrDsXdd7uq2rtW+0TuixHET3j1WcvwMw9si5k2KcTJslocWTAJ9FapO8xUXBZbOV3pH3aoPIjUrG42VjE4MyoohWvEoFXauKxWscrR6mCWqGZNipvC6nRQb04w6TvAKiLMZ4po1fsZe00oBsGBmQJzectOiq+NXc7azAJIAGW/l9fkrngEfqcNc4+1K4b/aaNoixG+11TawAlzntyGQBPd6WGvCwsPgqpL8KPDT/AFGN23NrX8uF77vuydwFzSDuNj42+qBTEkHhv+9w5JyG5WINtRb3qVoriiU9YTyPTgee79EWN1+XI6HzUTHORpnby8k5jnI3+BzS2NSZKirI1++qeQ153X65KF2nE3GfmlgvGvxddZs3wstVLiTt7bjxR6rEGEd63nmOHMdFURWOH6lBfVgnZaCQAbAE58SbDP8ARbTMSxFhjnaTkRY656Hdop+ik5KiUdUNoaC+dhfMXsRmVeMLe0AbZsHGzSfdc7lZh2iLNHiyRiYSc/L5+9VXthUujG0TaziNMyMzlx0zHVXSlb8c1TPSWz8IC2rmkcjm3y2cvAJ0nSYhdlMrKjaBbrsWAOQ/MdwyFhcdbpmEqTl+azj1Iz99/JJCik7Y9KjlwXq4Lh0UFy9C4rgAykORCkOQANyC9GcgvQAB6GURyGugfT8pyUDMe8VNT6KDfqVWiaRWO2UlonLF6513Hqtf7dvtEVjlScyl5BuH5GMybJxMU3Cwhw8pHWIKuWG1FwFS4VP4VNuSM0OSNRdMsFQ3aCgsRp1YaGF8mTGl3Gwv58EjEsGlAzYQpIQmnpMrhlUX2UKVtinnZ+APqYmnS99bXtmB52S8QoXg+ymVPtse1zQbggjd71bDtWU5JKUdM2qqG1h8fdvcuc1oNsjZzRe2Xdtu35WVEqtpwO1ssaMzvO8AW+W/NXvtliDHUkXq2nYdGx7CDbZBYMsh9+CzY7bvzEi987FU5Xs8XHG9j3D3C1hv8Mgn5dfLgo+nbsjiSVI07bDNTSZZBHMjzTkU5Qnck5pzcXc63ilDk0gDpnM1H31SosSBGYt5or6yNuReSNNxPvshVeIwWuBfmcj1tYo4gsiG1XW93LebcB0zQKeZ20HE2IsRvzB+iHUSi+Wmvuy+KYVVUW2J35D78lpR2dclRb4q+mbbaFrm+QvckWPh9VP4b2gY+xacm5dRz5fRZZFPtE6mwucichrlwVm7NU7KmDbiL7mZke3ZuyAS0EEAXBO0LE5H4VYmyHKl8s2SneBnxHgqJ6SqkOYGg5tN+ovs/EhXSsIjj2joAsjx2pLnvPMtA1GztXvzByKdkdRZJFWyLHst5XHzHxKUEgdEsKMoPV6F4lBACgvCvQvCuAJKG5EchuQANyBIjuQJF0ADkhLckIOH05OMioI6lTlUe6VBE6qtE8uyjekCTuWWRTnMrU/SHJ3bLK5jql5ex2HoZzILUWZDasDR1CFauyGCuqp2xtyGr3cG/UqrQrU/RlOyGNzzq468hkPmtY4cpUYyy4xs0WCjgpIgBssa0anLxJ3lUjtB2ppySGuB6Kr+kDtc6plMUbiImG2X5jvKqbCnyyKOkKhjctssVTXRvKZuawphGU4aUhzKEmvkthmEtI5rNoOhHdsfyON8vG6hHmzQ5xPG3yTvsvVhkwY72JAWHgL6H74oeI0xzaNGutlwvr5LOR3TG4K3EXT2PeG9PAUOmDdju/lvkkvcQbpMh8ewshTWqqJHXDI9o8SbNHjxT6nIIz15/qvHhw9k+GiymkzrRXasVVsg0HhutxuDdNG08ujng34X+f6Kx1LZDub7kGOksQ53mt80Y4M8wimyAdrZP+0OChzGkAEtPxH6JUIu4WGSuOEUzZGyMe294nEcbtIdlzyWY/lI1P8AGJl1JCBdpIHEHXnvV67BVcce1AxrbPIvYaluYJPwVeq6djjctB4FOsAqPVytIFgOATsc6kkJyQ5RZpPbaotTvF7X2LeN9/gstqbka9FdfSNXn9kic0+1LYcxsP2gfNvkswNQ9MzPdEuOOrJEM5oogKiRUuRhXOG5IpjeKJH1BXCEqO/ebuC4YoeBXNnOKJMRFeGI8FH/AL2PAr0YseBRsOKHhjPBDcw8ED96civf3lyKNhxOeCm70uSvTKarXUcaCOSE7oqN0o7mZTeaJzXFrgQRkQtOEkrowmuj6Vrj3SoOQ5KZxA90qEnOSqQiRmvpAfn4LNJStD7eP7x6LOZUnJ2Oxeo3lQ2pUiQ1YGj2BWOCuMcVgdyrcG5P6iTureN07MzVjQG5ujsKcYXg085/DjJH8RyaPEqxw9moIRtVU9z/ANuLXptLUcM59IzLLGPyVyEEmwBJ4DMqQNKIxeZ2z/KM3nw3I9bjjGgspY2xN0LtZD1cVWazEQL3JJTVhjHvZh5ZPrRZIMUijzI2Ba4De9I7x0bfn1T/AAnEBO0veA17Tmwbmu9jPfkLeHNZzJWudoESmqZmEuDyCdc9evFE2pR4hjbhLkaYCA4uAtfI8OS9bZROBTunh9Ztd5ry1zQMsmgg+9PmOyIUM4uOmenCSltAnSlpRhUXCA9JaLJQwetNs7ptiNZZv3qvS6wTARGV54D4rqR2yewGF4G1Idd29WbCa/1c8Z2gAHC9+BycDytdZ7NVTtcDlYbuP0RqWte9wOYzFhvPjdaUXaZiTVNMkMWon0c8lK8hwadqNw/NG4nZPuIPNpRsDiLnE7vqorGPWOk9c9xc8mzidb3+CsXZgXjc4a7Q+/1T8aTmIyNrHsfdsoi+OlAIyEp2b5n/AKYuBvVQNOvfShixbUU8bTbYh2jbcZHn5MHmg4N2gjlsyoyOgkGv9Q3qmWJT6eyGOVx76DCmXGmUxPhr2jbbZ7Do5ufuTNTSg4umhykpbQwNKuFKE9JSXOCyaGwpAvf2UIpkQ3TIOCPUBeFoCQ+dNJp0AHkc1MKpwQpZkzllXQLj6Nq0ftTYn6O06rWKrs/A9xcWC55cl8+YHWGOpieNzx8Vugx29jfcFfhuUNEOalIt2JHuqEqjkpfEjkoWuPdKUjTMm7cy98qiyFW/ttJeR3VVamo5JnbETC48Bu6nckSty0UY9RI95RqKjkldsxsLjwaL+fBWiLszDANqrk2naiJhy/qdr5JNRjRDdiBrYmcGC3mdSnx8Z9zdf7Fyz/47PKbs+yKzqqUNOvq4+8/xOgTn96U8eUVO0n+KQ7TuqgnPcTmV5shNXGPqhb5S9mS1R2jmfltWHAZD3KLmmLs3FIcQE3lkRKbfZ1RSE1M2VgmkMDdXZohdmltfZKNCXkDRNZHI8pzTZy4BdewcJ9RNJu9YG/8ABOJJSCVIejWl9ZQzt3ukdbqGtt71HTx5kHjmp8q2W+NLVHMluj3yTQMIKctOSnZXZ5O/KyPSNAsB4lNZ7WTGtrpGM2mN2je2eg5lCVnHKiZrS3l158gomSujisS62eR0zUDLDVSnaLSee00ADlmm8+EvaQH2BO4G+Q4lOWOuyd5rdJGpdoauGopIqhthIdqOSwttOZslrnD+KxGe+6cdjG/gu5n3qiRbTGMYXE2zIOgJtu6ALQuyk7YaZ8jsmxtdK6/Brdr5JuPcxeX8YV+5lPbyp28QqiDcNk2B/wCtoZbzaUxo5SECS73Oe495xLndXG595S4bp17JC34D2ikg0ddu9p0VqbjFNNm5gB4jIrNInJ1FOQqI5FVSVoW4btaNDkwUPG1DIHfyuyPmoesgkjNntLeunmoWixmSM5OKt2F9p2SDYlsd1iuPx8WT0dM6s04e20V90iC+VWuswOGUXiOwfNvluVYxPDZYfbbl/EM2+akyePPH2h8M0J9DOSRNZJF69ybvKQNEyPTd5S3lBeuge0p/Eb1HxWlMqDYdAs0oT+K3qFoAmXoeLqDIvIVyRtWJO0UJiLu6VM4gcwoDGpQ2NznZAAk+CUkDMwxyjY5znyk2vk0ZE9TuTGbHWRM9XTsDRvI+Z1KjMdxEyPcL5Z5c1GNdkE9tY9RW/s4k5LY4lnc43cbkpAKHdcXJTdjKC7SQ6RDLkNz1yztCpHpvI9c96CSstgKBRYkFOGNs3mgALym5RyglcA1D0Rzf6eVu8SX8wE47WYcY3+taO4/Xk/ffr9VXfRXV7MsjNzgD4hahUQNkY5jhcEWP3xS5xsbjnxdmaheOunuJ4e+B+y7Nv5XbiPryTUqZo9BSTVoby3IsvGyWFiO7oQjNcNCvJKe+ix0aRHy0Tr/huOyeelzc/BIZhp2gXu6m98tUWSleD7RHRLgprm5JPMlMs5r6DyMdUSktHtEADgBYAeAAUl2nxQRUEzWm3r5PVRj/AMbD3j0Iaf7l1K8RRSvBDXZMbfdtg3d4AE+ComO4n697Q3/pxt2Ixy3u6k5+SoxfZFnfwMb5IkDkJqVCmEw/iKMCmzCigrSAKClNfbRBuvbroUS9DjcsRuHZcFccL7QslYdoC9rlpzBA1WbhyUJyBYHyVGPO17bQqeJPouMmDx1FNJUQtLHNJdsXu1zdbDgbKoucr96P5dqmlYTq+3S4VDrojG97D+VxHkUjy8aSjNLsb48224t9AHFCeUpxQnlRlAbDW3lb1Vwe7NVXAReUKx1D+8Vdh1jv9yXJ7m9V7s1nXpPxX1ULYxrI7/izM+/ZC0GuOaxf0vVH+pibwhJ/ucf/AJXIOnZhqyiGS7kpjrBNAbFGJF1hvY1B9teF6GHLy6LAWXIbnLiUhxXAEvKQF4V60LgBoRmiyOyTV5tmiRTBwz1QAklCciEobkAWDsDLs1Q5j5raIysN7IvtVR87j5rdIB3R0WWaQDEKRsrS14uPhzB3FUXGsKfAb+0w77Zjk5aG8WFys+7VdrmuDoaaztQ6Qi45hg39fcVnhyNwyOBEOkBSP2khQJxB4GdnfH3JdJiQ2x60WYciWk3HPmFh4JFK8iJKvrv8IE+JNaLuNh8eQ4q1UmCQ2D7BwtcEnaBHHgqB2orxNO7Z9hncYBplr70LF9mZeT9AsSxZ8vdHdZnYcb8fcmASQlhOSokbbdsWUpgQ7k9EcDJdOBWFGBTdiKF0Bd110kleXQB6Skh2Y80lxQ3PXANA7APtDJnq4+5VjG3XmkPP5BSnZmpEcRbfM6dSoGtm2nudxcf0VnmawwX/AHQrx1+pJgHFCeUtyC5eWWMlOzg/FCnKp3fKgOz7rSXUvPJ3iquVYl/Ihq5s+gKw5lYn6YGf6qN3GG39r3fULly6Lj2Z6XJZNx0Xq5YGHrSiheLkAcShOK9XIAGltC5cgBb4b65BebDRoPHeuXIAHdJcV4uQA+wB+zUwn+ce/Jb3HUsZEHvcALfdhvXLll9nUVXHcYkm7rQWx+93+76KoYthwDDKNd9tDnwXLluOmD6K9MN/3958yjUWEvlG1oN19T+i5ctT7OInRiL6WkkiccwLRctrIjw1VIXLks6z1LjXLkHAmyit0XLl06ehFC5cgDrpDiuXIOAZHpLcy1q5ctQVyRx9Fgog5zJXtHdjYc+Zy+aiSVy5M82Tbj/AeP8AP8iHOQnFcuURQx9gh76l5DmVy5Myf20KXsz/2Q=="">" & _
  15. "!<BR><button type=""button"" onclick=""window.open('', '_self', ''); window.close();"">Aceptar</button>" & _
  16. "</p>" & _
  17. "</body></html>"
  18. .Close
  19. End With
  20.  
  21. objSHL.Run tempFolder & "\" & tempFile, 1, True
  22. objFSO.DeleteFile tempFolder & "\" & tempFile
17  Programación / Scripting / [VBS] Ver fuente pagina .onion en: 3 Noviembre 2017, 16:45 pm
Hace unos días me motive con esto del VBS. Tiene mucho que mejorar, lo se, agradecería solo criticas constructivas, tampoco le voy a dedicar mas tiempo. Dejo parte de las URL porque no se como esta la normativa. El wget lo descarga porque tenia intención de hacer mas cosas pero aquí quedo la cosa.

Código
  1. Dim wDir
  2. Dim url7z
  3. Dim urlTor
  4. Dim urlWget
  5. Dim urlPolipo
  6.  
  7. wDir = pGetEnv("%USERPROFILE%") & "\YoYo\"
  8. url7z = "http://www.7-zip.org/*/7z1604.exe"
  9. urlTor = "https://www.torpro*/*/tor-win32-0.3.1.7.zip"
  10. urlWget = "https://eternally*/*/wget.exe"
  11. urlPolipo = "https://www.ir*/*/polipo-20140107-win32.zip"
  12.  
  13.  
  14. pMkDir wDir
  15. If Not pFileExist(wDir & "7z\7z.exe") Then
  16. If pDownload(url7z, wDir) then
  17. pMkDir wDir & "7z"
  18. pExecute wDir & "7z1604.exe /S /D=" & wDir & "7z\", True
  19. pDeleteFile wDir & "7z1604.exe"
  20. End if
  21. End If
  22.  
  23. If Not pFileExist(wDir & "tor\tor.exe") Then
  24. If pDownload(urlTor, wDir) then
  25. pUnZip wDir & "tor-win32-0.3.1.7.zip", wDir & "tor"
  26. pDeleteFile wDir & "tor-win32-0.3.1.7.zip"
  27. End if
  28. End If
  29.  
  30. If Not pFileExist(wDir & "wget\wget.exe") Then
  31. pMkDir wDir & "wget"
  32. pDownload urlWget, wDir & "wget\"
  33. End If
  34.  
  35.  
  36. pExecute wDir & "tor\tor.exe", False
  37.  
  38. If Not pFileExist(wDir & "polipo\polipo.exe") Then
  39. If pDownload(urlPolipo, wDir) then
  40. pUnZip wDir & "polipo-20140107-win32.zip", wDir & "polipo"
  41. pDeleteFile wDir & "polipo-20140107-win32.zip"
  42. End if
  43. End If
  44.  
  45. pExecute wDir & "polipo\polipo.exe socksParentProxy=localhost:9050 socksProxyType=socks5", False
  46. WScript.Sleep 2000
  47. MsgBox pTorGetPage("http://uj3wazyk5u4hnvtk.onion/")
  48. pExecute "TSKILL POLIPO", False
  49. pExecute "TSKILL TOR", False
  50.  
  51.  
  52. Function pFileExist(pathFile)
  53. Dim objFSO
  54. Set objFSO = CreateObject("Scripting.FileSystemObject")
  55. pFileExist = objFSO.FileExists(pathFile)
  56. End Function
  57.  
  58. Function pDownload(strLink, pStrSaveTo)
  59. strSaveName = Mid(strLink, InStrRev(strLink,"/") + 1, Len(strLink))
  60. strSaveTo = pStrSaveTo + strSaveName
  61. Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1")
  62.  
  63. objHTTP.Open "GET", strLink, False
  64. ' objHTTP.SetCredentials "User", "Password", HTTPREQUEST_SETCREDENTIALS_FOR_SERVER
  65. objHTTP.Send
  66.  
  67. Set objFSO = CreateObject("Scripting.FileSystemObject")
  68. If objFSO.FileExists(strSaveTo) Then
  69. objFSO.DeleteFile(strSaveTo)
  70. End If
  71.  
  72. If objHTTP.Status = 200 Then
  73. Dim objStream
  74. Set objStream = CreateObject("ADODB.Stream")
  75. With objStream
  76. .Type = 1 'adTypeBinary
  77. .Open
  78. .Write objHTTP.ResponseBody
  79. .SaveToFile strSaveTo
  80. .Close
  81. End With
  82. Set objStream = Nothing
  83. End If
  84. Set objHTTP = Nothing
  85. pDownload = False
  86. If objFSO.FileExists(strSaveTo) Then
  87. pDownload = True
  88. End If
  89. Set objFSO = Nothing
  90. End Function
  91.  
  92. Sub pMkDir(pDirectory)
  93. Dim oFSO
  94. Dim directory
  95. Dim sDirectory
  96. directory = pDirectory
  97. Set oFSO = CreateObject("Scripting.FileSystemObject")
  98. If Mid(directory, Len(directory), 1) = "\" Then
  99. directory = Left(directory, Len(directory)-1)
  100. End If
  101. If Mid(directory, Len(directory), 1) <> ":" And Mid(directory, Len(directory), 1) <> "%" Then
  102. sDirectory = Left(directory, InStrRev(directory, "\") - 1)
  103. If Not oFSO.FolderExists(sDirectory) Then
  104. pMkDir sDirectory
  105. End If
  106. If Not oFSO.FolderExists(directory) Then
  107. oFSO.CreateFolder directory
  108. End If
  109. End If
  110. Set oFSO = Nothing
  111. End Sub
  112.  
  113. Sub pExecute(pathExe, wait)
  114. Dim objShell
  115. Dim objFSO
  116. Set objShell = WScript.CreateObject("WScript.Shell")
  117. objShell.Run "cmd.exe /c " & Chr(34) & pathExe & Chr(34), 0, wait
  118. Set objShell = Nothing
  119. End Sub
  120.  
  121. Sub pDeleteFile(pahtFile)
  122. Dim oFSO
  123. Set oFSO = CreateObject("Scripting.FileSystemObject")
  124. If oFSO.FileExists(pahtFile) Then
  125. oFSO.DeleteFile pahtFile
  126. End If
  127. Set oFSO = Nothing
  128. End Sub
  129.  
  130. Sub pUnZip(pathZip, dest)
  131. Dim unZip
  132. unZip = wDir + "7z\7z.exe"
  133. If pFileExist(pathZip) And pFileExist(unZip) Then
  134. pExecute unZip & " e " & pathZip & " -o" & dest, True
  135. End If
  136. End Sub
  137.  
  138. Function pTorGetPage(strUrl)
  139. Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
  140. WinHttpReq.SetProxy 2, "127.0.0.1:8123"
  141. WinHttpReq.Open "GET", strUrl, False
  142. WinHttpReq.Send
  143. pTorGetPage = WinHttpReq.ResponseText
  144. End Function
  145.  
  146. Function pGetEnv(strEnv)
  147. Dim oShell
  148. Set oShell = CreateObject("WScript.Shell")
  149. pGetEnv = oShell.ExpandEnvironmentStrings(strEnv)
  150. End Function
18  Programación / Ejercicios / Programming Challenges en: 29 Junio 2017, 11:01 am
Estaba en un conocido foro de sobre cultura japonesa y encontré lo siguiente:


Como veo que tiene fecha de 08/03/2016 me gustaría saber si alguien tiene versiones posteriores o listas alternativas a estas.
19  Programación / Scripting / Re: Modificar .vbs en: 31 Mayo 2017, 22:58 pm
Que es lo que has intentado? Pon lo que has modificado aunque contenga errores.
20  Programación / Programación C/C++ / Re: Buenas tardes amigos, necesito una ayuda urgente en: 9 Agosto 2016, 17:33 pm
La definición es correcta. Es un array de agenda.

Fuente:Tutorialspoint

Defining a Structure

To define a structure, you must use the struct statement. The struct statement defines a new data type, with more than one member. The format of the struct statement is as follows −

Código
  1. struct [structure tag] {
  2.  
  3.   member definition;
  4.   member definition;
  5.   ...
  6.   member definition;
  7. } [one or more structure variables];  

The structure tag is optional and each member definition is a normal variable definition, such as int i; or float f; or any other valid variable definition. At the end of the structure's definition, before the final semicolon, you can specify one or more structure variables but it is optional. Here is the way you would declare the Book structure −

Código
  1. struct Books {
  2.   char  title[50];
  3.   char  author[50];
  4.   char  subject[100];
  5.   int   book_id;
  6. } book;  
Páginas: 1 [2] 3 4
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines