Đơn giản là mình là người đam mê công nghệ, thích học hỏi và chia sẻ. Mình mong muốn nhận được phản hồi của các bạn khi xem bất kỳ bài viết nào trên blog của mình. Mỗi ý kiến đóng góp, mỗi sự sẻ chia và góp ý của các bạn là điều mình cần nhất để blog hoàn thiện hơn. Điều đó thật sự quan trọng đối với mình. Xin chân thành cảm ơn!
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,…
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=", "&") $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=", "&") $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 _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…
Đâ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
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é!
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
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
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!
Đị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
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
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
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 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ả
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 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:
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 Link down cho các bạn từ Google Driver của mình các bạn tải tại đây nhé:
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:
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
![[SEO Tool] Xenu’s Link Sleuth tìm link hỏng, outbound link, tạo sitemap](https://hanamonline.com/wp-content/uploads/2013/03/xenu.jpg)
