Thứ Sáu, 24 tháng 11, 2017

Đường Tôi Đi


Lâu.
Lâu lắm rồi mới đặt tay lên viết blog.
Cũng nhớ, cũng muốn viết.
Nhưng mà tâm trạng rối bời, không muốn viết.
Đang đắn đo.
Đang phân vân.
Liệu con đường nó đi có đúng đắn?
Liệu con đường nó chọn có sai lầm?
Loạn.
Ngày hôm qua, nó khác với ngày hôm nay.
Ngày hôm qua, nó không phải đắn đo suy nghĩ như lúc này.
Ước gì thời gian quay ngược trở lại.
Ước gì.
Hiện tại, nó đang có trách nhiệm với những gì mình đã chọn, những việc nó đã làm.
Không thể trốn tránh mãi được.
Đôi khi nó tự hỏi, liệu nếu nó từ bỏ tất cả, thì sẽ ra sao?
Mọi việc sẽ như thế nào?
Đường đi mờ mịt quá.
Tối tăm quá.
Mò mẫm đừng bước, từng bước.
Vấp ngã, rồi đứng dậy.
Chân đau nhói mà vẫn cứ phải đi.
Không đứng lại được.
Chẳng thể lùi được.

Con đường mà nó đang đi sao lắm chông gai quá, cứ thế nhắm mắt mà đi mà không biết, ở phía cuối con đường. Cái gì đang chờ nó, điều gì sẽ đến với nó.
Cứ thế mà đi vậy thôi.
Nhiều người nhìn vào chỉ thấy nó đi trên một con đường thẳng, có mấy ai thấy được con đường của nó gập ghềnh và sóng gió đâu. Không bằng phẳng chút nào đâu, người ạ.
Nhưng!
Quen rồi, từ ngày đầu chập chững bước đi, đường đời nó đã không bằng phẳng.
Nói cho công bằng thì nó vẫn may mắn hơn nhiều người.
Nhưng nói cho nó thì…
Tệ.
Mưa!
Thích thật.
Mỗi lần thấy trời mưa là tật xấu lại trỗi dậy.
Lại muốn dầm mưa, dù biết sau đó sẽ bị sốt, sẽ lại bệnh.
Ừ thì bệnh, nhưng thích thế.
Ngày hôm qua, ngồi nói chuyện với ngoại. Lâu rồi mới lại có dịp làm nũng với ngoại, bất chợt thấy ngoại già đi nhanh quá.
SỢ!
Dù biết đó là quy luật của cuộc sống.
Đến rồi cũng sẽ phải đi, nhưng mà nó chưa chuẩn bị tinh thần cho việc đó.
Nó không biết, nếu điều đó xảy ra, nó sẽ như thế nào.
Nó sẽ ra sao.
Rồi nó lại ước, ước thì thời gian quay ngược trở lại.
Để nó lại là thằng bé của ngoại ngày nào.
Ngoại ơi, con đường của con còn dài lắm.
Và con rất cần sự dạy dỗ của ngoại, con biết nhiều lúc con sai. Con biết mình sai, nhưng con không thể nói ra 2 chữ “xin lỗi” được.
Ở với con và mọi người thật lâu ngoại nhé.

Thứ Năm, 23 tháng 11, 2017

TẠO TỔ HỢP NÚT BACK TO TOP, HOME, BACK TO BOTTOM CHO BLOGSPOT


Chào các bạn, Mới gần đây, mình có sửa lại blog một tí. Mình thấy đã có Back To Top (lên đầu trang) rồi thì nên có thêm Back To Bottom (xuống cuối trang) để mọi người có thể dễ dàng di chuyển qua lại cho nhanh chỉ bằng 1 cú click chuột và không phải lăn chuột kéo thanh cuộn nữa.
Khởi nguồn của 2 nút có sẵn Back To Top và Home (Trang chủ) thì mình lấy bên BSW và chỉnh sửa lại CSS cũng như thêm nút Back To Bottom hiệu ứng trượt vào thôi. Ngay sau đây mình cùng bắt tay vào làm nhé.

CÁCH THỰC HIỆN:

Bước 1: Truy cập Quản trị blogger - Chủ đề - Chỉnh sửa HTML.
Bước 2: Thêm thư viện FontAwesome nếu blog bạn chưa có trước thẻ </head>
<link href='//maxcdn.bootstrapcdn.com/font-awesome/4.7.0/css/font-awesome.min.css' rel='stylesheet' type='text/css'/>

