tháng 9 14, 2017

TẠO HỘP THÔNG BÁO TRƯỢT DỌC CHO BLOGSPOT

Xin chào các bạn, Hôm nay mình sẽ hưỡng dẫn các bạn tạo hộp thông báo cố định trượt dọc theo website.


Cách làm rất là đơn giản :)))

Bước 1: Đăng nhập vào Blogger > Mẫu > Chỉnh sửa HTML > Đặt đoạn CSS dưới đây trên thẻ ]]></b:skin> hoặc </style>

/* BLANTER Notif Box Created by Idblanter.com - REUP BY WEE2K*/#notif-wrapper{position:fixed;width:100%;z-index:999}
.blanternotif{background:#d32f2f;color:#FFF;width:50px;height:50px;border-radius:100%;position:fixed;z-index:999;bottom:45%;left:20px;-webkit-animation-duration:5s;-webkit-animation-iteration-count:infinite;-webkit-animation-name:notifklik;animation-duration:5s;animation-iteration-count:infinite;animation-name:notifklik;transition:all 5s ease-in-out}
.blanternotif i{color:#FFF;font-size:25px;margin:11px 10px 10px 13px;-webkit-animation-duration:2s;-webkit-animation-iteration-count:infinite;-webkit-animation-name:notificon;animation-duration:2s;animation-iteration-count:infinite;animation-name:notificon;transition:all 2s ease-in-out}@keyframes notifklik{0%{transform:scale(1)}50%{transform:scale(1.2)}100%{transform:scale(1)}}@keyframes notificon{0%{transform:rotate(-30deg)}50%{transform:rotate(30deg)}100%{transform:rotate(-30deg)}}@keyframes notifbox{0%{transform:rotateZ(-45deg);visibility:visible;opacity:0;bottom:68%;left:78px}100%{transform:none;visibility:visible;opacity:1;bottom:41%;left:110px}}
.notifbox{padding:20px;border-radius:3px;position:fixed;resize:none;line-height:1.5;z-index:999;left:110px;bottom:41%;max-width:30rem;background:#d32f2f;border:1px solid #d32f2f;color:#fff;font-size:13px;box-shadow:0 1px 1px 0 rgba(0,0,0,0.07),0 1px 1px 0 rgba(0,0,0,0.06);display:inline-block;opacity:0;visibility:hidden;transition:.4s ease-in-out}
.notifbox:before{content:"";width:0;height:0;position:absolute;top:-.7px;left:-15px;border-width:8px;border-style:solid;border-color:#d32f2f #d32f2f transparent transparent;display:block}.blanterxE5CD{display:none!important}#notif-wrapper.aktif .blanterxE5CD{display:block!important;animation-name:none!important}#notif-wrapper.aktif .blanterxE7F4{display:none!important}
.notifbox.aktif{-webkit-animation-duration:1s;-webkit-animation-iteration-count:1;-webkit-animation-name:notifbox;animation-duration:1s;animation-iteration-count:1;animation-name:notifbox;transition:all 1s ease-in-out;opacity:1;visibility:visible}@media screen and (max-width:680px){.notifbox:before{display:none}
.notifbox{left:0%!important;bottom:0}@keyframes notifbox{0%{left:0!important}100%{left:0!important}}}

Bước 2: Dán đoạn mã này vào sau thẻ <body> hoặc trước thẻ </body>

<div id='notif-wrapper'><a class='blanternotif' href='javascript:;' title='Notifications'><i class='material-icons blanterxE7F4'>&#59380;</i><i class='material-icons blanterxE5CD'>&#58829;</i></a><div class='notifbox'>BỜM KHÙNG BLOGGER - BLOG CHIA SẺ THỦ THUẬT CÔNG NGHỆ MIỄN PHÍ, THỦ THUẬT HAY, PHẦN MỀM TIỆN ÍCH
</div></div>

Bước 3: Đặt JavaScript sau ngay trên mã </body>

<script type='text/javascript'> $(document).ready(function(){$(".blanternotif").click(function(){$(".notifbox,#notif-wrapper").toggleClass("aktif");});}); </script> 

Nếu như blog bạn chưa có CSS ICON thì hãy đặt đoạn mã này vào trên thẻ </head>

<link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet"/>

Chúc các bạn thành công và tận hưỡng thành quả của mình khi làm ứng dụng này :)

DEMO bên tay trang của các bạn nhé ^^




tháng 9 13, 2017

Tạo Button Download với hiệu ứng thời gian đếm ngược cho blogspot

Bạn muốn trau truốt blog của mình, bạn muốn blog của mình thêm cầu kì hay đơn giản bạn muốn khách ghé thăm blog của bạn được lâu hơn...

Bạn muốn tạo ấn tượng với Button Download của mình, Hôm nay mình sẽ hưỡng dẫn các bạn cách để tạo ra Button Download hoặc là Demo với hiệu ứng thời gian đếm ngược.


Cách làm:

Bước 1: Dán đoạn Javascript này vào trên thẻ </head> hoặc </body>

<script type="text/javascript">
    //<![CDATA[
    function generate() {
        var linkDL = document.getElementById("download"),
            btn = document.getElementById("btn"),
            direklink = document.getElementById("download").href,
            waktu = 10;
        var teks_waktu = document.createElement("span");
        linkDL.parentNode.replaceChild(teks_waktu, linkDL);
        var id;
        id = setInterval(function () {
            waktu--;
            if (waktu < 0) {
                teks_waktu.parentNode.replaceChild(linkDL, teks_waktu);
                clearInterval(id);
                window.location.replace(direklink);
                linkDL.style.display = "inline";
            } else {
                teks_waktu.innerHTML = "Sẽ chuyển hướng sau" + waktu.toString() + "";
                btn.style.display = "none";
            }
        }, 1000);
    }
    //]]>
    </script> 

Cần thay đổi: waktu = 10; Thời gian đếm ngược

CSS

#link-download {display: none}
    #btn {display: inline-flex;
        border-radius: 4px;
        cursor: pointer;
        box-shadow: 0 2px 5px 0 rgba(0,0,0,0.16), 0 2px 10px 0 rgba(0,0,0,0.12);
        font-size: 13px;
        font-weight: 700;
        text-transform: uppercase;
        color: #FFF!important;
        background-color: #22a1c4!important;
        margin: 5px;
        padding: 8px 20px;
        text-shadow: none;
        transition: all 1s;
    }

Cách sử dụng:

Vào phần bài viết chuyển sang chế độ HTML và Copy đoạn code dưới đây vào nơi muốn hiển thị

<button onclick="generate()" id="btn">Download</button> <a id="download" href="link-download" style="display:none">Download</a>

DEMO



Chúc các bạn thành công.




tháng 9 12, 2017

[VB.NET] Code Change ICO Ỗ Đĩa PC

Hôm nay mình xin hướng dẫn các bạn một ứng dụng mới của mình đó là "CHANGE ICO Ổ ĐĨA" một cách đơn giản mà không cần hiểu rỏ về máy tính. :D


Nhìn sơ qua thì các bạn cũng biết thêm gì rồi chứ :D, mình cũng không nói rỏ thêm nữa :D hoặc các bạn cũng có thể Download Full bộ SOURCE bên dưới về và tìm hiểu rỏ nhé :D

FULL CODE

Public Class Form1
    Dim image As System.Drawing.Image
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBox1.SelectedItem = "C"
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Then
            MsgBox("Please select an icon.", MsgBoxStyle.Exclamation)
        End If
        If ComboBox1.SelectedItem = "" Then
            MsgBox("Please select a drive letter.", MsgBoxStyle.Exclamation)
        Else
            My.Computer.Registry.CurrentUser.CreateSubKey("Software\\Classes\\Applications\\Explorer.exe\\Drives" & "\\" & ComboBox1.SelectedItem & "\\" & "DefaultIcon")
            My.Computer.Registry.SetValue("HKEY_CURRENT_USER\Software\Classes\Applications\Explorer.exe\Drives\" & ComboBox1.SelectedItem & "\" & "DefaultIcon", "", TextBox1.Text, Microsoft.Win32.RegistryValueKind.String)
            MsgBox("Icon changed successfully!", MsgBoxStyle.Information)
        End If
    End Sub

    Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
        OpenFileDialog1.ShowDialog()
        TextBox1.Text = OpenFileDialog1.FileName
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        If ComboBox1.SelectedItem = "" Then
            MsgBox("Please select the drive letter of which you want to reset the icon.", MsgBoxStyle.Exclamation)
        Else
            Try
                My.Computer.Registry.CurrentUser.DeleteSubKey("Software\Classes\Applications\Explorer.exe\Drives\" & ComboBox1.SelectedItem & "\" & "DefaultIcon")
                My.Computer.Registry.CurrentUser.DeleteSubKey("Software\Classes\Applications\Explorer.exe\Drives\" & ComboBox1.SelectedItem)
                MsgBox("Success!", MsgBoxStyle.OkOnly)
            Catch ex As Exception
                MsgBox("That drives icon was never changed.", MsgBoxStyle.Exclamation)
            End Try
        End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
        PictureBox2.Image = System.Drawing.Image.FromFile(OpenFileDialog1.FileName)
    End Sub
End Class

Hướng dẫn sơ qua: Bạn muốn thay đỗi hình ảnh ổ đĩa thì các bạn có thể tìm kiếm 1 file ảnh dạng "HINHANH.ICO" đó là đuôi "*.ICO" và các bạn thêm vào ứng dụng và chọn ổ đĩa muốn thay đỗi và ấn vào button thay đỗi ico là các bạn đã thay đỗi thành công rồi đó :D chúc các bạn thành công :D

Video DEMO cho các bạn :p



DOWNLOAD FILE EXE DOWNLOAD SOURCE

Chúc các bạn thành công. Và các bạn cũng lưu ý dùm mình là nếu copy bài viết này thì các bạn làm phiền dẫn nguồn về trang bài viết này nhé, để tôn trọng tác giả :D



tháng 9 11, 2017

[VB.NET] My Computer Info (Thông tin máy tính)

Hôm nay mình xin giới thiệu cho các bạn một ứng dụng mới của mình. Ứng dụng này giúp cho các bạn chưa hiểu rỏ tìm hiểu máy tính của mình như thế nào và giúp in ra thông tin ngay trên ứng dụng cho các bạn thấy :D.


Qua hình ảnh bên trên các bạn cũng đã nhìn thấy những gì mình cần rồi chứ :D
Máy mình đang ngồi ở tiệm net là " MÁY 2"
User Name : là " MÁY 2 "
Os Name : Window 7 Enterprise
RAMCPU đang ở rất thập vì mình không mở nhiều ứng dụng nhé :D

VIDEO DEMO của ứng dụng này :



FULL Đoạn code của ứng dụng cho các bạn coder tìm hiểu.

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
   'Đoạn code nhận biết RAM và CPU tốc độ như thế nào
 ProgressBar1.Value = PerformanceCounter1.NextValue
            ProgressBar2.Value = PerformanceCounter2.NextValue
            Label1.Text = ProgressBar1.Value & " %"
            Label2.Text = ProgressBar2.Value & " %"
'Đoạn code giúp nhận biết thông số máy tính 
            Label3.Text = My.Computer.Name
            Label4.Text = My.User.Name
            Label5.Text = My.Computer.Info.OSFullName
            Label6.Text = My.Computer.Clock.LocalTime
        Catch ex As Exception
            MessageBox.Show("Không Thể Hiện Thị Đầy Đủ Thông Tin Được", "Thông Báo")
        End Try
    End Sub

Các bạn có thế DOWNLOAD đoạn code tại đây.
DOWNLOAD DOWNLOAD SOURCE 2010

PassWord Giải Nén Source: bomkhung.info

Các bạn cũng lưu ý khi các bạn copy bài viết này, thì làm phiền các bạn nhớ để nguồn bài viết về Bờm Khùng Blogger giúp mình để tôn trọng công sức của tác giả bài viết này! Xin cảm ơn


tháng 9 07, 2017

Ứng Dụng NoTePad Lưu Trữ Thông Tin Online (Offline)

Hôm nay mình xin ra mắt một ứng dụng cũng đã lâu rồi, trước đây mình cũng đã ra mắt ứng dụng này nhưng chỉ là bản hổ trở "OFFLINE" chứ không phải như bản này có hổ trợ "ONLINE" để lưu trử một cách thoải mái mà không sợ bị mất dữ liệu nữa rồi ;)


Một số thông tin cơ bản của ứng dụng này nhé mọi người
1, Ứng dụng hoàn toàn MIỄN PHÍ không có phí gì nhé mọi người !
2, Tuyết đối không có đính kèm VIRUS hay BOTNET gì nhé mọi người. Nếu mọi người tải ở trang khác ngoài trang BOMKHUNG.INFO này thì mọi người nên cẩn thận nhé.
3, Ở chế độ lưu ONLINE thì các bạn sẽ được lưu trữ giữ liệu lên PASTEBIN.COM nhé. Một trang lưu trữ thông tin khá phổ biến của các CODER or HACKER.
4, Khi có chế độ UPDATE thì ứng dụng sẽ thông báo cho người sữ dụng nhé :)
5, Khi Save lại thì nó sẽ nằm trong ổ C:\ nhé. Vì mình chưa có thời gian rảnh cho lắm nên chưa phát triển nó thêm, các bạn thông càm cho mình nhé.

Anh em nào cần thì cũng như các ứng dụng khác để lại email mình send cho test thứ nhé ;). Chứ mình không tiện để button Download. Vì sợ 1 số anh em lạm dụng nó để chơi xấu mọi người.

Cập nhật video DEMO cho mọi người



Bạn nào copy bài viết này thì làm ơn để lại nguồn từ blog này nhé. Để tôn trọng người viết.

tháng 9 06, 2017

Auto View Link Phiên Bản Mới...

Hôm nay mình xin ra mắt cho anh em 1 ứng dụng mới của mình! Ứng dụng này dùng để chủ yếu câu view (Lượt truy cập) cho mọi người. Hiện tại ứng dụng này mình viết cũng lâu rồi nhưng chưa phát hành (dùng cho cá nhân) là chú yếu :D. Nên hôm nay mình đem ra share cho mọi người câu view cho blog. Và có thể làm tốt để đăng ký được em Google Adsense


Nói là phiên bản mới nhưng đây là ứng dụng lâu năm rồi nhé mọi người! :D
Ai cần thì để lại email mình send cho nhé. Và các bạn cũng lưu ý luôn là ở phiên bản này không có hổ trợ hoặc lỗi gì nhé, vì ứng dụng này mình không còn "SOURCE" nữa rồi nên khó mà hổ trợ cho các bạn nhé !

Khi các bạn copy bài đăng từ blog này. Thì làm phiền các bạn để lại nguồn nhé, để tôn trọng người viết nhé :D

tháng 8 24, 2017

VB.NET - Code Posted PasteBin !

Chào các bạn hôm nay mình xin giới thiệu cho các bạn biết một ứng dụng mới của mình :D, đó là posted PASTEBIN một trang cất giử dữ liệu của các HACKER và các CODER khá tốt hiện nay :P


Nhìn sơ hình ảnh trên các bạn cũng đã biết làm gì rồi chứ (đối với các coder) :D đó là thêm "2 TEXTBOX và 1 BUTTON " và điều còn lại là trang trí cho đẹp ứng dụng của các bạn thôi :D.

Còn bên dưới là FULL CODE cho mọi người nhé :D

Imports System.Collections.Specialized
Imports System.Net
Imports System.Text
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim webclient As New Net.WebClient
        ToolStripStatusLabel4.Text = webclient.DownloadString("http://bomkhung.info/version-rss.txt")
        TextBox3.Text = webclient.DownloadString("http://bomkhung.info/ban-quyen.txt")
        Timer1.Enabled = webclient.DownloadString("http://bomkhung.info/time.txt")
        ToolStripStatusLabel2.Text = TimeOfDay.TimeOfDay.ToString
        Label1.Text = " Cảm Ơn Các Bạn Đã Sữ Dụng Ứng Dụng Của Bờm Khùng Blogger"
        Process.Start("http://www.bomkhung.info")
    End Sub
    Public Class Paste
        Dim _devkey As String
        Dim _username As String
        Dim _userpassword As String
        Dim _PasteCode As String
        Dim _PasteName As String
        Dim _Syntax As String
        Dim _ExpireDate As String
        Dim _PasteExposure As Integer
        Dim ukey As String
        Sub New(ByVal Key As String, ByVal username As String, ByVal password As String, ByVal PasteCode As String, _
                ByVal PasteName As String, ByVal PasteExposure As Integer, ByVal SyntaxHighlighting As String, _
                ByVal ExpireDate As String)
            _devkey = Key
            _username = username
            _userpassword = password
            _PasteCode = PasteCode
            _PasteName = PasteName
            _PasteExposure = PasteExposure
            _Syntax = SyntaxHighlighting
            _ExpireDate = ExpireDate
        End Sub

        Public Function Start() As String
            Dim chiavi As New NameValueCollection()
            chiavi.Add("api_dev_key", _devkey)
            chiavi.Add("api_user_name", _username)
            chiavi.Add("api_user_password", _userpassword)

            Dim wClient As New WebClient()
            Dim risposta As String = Encoding.UTF8.GetString(wClient.UploadValues("http://pastebin.com/api/api_login.php", chiavi))

            If risposta.ToLower.Contains("bad api request") Then
                MessageBox.Show("Login failed!", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Return "ERROR"
            Else
                ukey = risposta
                Try
                    Dim output As String = MakePaste() 'Restituisce una stringa
                    Process.Start(output)
                    Return "SUCCESS"
                Catch Ex As Exception
                    MessageBox.Show("Exception: " & Ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
                    Return "ERROR"
                End Try
            End If
        End Function

        Public Function MakePaste() As String
            If ukey = "" Then Return "ERROR"

            Dim chiavi As New NameValueCollection()
            chiavi.Add("api_dev_key", _devkey)
            chiavi.Add("api_user_key", ukey)
            chiavi.Add("api_option", "paste")
            chiavi.Add("api_paste_code", _PasteCode)
            chiavi.Add("api_paste_name", _PasteName)
            chiavi.Add("api_paste_format", _Syntax)
            chiavi.Add("api_paste_private", _PasteExposure)
            chiavi.Add("api_paste_expire_date", "N")

            Dim wc As New WebClient()
            Dim Risultato As String = ""
            Dim Risposta As String = Encoding.UTF8.GetString(wc.UploadValues( _
                                                             "http://pastebin.com/api/api_post.php", chiavi))

            If Risposta.ToLower.Contains("Sai Thông Tin API") Then
                ' Key non valida
            Else
                Risultato = Risposta
            End If
            Return Risultato
        End Function


    End Class

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Maker As New Paste("API Key", "User", "Password", TextBox1.Text, _
                                      TextBox2.Text, 1, "Text", "N")
        ' Parameter ExpireDate> N= Never // 1M= 1 Month // 10M= 10 Minutes e così via, etc...
        ' Parameter PasteExposure> 0= Public // 1= Unlisted // 2= Private
        ToolStripStatusLabel1.Text = "Login BOMKHUNG92 Successfull |"
        GroupBox1.Text = TextBox2.Text
        Maker.Start()
    End Sub

    Private Sub mainForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
        If Me.WindowState = FormWindowState.Minimized Then
            NotifyIcon1.Visible = True
            Me.Visible = False
        End If
    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles NotifyIcon1.MouseDoubleClick
        If e.Button = Windows.Forms.MouseButtons.Left Then
            Me.Visible = True
            NotifyIcon1.BalloonTipText = "Bạn Đã Ẩn Ứng Dụng Xuống Dưới!"
            If Me.WindowState = FormWindowState.Minimized Then
                Me.WindowState = FormWindowState.Normal
            End If
            NotifyIcon1.Visible = False
        End If
    End Sub


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' chử trên textbox chạy
        Dim c1, c2 As String
        c1 = TextBox3.Text.Substring(TextBox3.Text.Length - 1, 1)
        c2 = TextBox3.Text.Substring(0, TextBox3.Text.Length - 1)
        TextBox3.Text = c1 & c2
    End Sub
End Class

Nhược điểm của đoạn code trên là mình chưa tìm ra cách tạo ra list nhưng code trong đó như "PHP,HTML"C#..." nên các bạn thông cảm cho mình nhé !

DOWNLOAD