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

 

 


Tema destacado: Usando Git para manipular el directorio de trabajo, el índice y commits (segunda parte)


  Mostrar Temas
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17
21  Programación / Desarrollo Web / Formato Completo del manifest.json de extensiones del Google Chrome en: 10 Junio 2021, 22:40 pm

Hola, como dice en el titulo, necesito el formato completo del archivo "manifest.json" de extensiones para navegador google chrome.

Por ejemplo, tengo el ejmplo de Google aqui que es :

Código
  1. {
  2.  // Required
  3.  "manifest_version": 3,
  4.  "name": "My Extension",
  5.  "version": "versionString",
  6.  
  7.  // Recommended
  8.  "action": {...},
  9.  "default_locale": "en",
  10.  "description": "A plain text description",
  11.  "icons": {...},
  12.  
  13.  // Optional
  14.  "action": ...,
  15.  "author": ...,
  16.  "automation": ...,
  17.  "background": {
  18.    // Required
  19.    "service_worker":
  20.  },
  21.  "chrome_settings_overrides": {...},
  22.  "chrome_url_overrides": {...},
  23.  "commands": {...},
  24.  "content_capabilities": ...,
  25.  "content_scripts": [{...}],
  26.  "content_security_policy": "policyString",
  27.  "converted_from_user_script": ...,
  28.  "current_locale": ...,
  29.  "declarative_net_request": ...,
  30.  "devtools_page": "devtools.html",
  31.  "differential_fingerprint": ...,
  32.  "event_rules": [{...}],
  33.  "externally_connectable": {
  34.    "matches": ["*://*.example.com/*"]
  35.  },
  36.  "file_browser_handlers": [...],
  37.  "file_system_provider_capabilities": {
  38.    "configurable": true,
  39.    "multiple_mounts": true,
  40.    "source": "network"
  41.  },
  42.  "homepage_url": "http://path/to/homepage",
  43.  "host_permissions": [...],
  44.  "import": [{"id": "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"}],
  45.  "incognito": "spanning, split, or not_allowed",
  46.  "input_components": ...,
  47.  "key": "publicKey",
  48.  "minimum_chrome_version": "versionString",
  49.  "nacl_modules": [...],
  50.  "natively_connectable": ...,
  51.  "oauth2": ...,
  52.  "offline_enabled": true,
  53.  "omnibox": {
  54.    "keyword": "aString"
  55.  },
  56.  "optional_permissions": ["tabs"],
  57.  "options_page": "options.html",
  58.  "options_ui": {
  59.    "chrome_style": true,
  60.    "page": "options.html"
  61.  },
  62.  "permissions": ["tabs"],
  63.  "platforms": ...,
  64.  "replacement_web_app": ...,
  65.  "requirements": {...},
  66.  "sandbox": [...],
  67.  "short_name": "Short Name",
  68.  "storage": {
  69.    "managed_schema": "schema.json"
  70.  },
  71.  "system_indicator": ...,
  72.  "tts_engine": {...},
  73.  "update_url": "http://path/to/updateInfo.xml",
  74.  "version_name": "aString",
  75.  "web_accessible_resources": [...]
  76. }




Hay todo bien, pero cuando voy a una extension de las que tengo instaladas en mi navegador, y reviso el archivo "manifest.json" de dicha extension, me doy cuenta que hay campos que nos salen en el ejemplo de google.

Por ejemplo :

