Fix lỗi “Microsoft Word has stopped working” Office 2013

Lỗi và nguyên nhân

Hôm nay mình sẽ hướng dẫn các bạn khắc phục lỗi không khởi động được các ứng dụng sau khi cài Office 2013 (don’t startup Office). Lỗi này không phải là lỗi do bộ cài đặt vì vậy các bạn có gỡ ra và cài lại hàng trăm hàng ngàn lần như trên một số diễn đàn hướng dẫn thì cũng không hiệu quả. Lỗi này xuất hiện sau khi cài đặt thành công Office 2013 nhưng khi khởi động bất kỳ ứng dụng nào cũng nhận được thông báo lỗi
Lỗi khi mở Word “Microsoft Word has stopped working”

Microsoft Word has stopped working error
Microsoft Word has stopped working error

Tương tự khi mở Excel nhận được thông báo lỗi “Microsoft Excel has stopped working”
Microsoft Excel has stopped working error
Microsoft Excel has stopped working error

Các ứng dụng khác cũng tương tự như vậy. Nguyên nhân chung của lỗi này là do các Add-ins (các thành phần mở rộng) đã được cài sẵn hoặc được cài thêm vào không tương thích với phiên bản Office 2013.

Khắc phục

Để khắc phục lỗi này các bạn cần chạy các ứng dụng trong bộ Office dưới chế độ Safe-mode. Chế độ Safe-mode sẽ không load các add-ins vì vậy các ứng dụng sẽ khởi động và chạy bình thường
Để chạy các ứng dụng ở chế độ Safe-mode các bạn mở hộp thoại Run (Windows + R) gõ tên ứng dụng + tham số /safe ví dụ “winword /safe” hoặc “excel /safe”
Sau khi ứng dụng đã chạy bạn vào tùy chọn để tắt các Add-ins không tương thích đi. Một trong những Add-ins hay gây ra lỗi nhất là “Sent to Bluetooth”.
Để tắt Add-ins các bạn vào menu File/Options

Options menu Word 2013
Options menu Word 2013

Trong cửa sổ tùy chọn các bạn chọn tab addins và chọn như hình minh họa
Quản lý add-ins
Quản lý add-ins

Cửa sổ Add-ins hiện ra bạn bỏ đánh dấu add-ins nào bạn nghĩ là nguyên nhân gây ra lỗi. Có thể bỏ lần lượt để xác định hoặc bỏ hết
Add remove add-ins
Add remove add-ins

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

Snagit 11 key “bản quyền”

TechSmith Snagit

Snagit 11
Snagit 11

– Snagit có thể ghi lại mọi thứ trên màn hình của bạn: ảnh, video, text, trang web, profile, hotkey …với chỉ 1 click
– Có thể lựa chọn vùng cần ghi lại 1 cách chính xác
– Công cụ tích hợp Snagit Editor giúp bạn chỉnh sửa video, hình ảnh, văn bản sau khi chụp. Theo đánh giá của 1 số người thì công cụ này khá đơn giản nhưng theo mình thì nó rất hiệu quả đặc biệt khi sử dụng để trainning
– Hỗ trợ lưu trữ và chia sẻ trên các dịch vụ trực tuyến như Youtube, Facebook,…

Key “bản quyền”

ZEN5H-24LZK-TNYET-2EGKJ-MMCE4

Download Snagit

+ Download bản mới nhất tại trang chủ:

http://www.techsmith.com/download/snagit/default.asp

+ Nếu bản mới nhất không chấp nhận key thì các bạn download bản 11.2.0 ở đây
SkyDrive:

http://sdrv.ms/YA5JcK

GDrive:

https://docs.google.com/file/d/0B0x5WbPiQ0WtNk5rMmdDcGFvZ28/edit?usp=sharing

Code tool Get Link mp3.zing.vn hàng loạt bằng AutoIT

Code tool get link mp3.zing.vn có thể lấy theo album, nghệ sĩ, link video, link tổng hợp

Cái này mình sưu tầm trên mạng thôi hy vọng là anh em xem để học hỏi. Download code tại đây: Getlink mp3.zing.vn v4.1