Bước 3: Dán toàn bộ đoạn CSS dưới đây trước thẻ ]]></b:skin>
/* Back To xxx */
.back-top{z-index:9999;width:35px;height:35px;position:fixed;bottom:70px;right:10px;cursor:pointer;overflow:hidden;font-size:16px;background-color:#444343;color:#fff;text-align:center;line-height:33px;border-radius:5px;transition:all .3s ease;box-shadow: 0 2px 4px rgba(34,36,38,0.35);}
.back-bottom{z-index:9999;width:35px;height:35px;position:fixed;bottom:30px;right:10px;cursor:pointer;overflow:hidden;font-size:16px;background-color:#444343;color:#fff;text-align:center;line-height:33px;border-radius:5px;transition:all .3s ease;box-shadow: 0 2px 4px rgba(34,36,38,0.35);}
.back-home{z-index:9999;width:35px;height:35px;position:fixed;bottom:70px;right:10px;cursor:pointer;overflow:hidden;font-size:16px;background-color:#444343;color:#fff;text-align:center;line-height:33px;border-radius:5px;transition:all .3s ease;box-shadow: 0 2px 4px rgba(34,36,38,0.35);}
.back-top:hover,.back-home:hover,.back-bottom:hover{background-color:#DF7401}

Bước 4: Tiếp đến, chèn đoạn code hiển thị 3 nút đó vào vị trí bạn thích (giữa cặp thẻ body) và nếu cảm thấy khó quá bạn có thể chèn trước </body>
<div class='back-top'><i class='fa fa-chevron-up'/></div>
<div class='back-home'><a href='https://www.hungcoder.com/' style='padding:8px 10px'><i class='fa fa-home' style='color:#fff'/></a></div>
<a class='back-bottom' href='#credit' style='color:#fff'><i class='fa fa-chevron-down'/></a>
<script type='text/javascript'>
$(&#39;.back-bottom&#39;).click(function(){$(&#39;html,body&#39;).animate({scrollTop:$(&quot;#credit&quot;).offset().top},1000);});
$(window).scroll(function() {
if ($(this).scrollTop() &gt; 100) {
$(&quot;.back-top&quot;).css({
bottom: &quot;110px&quot;
});
} else {
$(&quot;.back-top&quot;).css({
bottom: &quot;70px&quot;
});
}
});
$(&quot;.back-top&quot;).click(function() {
$(&quot;html, body&quot;).animate({
scrollTop: 0
}, 1000);
return false;
});
</script>

Thay #credit bằng id hoặc class của phần tử bất kì nằm cuối blog nhé (view source để tìm, nếu khó khăn hãy bình luận bên dưới nha)
Bước 5: Lưu Template lại.
KẾT LUẬN:

Vậy là mình vừa hướng dẫn xong cho các bạn cách để thêm tổ hợp 3 nút Back To Top - Bottom, Home cho blog rồi đấy. Hãy tùy biến CSS để làm các nút trong đẹp hơn trong mắt bạn nhé.
Chúc các bạn thành công!

Thứ Tư, 22 tháng 11, 2017

Khung Thông Báo Hiện Lên Ở Phía Dưới Cho Blogspot


Hiện tại Hùng Coder chia sẽ một mã nguồn đơn giản cho mọi người ;), nhưng rất hữu ích nhé mọi người. Nó sẽ thông báo ở phía bên dưới cho mọi người dễ nhìn thấy :D và kiểm tra xem có gì Hot. Còn đây là đoạn code

Đoạn CSS

.HungCoder{width:100%;margin:0;height:45px;font-size:14px;line-height:45px;font-weight:400;color:#fff;background:#363977;text-align:center;text-shadow:0 1px 1px #666}
.HungCoder span{font-weight:400;margin-left:20px;background:#fff;padding:5px;color:#fff;background:#F47555!important;padding:2px 15px;cursor:pointer;text-decoration:none;border-radius:3px}
.HungCoder span a{color:#fff;text-decoration:none}
.HungCoder i{float:right;padding-right:20px;cursor:pointer;line-height:45px;font-size: 18px!important}
.toggleclose{top:-75px!important}
.togglebody{margin-top:0!important}
.fa-arrow-down{display:none}
.HungCoder{z-index:99999;bottom:0;transition:600ms;-webkit-transition:600ms;-moz-transition:600ms;-o-transition:600ms;position:fixed}
.author-box{background:#fff;width:auto;height:auto;border:1px solid #eee;margin:10px 0 20px;padding:20px;position:relative;z-index:5;float:left}
.author img{padding:0;height:90px;width:90px;float:left;margin:0}
.author-info{float:left;padding-left:3%;width:80%}
.author-info a,.author-info span{font-size:17px;font-weight:600;color:#222}
.author-about{margin:0;padding:10px 0 0;color:#000!important;font-size:13px}

Đoạn HTML

<div class='HungCoder'>Hiện Tại Hùng Coder Đang Phát Hành Ứng Dụng View Link Miễn Phí Cho Mọi Người<span><a href='https://goo.gl/Rt11Z4' target='_blank'>Click Here</a></span><i class='fa fa-times'/></div><script src='https://apis.google.com/js/plusone.js' type='text/javascript'/>

DEMO ở Blogspot Này

Thứ Bảy, 11 tháng 11, 2017

Youtube by Click - Download


  • Youtube by Click - Download toàn bộ Video trong một Playlist , có sẵn chế độ cv sang mp3 , max speed , max 4k , không giới hạn số video trong playlist ( nghìn cái cũng được ) , get cả thumbnail luôn , cả tên tác giả , sắp xếp theo thứ tự
  • Bắt video tương tự IDM
  • Thích hợp cho ai muốn sao lưu kênh của mình ( có sẵn login vào You Tube ) hoặc tải cả tá nhạc cover , remix về nghe dần

Tải Về :
https://www.youtubebyclick.com/

Ban đầu soft sẽ cho các bác dùng thử 7 ngày với gói Premium ( chỉ Premium mới có tải playlist và max speed )
=========
Sau 7 ngày ra ta sẽ làm như sau :
1. Vô https://www.youtubebyclick.com/Gift.php
2. Nhập Gmail
3. Vô Gmail > có key thêm 7 ngày nữa
4. Sau khi hết 7 ngày các bác vào http://www.yopmail.com/en/email-generator.php > copy mail ( bác nào có sẵn nhiều mail rồi không cần )
5. Bật VPN lên ( cái nào cũng được , Android nên dùng Opera VPN )
6. Làm lại từ 1 tới 3 , sau đó ở cái Yopmail kia chọn "Check mail" > lấy key , vậy là các bác có key bản quyền vô tận :v
Không giới hạn số lượng nên 7 ngày thì các bác cũng down được cả nghìn bài hát rồi nên cách này cũng không khó chịu lắm :)
=========
Mình nhận ra điều này khi nó check 2 máy bắt cùng 1 wifi thì có mail mới nó cũng bị check là đã get key
Trên mạng có bản c r a c k , nhưng nó khá cũ rồi

Cách Mỡ Khóa Tài Khoản Facebook Mới Nhất


Hôm nay lang thang trên mạng thấy có 1 số thủ thuật này cũng khá hay nên mình tiện đem share cho mọi người :)

Chào các bạn. Sau đây mình sẽ hướng dẫn các bạn khôi phục nick Facebook bị block
Các bạn cần sử dụng công cụ fake IP để mở khóa nhé ( mình dùng Hola )
Các dạng và cách gửi kháng nghị:
1. Tài khoản của bạn bị khóa do mạo danh 1 trang cá nhân nào đó:
B1: Fake IP Úc, chọn ngôn ngữ UK
B2: truy cập link:
https://www.facebook.com/help/contact/199052956872279
B3: Gửi cmnd 2 mặt cho FB theo mẫu rồi hóng về

2. Tài khoản bắt liệt kê tên thật:
B1: Fake IP Hunggary, chọn ngôn ngữ Bg - Bg
B2: truy cập link:
https://www.facebook.com/help/contact/183000765122339
B3: Gửi cmnd 2 mặt cho FB theo mẫu rồi hóng về

3. Check poin 72h
B1: Fake IP nhật - ngôn ngữ UK
B2: Gửi cmnd hoặc AVT lên và hóng về.
*
Chúc các bạn may mắn, có gì không hiểu cứ inbox mình giúp

Thứ Sáu, 10 tháng 11, 2017

[Miễn phí] IObit Uninstaller 7 Pro - Phần mềm gỡ bỏ ứng dụng dành cho Windows trị giá 9,99 USD


IObit Uninstaller 7 Pro là phần mềm giúp bạn gỡ bỏ ứng dụng nhanh chóng và triệt để. Hiện tại gói phần mềm trị giá $9,99 này đang cho phép tải về và miễn phí bản quyền trong 6 tháng. Chương trình diễn ra đến ngày 12/11/2017, vì vậy hãy nhanh tay tải về trước khi hết hạn nhé các bạn.

Bạn có thể sử dụng IObit Uninstaller 7 Pro để gỡ bỏ tất cả những file tạm, registry và xóa những chương trình hoặc folder không cần thiết trên máy tính để đạt được hiệu suất hoạt động tốt nhất. Với giao diện đơn giản, dễ sử dụng, nhiều tính năng cần thiết, kích thước file nhỏ gọn giúp cho IOBit Uninstaller được khá nhiều người sử dụng.

Tính năng nổi bật của IObit Uninstaller 7 Pro:

  • Chức năng gỡ bỏ cài đặt cải tiến giúp bạn quét Windows registry và ổ cứng để tìm ra những chương trình cài đặt còn lại.
  • "Powerful Scan" cung cấp cho bạn tính năng quét sâu và an toàn hơn, đặc biệt là những thư mục còn lại trong registry.
  • Dễ dàng gỡ bỏ cài đặt các ứng dụng.
  • Cho phép tìm kiếm tên chương trình trong "Forced Uninstall" và gỡ bỏ chúng trực tiếp trong kết quả tìm kiếm.
  • Thanh công cụ gọn gàng, dễ sử dụng.
  • Cho phép bạn bỏ đánh dấu tùy chọn "create restore point before uninstalling" (tạo điểm khôi phục trước khi gỡ bỏ) trong chế độ gỡ bỏ cài đặt được cải tiến.
  • Tìm ra danh sách các chương trình trên máy tính của bạn một cách toàn diện hơn.
  • v.v...

Hướng dẫn kích hoạt bản quyền IObit Uninstaller 7 Pro:

B1: Truy cập liên kết Free IObit Uninstaller 7 PRO (100% discount) - SharewareOnSale

B2: Nhấn nút Download IObit Uninstaller 7 Pro Now


B3: Điền vào biểu mẫu một số thông tin cần thiết (email, họ tên, công việc, hệ điều hành đang sử dụng v.v...) > nhấn nút GIVE IT ME NOW


B4: Nhấn vào liên kết SharewareOnSale_Giveaway_IObit_Uninstaller_7_Pro_hub.exe để tải về gói cài đặt


B5: Mở phần mềm sau khi cài đặt xong > nhấn vào biểu tượng ba dấu gạch ngang ở góc trên bên phải giao diện IObit Uninstaller 7 Pro Now > chọn mục Settings

B6: Tích vào ô Update automatically Pro


B7: Nhập mã đã nhận ở Bước 4 để kích hoạt bản quyền là xong


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

Lấy lại tài khoản Facebook bị quên mật khẩu


Điều kiện cần để lấy lại

  1. Nhớ username, email hoặc số điện thoại.
  2. Có thêm ít nhất là 3 bạn bè tin cậy ( nên chọn các bạn bè có thể hỗ trợ mình trong trường hợp lấy lại mật khẩu ).
  3. Nhớ tên của bạn bè đã thêm tin cậy.
Lưu ý : mọi người không được áp dụng vào để chiếm đoạt tài khoản người khác, hành động này là vi phạm pháp luật.

Video Hướng Dẫn.



Nguồn : J2Team

Hướng dẫn bật tính năng ngăn chặn chuyển hướng đến trang web độc hại trên Chrome


Google đã giới thiệu một tính năng mới giúp ngăn chặn chuyển hướng đến trang web độc hại cho Google Chrome. Đây là một phần trong chiến lược của Google nhằm làm cho trình duyệt web an toàn hơn cho người dùng.

Chức năng này sẽ ngăn chặn các trang web tự mở ra một liên kết trong tab mới trong khi hiển thị quảng cáo hoặc nội dung không mong muốn khác trên tab hiện tại. Google sẽ tung ra tính năng này cho Chrome 64 vào tháng 1, tuy nhiên người dùng chạy Chrome 62 trở lên có thể sử dụng tính năng này với một chút cài đặt trong trang flags của Chrome.

Hướng dẫn bật tính năng chặn chuyển hướng trang web độc hại trên Google Chrome:
Đối với phiên bản PC:
Bước 1: Truy cập Chrome://Flags.
Bước 2: Sử dụng Ctrl + F, sau đó tìm kiếm với nội dung #enable-framebusting-needs-sameorigin-or-usergesture.


Bước 3: Enable như hình dưới, sau đó tiến hành khởi động lại Chrome.


Đối với phiên bản dành cho Mobile:
Bước 1: Truy cập Chrome://Flags.
Bước 2: Click trình đơn, chọn Find in page. Tìm kiếm với nội dung framebusting. Bạn sẽ thấy nội dung Framebusting requires same-origin or a user gesture. Ngoài ra bạn có thể copy và paste nội dung này vào URL để truy cập nhanh: chrome://flags/#enable-framebusting-needs-sameorigin-or-usergesture.
Bước 3: Click Enable như hình dưới, sau đó click Relaunch Now để khởi động lại trình duyệt.


Và đây là kết quả:


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

Thứ Năm, 9 tháng 11, 2017

Cách ghi, đọc, xóa file trong VB.NET


Hôm nay sau một hồi tìm kiếm trên mạng thì mình đã đã tạo ra được một ứng dụng lưu trử thông tin dữ liệu rất tốt cho các coder hiện này, cần lưu trử link thủ thuật hay gì đó mà không sợ mất :). Bên dười là full đoạn code cho bạn nào cần nhé :)

Imports System.IO

Public Class Form1
Private Const FileName As String = "QuanLyLink"

Private _QLINK As New ArrayList
Private Function GhiFile(ByVal filename As String) As Boolean
Dim sw As StreamWriter = New StreamWriter(filename, True)
Try
sw.WriteLine(txtNam.Text + vbTab + TextBox2.Text)

Catch ex As Exception
Return False
Finally
sw.Close()
End Try
Return True

End Function

Private Function DocFile(ByVal filename As String) As Boolean

Try
Dim sr As StreamReader = New StreamReader(filename)
_QLINK.Clear()
While Not sr.EndOfStream
_QLINK.Add(sr.ReadLine)
End While
sr.Close()
Catch ex As Exception
Return False
End Try
Return True
End Function

Private Function Editdata() As Boolean

Try
Dim index As Integer = DataGridView1.CurrentRow.Index

DataGridView1.Rows(index).Cells("txtNam").Value = txtNam.Text
DataGridView1.Rows(index).Cells("TextBox2").Value = TextBox2.Text
Catch ex As Exception
Return False
End Try
Return True
End Function

Private Function GhiFile(ByVal filename As String, ByVal dg As DataGridView) As Boolean
Dim sw As StreamWriter = New StreamWriter(filename, False)
Try
'lệnh ghi
sw.WriteLine(txtNam.Text + vbTab + TextBox2.Text)

Catch ex As Exception
Return False
Finally
sw.Close()
End Try
Return True

End Function

Private Sub LoadDataOnGird()
If DocFile(FileName) Then
DataGridView1.Rows.Clear()
For i As Integer = 0 To _QLINK.Count - 1
DataGridView1.Rows.Add(_QLINK(i).ToString.Split(vbTab))

Next
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If GhiFile(FileName) Then
' MessageBox.Show("Thêm Thành Công", "Thông Báo")
ToolStripStatusLabel2.Text = " Add SuccessFull"
LoadDataOnGird()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If DataGridView1.Rows.Count > 0 Then
DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
GhiFile(FileName, DataGridView1)
ToolStripStatusLabel2.Text = "Delete SuccessFull"
Else

End If
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
ToolStripStatusLabel3.Text = TimeOfDay.TimeOfDay.ToString
End Sub

Private Sub ReloadToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReloadToolStripMenuItem.Click
MessageBox.Show("Đang Cập Nhật...", "Info")
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadDataOnGird()
End Sub
End Class

Nhìn sơ qua đoạn code trên các bạn sẽ không hiểu lắm ;) Nhưng mà những người trong nghề thì lại rất đơn giản :)

VIDEO DEMO:



Các bạn có thể tải về để TEST thử :)


Pass Giải Nén:
bomkhung.info

Các bạn nhớ ghi nguồn khi copy bài từ blog này nhé :)

[VB.NET] Playing Music Mp3


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 :). Nói là mới chứ mã nguồn của ứng dụng này được share rất nhiều trên mạng :) và chủ yếu là mình edit lại như thế nào cho tiên với mục đích cá nhân thôi :P.
Hướng dẫn sơ bộ cho những bạn mới vào nghề.