Código
  1. {
  2.   "background": {
  3.      "persistent": false,
  4.      "scripts": [ "common.js", "mirroring_common.js", "background_script.js" ]
  5.   },
  6.   "content_security_policy": "default-src 'self'; style-src 'self' 'unsafe-inline' https://fonts.googleapis.com; script-src 'self' https://apis.google.com https://feedback.googleusercontent.com https://www.google.com https://www.gstatic.com; child-src https://accounts.google.com https://content.googleapis.com https://www.google.com; connect-src 'self' http://*:* https://*:*; font-src https://fonts.gstatic.com;",
  7.   "default_locale": "en",
  8.   "description": "Provider for discovery and services for mirroring of Chrome Media Router",
  9.   "differential_fingerprint": "1.3bba8f43f392ecbc35b582986edcbf7c6591081b63f3f0214f8eed1d239b0f60",
  10.   "externally_connectable": {
  11.      "ids": [ "idmofbkcelhplfjnmmdolenpigiiiecc", "ggedfkijiiammpnbdadhllnehapomdge", "njjegkblellcjnakomndbaloifhcoccg" ]
  12.   },
  13.   "key": "MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDNTWJoPZ9bT32yKxuuVa9LSEYobjPoXCLX3dgsZ9djDrWKNikTECjdRe3/AFXb+v8jkmmtYQPnOgSYn06J/QodDlCIG6l470+gkOoobUM7fOs1AVOse23qYUV4jbuRW3+YZlCvaWCFeczCNbGIUgKEi5B2fyQazy60AL1sLW3utQIDAQAB",
  14.   "manifest_version": 2,
  15.   "minimum_chrome_version": "37",
  16.   "name": "Chrome Media Router",
  17.   "oauth2": {
  18.      "client_id": "919648714761-55j965o0km033psv3i9qls5mo3qtdrb0.apps.googleusercontent.com",
  19.      "scopes": [ "https://www.googleapis.com/auth/calendar.readonly", "https://www.googleapis.com/auth/hangouts", "https://www.googleapis.com/auth/hangouts.readonly", "https://www.googleapis.com/auth/meetings", "https://www.googleapis.com/auth/userinfo.email" ]
  20.   },
  21.   "permissions": [ "alarms", "cast", "declarativeWebRequest", "desktopCapture", "gcm", "http://*/*", "identity", "identity.email", "management", "mdns", "mediaRouterPrivate", "metricsPrivate", "networkingPrivate", "processes", "storage", "system.cpu", "settingsPrivate", "tabCapture", "tabs", "https://hangouts.google.com/*", "https://*.google.com/cast/chromecast/home/gsse" ],
  22.   "update_url": "https://clients2.google.com/service/update2/crx",
  23.   "version": "9121.329.0.0",
  24.   "web_accessible_resources": [ "cast_sender.js" ]
  25. }
  26.  
  27.  

Como ves, es ese ejemplo , estan campos que en el ejemplo de google no hay, los cuales son : "persistent" y "scripts" , entro otros campos.




En pocas palabras , necesito un "manifest.json" Completo , con todos los campos y que hallan.