Nếu không down được các bạn copy code ở đây:
[au3]
#include <GUIConstantsEx.au3>
#include <ComboConstants.au3>
#include <StaticConstants.au3>
#include <GuiListView.au3>
#include <File.au3>
#include <String.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=D:\HOC TAP\AutoIT\koda_1.7.3.0\Forms\Zing VIP 320Kbps.kxf
$form1 = GUICreate("Get Link mp3.zing.vn v4.0 : Lấy Direct Link Download Từ Nhiều Link Video Clip – Album Nhạc ( 320Kbps hoặc 128Kbps ) Release Date : September 20, 2012", 1052, 690, -1, -1)
GUISetFont(10, 800, 0, "Times New Roman")
GUISetBkColor(0xf58a0c)
$group1 = GUICtrlCreateGroup(" Nhập link mp3.zing.vn cần download ", 16, 16, 657, 257)
$edit1 = GUICtrlCreateEdit("", 24, 32, 570, 185)
GUICtrlSetState($edit1, $GUI_DISABLE)
GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
$edit2 = GUICtrlCreateEdit("", 24, 221, 441, 50)
GUICtrlSetData(-1, "http://mp3.zing.vn/")
GUICtrlSetState($edit2, $GUI_DISABLE)
$button1 = GUICtrlCreateButton("Paste", 600, 40, 65, 33)
GUICtrlSetState($button1, $GUI_DISABLE)
$button2 = GUICtrlCreateButton("Lọc", 600, 88, 65, 33)
GUICtrlSetState($button2, $GUI_DISABLE)
$button3 = GUICtrlCreateButton("Copy", 600, 136, 65, 33)
GUICtrlSetState($button3, $GUI_DISABLE)
$button4 = GUICtrlCreateButton("Clear", 600, 184, 65, 33)
GUICtrlSetState($button4, $GUI_DISABLE)
$button9 = GUICtrlCreateButton("Collection", 600, 232, 65, 33)
GUICtrlSetState($button9, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$group2 = GUICtrlCreateGroup("", 16, 352, 1025, 329)
$listview1 = GUICtrlCreateListView("STT|Định dạng|Tên bài hát|Thể loại (Album – Video Clip – Single)|Link Download", 24, 368, 1010, 305)
GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 0, 50)
GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 1, 80)
GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 2, 200)
GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 3, 255)
GUICtrlSendMsg(-1, $lvm_setcolumnwidth, 4, 420)
GUICtrlSetBkColor(-1, 13158600)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$group3 = GUICtrlCreateGroup("", 680, 16, 361, 257)
$group4 = GUICtrlCreateGroup("Lấy link download", 688, 48, 345, 65)
$button5 = GUICtrlCreateButton("Please wait…", 698, 66, 100, 33)
GUICtrlSetState($button5, $GUI_DISABLE)
$combo2 = GUICtrlCreateCombo("320 Kbps", 808, 72, 100, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "320 Kbps|128 Kbps", "")
$combo3 = GUICtrlCreateCombo("Lấy số thứ tự", 912, 72, 100, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Lấy số thứ tự|Không lấy số thứ tự", "")
$combo4 = GUICtrlCreateCombo("", 480, 238, 113, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Tất cả|Album|Bài hát|Clip-Video|Nghệ sĩ)", "Album")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$group5 = GUICtrlCreateGroup("Help", 688, 136, 345, 65)
$button7 = GUICtrlCreateButton("Hướng dẫn sử dụng", 718, 160, 290, 33)
GUICtrlSetState($button7, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$label1 = GUICtrlCreateLabel("", 16, 280, 1012, 25, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
$label2 = GUICtrlCreateLabel("", 16, 320, 1012, 25, $SS_CENTER)
GUICtrlSetFont(-1, 14, 800, 0, "Times New Roman")
$input1 = GUICtrlCreateInput("C:\Downloads", 704, 228, 233, 25)
$button8 = GUICtrlCreateButton("Save", 944, 224, 80, 33)
GUICtrlSetState($button8, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
FileInstall("INTERNET\Getlink mp3.zing.vn\v4.0\Config.txt", @ScriptDir & "\ZingMp3.txt", 0)
_filecreate(@TempDir & "\zingmp3.txt")
_filecreate(@TempDir & "\zingmp3_dl.txt")
Global $folderdlve = FileOpen(@ScriptDir & "\zingmp3.txt", 0)
Global $line1 = FileReadLine($folderdlve)
$idmsave = GUICtrlSetData($input1, $line1)
Global $line2 = FileReadLine($folderdlve)
GUICtrlSetData($combo2, $line2)
Global $line3 = FileReadLine($folderdlve)
GUICtrlSetData($combo3, $line3)
Global $line4 = FileReadLine($folderdlve)
GUICtrlSetData($combo4, $line4)
Global $mode1 = 2 + 8 + 128
Global $mode2 = 1 + 4 + 256
WinSetTitle("", "", "Get Link mp3.zing.vn v4.1: Lấy Direct Link Download Từ Nhiều Link Video Clip – Album Nhạc ( 320Kbps hoặc 128Kbps ) Release Date : January 08, 2013")
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
$acc = BinaryToString(InetRead("http://dl.dropbox.com/u/63311588/czv4.1.html", 1), 4)
If @error Then
MsgBox(0, "Get link mp3.zing.vn – Thông báo : ", "Bạn phải kết nôi Internet để lấy cơ sở dữ liệu.")
Else
TrayTip("Get link mp3.zing.vn – Thông báo : ", "Vui lòng chờ kết nối cơ sở dữ liệu, nếu tốc độ mạng bạn chậm có thể mất khoảng 10-30s", 5)
EndIf
Global $uhide = _stringbetween($acc, "<H>", "</H>")
$uhide2 = _stringbetween($uhide[0], "533343335343433303335333533343339333433383334333", "13336333933363332343433353333333633343335333633333336333233373336343633363334333")
$zozozo = _hextostring(_hextostring(_hextostring(_stringreverse($uhide2[0]))))
Global $phide = _stringbetween($acc, "<body>", "</body>")
$phide2 = _stringbetween($phide[0], "93336333634363339333633373334333933363331333633343335333", "9333633363436333633353334333733353336333933373335333733343335333")
$zozozozo = _hextostring(_hextostring(_hextostring(_stringreverse($phide2[0]))))
Global $status = _stringbetween($acc, "<status>", "</status>")
Global $status2 = _stringbetween($acc, "<status2>", "</status2>")
Global $statusa1 = _stringbetween($acc, "<statusA1>", "</statusA1>")
Global $statusa = _stringbetween($acc, "<statusA>", "</statusA>")
Global $statusb = _stringbetween($acc, "<statusB>", "</statusB>")
Global $statusc = _stringbetween($acc, "<statusC>", "</statusC>")
Global $statusd = _stringbetween($acc, "<statusD>", "</statusD>")
Global $statuse = _stringbetween($acc, "<statusE>", "</statusE>")
Global $statusf = _stringbetween($acc, "<statusF>", "</statusF>")
Global $statusg = _stringbetween($acc, "<statusG>", "</statusG>")
GUICtrlSetData($label1, $status[0])
GUICtrlSetData($label2, $status2[0])
GUICtrlSetData($edit1, $statusa1[0] & @CRLF & $statusa[0] & @CRLF & $statusb[0] & @CRLF & $statusc[0] & @CRLF & $statusd[0] & @CRLF & $statuse[0] & @CRLF & $statusf[0] & @CRLF & $statusg[0])
Global $tbupdate = _stringbetween($acc, "<TbUpdate>", "</TbUpdate>")
Global $update = _stringbetween($acc, "<Update>", "</Update>")
Global $linkupdate = _stringbetween($acc, "<linkupdate>", "</linkupdate>")
Global $tbbutton7 = _stringbetween($acc, "<Button7>", "</Button7>")
Select
Case $update[0] = "No"
Sleep(50)
Case $update[0] = "Yes"
GUICtrlSetData($button7, $tbbutton7[0])
Run($pathidm & " /d " & $linkupdate[0])
MsgBox(0, "THÔNG BÁO", $tbupdate[0])
Case Else
Sleep(50)
MsgBox(0, "THÔNG BÁO", "Else")
EndSelect
$username = $zozozo
$password = $zozozozo
$oie = ObjCreate("InternetExplorer.Application")
$oie.visible = False
$oie.navigate("http://login.me.zing.vn/")
_ieloadwait($oie)
$oie.document.getelementbyid("u").value = $username
$oie.document.getelementbyid("pp").value = $password
$oie.document.getelementbyid("bntlogin").click
$shtml = _iedocreadhtml($oie)
$kiemtraketnoi = _stringbetween($shtml, "Cố nhân", "/")
$kn = 0
Do
If @error Then
Sleep(1000)
Else
Sleep(1000)
ExitLoop
EndIf
$kn = $kn + 1
Until $kn = 0
$oie.navigate("http://mp3.zing.vn/xml")
$shtml = _iedocreadhtml($oie)
$kiemtraketnoi = _stringbetween($shtml, "Không tìm thấy trang mà bạn yêu cầu", "/")
$kn = 0
Do
If @error Then
Sleep(1000)
Else
Sleep(1000)
ExitLoop
EndIf
$kn = $kn + 1
Until $kn = 0
GUICtrlSetState($edit1, $gui_enable)
GUICtrlSetState($edit2, $gui_enable)
GUICtrlSetState($button1, $gui_enable)
GUICtrlSetState($button2, $gui_enable)
GUICtrlSetState($button3, $gui_enable)
GUICtrlSetState($button4, $gui_enable)
GUICtrlSetData($button5, "Get Link")
GUICtrlSetState($button5, $gui_enable)
GUICtrlSetState($button7, $gui_enable)
GUICtrlSetState($button8, $gui_enable)
GUICtrlSetState($button9, $gui_enable)
$oie.navigate("about:blank")
_ieloadwait($oie)
MsgBox(0, "Get link mp3.zing.vn", "Đã sẵn sàng sử dụng", 1)
TrayTip("Get link mp3.zing.vn – Thông báo : ", "Đã sẵn sàng Get Link website mp3.zing.vn", 5)
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
$oie.quit
Exit
Case $button1
$bak = ClipGet()
GUICtrlSetData($edit1, $bak)
_guictrllistview_deleteallitems($listview1)
GUICtrlSetData($label1, "Hãy nhấn vào nút Lọc ở dưới để tool xóa các link trắng,sau đó bạn hãy xóa dòng trắng ở cuối cùng rồi nhấn vào Get Link")
_input()
_output()
Case $button2
_input()
_output()
Case $button3
ClipPut(GUICtrlRead($edit1))
Case $button4
GUICtrlSetData($edit1, "")
_guictrllistview_deleteallitems($listview1)
Case $button5
_input()
_output()
_guictrllistview_deleteallitems($listview1)
Local $file_open_final = FileOpen(@TempDir & "\zingmp3_output_final.txt", 0)
If $file_open_final = -1 Then
MsgBox(0, "Error", "Unable to open file zingmp3_output_final.txt")
Exit
EndIf
While 1
Local $line_open_final = FileReadLine($file_open_final)
If @error = -1 Then ExitLoop
Local $kiem_tra_line_open_final = _stringbetween($line_open_final, "http://mp3.zing.vn/", "/")
If @error Then
Else
Select
Case $kiem_tra_line_open_final[0] = "video-clip"
_getlinkvideo()
Case $kiem_tra_line_open_final[0] = "nghe-si"
Select
Case GUICtrlRead($combo2) = "320 Kbps"
_nghesy()
Case GUICtrlRead($combo2) = "128 Kbps"
MsgBox(0, "Thông báo", "Không hỗ trợ get link chất lượng 128Kbps với nghệ sĩ). Nhấn Get Link nếu muốn tải với chất lượng 320Kbps của nghệ sĩ) này")
GUICtrlSetData($combo2, "320 Kbps")
EndSelect
Case $kiem_tra_line_open_final[0] = "bai-hat"
_baihat()
_sentlinksingle()
Case $kiem_tra_line_open_final[0] = "album"
_linkalbum()
_sentlink()
EndSelect
EndIf
WEnd
FileClose($file_open_final)
$oie.navigate("about:blank")
_ieloadwait($oie)
GUICtrlSetData($label1, "Kết thúc quá trình get link")
GUICtrlSetData($label2, "Link download đã được gửi tới IDM, bạn có thể download bất cứ lúc nào")
FileWrite(FileOpen(@ScriptDir & "\zingmp3.txt", $mode1), GUICtrlRead($input1) & @CRLF)
FileWrite(FileOpen(@ScriptDir & "\zingmp3.txt", $mode2), GUICtrlRead($combo2) & @CRLF & GUICtrlRead($combo3) & @CRLF & GUICtrlRead($combo4))
MsgBox(0, "The End", "Kết thúc quá trình get link. Bạn có thể tiếp tục get link mới", 5)
Case $button7
GUICtrlSetData($label1, "Bạn hãy xem chi tiết hướng dẫn sử dụng trên mạng")
GUICtrlSetData($label2, "Mọi đóng góp xin vui lòng truy cập website")
_iecreate("http://hanamonline.com", 1, 1, 0)
Case $button8
Global $var = FileSelectFolder("Bạn hãy chọn folder để lưu các file được IDM tải về.", "")
GUICtrlSetData($input1, $var)
FileWrite(FileOpen(@ScriptDir & "\zingmp3.txt", $mode1), $var & @CRLF)
FileWrite(FileOpen(@ScriptDir & "\zingmp3.txt", $mode2), GUICtrlRead($combo2) & @CRLF & GUICtrlRead($combo3) & @CRLF & GUICtrlRead($combo4))
Case $button9
_cellection()
EndSwitch
WEnd

Func _linkalbum()
$timxml = BinaryToString(InetRead($line_open_final, 1), 4)
Global $xml = _stringbetween($timxml, "xmlURL=", "&amp")
$albumdl = _stringbetween($line_open_final, "/album/", "/")
$tenfilealbum = $albumdl[0]
$tenfilealbum0 = StringRegExpReplace($tenfilealbum, ‘[/|:|?|<|>|"|\\]’, "-")
$tenfilealbum1 = StringRegExpReplace($tenfilealbum0, "-", " ")
$oie.navigate($xml[0])
GUICtrlSetData($label1, "Đang thực hiện link album : " & $tenfilealbum1)
_ieloadwait($oie)
$shtml = _iedocreadhtml($oie)
$readxml = FileOpen(@TempDir & "\zingmp3.txt", $mode1)
FileWrite($readxml, $shtml)
Local $file_zingmp3 = FileOpen(@TempDir & "\zingmp3.txt", 0)
If $file_zingmp3 = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line_open_zingmp3 = FileReadLine($file_zingmp3)
If @error = -1 Then ExitLoop
Local $a = _stringbetween($line_open_zingmp3, "<title>", "</title>")
If @error Then
Local $b = _stringbetween($line_open_zingmp3, "<performer>", "</performer>")
If @error Then
Local $d = _stringbetween($line_open_zingmp3, "<source>", "</source>")
If @error Then
Local $c = _stringbetween($line_open_zingmp3, "<hq>", "</hq>")
If @error Then
Else
$linkhq = _stringbetween($c[0], ‘[CDATA[<span style="color: black;">’, "</span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|7|" & $linkhq[0] & "|8|" & @CRLF)
EndIf
Else
$linksd = _stringbetween($d[0], ‘[CDATA[<span style="color: black;">’, "</span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|5|" & $linksd[0] & "|6|")
EndIf
Else
$tencasy = _stringbetween($b[0], ‘[CDATA[<span style="color: black;">’, " </span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|3|" & $tencasy[0] & "|4|")
EndIf
Else
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
$tenbh = _stringbetween($a[0], ‘<span style="color: black;"> ‘, " </span>")
FileWrite($readxml, "|0|" & $tenfilealbum1 & "|1|" & $tenbh[0] & "|2|")
EndIf
WEnd
FileClose($file_zingmp3)
$oie.navigate("about:blank")
_ieloadwait($oie)
EndFunc

Func _baihat()
$timxml = BinaryToString(InetRead($line_open_final, 1), 4)
Global $tenbhthuchien = _stringbetween($timxml, "<title>", "</title>")
Global $xml = _stringbetween($timxml, "xmlURL=", "&amp")
$oie.navigate($xml[0])
GUICtrlSetData($label1, "Đang thực hiện link single : " & $tenbhthuchien[0])
_ieloadwait($oie)
$shtml = _iedocreadhtml($oie)
$readxml = FileOpen(@TempDir & "\zingmp3.txt", $mode1)
FileWrite($readxml, $shtml)
Local $file_open_zingmp3_2 = FileOpen(@TempDir & "\zingmp3.txt", 0)
If $file_open_zingmp3_2 = -1 Then
MsgBox(0, "Error", "Unable to open file zingmp3.txt")
Exit
EndIf
While 1
Local $line_open_zingmp3_2 = FileReadLine($file_open_zingmp3_2)
If @error = -1 Then ExitLoop
Local $a = _stringbetween($line_open_zingmp3_2, "<title>", "</title>")
If @error Then
Sleep(2)
Local $b = _stringbetween($line_open_zingmp3_2, "<performer>", "</performer>")
If @error Then
Local $d = _stringbetween($line_open_zingmp3_2, "<source>", "</source>")
If @error Then
Local $c = _stringbetween($line_open_zingmp3_2, "<hq>", "</hq>")
If @error Then
Else
$linkhq = _stringbetween($c[0], ‘[CDATA[<span style="color: black;">’, "</span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|7|" & $linkhq[0] & "|8|" & @CRLF)
EndIf
Else
$linksd = _stringbetween($d[0], ‘[CDATA[<span style="color: black;">’, "</span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|5|" & $linksd[0] & "|6|")
EndIf
Else
$tencasy = _stringbetween($b[0], ‘[CDATA[<span style="color: black;">’, "</span>")
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($readxml, "|3|" & $tencasy[0] & "|4|")
EndIf
Else
$readxml = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
$tenbh = _stringbetween($a[0], ‘<span style="color: black;"> ‘, "</span>")
FileWrite($readxml, "|0|" & "|1|" & $tenbh[0] & "|2|")
EndIf
WEnd
FileClose($file_open_zingmp3_2)
EndFunc

Func _sentlink()
_filecreate(@TempDir & "\zingmp3_line.txt")
Local $file = FileOpen(@TempDir & "\zingmp3_dl.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
Global $tenalbumsent = _stringbetween($line, "|0|", "|1|")
Global $link320 = _stringbetween($line, "|7|", "|8|")
Global $link128 = _stringbetween($line, "|5|", "|6|")
Global $tenfilecodau1 = _stringbetween($line, "|1|", "|2|")
Global $tenfilecodau2 = _stringbetween($line, "|3|", "|4|")
Global $tenfilecodau = $tenfilecodau1[0] & " – " & $tenfilecodau2[0]
$tenfile = $tenfilecodau
$tenfile0 = StringRegExpReplace($tenfile, ‘[/|:|?|<|>|"|\\]’, "-")
$tenfile1 = StringRegExpReplace($tenfile0, "[á|à|ạ|ả|ã|â|ấ|ầ|ậ|ẩ|ẫ|ă|ắ|ằ|ặ|ẳ]", "a")
$tenfile2 = StringRegExpReplace($tenfile1, "[é|è|ẹ|ẻ|ẽ|ê|ế|ề|ệ|ể|ễ]", "e")
$tenfile3 = StringRegExpReplace($tenfile2, "[í|ì|ị|ỉ|ĩ]", "i")
$tenfile4 = StringRegExpReplace($tenfile3, "[ó|ò|ọ|ỏ|õ|ô|ố|ồ|ộ|ổ|ỗ|ơ|ớ|ờ|ợ|ở]", "o")
$tenfile5 = StringRegExpReplace($tenfile4, "[ú|ù|ụ|ủ|ũ|ư|ứ|ừ|ự|ử|ữ]", "u")
$tenfile6 = StringRegExpReplace($tenfile5, "[ý|ỳ|ỵ|ỷ|ỹ]", "y")
$tenfile7 = StringRegExpReplace($tenfile6, "[đ]", "d")
$tenfile8 = StringRegExpReplace($tenfile7, "[Á|À|Ạ|Ả|Ã|Â|Ấ|Ầ|Ậ|Ẩ|Ẫ|Ă|Ắ|Ằ|Ặ|Ẳ]", "A")
$tenfile9 = StringRegExpReplace($tenfile8, "[É|È|Ẹ|Ẻ|Ẽ|Ê|Ế|Ề|Ệ|Ể|Ễ]", "E")
$tenfile10 = StringRegExpReplace($tenfile9, "[Í|Ì|Ị|Ỉ|Ĩ]", "I")
$tenfile11 = StringRegExpReplace($tenfile10, "[Ó|Ò|Ọ|Ỏ|Õ|Ô|Ố|Ồ|Ộ|Ổ|Ỗ|Ơ|Ớ|Ờ|Ợ|Ở]", "O")
$tenfile12 = StringRegExpReplace($tenfile11, "[Ú|Ù|Ụ|Ủ|Ũ|Ư|Ứ|Ừ|Ự|Ử|Ữ]", "U")
$tenfile13 = StringRegExpReplace($tenfile12, "[Ý|Ỳ|Ỵ|Ỷ|Ỹ]", "Y")
$tenfile14 = StringRegExpReplace($tenfile13, "[Đ]", "D")
$name = $tenfile14 & ".mp3"
$countline = FileOpen(@TempDir & "\zingmp3_line.txt", $mode2)
FileWrite($countline, $name & @CRLF)
Global $sobaihatgetduoc = _filecountlines(@TempDir & "\zingmp3_line.txt")
GUICtrlSetData($label2, "Album này có tổng số bài hát được lấy " & $sobaihatgetduoc)
Select
Case $sobaihatgetduoc = 1
$number = "01."
Case $sobaihatgetduoc = 2
$number = "02."
Case $sobaihatgetduoc = 3
$number = "03."
Case $sobaihatgetduoc = 4
$number = "04."
Case $sobaihatgetduoc = 5
$number = "05."
Case $sobaihatgetduoc = 6
$number = "06."
Case $sobaihatgetduoc = 7
$number = "07."
Case $sobaihatgetduoc = 8
$number = "08."
Case $sobaihatgetduoc = 9
$number = "09."
Case Else
$number = $sobaihatgetduoc & "."
EndSelect
Global $idmsave = (GUICtrlRead($input1))
$savealbum = ‘"’ & $idmsave & "\" & $tenalbumsent[0] & ‘"’
Local $idmsavealbum = StringReplace($savealbum, "\\", "\")
Select
Case GUICtrlRead($combo3) = "Lấy số thứ tự"
Select
Case GUICtrlRead($combo2) = "320 Kbps"
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-320Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $number & $name & ‘"’)
Sleep(50)
Case GUICtrlRead($combo2) = "128 Kbps"
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-128Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link128[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link128[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $number & $name & ‘"’)
Sleep(50)
Case Else
MsgBox(0, "Thông báo lỗi", "Bạn chưa chọn chất lượng 320 Kbps hay 128 Kbps" & @CRLF & "Tool tự động chọn 320Kbps")
GUICtrlSetData($combo2, "320 Kbps")
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-320Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $number & $name & ‘"’)
Sleep(50)
EndSelect
Case GUICtrlRead($combo3) = "Không lấy số thứ tự"
Select
Case GUICtrlRead($combo2) = "320 Kbps"
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-320Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
Case GUICtrlRead($combo2) = "128 Kbps"
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-128Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link128[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link128[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
Case Else
MsgBox(0, "Thông báo lỗi", "Bạn chưa chọn chất lượng 320 Kbps hay 128 Kbps" & @CRLF & "Tool tự động chọn 320Kbps")
GUICtrlSetData($combo2, "320 Kbps")
$hlistview = GUICtrlCreateListViewItem($sobaihatgetduoc & "|" & "MP3-320Kbps|" & $name & "|Album : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsavealbum & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
EndSelect
EndSelect
WEnd
FileClose($file)
_filecreate(@TempDir & "\zingmp3_dl.txt")
EndFunc

Func _sentlinksingle()
_filecreate(@TempDir & "\zingmp3_line.txt")
Local $file = FileOpen(@TempDir & "\zingmp3_dl.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
Global $tenalbumsent = _stringbetween($line, "|0|", "|1|")
Global $link320 = _stringbetween($line, "|7|", "|8|")
Global $link128 = _stringbetween($line, "|5|", "|6|")
Global $tenfilecodau1 = _stringbetween($line, "|1|", "|2|")
Global $tenfilecodau2 = _stringbetween($line, "|3|", "|4|")
Global $tenfilecodau = $tenfilecodau1[0] & " – " & $tenfilecodau2[0]
$tenfile = $tenfilecodau
$tenfile0 = StringRegExpReplace($tenfile, ‘[/|:|?|<|>|"|\\]’, "-")
$tenfile1 = StringRegExpReplace($tenfile0, "[á|à|ạ|ả|ã|â|ấ|ầ|ậ|ẩ|ẫ|ă|ắ|ằ|ặ|ẳ]", "a")
$tenfile2 = StringRegExpReplace($tenfile1, "[é|è|ẹ|ẻ|ẽ|ê|ế|ề|ệ|ể|ễ]", "e")
$tenfile3 = StringRegExpReplace($tenfile2, "[í|ì|ị|ỉ|ĩ]", "i")
$tenfile4 = StringRegExpReplace($tenfile3, "[ó|ò|ọ|ỏ|õ|ô|ố|ồ|ộ|ổ|ỗ|ơ|ớ|ờ|ợ|ở]", "o")
$tenfile5 = StringRegExpReplace($tenfile4, "[ú|ù|ụ|ủ|ũ|ư|ứ|ừ|ự|ử|ữ]", "u")
$tenfile6 = StringRegExpReplace($tenfile5, "[ý|ỳ|ỵ|ỷ|ỹ]", "y")
$tenfile7 = StringRegExpReplace($tenfile6, "[đ]", "d")
$tenfile8 = StringRegExpReplace($tenfile7, "[Á|À|Ạ|Ả|Ã|Â|Ấ|Ầ|Ậ|Ẩ|Ẫ|Ă|Ắ|Ằ|Ặ|Ẳ]", "A")
$tenfile9 = StringRegExpReplace($tenfile8, "[É|È|Ẹ|Ẻ|Ẽ|Ê|Ế|Ề|Ệ|Ể|Ễ]", "E")
$tenfile10 = StringRegExpReplace($tenfile9, "[Í|Ì|Ị|Ỉ|Ĩ]", "I")
$tenfile11 = StringRegExpReplace($tenfile10, "[Ó|Ò|Ọ|Ỏ|Õ|Ô|Ố|Ồ|Ộ|Ổ|Ỗ|Ơ|Ớ|Ờ|Ợ|Ở]", "O")
$tenfile12 = StringRegExpReplace($tenfile11, "[Ú|Ù|Ụ|Ủ|Ũ|Ư|Ứ|Ừ|Ự|Ử|Ữ]", "U")
$tenfile13 = StringRegExpReplace($tenfile12, "[Ý|Ỳ|Ỵ|Ỷ|Ỹ]", "Y")
$tenfile14 = StringRegExpReplace($tenfile13, "[Đ]", "D")
$name = $tenfile14 & ".mp3"
$countline = FileOpen(@TempDir & "\zingmp3_line.txt", $mode2)
GUICtrlSetData($label2, "Đã gửi link của single này tới IDM")
FileWrite($countline, $name & @CRLF)
Global $sobaihatgetduoc = _filecountlines(@TempDir & "\zingmp3_line.txt")
Select
Case GUICtrlRead($combo2) = "320 Kbps"
$hlistview = GUICtrlCreateListViewItem("Single|" & "MP3-320Kbps|" & $name & "|Single : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsave & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
Case GUICtrlRead($combo2) = "128 Kbps"
$hlistview = GUICtrlCreateListViewItem("Single|" & "MP3-128Kbps|" & $name & "|Single : " & $tenalbumsent[0] & "|" & $link128[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsave & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
Case Else
MsgBox(0, "Thông báo lỗi", "Bạn chưa chọn chất lượng 320 Kbps hay 128 Kbps" & @CRLF & "Tool tự động chọn 320Kbps")
GUICtrlSetData($combo2, "320 Kbps")
$hlistview = GUICtrlCreateListViewItem("Single|" & "MP3-320Kbps|" & $name & "|Single : " & $tenalbumsent[0] & "|" & $link320[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $link320[0] & " /p " & $idmsave & " /f " & ‘"’ & $name & ‘"’)
Sleep(50)
EndSelect
WEnd
FileClose($file)
_filecreate(@TempDir & "\zingmp3_dl.txt")
EndFunc

Func _getlinkvideo()
Global $strvideo = BinaryToString(InetRead($line_open_final, 1), 4)
Global $videolinkdl = _stringbetween($strvideo, "http://mp3.zing.vn/html5/video", ‘"’)
Global $videolinkdl2 = "http://mp3.zing.vn/html5/video" & $videolinkdl[0]
$tenfilevideo = _stringbetween($line_open_final, "http://mp3.zing.vn/video-clip/", "/")
$tenfilevideo14 = StringRegExpReplace($tenfilevideo[0], "[-]", " ")
$name = $tenfilevideo14 & ".mp4"
GUICtrlSetData($label1, "Đang thự hiện link " & $name)
Global $filevideoghi = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($filevideoghi, $videolinkdl2 & @CRLF)
$xuatravideolink = FileRead(@TempDir & "\zingmp3_dl.txt")
Global $solinkdalam = _filecountlines(@TempDir & "\zingmp3_dl.txt")
GUICtrlSetData($label1, "Đang thực hiện link video clip : " & $name)
GUICtrlSetData($label2, "THÔNG BÁO : ĐÃ LẤY ĐƯỢC " & $solinkdalam & " LINK " & $name)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Local $idmsavevideo = (GUICtrlRead($input1))
Run($pathidm & " /n /a /d " & $videolinkdl2 & " /p " & $idmsavevideo & " /f " & ‘"’ & $name & ‘"’)
$hlistview = GUICtrlCreateListViewItem("Clip|" & "Video MP4|" & $tenfilevideo14 & "|Video Clip" & "|" & $videolinkdl2, $listview1)
_filecreate(@TempDir & "\zingmp3_dl.txt")
EndFunc

Func _nghesy()
_filecreate(@TempDir & "\zingmp3.txt")
Global $line_nghe_sy = _stringbetween($line_open_final, "http://mp3.zing.vn/nghe-si/", "/")
Global $line_nghe_sy_ten = StringRegExpReplace($line_nghe_sy[0], "-", " ")
GUICtrlSetData($label1, "Đang thực hiện link nghệ sĩ " & $line_nghe_sy[0])
$oie.navigate("http://mp3.zing.vn/nghe-si/" & $line_nghe_sy[0] & "/bai-hat?p=1")
_ieloadwait($oie)
$shtml = _iedocreadhtml($oie)
$timsotrang = _stringbetween($shtml, "Trang 1", "</ul>")
If @error Then
$sotrangchinhxac = 1
Else
$sotrang = _stringbetween($timsotrang[0], "Trang cuối", "Cuối")
If @error Then
$sotrang5 = _stringbetween($timsotrang[0], "Trang ", "5")
If @error Then
$sotrang4 = _stringbetween($timsotrang[0], "Trang ", "4")
If @error Then
$sotrang3 = _stringbetween($timsotrang[0], "Trang ", "3")
If @error Then
$sotrang2 = _stringbetween($timsotrang[0], "Trang ", "2")
If @error Then
$sotrangchinhxac = 1
Else
$sotrangchinhxac = 2
EndIf
Else
$sotrangchinhxac = 3
EndIf
Else
$sotrangchinhxac = 4
EndIf
Else
$sotrangchinhxac = 5
EndIf
Else
$timsotrangcuoi = _stringbetween($sotrang[0], "bai-hat?p=", ‘"’)
$sotrangchinhxac = $timsotrangcuoi[0]
EndIf
EndIf
$i = 0
Do
$oie.navigate("http://mp3.zing.vn/nghe-si/" & $line_nghe_sy[0] & "/bai-hat?p=" & $i + 1)
GUICtrlSetData($label2, "http://mp3.zing.vn/nghe-si/" & $line_nghe_sy[0] & "/bai-hat?p=" & $i + 1)
_ieloadwait($oie)
$shtml = _iedocreadhtml($oie)
$linkdlns = _stringbetween($shtml, ‘<ul class="song-list">’, ‘<div class="paging">’)
If @error Then
$j = 0
Do
$oie.navigate("http://mp3.zing.vn/nghe-si/" & $line_nghe_sy[0] & "/bai-hat?p=" & $i + 1)
GUICtrlSetData($label2, "http://mp3.zing.vn/nghe-si/" & $line_nghe_sy[0] & "/bai-hat?p=" & $i + 1)
_ieloadwait($oie)
$shtml = _iedocreadhtml($oie)
$linkdlns = _stringbetween($shtml, ‘<ul class="song-list">’, ‘<div class="paging">’)
If @error Then
Else
$readnghesy = FileOpen(@TempDir & "\zingmp3.txt", $mode1)
FileWrite($readnghesy, $linkdlns[0] & @CRLF & "THONGBAOBILOI")
_nghesydl()
_sentlinknghesy()
ExitLoop
EndIf
$j = $j + 1
Until $j = 0
Else
$readnghesy = FileOpen(@TempDir & "\zingmp3.txt", $mode1)
FileWrite($readnghesy, $linkdlns[0] & @CRLF)
_nghesydl()
_sentlinknghesy()
EndIf
$i = $i + 1
Until $i = $sotrangchinhxac
GUICtrlSetData($label1, "")
GUICtrlSetData($label2, "")
EndFunc

Func _nghesydl()
_filecreate(@TempDir & "\zingmp3_dl.txt")
Local $file_open_nghe_sy_dl = FileOpen(@TempDir & "\zingmp3.txt", 0)
If $file_open_nghe_sy_dl = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line_open_nghe_sy_dl = FileReadLine($file_open_nghe_sy_dl)
If @error = -1 Then ExitLoop
$nghesy_baihat = _stringbetween($line_open_nghe_sy_dl, ‘sname="’, ‘"’)
If @error Then
$nghesy_linkdl = _stringbetween($line_open_nghe_sy_dl, "http://mp3.zing.vn/download/song/", ‘"’)
If @error Then
Else
Local $ghilinkdlns = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($ghilinkdlns, "|4|http://mp3.zing.vn/download/song/" & $nghesy_linkdl[0] & "|5|" & @CRLF)
EndIf
Else
Local $ghilinkdlns = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($ghilinkdlns, "|2|" & $nghesy_baihat[0] & "|3|")
EndIf
$nghesy_stt = _stringbetween($line_open_nghe_sy_dl, ‘"song-num">’, "</span>")
If @error Then
Else
Local $ghilinkdlns = FileOpen(@TempDir & "\zingmp3_dl.txt", $mode2)
FileWrite($ghilinkdlns, "|0|" & $nghesy_stt[0] & "|1|")
EndIf
WEnd
EndFunc

Func _sentlinknghesy()
Local $file_open_ns_dl = FileOpen(@TempDir & "\zingmp3_dl.txt", 0)
Global $idmsave = (GUICtrlRead($input1))
$savealbumns = ‘"’ & $idmsave & "\" & $line_nghe_sy_ten & ‘"’
Local $idmsavealbum = StringReplace($savealbumns, "\\", "\")
If $file_open_ns_dl = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line_open_ns_dl = FileReadLine($file_open_ns_dl)
If @error = -1 Then ExitLoop
GUICtrlSetData($label2, "Đang gửi link của nghệ sĩ này tới IDM")
$ns_stt = _stringbetween($line_open_ns_dl, "|0|", "|1|")
$ns_tenbh = _stringbetween($line_open_ns_dl, "|2|", "|3|")
$ns_linkdl = _stringbetween($line_open_ns_dl, "|4|", "|5|")
$hlistview = GUICtrlCreateListViewItem($ns_stt[0] & "|" & "MP3-320Kbps|" & $ns_tenbh[0] & "|Nghệ sĩ : " & $line_nghe_sy_ten & "|" & $ns_linkdl[0], $listview1)
Sleep(2)
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm & " /n /a /d " & $ns_linkdl[0] & " /p " & $idmsavealbum)
Sleep(50)
WEnd
_filecreate(@TempDir & "\zingmp3_dl.txt")
EndFunc

Func _input()
_filecreate(@TempDir & "\zingmp3_input.txt")
_filecreate(@TempDir & "\zingmp3_output.txt")
Local $inputopen = FileOpen(@TempDir & "\zingmp3_input.txt", $mode2)
Global $inputlink = (GUICtrlRead($edit1))
FileWrite($inputopen, $inputlink & @CRLF)
Global $solink = _filecountlines(@TempDir & "\zingmp3_input.txt")
GUICtrlSetData($label1, $solink & " LINK")
Local $file = FileOpen(@TempDir & "\zingmp3_input.txt", 0)
If $file = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
$linkzing = _stringbetween($line, "http://mp3.zing.vn/", "/")
If @error Then
Else
$loclinkhople = _stringbetween($line, "http://mp3.zing.vn/", "/")
Select
Case $loclinkhople[0] = "album"
Local $inputopen = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($inputopen, $line & @CRLF)
Case $loclinkhople[0] = "video-clip"
Local $inputopen = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($inputopen, $line & @CRLF)
Case $loclinkhople[0] = "bai-hat"
Local $inputopen = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($inputopen, $line & @CRLF)
Case $loclinkhople[0] = "nghe-si"
$locnghesy = _stringbetween($line, "http://mp3.zing.vn/nghe-si/", "/")
If @error Then
$locnghesy = _stringbetween($line & "/", "http://mp3.zing.vn/nghe-si/", "/")
Local $inputopen = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($inputopen, "http://mp3.zing.vn/nghe-si/" & $locnghesy[0] & "/" & @CRLF)
Else
Local $inputopen = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($inputopen, "http://mp3.zing.vn/nghe-si/" & $locnghesy[0] & "/" & @CRLF)
EndIf
EndSelect
EndIf
WEnd
FileClose($file)
$inputlinkthat = FileRead(@TempDir & "\zingmp3_output.txt")
GUICtrlSetData($edit1, $inputlinkthat)
EndFunc

Func _output()
Global $sozing = _filecountlines(@TempDir & "\zingmp3_output.txt")
If $sozing = 0 Then
MsgBox(0, "Thông báo lỗi", "Không có link mp3.zing.vn hợp lệ. Vui lòng copy lại rồi click Paste sau đó nhấn Get link")
Else
_filecreate(@TempDir & "\zingmp3_output_final.txt")
Dim $oldarray, $newarray[1]
Dim $infile = @TempDir & "\zingmp3_output.txt"
Dim $outfile = @TempDir & "\zingmp3_output_final.txt"
_filereadtoarray($infile, $oldarray)
For $x = 1 To $oldarray[0]
$result = _arraysearch($newarray, $oldarray[$x])
If $result < 0 Then
$newarray[0] += 1
_arrayadd($newarray, $oldarray[$x])
EndIf
Next
FileDelete($outfile)
For $x = 1 To $newarray[0]
FileWriteLine($outfile, $newarray[$x])
Next
$inputlinkthat = FileRead(@TempDir & "\zingmp3_output_final.txt")
GUICtrlSetData($edit1, $inputlinkthat)
Global $solinkthat = _filecountlines(@TempDir & "\zingmp3_output_final.txt")
GUICtrlSetData($label1, "Đã xóa " & ($solink – $solinkthat) & " của tổng số " & $solink & " link được nhập vào. Sau khi lọc còn lại " & $solinkthat & " link để tool có thể làm việc")
EndIf
EndFunc

Func _cellection()
_filecreate(@TempDir & "\zingmp3_input.txt")
_filecreate(@TempDir & "\zingmp3_output.txt")
_filecreate(@TempDir & "\zingmp3_output_final.txt")
$addcollection = (GUICtrlRead($edit2))
$shtml = BinaryToString(InetRead($addcollection, 1), 4)
Local $file_collection_2 = FileOpen(@TempDir & "\zingmp3_input.txt", $mode1)
FileWrite($file_collection_2, $shtml)
Local $file_collection = FileOpen(@TempDir & "\zingmp3_input.txt", 0)
If $file_collection = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
Local $line_collection = FileReadLine($file_collection)
If @error = -1 Then ExitLoop
Select
Case GUICtrlRead($combo4) = "Tất cả"
GUICtrlSetData($label1, "Đang lọc để lấy |Album|Bài hát|Clip-Video|Nghệ sĩ)")
GUICtrlSetData($label2, "Vui lòng chờ,sau khi tool lọc xong bạn chỉ cần nhấn vào Get Link")
$collection_album = _stringbetween($line_collection, "/album/", ".html")
If @error Then
$collection_baihat = _stringbetween($line_collection, "/bai-hat/", ".html")
If @error Then
$collection_nghesy = _stringbetween($line_collection, "/nghe-si/", ‘"’)
If @error Then
$collection_video = _stringbetween($line_collection, "/video-clip/", ".html")
If @error Then
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/video-clip/" & $collection_video[0] & ".html" & @CRLF)
EndIf
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/nghe-si/" & $collection_nghesy[0] & "/" & @CRLF)
EndIf
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/bai-hat/" & $collection_baihat[0] & ".html" & @CRLF)
EndIf
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/album/" & $collection_album[0] & ".html" & @CRLF)
EndIf
Case GUICtrlRead($combo4) = "Album"
GUICtrlSetData($label1, "Đang lọc để lấy |Album|")
GUICtrlSetData($label2, "Vui lòng chờ, sau khi tool lọc xong bạn chỉ cần nhấn vào Get Link")
$collection_album = _stringbetween($line_collection, "/album/", ".html")
If @error Then
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/album/" & $collection_album[0] & ".html" & @CRLF)
EndIf
Case GUICtrlRead($combo4) = "Bài hát"
GUICtrlSetData($label1, "Đang lọc để lấy |Bài hát|")
GUICtrlSetData($label2, "Vui lòng chờ,sau khi tool lọc xong bạn chỉ cần nhấn vào Get Link")
$collection_baihat = _stringbetween($line_collection, "/bai-hat/", ".html")
If @error Then
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/bai-hat/" & $collection_baihat[0] & ".html" & @CRLF)
EndIf
Case GUICtrlRead($combo4) = "Clip-Video"
GUICtrlSetData($label1, "Đang lọc để lấy |Clip-Video|")
GUICtrlSetData($label2, "Vui lòng chờ, sau khi tool lọc xong bạn chỉ cần nhấn vào Get Link")
$collection_video = _stringbetween($line_collection, "/video-clip/", ".html")
If @error Then
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/video-clip/" & $collection_video[0] & ".html" & @CRLF)
EndIf
Case GUICtrlRead($combo4) = "Nghệ sĩ)"
GUICtrlSetData($label1, "Đang lọc để lấy |Nghệ sĩ")
GUICtrlSetData($label2, "Vui lòng chờ, sau khi tool lọc xong bạn chỉ cần nhấn vào Get Link")
$collection_nghesy = _stringbetween($line_collection, "/nghe-si/", ‘"’)
If @error Then
Else
$ghicollection = FileOpen(@TempDir & "\zingmp3_output.txt", $mode2)
FileWrite($ghicollection, "http://mp3.zing.vn/nghe-si/" & $collection_nghesy[0] & "/" & @CRLF)
EndIf
EndSelect
WEnd
FileClose($file_collection)
Global $sozing = _filecountlines(@TempDir & "\zingmp3_output.txt")
If $sozing = 0 Then
MsgBox(0, "Thông báo: Lỗi", "Không có link mp3.zing.vn hợp lệ. Vui lòng copy lại rồi click Paste sau đó nhấn Get link")
Else
_filecreate(@TempDir & "\zingmp3_output_final.txt")
Dim $oldarray, $newarray[1]
Dim $infile = @TempDir & "\zingmp3_output.txt"
Dim $outfile = @TempDir & "\zingmp3_output_final.txt"
_filereadtoarray($infile, $oldarray)
For $x = 1 To $oldarray[0]
$result = _arraysearch($newarray, $oldarray[$x])
If $result < 0 Then
$newarray[0] += 1
_arrayadd($newarray, $oldarray[$x])
EndIf
Next
FileDelete($outfile)
For $x = 1 To $newarray[0]
FileWriteLine($outfile, $newarray[$x])
Next
EndIf
$so_link_loc_edit2 = _filecountlines(@TempDir & "\zingmp3_output_final.txt")
$xuat_collection_daloc = FileRead(@TempDir & "\zingmp3_output_final.txt")
GUICtrlSetData($edit1, $xuat_collection_daloc)
GUICtrlSetData($label1, "Đã lọc xong link. Bạn đã thu được " & $so_link_loc_edit2 & " link. Bạn có thể lọc theo từng loại để chọn lấy:")
GUICtrlSetData($label2, "Tất cả hoặc chọn lấy Album hoặc chọn lấy Bài hát hoặc chọn lấy Clip-Video hoặc chọn lấy Nghệ sĩ")
MsgBox(0, "Thông báo", "Đã lọc xong link", 2)
EndFunc
[/au3]
Trong tools có download 1 file HTML từ địa chỉ:

http://dl.dropbox.com/u/63311588/czv4.1.html

để kiểm tra phiên bản mới và thông tin tài khoản vip của ZING. Mình đã save và đính kèm vào code. Mình đã check tài khoản VIP này ko đăng nhập được nên đính kèm vào hy vọng các bạn đừng lấy tài khoản của tác giả vì theo như mình thấy thì cậu ấy chia sẻ hoàn toàn miễn phí và mã nguồn rất sạch (cơ mà cứ có update thì đến lúc ko sạch thì cũng chịu 🙂 )

Chức năng

– Lọc link bài hát từ danh sách bạn nhập vào.
_ Lấy link bài hát từ link bạn nhập vào
– Tự động gửi link qua IDM
– Có thể chọn chất lượng nhạc 128kb / 320kb (tất nhiên là phải có tài khoản vip rồi)
– Nhiều tùy chọn link tinh khác như lưu lại thiết lập, đánh số thứ tự bài hát khi tải về, chọn thư mục download…

Screen shoot

Get Link mp3.zing.vn screen shot
Get Link mp3.zing.vn screen shot

[SEO Tool] Xenu’s Link Sleuth tìm link hỏng, outbound link, tạo sitemap

Xenu’s Link Sleuth (TM)

Đây là phần mềm craw link trên trang web của bạn. Nó sẽ liệt kê tất cả các liên kết có trên trang web của bạn từ đó chỉ ra cho bạn link nào bị hỏng(không truy cập được) link nào dẫn ra trang web khác. Nó phân loại các loại link ảnh, link css, javascript…Cuối cùng nó tổng hợp ra danh sách báo cáo link cho bạn. Bạn có thể dùng đó để tạo sitemaps.
Ưu điểm của phần mềm này:
+ Liệt kê nhanh chóng, chính xác không ảnh hưởng đến website / server của bạn trong quá trình craw
+ Chỉ ra link hỏng, out link giúp bạn khắc phục giúp SEO tốt hơn rất nhiều
+ Phần mềm này rất nhẹ, đơn giản, dễ sử dụng
+ Có thể craw lại sau khi tắt đi mà không phải tiến hành craw lại từ đầu…

Xenu 1.3.8 Screenshot
Xenu 1.3.8 Screenshot

Bạn có thể thấy giao diện phần mềm bên trên:
+ Màu đỏ: link hỏng
+ Màu xanh lá: link trong trang web
+ Màu xanh da trời: link ra trang web khác

Còn rất nhiều chức năng hay của Xenu Link các bạn download về và khám phá nhé. Nếu thấy hữu ích thì comment động viên mình nhé!

Download Xenu

Trang chủ:

http://home.snafu.de/tilman/xenulink.html#Download

GDrive:

https://docs.google.com/file/d/0B0x5WbPiQ0WtUXhwUHhQQ2l4a2c/edit?usp=sharing

SkyDrive:

http://sdrv.ms/YMjWlM

Internet Business Promoter 12.x “bản quyền”

Internet Business Promoter (IBP)

IBP là phần mềm SEO nổi tiếng đạt nhiều giải thưởng lớn. Xin liệt kê một số chức năng của nó như sau:
+ Phân tích chi tiết website của bạn
+ Đưa ra các cách để tối ưu hóa website của bạn dựa vào các phân tích ở trên
+ Nghiên cứu từ khóa và các tiếp thị trả phí phù hợp với website của bạn
+ Submit tự động website của bạn lên các công cụ tìm kiếm
+ Submit tự động website của bạn lên các trang mạng xã hội
+ Kiểm tra thứ hạng từ khóa, thứ hạng website
+ Giúp bạn xây dựng liên kết trong, ngoài website
+ Lên kế hoạch thực hiện công việc tự động
+ Ngoài ra còn rất nhiều công cụ khác như kiểm tra trang web đã valid HTML chưa, kiểm tra các link bị lỗi, …
Và giá của phần mềm này là $499.95 đúng là mơ cũng không thể xài được

IBP 2013 v12.0.2
IBP 2013 v12.0.2

Download phần mềm

Down bản mới nhất tại:
http://www.ibusinesspromoter.com/IBP.exe
hoặc tải bản 12.0.2 tại:
GoogleDrive:
https://docs.google.com/file/d/0B0x5WbPiQ0WtNHFQZm1nR282djg/edit?usp=sharing
SkyDrive:
http://sdrv.ms/16PrKL4

Key “bản quyền”

Thêm 4 dòng sau vào file host

127.0.0.1 axandra.com
127.0.0.1 www.axandra.com
127.0.0.1 keywordindex.com
127.0.0.1 www.keywordindex.com

Sau khi cài đặt phần mềm xong các bạn mở phần mềm lên chạy vào đến giao diện của nó vào menu Help/Enter Unlock Code
Nhập code:
IBP-B-NWKXCLC-6402663
Nó sẽ thông báo key hết hạn. Các bạn tắt đi mở lại phần mềm trên giao diện chính của nó sẽ có nút Enter Renew Code các bạn nhấn vào và nhập code này:
TTB-B-XHRNACN-7261313
100% working
Chúc các bạn thành công!

UltraISO PE “bản quyền” version 9x

UltraISO Premium Edition (PE)

Định dạng ISO là định dạng ảnh đĩa phổ biến nhất nó được chia sẻ nhiều nhất trên mạng, được hầu hết các phần mềm ghi đĩa hỗ trợ như Nero chẳng hạn. Định dạng ISO được nhiều người sử dụng để ghi đĩa, để biên tập đĩa khởi động. Định dạng ISO còn được sử dụng để boot, cài đặt, chia sẻ với máy ảo. Định dạng ISO được nhiều người sử dụng để đóng gói dữ liệu tránh virus…
Trong số tất cả các phần mềm hỗ trợ ISO thì UltraISO được đánh giá là nổi bật hơn cả bởi các ưu điểm:
– Giao diện thân thiện, thao tác đơn giản dễ thực hiện
– Tạo, chỉnh sửa file ISO đơn giản, nhanh chóng
– Hỗ trợ ổ đĩa ảo
– Hỗ trợ tạo đĩa khởi động

UltraISO Icon
UltraISO Icon

Download UltraISO PE

+ Google Drive: https://docs.google.com/file/d/0B0x5WbPiQ0WtVzJJT1F4V0kwQ2c/edit?usp=sharing
+ SkyDrive: http://sdrv.ms/11rBoQg

Key “bản quyền”

User Name : Steve Olson
Reg Code : 2BEC-ED28-82BB-95D7

Wondershare Flash Gallery Factory Deluxe 5.2.x key “bản quyền”

Wondershare Flash Gallery Factory Deluxe

Wondershare Flash Gallery Factory Deluxe
Wondershare Flash Gallery Factory Deluxe

Mặc dù Flash đã gần hết thời rồi nhưng mình vẫn giới thiệu phần mềm này có nhiều ưu điểm
+ Phần mềm tạo photo slideshows, thuyết trình, album ảnh, intro, banner…
+ Hơn 200 hiệu ứng, template, nhạc nền, 3D, hiệu ứng chuyển cảnh,…
+ Hỗ trợ xuất ra các định dạng SWF, XML, HTML, EXE, Email và bảo vệ màn hình.
+ Hỗ trợ chia sẻ qua MySpace, Blogger, Friendster, Window Live Spaces, WordPress và tất cả các trang web xã hội và blog hỗ trợ chỉnh sửa mã HTML
Đây là phần mềm đơn giản, dễ sử dụng và hiệu quả về flash nhất mà mình từng test

Download Flash Gallery Factory Deluxe 5.2.1

+ Trang chủ:
http://www.wondershare.com/pro/flash-gallery-factory-deluxe.html
+ GDrive:
https://docs.google.com/file/d/0B6k10y9mj_DZQlRJUUNfMkVQM1U/edit?usp=sharing
+ SkyDirve:
http://sdrv.ms/166uv9y

Key đăng ký

Mail: Reverser@TSRh.com
Key: 3E49E0309C438530EE7CEE315B49B230

Adobe Dreamweaver CS6 Working 100%

Phần mềm thiết kế web + code nổi tiếng của Adobe, webmaster chắc ai cũng biết. Bản CS6 mới nên tìm trên mạng khá vất vả vì vậy mình quyết định post lại cho bạn nào cần

Adobe Dreamweaver CS6
Adobe Dreamweaver CS6

Download bộ cài

Tự mình load từ adobe về rồi tải lên Google Driver nên đảm bảo 100%
https://docs.google.com/file/d/0B6k10y9mj_DZQmhvVXZxUThOaWc/edit?usp=sharing

Key để cài đặt

Nhớ ngắt mạng khi nhập key nhé:

1325-1009-9360-7441-3800-8396
1325-1004-0648-4659-0595-7342
1325-1000-3965-7421-2700-8520
1325-1009-5809-5034-5746-4994
1325-1006-4432-0751-2262-7442

Mấy cái key này bị block hết rồi vì thế mở mạng lên là không xài được mục đích chủ yếu là để cài đặt không phải đăng ký tài khoản đỡ tốn time.

Patch tools

Các bạn download file đính kèm bên dưới có hướng dẫn đầy đủ bên trong rồi nhé
Adobe Dreamweaver CS6 Patch
Pass nếu có là hanamonline.com
Link die nhớ thông báo cho mình nha

Cài Microsoft Security Essentials vượt WGA WinXP

Cài đặt

Để cài Microsoft Security Essentials thì bước đầu tiên thì người dùng phải vượt qua xác nhận windows bản quyền chính hãng. Nếu người dùng không vượt qua được kiểm tra chính hãng thì sẽ nhận được thông báo:

This copy of Windows did not pass genuine validation.You might be a victim of software counterfeiting

Tạm dịch:

Bản sao Windows này không qua được xác nhận chính hãng. Bạn có thể là một nạn nhân của phần mềm giả

Not pass genuine validation
Not pass genuine validation

Và bạn được yêu cầu đóng trình cài đặt hoặc mua bản quyền nhưng điều khó khăn lớn nhất đối với chúng ta ở đây là không có tiền mua bản quyền.
Trước tiên bạn down bộ cài đặt ở đây:
Dropbox:
https://www.dropbox.com/s/m0xk4zghv4confv/mssefullinstall-x86fre-en-us-xp.rar
SkyDrive:
http://sdrv.ms/WY4p8n
Có pass giải nén thì bạn điền hanamonline.com

Sau khi down về các bạn giải nén ra chạy file loader.exe và tiến hành cài đặt như bình thường.

Update

Thực chất trong file nén là mssefullinstall-x86fre-en-us-xp.exe phiên bản cũ được giải nén với MSSE Genuine Check Bypass Loader. Vì thế sau khi cài thành công bạn nhớ update Microsoft Security Essentials lên phiên bản cao hơn. Download tại đây:
http://www.microsoft.com/vi-vn/download/details.aspx?id=5201
Sau đó các bạn update cơ sở dữ liệu cho phần mềm chuyển qua tab Update hoặc Update Offline download bằng IDM nhanh hơn. Tham khảo tại đây
http://hanamonline.com/update-microsoft-security-essentials-offline/

Xóa cảnh báo(Tùy chọn)

Dành cho bạn nào gặp cảnh báo này:

Microsoft security essentials get genuine
Microsoft security essentials get genuine

Bạn không xóa cảnh báo này cũng vẫn sử dụng MSE bình thường nhé. Để xóa thông báo này bạn làm như sau
+ Sửa file host trong thư mục %WINDIR%\system32\drivers\etc
Sửa file host bằng Notepad thêm 3 dòng sau:

127.0.1.1 spynettest.microsoft.com
127.0.1.1 spynet2.microsoft.com
127.0.1.1 mpa.one.microsoft.com

+ Xóa file DATA.DAT trong thư mục %ALLUSERSPROFILE%\Application Data\Windows Genuine Advantage\Data
OK vậy là xong rồi đấy.

Adobe Photoshop CS5 Extended “bản quyền” 1 link down cực nhanh

Photoshop thôi không cần nói nữa đến đứa trẻ con bây giờ nó cũng biết. Mục đích của mình hôm nay chia sẻ cho các bạn bản CS5 này theo mình là tương đối nhẹ và ổn định mặc dù giờ đã có bản CS6 khá lâu nhưng mình cũng chưa thử CS6 mà vẫn gắn bó với em này.

Adobe Photoshop CS5 Extended Splash Screen
Adobe Photoshop CS5 Extended Splash Screen

Link down cho các bạn từ Google Driver của mình các bạn tải tại đây nhé:

https://docs.google.com/file/d/0B6k10y9mj_DZa1k1eTRNcDlZVjQ/edit?usp=sharing

Sau khi down về các bạn được file Photoshop_12_LS1.7z dùng WinRAR giải nén ra thư mục Photoshop_12_LS1. Chạy file Photoshop_12_LS1\Adobe CS5\Set-up.exe để cài.
Đây là key “bản quyền”:
1330-1927-7762-6383-0202-0414
Quan trọng là trước khi nhập key các bạn thêm các dòng sau vào file host:

127.0.0.1 activate.adobe.com
127.0.0.1 practivate.adobe.com
127.0.0.1 ereg.adobe.com
127.0.0.1 activate.wip3.adobe.com
127.0.0.1 wip3.adobe.com
127.0.0.1 3dns-3.adobe.com
127.0.0.1 3dns-2.adobe.com
127.0.0.1 adobe-dns.adobe.com
127.0.0.1 adobe-dns-2.adobe.com
127.0.0.1 adobe-dns-3.adobe.com
127.0.0.1 ereg.wip3.adobe.com
127.0.0.1 activate-sea.adobe.com
127.0.0.1 wwis-dubc1-vip60.adobe.com
127.0.0.1 activate-sjc0.adobe.com

Cách sửa file host như thế nào thì có quá nhìu hướng dẫn rồi mình không nói lại nữa nhé. Mọi thắc mắc các bạn comment bên dưới mình sẽ trả lời sớm nhất