Để thêm được "WINDOWN MEDIA PLAYER" thì các bạn click chuột phải vào bảng công cụ "TOOLBOX" và chọn "CHOOSE ITEMS"


Khi các bạn làm xong các bước trên thì việc còn lại các bạn chỉ còn tìm "WINDOW MEDIA PLAYER" nữa thôi :P


Bên dưới là đoạn code mình phát triển thêm :D

Public Class Form1
Private Sub OpenFileToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenFileToolStripMenuItem.Click



Const DATA_FILE_EXTENSION As String = ".mp3"
Dim dlgFileDialog As New OpenFileDialog
With dlgFileDialog
.Filter = DATA_FILE_EXTENSION & _
" files (*" & DATA_FILE_EXTENSION & "|*" & DATA_FILE_EXTENSION
.FilterIndex = 1
.RestoreDirectory = True
If .ShowDialog() = DialogResult.OK Then
'Play the sound file
Me.AxWindowsMediaPlayer1.URL = dlgFileDialog.FileName
End If

End With
End Sub

Private Sub TestToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TestToolStripMenuItem.Click
' OpenFileDialog1.FileName = ""
'OpenFileDialog1.Multiselect = True
'OpenFileDialog1.ShowDialog()

' ListBox1.Items.AddRange(OpenFileDialog1.FileNames)

End Sub
'Đoạn code bên dưới là mình phát triển thêm để add music hàng loạt nhé :D
Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
''play selected item inside the listbox
' AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
' AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange
'when music stopped move to next item from the listbox and autoplay
' If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
'If ListBox1.SelectedIndex < ListBox1.Items.Count - 1 Then
'ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1

' End If

'End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
End Sub
End Class

Sơ lượt nó là như thế :D

VIDEO DEMO:




Bạn nào chưa hiển lắm thì có thể Download Source bên dưới để tìm hiểu rỏ nhé :)

Thứ Ba, 7 tháng 11, 2017

[VB.NET] Ứng Dụng Tạo Radom Number ( Tham Khảo Tạo Ứng Dụng Đánh Số Đề )

Hôm nay mình xin giới thiệu cho mọi người một ứng dụng mới mình mới phát triển :D Đó là ứng dụng "RADOM NUMBER" cho mọi người :v, qua ứng dụng này mọi người có thể thêm đoạn code tạo "ID" để người dùng đăng ký và phát triển cho ứng dụng có bản quyền tốt hơn, hoặc ứng dụng tạo số ngẫu nhiên để anh em đánh số "ĐỀ" :D:D


Nhìn sơ qua thì ứng dụng này rất đơn giản cho các bạn "CODER", ở ứng dụng này mình đã thêm tự động thời gian để số xuất hiện nhé :D, mọi người chỉ có việc thêm khoảng thời gian để ứng dụng tự động load thôi :D


FULL CODE

Imports System.Windows.Forms
Imports System.IO

Public Class Form1

Private textDialog As SaveFileDialog
Public Sub New()
InitializeComponent()
textDialog = New SaveFileDialog()

textDialog.Filter = "Text Files | *.txt"
textDialog.DefaultExt = "txt"
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim sTemp As String = String.Empty
sTemp = Trim(InputBox("Nhập Thời Gian Bạn Muốn Reload", "Add"))
If Not sTemp = String.Empty Then Timer1.Interval = sTemp
Timer1.Start()
Process.Start("http://bomkhung.blogspot.com")
Button1.Enabled = False
Button2.Enabled = True
'If listLinks.Items.Count > 0 Then btnMain.Enabled = True Else btnMain.Enabled = False
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim SetSave As SaveFileDialog = New SaveFileDialog
Dim i As Integer
SetSave.Title = "SAVE"
SetSave.FileName = "File Name"
SetSave.Filter = "(*.txt)|*.txt"
If SetSave.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim s As New IO.StreamWriter(SetSave.FileName, True)
For i = 0 To ListBox1.Items.Count - 1
s.WriteLine(ListBox1.Items.Item(i))
Next
s.Close()
End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Button2.Enabled = False

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Try
Dim number As Integer
Randomize()
' The program will generate a number from 0 to 50
number = Int(Rnd() * 99) + 0
TextBox1.Text = "Radom Number => : " & number
ListBox1.Items.Add("Bạn Đã Tạo Số :" & vbCr & number & vbCr & ": Có Thể Tham Khảo Đánh Số ĐỀ ^^")
Catch ex As Exception
Me.Text = "Không Thể Radom..."
End Try
End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
ToolStripStatusLabel2.Text = TimeOfDay.TimeOfDay.ToString
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Timer1.Stop()
Button1.Enabled = True
Button2.Enabled = False
End Sub

Private Sub SetTimersToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SetTimersToolStripMenuItem.Click
Dim sTemp As String = String.Empty
sTemp = Trim(InputBox("Nhập Thời Gian Bạn Muốn Reload", "Add"))
If Not sTemp = String.Empty Then Timer1.Interval = sTemp
End Sub

Private Sub mainForm_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
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
If Me.WindowState = FormWindowState.Minimized Then
Me.WindowState = FormWindowState.Normal
End If
NotifyIcon1.Visible = False
End If
End Sub
End Class

Bên trên là "FULL CODE" cho những "CODER" khác phát triển tiếp để cho ứng dụng hoàn thiện hơn nhé :)

FULL VIDEO


Bạn nào muốn test thử ứng dụng thì DOWNLOAD nhé :)

Pass Giải Nén :
bomkhung.info 

Thứ Bảy, 4 tháng 11, 2017

Hướng dẫn xóa bản quyền Blogspot và link của bản quyền template

Trước hết, mình không khuyến khích các bạn xóa bỏ bản quyền này vì nó nhưng một dạng ủng hộ người đã tạo ra template để chúng ta sử dụng, nó như một lời cảm ơn. Còn nếu điều đó là cần thiết thì đây sẽ là hướng dẫ xóa bỏ link bản quền template trong blogspot.
Cách xóa bỏ link bản quyền của template
Đầu tiên chúng ta cần xem blog của chúng ta có link bản quyền ẩn hay là không ẩn. Nếu không ẩn thì quá dễ rồi. Nếu ẩn các bạn vui lòng làm theo các bước sau

New Light Template Documentation
Bản Quyền Template Blogspot

Các bước xóa bỏ link bản quyền template

B1: Đăng nhập > Mẫu > Chỉnh Sửa
Các bạn tìm đến đoạn mã hóa của template bằng cách nhấn ctrl + F và tìm đến đoạn //<![CDATA[


Đây là đoạn mã mà người tạo ra template đã mã hóa nó.
B2: Copy đoạn code ẩn trong template blogspot để phân tích
Bạn copy nguyên đoạn có màu đỏ này và paste vào đây:

http://ddecode.com/hexdecoder

Xong nhấn vào Decode bạn sẽ thấy những bản phân tích hiện ra, nhìn kỹ chút sẽ thấy link ẩn của mà blogspot của bạn đang có.


B3: Tìm mã hóa link ẩn trong blogspot
Các bạn copy link ẩn mà các bạn đang dính vào đây:

http://www.convertstring.com/vi/EncodeDecode/HexEncode

Lúc đó phần mềm sẽ gửi cho bạn một đoạn mã số, bạn thêm "\x" vào giữa 2 số và sẽ được như sau:
\x68\x74\x74\x70\x3A\x2F\x2F\x62\x6C\x6F\x67\x63\x75\x61\x73\x65\x6F\x2E\x62\x6C\x6F\x67\x73\x70\x6F\x74\x2E\x63\x6F\x6D\x2F
B4: Tìm đoạn mã hóa link trong template blogspot
Sau khi có đoạn mã, bạn vào template và tìm trong blog bằng cách nhần Ctrl + F và paste vào để tìm sẽ hiện ra đoạn mã hóa.
B5: Thay đoạn link mã hóa bằng link mã hóa của chúng ta
Quay lại phần mềm mã hóa link, ta nhập link mà chúng ta cần thay vào và làm theo các bước 3 và bước 4. Ta chỉ việc thay đoạn mã hóa link của họ bằng link của chúng ta là được.

Cách 2 : Ẩn Link Credit Đó Đi
Bước 1: Xác Định Link Created By...Trong HTML
Trong trường hợp của mình là Created By Sora Templates nhé, Nhấp chuột phải ngay chỗ cần xóa Kiểm tra phần tử hoặc chỉ cần nhấn F12 là thấy như trong hình dưới đây.



Bước 2: Đăng nhập vào tài khoản Blogger > Mẫu > Chỉnh sửa HTML
Bạn cần tìm đoạn id="mycontent" với tổ hợp phí Ctrt + F trong phần HTML. Và vị trí của nó như hình bên dưới, tùy Template thì cách trình bày khác nhau nhưng đây là cách cơ bản giúp bạn tìm thấy đúng vị trí nhanh nhất.



Bước 3: Thêm style="visibility: hidden"
Chỉ cần Copy đoạn CSS ở trên và thêm vào sau id='mycontent' như hình dưới đây.



Bước 4: Lưu Mẫu và Xem Blog để xem sự thay đổi
Lưu ý

  • Một số Template không cho bạn đụng chạm vào liên kết bản quyền cuả họ, chỉ cần thêm bất cứ Css vào là chuyển hưởng về trang họ ngay, do đó bạn cần test trước khi làm nội dung.
  • Ẩn chứ không hoàn toàn mất đi, về mặt giá trị SEO thì mình vẫn đang làm Backlink cho họ, không xóa hoàn toàn được đâu, miễn phí thì có cái giá của nó nhé, chúc các bạn thành công.


Xong, chúc các bạn thành công!

Thứ Năm, 2 tháng 11, 2017

Auto View WebBlog Phiên Bản Cực Mới

Hiện tại mình viết chương trình tăng lượt truy cập này giúp cho một số website or blog có thể tăng lượt truy cập một cách nhanh chống :).


Ứng dụng này có code khá đơn giản vì đa phần nó sẽ sữ dụng một đoạn code HTML được viết sẳn do "LINK THỦ THUẬT" và mình chỉ dùng một số đoạn code đơn giản để giúp mọi người sữ dụng một cách nhanh nhất mà không cần vào trang blog đó :D

Và cách sữ dụng ứng dụng đó hoàn toàn đơn giản :

Đầu tiền bạn cứ vào ứng dụng bình thường và nhấp link bạn muốn tăng vào ô " MY LINK" 
và chọn " Bờm Khùng" hoặc " Link Thủ Thuật" để tăng view cho các bạn nhé :),
như vậy là bắt đầu tăng rồi đó.
Và có một sự khác biệt đó là link "REF" là phù thuộc bạn chọn button nào :D

Hoặc các bạn có thể sữ dụng link website của Bờm Khùng

http://www.bomkhung.info/p/auto-view-link.html?url=http://facebook.bomkhung.info

Link Của LinkThuThuat.Com

http://www.linkthuthuat.com/p/refresh-website.html?url=http://www.linkthuthuat.com

Cũng như những ứng dụng trước bạn nào cần thì để lại email mình gửi cho nhé :D tránh tình trạng
một số bạn lạm dụng phát tán VIRUS hay BOT NET nhé


VIDEO DEMO



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

Thứ Tư, 1 tháng 11, 2017

CHÈN BIỂU TƯỢNG CẢM XÚC EMOTICONS VÀO COMMENT BLOGSPOT


Thêm đoạn code dưới đây vào trước thẻ đóng </body> sẽ giúp người đọc thêm được các biểu tượng cảm xúc (emoticons) thông dụng :( :D :v ...vào khung comment của blogspot,
ngoài ra còn có thể dán link ảnh, youtube, hay list nhạc từ nhaccuatui vào nữa

<b:if cond='data:blog.pageType == &quot;item&quot;'>
<script type='text/javascript'>
//<![CDATA[
var copyright='Emoticons & Multimedia for Thread Comment by http://duypham.info';
var smileys=[
{'text':':))','img':'http://lh4.ggpht.com/_u7a1IFxc4WI/TM-vt_XVZKI/AAAAAAAAATI/Q35_W0anT6A/21.gif'},
{'text':':)','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-voiNIw2I/AAAAAAAAASw/aav2hwqeG0c/1.gif'},
{'text':':((','img':'http://lh4.ggpht.com/_u7a1IFxc4WI/TM-vt5z16MI/AAAAAAAAATE/Hx-7Thmr6do/20.gif'},
{'text':':(','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-voq7QQnI/AAAAAAAAAS0/UzoFJOCcPPU/2.gif'},
{'text':':D','img':'http://lh3.ggpht.com/_u7a1IFxc4WI/TM-voxnkRKI/AAAAAAAAAS4/PjDn098vm3w/4.gif'},
{'text':'=))','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vuJ1G41I/AAAAAAAAATM/_jLHXvz6PTg/24.gif'},
{'text':'=D&gt;','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vzUt1yQI/AAAAAAAAATY/QHNvnj0gYbU/41.gif'},
{'text':':-O','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vpLiW1GI/AAAAAAAAATA/fPyPJcBks7s/13.gif'},
{'text':':-?','img':'http://lh5.ggpht.com/_u7a1IFxc4WI/TM-vua5MF2I/AAAAAAAAATU/N4X-ouMd1-I/39.gif'},
{'text':':-SS','img':'http://lh4.ggpht.com/_u7a1IFxc4WI/TM-vzUOH79I/AAAAAAAAATc/oNE5H5vcNtI/42.gif'},
{'text':':-t','img':'http://lh3.ggpht.com/_u7a1IFxc4WI/TM-vz4hwcNI/AAAAAAAAATo/4ySXuvQWma8/104.gif'},
{'text':'[-(','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vuMg6RQI/AAAAAAAAATQ/rWj7euuKOZs/33.gif'},
{'text':'@-)','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vziH8NXI/AAAAAAAAATg/2evEbN2cJwc/43.gif'},
{'text':'b-(','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vzrqI4MI/AAAAAAAAATk/BhfFnT0Gbro/66.gif'},
{'text':':P','img':'http://lh6.ggpht.com/_u7a1IFxc4WI/TM-vpDb68dI/AAAAAAAAAS8/Yv0Uu3qzG_Q/10.gif'}];
var type_img=['png','PNG','jpg','JPG','jpeg','JPEG','gif','GIF','bmp','BMP'];
var dp=['Q a=["\\1b\\m\\w\\b\\q\\t\\w\\z\\u\\r\\1r\\r\\1c\\F\\s\\b\\q\\m\\h\\C\\q\\k\\r\\O\\w\\l\\r\\1e\\o\\l\\h\\k\\C\\r\\1H\\w\\m\\m\\h\\z\\b\\r\\E\\N\\r\\o\\b\\b\\B\\R\\n\\n","\\N\\B","\\q\\z\\O\\w","\\t\\w\\m\\m\\h\\z\\b\\W\\o\\w\\s\\C\\h\\l","\\J\\h\\b\\1b\\s\\h\\m\\h\\z\\b\\1v\\N\\1z\\C","\\B","\\J\\h\\b\\1b\\s\\h\\m\\h\\z\\b\\u\\1v\\N\\1e\\k\\J\\1W\\k\\m\\h","\\s\\h\\z\\J\\b\\o","","\\q\\z\\z\\h\\l\\1X\\1e\\1c\\1T","\\q\\b\\h\\m","\\o\\b\\b\\B","\\u\\B\\s\\q\\b","\\o\\b\\b\\B\\R\\n\\n\\v\\v\\v\\M\\N\\w\\F\\b\\F\\E\\h\\M\\t\\w\\m\\n\\v\\k\\b\\t\\o\\1d\\1g\\A","\\o\\b\\b\\B\\R\\n\\n\\v\\v\\v\\M\\z\\o\\k\\t\\t\\F\\k\\b\\F\\q\\M\\t\\w\\m\\n\\z\\J\\o\\h\\1d","\\M","\\q\\z\\C\\h\\T\\1Z\\O","\\u\\F\\E\\u\\b\\l\\q\\z\\J","\\r","\\H","\\H\\E\\l\\n\\L\\H\\E\\l\\n\\L\\H\\q\\m\\J\\r\\u\\b\\N\\s\\h\\A\\p\\m\\k\\T\\W\\v\\q\\C\\b\\o\\R\\1S\\G\\G\\1R\\p\\r\\u\\l\\t\\A\\p","\\p\\n\\L","\\1r","\\H\\E\\l\\n\\L\\H\\E\\l\\n\\L\\H\\q\\O\\l\\k\\m\\h\\r\\v\\q\\C\\b\\o\\A\\p\\1p\\G\\G\\p\\r\\o\\h\\q\\J\\o\\b\\A\\p\\1f\\1Q\\G\\p\\r\\u\\l\\t\\A\\p\\o\\b\\b\\B\\R\\n\\n\\v\\v\\v\\M\\N\\w\\F\\b\\F\\E\\h\\M\\t\\w\\m\\n\\h\\m\\E\\h\\C\\n","\\1d\\l\\h\\s\\A\\G\\p\\r\\O\\l\\k\\m\\h\\E\\w\\l\\C\\h\\l\\A\\p\\G\\p\\r\\k\\s\\s\\w\\v\\O\\F\\s\\s\\u\\t\\l\\h\\h\\z\\L\\H\\n\\q\\O\\l\\k\\m\\h\\L","\\H\\E\\l\\n\\L\\H\\E\\l\\n\\L\\H\\h\\m\\E\\h\\C\\r\\u\\b\\N\\s\\h\\A\\p\\v\\q\\C\\b\\o\\R\\1f\\G\\G\\B\\T\\1P\\o\\h\\q\\J\\o\\b\\R","\\1c\\A","\\1f\\G\\G","\\1p\\G\\G","\\B\\T\\p\\r\\u\\l\\t\\A\\p\\o\\b\\b\\B\\R\\n\\n\\v\\v\\v\\M\\z\\o\\k\\t\\t\\F\\k\\b\\F\\q\\M\\t\\w\\m\\n","\\m\\n","\\s\\n","\\p\\r\\O\\s\\k\\u\\o\\1g\\k\\l\\u\\A\\p\\k\\F\\b\\w\\u\\b\\k\\l\\b\\A\\O\\k\\s\\u\\h\\p\\r\\1N\\F\\k\\s\\q\\b\\N\\A\\p\\o\\q\\J\\o\\p\\r\\v\\m\\w\\C\\h\\A\\p\\b\\l\\k\\z\\u\\B\\k\\l\\h\\z\\b\\p\\r\\b\\N\\B\\h\\A\\p\\k\\B\\B\\s\\q\\t\\k\\b\\q\\w\\z\\n\\T\\W\\u\\o\\w\\t\\1D\\v\\k\\1g\\h\\W\\O\\s\\k\\u\\o\\p\\L\\H\\n\\h\\m\\E\\h\\C\\L","\\b\\h\\T\\b","\\H\\q\\m\\J\\r\\u\\l\\t\\A\\p","\\q\\m\\J","\\l\\h\\B\\s\\k\\t\\h","\\C\\F","\\o\\k\\m\\M"];Q V=[];K=[];I=[];1q=a[0];1w=a[1];1u=a[2];1s=1Y[a[4]](a[3]);c=1s[a[6]](a[5]);D(c){U(x=0;x<c[a[7]];x++){Q 1i=a[8];1o=a[8];P=a[8];d=c[a[10]](x)[a[9]];e=d[a[12]](a[11]);f=d[a[12]](a[13]);g=d[a[12]](a[14]);U(Q i=1;i<e[a[7]];i++){U(Q j=0;j<Z[a[7]];j++){1h=e[i][a[16]](a[15]+Z[j]);D(1h!=-1){V[i]=a[11]+e[i][a[17]](0,1h)+a[15]+Z[j];D((V[i][a[16]](a[18])==-1)&&(V[i][a[16]](a[19])==-1)){1i+=a[20]+V[i]+a[21]}}}};U(Q i=1;i<f[a[7]];i++){1a=f[i][a[16]](a[18]);X=f[i][a[16]](a[19]);D(1a!=-1){K[i]=f[i][a[17]](0,1a);Y=K[i][a[16]](a[19]);D(Y!=-1){K[i]=K[i][a[17]](0,Y)}}S{D(X!=-1){K[i]=f[i][a[17]](0,X)}S{D(i==f[a[7]]-1){K[i]=f[i][a[17]](0,d[a[7]])}}};K[i]=K[i][a[12]](a[22]);K[i]=K[i][0];1o+=a[1x]+K[i]+a[1U]};U(Q i=1;i<g[a[7]];i++){1m=g[i][a[16]](a[18]);1n=g[i][a[16]](a[19]);D(1m!=-1){I[i]=g[i][a[17]](0,1m);1j=I[i][a[16]](a[19]);D(1j!=-1){I[i]=I[i][a[17]](0,1j)}}S{D(1n!=-1){I[i]=g[i][a[17]](0,1n)}S{D(i==g[a[7]]-1){I[i]=g[i][a[17]](0,d[a[7]])}}};1k=I[i][a[17]](0,2);I[i]=I[i][a[17]](2,I[i][a[7]]);P+=a[1V];D(1k==a[1t]){P+=a[1O]}S{P+=a[1J]};P+=a[1A];D(1k==a[1t]){P+=a[1y]}S{P+=a[1B]};P+=I[i]+a[1M]};U(Q y=0;y<1l[a[7]];y++){d=d[a[1K]](1l[y][a[1L]],a[1I]+1l[y][a[1E]]+a[21])};D(1G==1q+a[1F]+1w+a[1C]+1u){c[a[10]](x)[a[9]]=d+1i+1o+P}}};',"|","split","||||||||||_0xf28e|x74||||||x65|||x61|x72|x6D|x2F|x68|x22|x69|x20|x6C|x63|x73|x77|x6F|||x6E|x3D|x70|x64|if|x62|x75|x30|x3C|nct|x67|youtube|x3E|x2E|x79|x66|a3|var|x3A|else|x78|for|img|x2D|aft_y2|aft_y3|type_img|||||||||||aft_y1|x45|x4D|x3F|x54|x33|x76|dot_png|a1|aft_nct3|m_l|smileys|aft_nct1|aft_nct2|a2|x34|cbef|x26|cL|26|cbef3|x42|cbef2|23|30|x49|29|31|38|x6B|35|37|copyright|x43|34|28|36|33|32|x71|27|x3B|x32|x25|x31|x4C|24|25|x4E|x48|document|x4F|||","","fromCharCode","replace","\\w+","\\b","g"];eval(function(d,e,a,c,b,f){b=function(a){return(a<e?dp[4]:b(parseInt(a/e)))+(35<(a%=e)?String[dp[5]](a+29):a.toString(36))};if(!dp[4][dp[6]](/^/,String)){for(;a--;)f[b(a)]=c[a]||b(a);c=[function(a){return f[a]}];b=function(){return dp[7]};a=1}for(;a--;)c[a]&&(d=d[dp[6]](RegExp(dp[8]+b(a)+dp[8],dp[9]),c[a]));return d}(dp[0],62,127,dp[3][dp[2]](dp[1]),0,{}));
//]]>
</script>
</b:if>

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