22  Programación / .NET (C#, VB.NET, ASP) / [Ayuda] Chrome69Tabcontrol - Control Extendido en: 4 Junio 2021, 22:28 pm
Hola, hoy vengo a pedirles ayuda .

Tome el Tabcontrol, "Chrome69Tabcontrol " , lo pase a vb, y le agregue la posibilidad de arrastrar las pestañas de tabcontrol.

El problema es que quiero que desaparezca los botones de navigacion y no se como hacerlo :





Lo que quiero lograr es yo mismo calcular el tamaño disponible, y auto ajustar el tamaño de las pestañas, asi como lo hace Google Chrome.



Aqui el codigo :

Código
  1. Imports System.Drawing.Drawing2D
  2.  
  3. Namespace DragonTubeControls
  4.  
  5.    Public Class Helpers
  6.  
  7.        Public Shared Function Base64ToImage(ByVal Base64str As String) As System.Drawing.Image
  8.            Dim Fixb64 As String = Base64str.Replace(" ", "+")
  9.            Dim MemStream As System.IO.MemoryStream = New System.IO.MemoryStream(Convert.FromBase64String(Fixb64))
  10.            Dim ImageStream As Image = System.Drawing.Image.FromStream(MemStream)
  11.            MemStream.Close()
  12.            Return ImageStream
  13.        End Function
  14.  
  15.    End Class
  16.  
  17.    Public Class Chrome69Tabcontrol
  18.        Inherits TabControl
  19.  
  20. #Region " Decalre's "
  21.  
  22.        Private AddImageBlack As String = "iVBORw0KGgoAAAANSUhEUgAAABsAAAAcCAYAAACQ0cTtAAAAN0lEQVR42mNgGAWjYMiCyMiEh3SzLCoq8f+oZaOWgVMdyGBiMU1S6WicjVo2eMrGUTAKRsHgBgBNazNxj/heLwAAAABJRU5ErkJggg=="
  23.        Private CloseImageBlack As String = "iVBORw0KGgoAAAANSUhEUgAAAA8AAAAQCAYAAADJViUEAAAAU0lEQVR42mNgGOHA3Nx8FRDboIubmZnZAsVX49UMVfQc2QCo2AsQTdB2mGKQASRpxGIAaRqhfrchSzNU43OQJpKcjayR5AADRRU2RVAD1jCMAgYAuEUszUWy7F8AAAAASUVORK5CYII="
  24.        Private predraggedTab As TabPage
  25.        Private ReferenceTabSize As New Size(505, 505)
  26.  
  27. #End Region
  28.  
  29.  
  30.        Const CLOSE_SIZE As Integer = 16
  31.  
  32.        Public Sub New()
  33.            MyBase.New()
  34.            SetStyles()
  35.            Me.SizeMode = TabSizeMode.Fixed
  36.            Me.Dock = DockStyle.Fill
  37.            Me.Font = New Font("Microsoft Yahei", 9.0F)
  38.            Me.ItemSize = New Size(245, 35)
  39.            Me.DoubleBuffered = True
  40.            Me.AllowDrop = True
  41.            ' Me.Multiline = True
  42.            '  Me.AutoSize = False
  43.        End Sub
  44.  
  45.  
  46.  
  47.        Private Sub SetStyles()
  48.            MyBase.SetStyle(ControlStyles.DoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.OptimizedDoubleBuffer Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw Or ControlStyles.SupportsTransparentBackColor, True)
  49.            MyBase.UpdateStyles()
  50.        End Sub
  51.  
  52.        Public Overrides ReadOnly Property DisplayRectangle As Rectangle
  53.            Get
  54.                Dim rect As Rectangle = MyBase.DisplayRectangle
  55.                Return New Rectangle(rect.Left - 8, rect.Top - 1, rect.Width + 12, rect.Height + 8)
  56.            End Get
  57.        End Property
  58.  
  59.        Protected Overrides Sub OnResize(ByVal e As EventArgs)
  60.            MyBase.OnResize(e)
  61.            Me.Refresh()
  62.            Me.Update()
  63.        End Sub
  64.  
  65.        Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
  66.            MyBase.OnPaint(e)
  67.            Dim rect As Rectangle = Me.ClientRectangle
  68.            e.Graphics.SmoothingMode = SmoothingMode.HighQuality
  69.            e.Graphics.InterpolationMode = InterpolationMode.HighQualityBilinear
  70.  
  71.            Using bufferedGraphics As BufferedGraphics = BufferedGraphicsManager.Current.Allocate(e.Graphics, rect)
  72.                bufferedGraphics.Graphics.FillRectangle(New SolidBrush(Color.FromArgb(230, 232, 236)), rect)
  73.  
  74.                For index As Integer = 0 To Me.TabCount - 1
  75.                    DrawTabPage(bufferedGraphics.Graphics, Me.GetTabRect(index), index)
  76.                Next
  77.                bufferedGraphics.Render(e.Graphics)
  78.            End Using
  79.        End Sub
  80.  
  81.  
  82.  
  83.        Private Sub DrawTabPage(ByVal graphics As Graphics, ByVal rectangle As Rectangle, ByVal index As Integer)
  84.            graphics.SmoothingMode = SmoothingMode.HighQuality
  85.            graphics.InterpolationMode = InterpolationMode.HighQualityBilinear
  86.            graphics.TextRenderingHint = System.Drawing.Text.TextRenderingHint.AntiAlias
  87.            '  Me.TabPages(index).AutoSize = False
  88.            '  rectangle.Size = Me.ItemSize
  89.  
  90.            Dim sf As StringFormat = New StringFormat()
  91.            sf.Trimming = StringTrimming.EllipsisCharacter
  92.            sf.FormatFlags = StringFormatFlags.NoWrap
  93.            Dim fontRect As Rectangle = New Rectangle(rectangle.X + 40, rectangle.Y + 7, rectangle.Width, Me.TabPages(index).Font.Height)
  94.            Dim rectClose As Rectangle = GetCloseRect(rectangle)
  95.            Dim p5 As Point = New Point(rectangle.Left, 7)
  96.            Dim p6 As Point = New Point(rectClose.X - 12, 12)
  97.  
  98.  
  99.  
  100.            Try
  101.  
  102.            If index = Me.TabCount - 1 Then
  103.  
  104.                    Using Add As Bitmap = Helpers.Base64ToImage(AddImageBlack)
  105.                        graphics.DrawImage(Add, p5)
  106.                    End Using
  107.  
  108.                Else
  109.  
  110.                    If index = Me.SelectedIndex Then
  111.  
  112.                        graphics.FillPath(New SolidBrush(Color.FromArgb(255, 255, 255)), CreateTabPath(rectangle))
  113.                        graphics.DrawString(Me.TabPages(index).Text, Me.TabPages(index).Font, New SolidBrush(Color.SlateGray), fontRect, sf)
  114.  
  115.                        If Me.ImageList IsNot Nothing Then
  116.                            Dim imgindex As Integer = Me.TabPages(index).ImageIndex
  117.                            Dim key As String = Me.TabPages(index).ImageKey
  118.                            Dim icon As Image = New Bitmap(32, 32)
  119.  
  120.                            If imgindex > -1 Then
  121.                                icon = Me.ImageList.Images(imgindex)
  122.                            End If
  123.  
  124.                            If Not String.IsNullOrEmpty(key) Then
  125.                                icon = Me.ImageList.Images(key)
  126.                            End If
  127.  
  128.                            graphics.DrawImage(icon, rectangle.Left + 22, rectangle.Top + 9)
  129.                        End If
  130.  
  131.                        Using Close As Bitmap = Helpers.Base64ToImage(CloseImageBlack)
  132.                            graphics.DrawImage(Close, p6)
  133.                        End Using
  134.  
  135.                    Else
  136.  
  137.                        graphics.FillPath(New SolidBrush(Color.FromArgb(230, 232, 236)), CreateTabPath(rectangle))
  138.                        graphics.DrawString(Me.TabPages(index).Text, Me.TabPages(index).Font, New SolidBrush(Color.Gray), fontRect, sf)
  139.  
  140.                        If Me.ImageList IsNot Nothing Then
  141.                            Dim imgindex As Integer = Me.TabPages(index).ImageIndex
  142.                            Dim key As String = Me.TabPages(index).ImageKey
  143.                            Dim icon As Image = New Bitmap(32, 32)
  144.  
  145.                            If imgindex > -1 Then
  146.                                icon = Me.ImageList.Images(imgindex)
  147.                            End If
  148.  
  149.                            If Not String.IsNullOrEmpty(key) Then
  150.                                icon = Me.ImageList.Images(key)
  151.                            End If
  152.  
  153.                            graphics.DrawImage(icon, rectangle.Left + 22, rectangle.Top + 9)
  154.                        End If
  155.  
  156.                        Using Close As Bitmap = Helpers.Base64ToImage(CloseImageBlack)
  157.                            graphics.DrawImage(Close, p6)
  158.                        End Using
  159.  
  160.                    End If
  161.                End If
  162.  
  163.            Catch __unusedNullReferenceException1__ As System.NullReferenceException
  164.            End Try
  165.        End Sub
  166.  
  167.        Protected Overrides Sub OnSelecting(ByVal e As TabControlCancelEventArgs)
  168.            If e.TabPageIndex = Me.TabPages.Count - 1 Then e.Cancel = True
  169.        End Sub
  170.  
  171. #Region " Mause Event "
  172.  
  173.        Protected Overrides Sub OnMouseMove(ByVal e As MouseEventArgs)
  174.            If e.Button = MouseButtons.Left AndAlso predraggedTab IsNot Nothing Then
  175.                Me.DoDragDrop(predraggedTab, DragDropEffects.Move)
  176.            End If
  177.  
  178.            MyBase.OnMouseMove(e)
  179.        End Sub
  180.  
  181.        Protected Overrides Sub OnMouseUp(ByVal e As MouseEventArgs)
  182.            predraggedTab = Nothing
  183.            MyBase.OnMouseUp(e)
  184.        End Sub
  185.  
  186.        Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
  187.            MyBase.OnMouseDown(e)
  188.            Dim lastIndex As Integer = Me.TabCount - 1
  189.            Dim AddImage As Bitmap = Helpers.Base64ToImage(AddImageBlack)
  190.            Dim p5 As Point = New Point(Me.GetTabRect(lastIndex).Left, 5)
  191.            Dim AddImgRec = New Rectangle(p5, AddImage.Size)
  192.  
  193.            If Me.GetTabRect(lastIndex).Contains(e.Location) Then
  194.  
  195.                If AddImgRec.Contains(e.Location) Then
  196.                    Me.TabPages.Insert(lastIndex, "Chrome Tab")
  197.                    Me.SelectedIndex = lastIndex
  198.                End If
  199.            End If
  200.  
  201.            If e.Button = MouseButtons.Left Then
  202.  
  203.                ' Incomplete Bug
  204.                '  If Not Me.TabCount <= 3 Then
  205.                '      Dim Xw As Integer = Me.Width / Me.TabCount
  206.                '     If Xw > 245 Then Xw = 245                                  
  207.                '     Me.ItemSize = New Size(Me.Width / Me.TabCount, Me.ItemSize.Height)
  208.                ' End If
  209.  
  210.                Dim x As Integer = e.X, y As Integer = e.Y
  211.                Dim myTabRect As Rectangle = Me.GetTabRect(Me.SelectedIndex)
  212.                myTabRect.Offset(myTabRect.Width - (CLOSE_SIZE + 23), 5)
  213.                myTabRect.Width = CLOSE_SIZE
  214.                myTabRect.Height = CLOSE_SIZE
  215.                Dim isClose As Boolean = x > myTabRect.X AndAlso x < myTabRect.Right AndAlso y > myTabRect.Y AndAlso y < myTabRect.Bottom
  216.  
  217.                If isClose = True Then
  218.  
  219.                    If Me.TabPages.Count > 2 Then
  220.                        Dim tab As TabPage = Me.SelectedTab
  221.                        Me.TabPages.Remove(tab)
  222.                        Me.SelectedTab.Refresh()
  223.                        Me.SelectedIndex = Me.TabPages.Count - 2
  224.                        tab.Dispose()
  225.                        GC.Collect()
  226.                        GC.WaitForPendingFinalizers()
  227.                    Else
  228.                        System.Environment.[Exit](0)
  229.                        Dispose()
  230.                    End If
  231.                End If
  232.            End If
  233.  
  234.            predraggedTab = getPointedTab()
  235.        End Sub
  236.  
  237. #End Region
  238.  
  239. #Region " Private Methods "
  240.  
  241.        Private Function CreateTabPath(ByVal tabBounds As Rectangle) As GraphicsPath
  242.            Dim path As GraphicsPath = New GraphicsPath()
  243.            Dim spread, eigth, sixth, quarter As Integer
  244.            spread = CInt(Math.Floor(CDec(tabBounds.Height)))
  245.            eigth = CInt(Math.Floor(CDec(tabBounds.Height) * 1 / 11))
  246.            sixth = CInt(Math.Floor(CDec(tabBounds.Height) * 3 / 10))
  247.            quarter = CInt(Math.Floor(CDec(tabBounds.Height) * 2 / 3))
  248.            path.AddCurve(New Point() {New Point(tabBounds.X + 2, tabBounds.Bottom + 2), New Point(tabBounds.X + sixth, tabBounds.Bottom - eigth), New Point(tabBounds.X + spread - quarter, tabBounds.Y + eigth), New Point(tabBounds.X + spread, tabBounds.Y)})
  249.            path.AddLine(tabBounds.X + spread, tabBounds.Y, tabBounds.Right - spread, tabBounds.Y)
  250.            path.AddCurve(New Point() {New Point(tabBounds.Right - spread, tabBounds.Y), New Point(tabBounds.Right - spread + quarter, tabBounds.Y + eigth), New Point(tabBounds.Right - sixth, tabBounds.Bottom - eigth), New Point(tabBounds.Right + 2, tabBounds.Bottom + 2)})
  251.            path.CloseFigure()
  252.            Return path
  253.        End Function
  254.  
  255.        Private Function GetCloseRect(ByVal myTabRect As Rectangle) As Rectangle
  256.            myTabRect.Offset(myTabRect.Width - (CLOSE_SIZE + 10), 5)
  257.            myTabRect.Width = CLOSE_SIZE
  258.            myTabRect.Height = CLOSE_SIZE
  259.            Return myTabRect
  260.        End Function
  261.  
  262. #End Region
  263.  
  264. #Region " Other Events "
  265.  
  266.        Protected Overrides Sub OnDragOver(ByVal drgevent As DragEventArgs)
  267.            Dim draggedTab = CType(drgevent.Data.GetData(GetType(TabPage)), TabPage)
  268.            Dim pointedTab = getPointedTab()
  269.  
  270.            If ReferenceEquals(draggedTab, predraggedTab) AndAlso pointedTab IsNot Nothing Then
  271.                drgevent.Effect = DragDropEffects.Move
  272.  
  273.                If Not ReferenceEquals(pointedTab, draggedTab) Then
  274.                    Me.ReplaceTabPages(draggedTab, pointedTab)
  275.                End If
  276.            End If
  277.  
  278.            MyBase.OnDragOver(drgevent)
  279.        End Sub
  280.  
  281.        Private Function getPointedTab() As TabPage
  282.            For i = 0 To Me.TabPages.Count - 1
  283.                If Me.GetTabRect(i).Contains(Me.PointToClient(Cursor.Position)) Then
  284.                    Return Me.TabPages(i)
  285.                End If
  286.            Next
  287.  
  288.            Return Nothing
  289.        End Function
  290.  
  291.        Private Sub ReplaceTabPages(ByVal Source As TabPage, ByVal Destination As TabPage)
  292.            Try
  293.                Dim SourceIndex = Me.TabPages.IndexOf(Source)
  294.                Dim DestinationIndex = Me.TabPages.IndexOf(Destination)
  295.                Me.TabPages(DestinationIndex) = Source
  296.                Me.TabPages(SourceIndex) = Destination
  297.  
  298.                If Me.SelectedIndex = SourceIndex Then
  299.                    Me.SelectedIndex = DestinationIndex
  300.                ElseIf Me.SelectedIndex = DestinationIndex Then
  301.                    Me.SelectedIndex = SourceIndex
  302.                End If
  303.                Me.Refresh()
  304.            Catch ex As Exception
  305.  
  306.            End Try
  307.        End Sub
  308.  
  309. #End Region
  310.  
  311.    End Class
  312. End Namespace
  313.  


Gracias de antemano.

23  Informática / Software / Monitor ReFix - Solución fácil y Rápida para ajustar la Resolucion de tu pantalla. en: 2 Junio 2021, 02:30 am
Hola, soy yo de nuevo. Les cuento algo rapido....

El fin de semana, me lleve mi PC (DELL Hybrid 140g). a la casa de un amigo. al llegar , el me presto un monitor, teclado y mause, pero resulto que el único monitor que tenia VGA , era de menor resolución al mío, entonces no puede configurar la resolución del Windows .

La resolución Máxima que soporta mi monitor es 1400x1050 y la del monitor que me prestaron era  1280x1024 , entonces el monitor se queda en negro.

Bueno , busque varias soluciones, no al final no logre nada. no la pude usar.



Ahora en casa, con mi monitor, hice un pequeño programa de menos de 1mb para solucionar esto.



Introduccion

En Windows, si cambia de monitor y la configuración de Windows es más alta que la resolución del nuevo monitor, el monitor estará completamente negro y, si no tiene otro monitor, no podrá configurar la resolución de Windows. Podrías resolverlo de alguna forma tediosas.

Con este programa de menos de 1 MB, resuelves este problema.


Cuando se ejecuta por primera vez, el Programa le preguntará si desea agregarlo al inicio de Windows. (Debe dar que SI)

Utilice las teclas de acceso rápido para configurar:

  • Ctrl + ALT + A           (Establece la resolución más baja del sistema)
  • Ctrol + ALT + R         (Establecer la configuración anterior)






24  Informática / Software / Xylateware - Establece un Gif fondo de escritorio en: 20 Mayo 2021, 06:14 am
Hola, les presento una beta de mi nuevo programa.

Para empezar, quiero su opinion, y otra cosa :

- El Gif que establecieron, se ve lento o con lag?

       Bien estoy renderizando totalmente con GDI, se podrán inmaginar...
       Recomiendo al menos 2GB de Ram, como minimo.

Bien, Pienso usar WebGL a futuro, a lo mejor es mas rápido. obiamente usando chromium. (Esto agregara un peso considerable al programa, actual mente pesa 1mb)





Download : https://toolslib.net/downloads/viewdownload/480-xylateware/

Bueno , esto es una beta, por que pienso cambiar muchas cosas, y quiero su opinion, y un agradecimiento a @Nebire por su ayuda.






25  Programación / .NET (C#, VB.NET, ASP) / Animar Gif como fondo de escritorio, va muy lento. en: 18 Mayo 2021, 15:23 pm
Hola, tengo una duda, haber si alguien podria ayudarme.

Estoy intentando poner un gif de fondo de pantalla , para eso... se me ocurre obtener cada frame del gif y cada frame , lo pongo de fondo de escritorio. pero el problema es que va lageado.

Esto es lo que estoy haciando :


Para manipular el Gif , uso la clase de elektro, yo hice la mia, pero consume mucha memoria. asi que F.

Clase : https://foro.elhacker.net/net/libreria_de_snippets_para_vbnet_compartan_aqui_sus_snippets-t378770.0.html;msg2116514#msg2116514


Y lo que estoy haciendo :

Código
  1.  
  2. '   StartEngine("C:\Users\S4Lsalsoft\Pictures\06bdf8ad69ff62062ae7dceb250d8866.gif")
  3.  
  4.    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
  5.    Private Shared Function SystemParametersInfo(ByVal uAction As Integer, ByVal uParam As Integer, ByVal lpvParam As String, ByVal fuWinIni As Integer) As Integer
  6.    End Function
  7.  
  8.    Const SPI_SETDESKWALLPAPER As Integer = 20
  9.    Const SPIF_UPDATEINIFILE As Integer = &H1
  10.    Const SPIF_SENDWININICHANGE As Integer = &H2
  11.  
  12.  
  13.  
  14. Public Sub StartEngine(ByVal GifPath As String)
  15.         Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey("Control Panel\Desktop", True)
  16.        key.SetValue("WallpaperStyle", 1.ToString())
  17.        key.SetValue("TileWallpaper", 0.ToString())
  18.        key.Dispose()
  19.  
  20.        Dim Asynctask As New Task(New Action(Sub()
  21.  
  22.                                                 Dim gif As New GIF(GifPath)
  23.  
  24.                                                 Do Until gif.EndOfFrames ' Iterate frames until the end of frame count.
  25.                                                     Dim CurrentFrame As Image = gif.NextFrame()
  26.  
  27.                                                     CurrentFrame.Save("BackgroundFrames\displayImage" & gif.ActiveFrameIndex & ".bmp")
  28.                                                     CurrentFrame.Dispose()
  29.  
  30.                                                     Dim tempPath As String = Path.Combine(Application.StartupPath, "BackgroundFrames\displayImage" & gif.ActiveFrameIndex & ".bmp")
  31.                                                     SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, tempPath, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
  32.  
  33.                                                     '   Thread.Sleep(60) ' Simulate a FPS thingy.
  34.                                                     Application.DoEvents()
  35.  
  36.                                                     If (gif.EndOfFrames) Then
  37.                                                         ' Set active frame to 0 for infinite loop:
  38.                                                         gif.ActiveFrameIndex = 0
  39.                                                     End If
  40.  
  41.                                                 Loop
  42.  
  43.                                             End Sub), TaskCreationOptions.PreferFairness)
  44.        Asynctask.Start()
  45.  
  46.    End Sub
  47.  
  48.  


Funciona pero va muy lento , alguna solucion? , gracias de antemano .


26  Programación / .NET (C#, VB.NET, ASP) / Se puede dar Privilegios de Administrador a un segmento de código en especifico? en: 16 Mayo 2021, 20:15 pm
Hola, Como dice el titulo , quiero dar permisos de administrador a un segmento de código en especifico.

No se si esto es posible, tal vez se me ocurre de alguna forma, identificando la instancia de mi app a través del Handle. pero la verdad no se me ocurre como.

Investigando, no se si funcionaria CoCreateInstanceAsAdmin .

O alternativamente dar permisos de administrador, sin tener que cerrar la aplicacion. osea en tiempo de ejecución . no se si me explique.

Es posible ? gracias de antemano .
27  Programación / Desarrollo Web / [Ayuda] Como Incrustar (Botones/label/ otro...) en alguna pagina web, con javascript. en: 12 Mayo 2021, 19:48 pm
Hola, como dice el titulo, estoy necesitando inscrustar botones, en youtube. justo arriba del titulo.

pero por alguna razon el titulo desaparece , y aparece mi boton, osea esa region , desaparece .

estoy haciendo esto :

Código
  1. var html = `
  2.  
  3. <button name="favorito" type="button">
  4. <svg aria-hidden="true" viewBox="0 0 10 10">
  5. <path d="m7.4 8.8-2.4-1.3-2.4 1.3.46-2.7-2-1.9 2.7-.39 1.2-2.5 1.2 2.5 2.7.39-1.9 1.9z"/>
  6.  
  7. </svg>
  8.  
  9. Agregar a favoritos
  10.  
  11. </button>
  12.  
  13. `;
  14.  
  15. var OldCode = document.getElementById("info").innerHTML +'\n';
  16.  
  17. document.getElementById("info").innerHTML=OldCode + html ;


Y este es el resultado :






Como pueden ver el titulo e información del video , desapareció, y no se por que . espero puedan ayudarme, gracias de antemano.

28  Informática / Software / DragonTube - El mejor cliente de Youtube! en: 3 Mayo 2021, 23:23 pm
Hola a todos !

Quiero presentares mi nueva aplicación, un cliente de Youtube . se preguntaran : "Por que necesito un cliente de Youtube? puedo abrir directamente Youtube desde el navegador"

Bueno mi cliente de Youtube es muy bueno, con herramientas ÚNICAS. por las cuales hizo que me tumbaran mi aplicación a la semana de toolslib (donde subo mis proyectos.)




DragonTube - Best Youtube Client


Bueno como ya saben , mi Cliente de yotube tiene varias Funcionalidades especiales. bien para empezar, yo un dia Programando , queria ver un video de youtube, y mantaner el video en una esquina de la pantalla mientras programaba, pero no podia, entonces se me ocurrio crear mi propio cliente de youtube.

Mi cliente de Youtube te permite en general , ver tu video mientras haces alguna otra tarea. y no esta carente de funciones especiales.


                           Caracteristicas :

  •  -Ads Block (creo que fue la razón por la que me tumbaron el proyecto)
  •  -Youtube Fast Iframe. (Optimiza el video en reproduccion, injectando un codigo javascript)
  •   -Downloads (MP3 & Video)
  •   -Youtube Player Mini. (Mi Propio reproductor de youtube es GENIAL)
  •  -Youtube Mode (Desktop and Mobile)
  •  -All Servers....



Bien, lo Pueden descargar desde aqui : DragonTube Official Site

Porfavor ,pueden darle like a la pagina de face y compartirla si gustan : DragonTube On Facebook

ahora algunas Imagenes :






algunas menciones , Gracias al compañero @BloodSharp , que me hizo los iconos, es un muy buen diseñador grafico y programador.



Si alguien tiene experiencia en terminos legales al crear aplicaciones de este tipo, me podrian orientar por que mi aplicacion fue dada de baja? y no me la aceptan, osea mi app no es diferente de cualquer navegador como Opera / google chrome / morzilla, solo que mi app trabaja unicamente con youtube y no come toda la memoria ram, como lo hacen los navegadores.

le quite el adsblock y la opcion de descargar los videos, pero ya no me la aceptan ;.;


sera que mi app inflige algún termino de youtube ?

si alguien tiene conocimiento , me avisa porfa, gracias de antemano.


29  Programación / .NET (C#, VB.NET, ASP) / [Aporte] [Source Code] Instalador - (Sin Plantillas ni Dependencias) en: 12 Abril 2021, 23:03 pm
InstallerSetup

Es un instalador, no utiliza plantillas ni dependencias.

Cree su propio instalador para su aplicación.



Características

  • Verifique las versiones, determine la actualización de la versión anterior.
  • Compresión de los datos a zip.
  • Creación de Accesos Directos.
  • Descompresión rápida y eficaz.
  • Interfaz moderna y sencilla.
  • Contiene todas sus funciones completas. (Instalación, desinstalación y actualización)
  • Acuerdo de licencia.
  • Cuadro de diálogo del navegador de carpetas moderno.

          Link : InstallerSetup


                  Preview:







30  Programación / Desarrollo Web / Que se puede hacer con COOKIES ?? en: 9 Abril 2021, 01:27 am
Hola, tengo una duda. perdón si esta en la sección equivocada

estoy probando este stealer : https://github.com/LimerBoy/Adamantium-Thief .

veo que tambien "obtiene Cookies" . pero para que ? .

osea no se si me explico. que esa info , que se puede hacer?

por ejemplo el ladrón de Cookies obtuvo esta info :

Código:
value:       404973723b75474ba0dc842c9c0e8461
host key :  .netflix.com
name:       thx_guid
Path:
Expires:    04/05/2024 11:08:47 a.m.
IsSecure:  FALSE

Mi pregunta es , que se puede hacer con esto ?

gracias de antemano.
Páginas: 1 2 [3] 4 5 6 7 8 9 10 11 12 13 14 15 16 17
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines